//STEP033 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=F6976SG1.ABCD.SCH1,DISP=SHR
//SORTOUT DD DSN=F6976SG1.ABCD.ALFA1.BKP2,DISP=SHR
//SYSIN DD *
SORT FIELDS=COPY,STOPAFT=1
OUTREC OVERLAY=(1,4,131:86,19)
/*
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=F6976SG1.ABCD.SCH1,DISP=SHR
//SORTOUT DD DSN=F6976SG1.ABCD.ALFA1.BKP2,DISP=SHR
//SYSIN DD *
SORT FIELDS=COPY,STOPAFT=1
OUTREC OVERLAY=(1,4,131:86,19)
/*
Sortin and sortout both are vsam files. I have copied only one record from a vsam file to SORTOUT file.
I have to copy field from Sortin to sortout on the the desired position.
JESMSGLG:
IEF450I F6976ABT STEP033 - ABEND=S000 U0016 REASON=00000000 193
TIME=07.20.00
-F6976ABT STEP033 U0016 136 .00 .00 .00 2484 0 0
IEF404I F6976ABT - ENDED - TIME=07.20.00
TIME=07.20.00
-F6976ABT STEP033 U0016 136 .00 .00 .00 2484 0 0
IEF404I F6976ABT - ENDED - TIME=07.20.00