Input file having FB 133 byte and i wants to delete comma from any position and do the left allignment.
For Ex: In the input file, if value is (10,164.44-) then out put should come as 10164.44-, means comma to be delete and squeeze to left allignment.
I have tried this code but getting syntax error, If i use only INREC syntax then it is working fine as replacing space (10 164.44-) but i wants to squeeze this part. please help me on this.
//SORTSTEP EXEC PGM=SORT
.
.
//SYSIN DD *
OPTION COPY
ALTSEQ CODE=(6B40)
INREC FIELDS=(1,133,TRAN=ALTSEQ)
OUTREC OVERLAY=(1,133,SQZ=(SHIFT=LEFT))
//
.
.
//SYSIN DD *
OPTION COPY
ALTSEQ CODE=(6B40)
INREC FIELDS=(1,133,TRAN=ALTSEQ)
OUTREC OVERLAY=(1,133,SQZ=(SHIFT=LEFT))
//
Error:
SYSIN :
OPTION COPY
ALTSEQ CODE=(6B40)
INREC FIELDS=(1,133,TRAN=ALTSEQ)
OUTREC OVERLAY=(1,133,SQZ=(SHIFT=LEFT))
*
WER268A OUTREC STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
OPTION COPY
ALTSEQ CODE=(6B40)
INREC FIELDS=(1,133,TRAN=ALTSEQ)
OUTREC OVERLAY=(1,133,SQZ=(SHIFT=LEFT))
*
WER268A OUTREC STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
I am using SyncSort For z/OS 1.2.1
Code'd