|
|
| Author |
Message |
aditya_gorti
New User
Joined: 21 Dec 2005 Posts: 14
|
|
|
|
I have a COMP-3 variable satrting in an input file(VB) from position 132.
The variable is S9(13) COMP-3.
I need to copy this to an output file (VB) so that I can see the number.
Please help me out with this. |
|
| Back to top |
|
 |
References
|
|
 |
Craq Giegerich
Senior Member
Joined: 19 May 2007 Posts: 1002 Location: Virginia, USA
|
|
|
|
| What do you want in the output file, just the ZD version of the comp-3 field or additional data? What about the sign of the comp-3 field? What is the lrecl of the input and output records. |
|
| Back to top |
|
 |
aditya_gorti
New User
Joined: 21 Dec 2005 Posts: 14
|
|
|
|
I just need the ZD version of the comp-3 field.
I do not want the Sign of comp-3
Lrecl of input - 20429 (VB)
Lrecl of output - 16 (12 + 4-VB) |
|
| Back to top |
|
 |
enrico-sorichetti
Global Moderator
Joined: 14 Mar 2007 Posts: 3183 Location: italy
|
|
|
|
for what reason You want to complicate Your life...
since every record is of the same length, there is no reason to have a varialble length record format...
just wondering |
|
| Back to top |
|
 |
Skolusu
DFSORT Developer
Joined: 07 Dec 2007 Posts: 357 Location: San Jose
|
|
|
|
The following DFSORT JCL will give you the desired results
| Code: |
//STEP0100 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=your input vb file,disp=shr
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL BUILD=(1,4,132,7,PD,M11,LENGTH=12)
/* |
|
|
| Back to top |
|
 |
|
|