> I am sure there's room to improve, and several assumptions on my part,
but I did:
Dave,
You can replace your 2 step solution with this single step which will give
you the desired results. You don't need a COPY and SORT step, you can
simply get it done using a COPY operation.
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//INA DD DSN=&&FDRTSEL,DISP=(OLD,PASS),VOL=REF=*.FDRTSTEP.ddname
//INB DD DSN=&&FDRTSEL,DISP=(OLD,PASS),VOL=REF=*.FDRTSTEP.ddname
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
JOINKEYS F1=INA,FIELDS=(31,9,A),SORTED,NOSEQCK
JOINKEYS F2=INB,FIELDS=(31,9,A),SORTED,NOSEQCK
REFORMAT FIELDS=(F1:1,30,F2:1,30)
INREC BUILD=(1,30,C'|',31,30)
/*
//JNF1CNTL DD *
INCLUDE COND=(2,7,CH,EQ,C'FDR692')
INREC IFTHEN=(WHEN=INIT,BUILD=(40,24,82,6)),
IFTHEN=(WHEN=GROUP,RECORDS=4,PUSH=(31:ID=8,SEQ=1))
/*
//JNF2CNTL DD *
INCLUDE COND=(2,7,CH,EQ,C'FDR692')
INREC IFTHEN=(WHEN=INIT,BUILD=(40,24,82,6)),
IFTHEN=(WHEN=GROUP,RECORDS=4,PUSH=(31:ID=8,SEQ=1)),
IFTHEN=(WHEN=(39,1,ZD,LE,2),
OVERLAY=(39:C'0')),
IFTHEN=(WHEN=(39,1,ZD,GT,2),
OVERLAY=(39:39,1,ZD,SUB,+2,EDIT=(T)))
/*
Further if you have any questions please let me know
Thanks,
Kolusu
DFSORT Development
IBM Corporation
IBM Mainframe Discussion List <[email protected]> wrote on
05/15/2018 04:45:29 PM:
> From: "Gibney, Dave" <[email protected]>
> To: [email protected]
> Date: 05/15/2018 04:46 PM
> Subject: Re: Should be easy with SORT :) I thought (:
> Sent by: IBM Mainframe Discussion List <[email protected]>
>
> I am sure there's room to improve, and several assumptions on my
> part, but I did:
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
