smijoss
Active User
Joined: 30 Aug 2007 Posts: 114 Location: pune
|
|
|
|
u keep confusing between VB and FB
Code: |
//SORT01 EXEC PGM=SORT
//SORTIN DD DISP=SHR,DSN=YOURID..FB.LRECL54
//SORTOUT DD DSN=YOURID.FB.LRECL54.CNVT,
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA
//SYSIN DD *
INREC IFTHEN=(WHEN=(01,02,CH,EQ,C'03'),
OVERLAY=(23:23,16,UFF,TO=PD,LENGTH=08,8X)),
IFTHEN=(WHEN=(01,02,CH,EQ,C'05'),
OVERLAY=(32:32,07,UFF,TO=PD,LENGTH=03,4X)),
IFTHEN=(WHEN=(01,02,CH,EQ,C'06'),
OVERLAY=(28:28,16,UFF,TO=PD,LENGTH=08,44,14,8X)),
IFTHEN=(WHEN=(01,02,CH,EQ,C'07'),
OVERLAY=(33:33,16,UFF,TO=PD,LENGTH=08,8X))
SORT FIELDS=COPY
/*
//SYSOUT DD SYSOUT=*
//* |
|
|
smijoss
Active User
Joined: 30 Aug 2007 Posts: 114 Location: pune
|
|
|
|
OVERLAY=(28:28,16,UFF,TO=PD,LENGTH=08,44,14,8X))
while copying, it will copy the characters from 1,28
then compress you number from posion 28 to PD and fit it in 8 bytes
in the input, your next data starts from 44 with length 14
and 8x to fill spaces at the end
you could have saved a lot of efforts if you had mentioned things clearly. |
|