Author: tspr52
Subject: DFSORT MUL FIELDS
Posted: Fri Mar 03, 2017 11:53 pm (GMT 5.5)
Dear Colleagues,
I want to multiply a record from the input file like this:
---+----1----+----2----+----3----+----4----+----5----+----6--
AAAEX.PADM.LOAD 5.70K
AAAEX.PADM.LOAD 5.70K
AAAEX.PADM.LOAD.CHMBCK 5.70K
AAAEX.PADM.LOAD.CHMBCK 5.70K
If size is in Kbytes (53,1=K) i need to multiply the number for 1024
The JCL i am currently used for that is the following:
//SORT01 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&&DCODMS07,DISP=OLD
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=(53,1,CH,EQ,C'K'),
OVERLAY=(47:47,6,ZD,MUL,+1024,TO=ZD,LENGTH=3))
What i am receiving is an error SC07 and i am unable to follow up.
Really appreciate any help, pointers. Thanks in advance.
Subject: DFSORT MUL FIELDS
Posted: Fri Mar 03, 2017 11:53 pm (GMT 5.5)
Dear Colleagues,
I want to multiply a record from the input file like this:
---+----1----+----2----+----3----+----4----+----5----+----6--
AAAEX.PADM.LOAD 5.70K
AAAEX.PADM.LOAD 5.70K
AAAEX.PADM.LOAD.CHMBCK 5.70K
AAAEX.PADM.LOAD.CHMBCK 5.70K
If size is in Kbytes (53,1=K) i need to multiply the number for 1024
The JCL i am currently used for that is the following:
//SORT01 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&&DCODMS07,DISP=OLD
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=(53,1,CH,EQ,C'K'),
OVERLAY=(47:47,6,ZD,MUL,+1024,TO=ZD,LENGTH=3))
What i am receiving is an error SC07 and i am unable to follow up.
Really appreciate any help, pointers. Thanks in advance.