Portal | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref

Author Message
sprikitik

New User

Joined: 29 Jan 2007
Posts: 61
Location: Makati City, Philippines

 Posted: Tue Oct 23, 2018 6:19 pm    Post subject: S9(11)V9(02) to S9(9)V9(2) COMP-3 Hello, need help pls.. INPUT: LRECL 13 -> S9(11)V9(02). OUTPUT needs to be S9(9)V9(2) COMP-3. Please comment if OUTREC FIELDS=((1,13,SFF,MUL,+10),TO=PD,LENGTH=6) is correct? Thanks!!

Robert Sample

Global Moderator

Joined: 06 Jun 2008
Posts: 8564
Location: Dubuque, Iowa, USA

Posted: Tue Oct 23, 2018 6:53 pm    Post subject: Reply to: S9(11)V9(02) to S9(9)V9(2) COMP-3

 Quote: Please comment if OUTREC FIELDS=((1,13,SFF,MUL,+10),TO=PD,LENGTH=6) is correct?
What happens when you try it? Why are you multiplying the input value? And you do realize that you may be losing significant digits by moving 11 digits before the decimal point to 9 digits before the decimal point?
sergeyken

Active Member

Joined: 29 Apr 2008
Posts: 826
Location: Maryland

Posted: Wed Oct 24, 2018 4:03 am    Post subject: Re: S9(11)V9(02) to S9(9)V9(2) COMP-3

 sprikitik wrote: Hello, need help pls.. INPUT: LRECL 13 -> S9(11)V9(02). OUTPUT needs to be S9(9)V9(2) COMP-3. Please comment if OUTREC FIELDS=((1,13,SFF,MUL,+10),TO=PD,LENGTH=6) is correct?

Actually the PIC S9(11)V9(2) does correspond to format ZD,13 in SYNCSORT, not SFF.
SFF is likely PIC X(13).

From the original post it is unclear why to multiply by +10 ???
 All times are GMT + 6 Hours
 Page 1 of 1

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics Write 9(07) comp-3 data into output file clearskynot DFSORT/ICETOOL 4 Thu Apr 16, 2020 11:00 pm Comp interview questions Deepak1518780 Mainframe Interview Questions 5 Sat Sep 22, 2018 7:26 pm Replace comp-3 field value to comp-3 ... dharmaraok DFSORT/ICETOOL 5 Fri Sep 14, 2018 3:46 pm How can we create a flat file in JAVA... jasorn Java & MQSeries 3 Wed Aug 08, 2018 3:08 pm Comparing Comp-3 fields with greater ... Prateeksichem1 DFSORT/ICETOOL 11 Fri Jul 13, 2018 8:45 am

 © 2003-2020 IBM MAINFRAME Software Support Division
 Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us