IBM Mainframe Forum

//GENDUMMY EXEC PGM=SORT
//SYMNAMES DD *
DUMMY-TEXT,C'DUMMY'
//SYMNOUT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SORTOUT  DD DISP=(,PASS),DSN=&&DUMMY,
// UNIT=SYSDA,SPACE=(TRK,1)
//SORTIN DD *
A
AB
ABC BAD RC
ABCD
ABCDEF
//SYSIN    DD *
  OPTION COPY,STOPAFT=1
                                       
  INREC BUILD=(DUMMY-TEXT,80:X)
//ONLYBAD  EXEC PGM=SORT
//SYMNAMES DD *
DUMMY-TEXT,C'DUMMY'
F1-DATA,1,80,CH
F2-DATA-FOR-SS,=,80
EXT-F1-KEY,*,1,CH
POSITION,F1-DATA
SKIP,79
LAST-REC-BYTE,*,1,CH
F2-KEY,1,1,CH
F2-DUMMY-POSITION,1,5,CH
F2-SEQ,*,5,CH
KEY-OF-ONE-TO-MATCH,C'1'
KEY-TO-NOT-MATCH,C'5'
ONLY-ON-F2,C'2'
SS-SEARCH-VALUE,C'BAD RC'
//SYMNOUT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SORTOUT  DD SYSOUT=*
//SYSIN    DD *
  OPTION COPY
  JOINKEYS F1=INA,FIELDS=(EXT-F1-KEY,A),SORTED,NOSEQCK
  JOINKEYS F2=INB,FIELDS=(F2-KEY,A)
  JOIN UNPAIRED,F2
  REFORMAT FIELDS=(F1:F1-DATA,?)
                                                     
  INREC IFOUTLEN=80,
        IFTHEN=(WHEN=(EXT-F1-KEY,EQ,ONLY-ON-F2),
                 BUILD=(DUMMY-TEXT,LAST-REC-BYTE:X))
                                                     
//JNF1CNTL DD *
 INREC OVERLAY=(EXT-F1-KEY:KEY-OF-ONE-TO-MATCH)
                                                     
//JNF2CNTL DD *
 INCLUDE COND=(F2-DATA-FOR-SS,SS,EQ,SS-SEARCH-VALUE,
              OR,
               F2-DUMMY-POSITION,EQ,DUMMY-TEXT)
 INREC IFTHEN=(WHEN=INIT,
        OVERLAY=(F2-SEQ:SEQNUM,5,ZD)),
       IFTHEN=(WHEN=(F2-DUMMY-POSITION,EQ,DUMMY-TEXT,
                      AND,
                     F2-SEQ,EQ,C'00001'),
                OVERLAY=(F2-KEY:KEY-TO-NOT-MATCH)),
       IFTHEN=(WHEN=NONE,
                OVERLAY=(F2-KEY:KEY-OF-ONE-TO-MATCH))
 SUM FIELDS=NONE
//INA     DD *
A
AB
ABC BAD RC
ABCD
ABCDEF
//INB DD *
A
AB
ABC
ABCD
ABCDEF
// DD DISP=(OLD,PASS),DSN=&&DUMMY