chetanambi
New User
Joined: 21 Jan 2012 Posts: 58 Location: India
|
|
|
|
Hi
I am trying to create a file with values pre-populated as below.
But for the position 147 which is comp-3 field (length=5) I am not able to populate date in the format YYYYMMDD in comp-3 format. Tried looking at manuals but could not find it. Can you please help or give me pointer.
Here is the code I am using.
Code: |
//STEP10 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DUMMY,RECFM=FB,
// LRECL=2040,BLKSIZE=18360
//SORTOUT DD DSN=<<file name>>,DISP=(NEW,CATLG,DELETE),
// DATACLAS=DSIZC50
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL REMOVECC,HEADER1=(10:C'0',19:C'P',24:C'1',81:X'0000000C',
85:X'000000000C',90:X'0000000C',94:X'00000001',
98:X'0000000C',102:X'000000000C',107:X'0000000C',
111:X'00000001',147:DATENS=(4MD),
177:X'00000000',669:C'0120')
|
|
|