Re: Syncsort - ZD to PD with signs
Posted: Thu Oct 24, 2013 12:42 amHello,
I should have asked earlier.
Do you have one value or 2 values to be changed to PD?
I should have asked earlier.
Do you have one value or 2 values to be changed to PD?
//TOOLSORT JOB ,SYNCSORT,CLASS=S,MSGCLASS=1,
// REGION=0M,SCHENV=JOB@ANY
//*
//********************************************************************
//STEP1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
0445000
0}57500
0L20000
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTREC IFTHEN=(WHEN=(2,1,BI,GE,208,AND,2,1,BI,LE,217),
OVERLAY=(1,7,ZD,MUL,-1,TO=PDC)),
IFTHEN=(WHEN=NONE,
OVERLAY=(1,7,ZD,MUL,+1,TO=PDC))
// REGION=0M,SCHENV=JOB@ANY
//*
//********************************************************************
//STEP1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
0445000
0}57500
0L20000
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTREC IFTHEN=(WHEN=(2,1,BI,GE,208,AND,2,1,BI,LE,217),
OVERLAY=(1,7,ZD,MUL,-1,TO=PDC)),
IFTHEN=(WHEN=NONE,
OVERLAY=(1,7,ZD,MUL,+1,TO=PDC))
Modify as necessary for your data.