|
View previous topic :: View next topic
|
| Author |
Message |
aditya_gorti
New User
Joined: 21 Dec 2005
Posts: 19
|
|
|
|
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 |
|
 |
Craq Giegerich
Senior Member
Joined: 19 May 2007
Posts: 1512
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: 19
|
|
|
|
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
Superior Member
Joined: 14 Mar 2007
Posts: 10873
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
Senior Member
Joined: 07 Dec 2007
Posts: 2205
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 |
|
|
|
|
