IBM Mainframe Forum

by **dick scherrer** » Thu Oct 24, 2013 12:42 am

Hello,

I should have asked earlier.

Do you have one value or 2 values to be changed to PD?

by **Akatsukami** » Thu Oct 24, 2013 12:43 am

I should have noted that the beginning columns are for my test job:

//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))

Modify as necessary for your data.

IBM Mainframe Forum

Syncsort - ZD to PD with signs

Re: Syncsort - ZD to PD with signs

Re: Syncsort - ZD to PD with signs