Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015 Posts: 1255 Location: Bamberg, Germany
|
|
|
|
Code: |
//MAGIC EXEC PGM=ICEMAN
//F1 DD *
ZFS.ONE.VRMN01
ZFS.TWO.THR.VRMN02
/*
//F2 DD *
ZFS.ONE.VRQN01
ZFS.TWO.THR.VRQN02
ZFS.NONE.VRQN03
/*
//SORTOUT DD DUMMY SYSOUT=*
//MATCH DD SYSOUT=*
//NOMATCH DD SYSOUT=*
//SYSIN DD *
JOINKEYS F1=F1,FIELDS=(1,44,A)
JOINKEYS F2=F2,FIELDS=(1,44,A)
JOIN UNPAIRED,F2
REFORMAT FIELDS=(F1:1,44,F2:1,44,?)
SORT FIELDS=(COPY)
OUTFIL FNAMES=(MATCH),
INCLUDE=(89,1,CH,EQ,C'B'),
HEADER1=('Match',/,5C'-'),
BUILD=(1,44)
OUTFIL FNAMES=(NOMATCH),SAVE,
HEADER1=('NoMatch',/,7C'-'),
BUILD=(45,44)
/*
//JNF1CNTL DD *
INREC IFTHEN=(WHEN=INIT,OVERLAY=(45:1,44,JFY=(SHIFT=RIGHT))),
IFTHEN=(WHEN=(87,1,CH,EQ,C'.'),OVERLAY=(87:2X,
1:45,44,JFY=(SHIFT=LEFT))),
IFTHEN=(WHEN=(86,1,CH,EQ,C'.'),OVERLAY=(86:3X,
1:45,44,JFY=(SHIFT=LEFT))),
IFTHEN=(WHEN=(85,1,CH,EQ,C'.'),OVERLAY=(85:4X,
1:45,44,JFY=(SHIFT=LEFT))),
IFTHEN=(WHEN=(84,1,CH,EQ,C'.'),OVERLAY=(84:5X,
1:45,44,JFY=(SHIFT=LEFT))),
IFTHEN=(WHEN=(83,1,CH,EQ,C'.'),OVERLAY=(83:6X,
1:45,44,JFY=(SHIFT=LEFT))),
IFTHEN=(WHEN=(82,1,CH,EQ,C'.'),OVERLAY=(82:7X,
1:45,44,JFY=(SHIFT=LEFT))),
IFTHEN=(WHEN=(81,1,CH,EQ,C'.'),OVERLAY=(81:8X,
1:45,44,JFY=(SHIFT=LEFT))),
IFTHEN=(WHEN=(80,1,CH,EQ,C'.'),OVERLAY=(80:9X,
1:45,44,JFY=(SHIFT=LEFT)))
END
/*
//JNF2CNTL DD *
INREC IFTHEN=(WHEN=INIT,OVERLAY=(45:1,44,JFY=(SHIFT=RIGHT))),
IFTHEN=(WHEN=(87,1,CH,EQ,C'.'),OVERLAY=(87:2X,
1:45,44,JFY=(SHIFT=LEFT))),
IFTHEN=(WHEN=(86,1,CH,EQ,C'.'),OVERLAY=(86:3X,
1:45,44,JFY=(SHIFT=LEFT))),
IFTHEN=(WHEN=(85,1,CH,EQ,C'.'),OVERLAY=(85:4X,
1:45,44,JFY=(SHIFT=LEFT))),
IFTHEN=(WHEN=(84,1,CH,EQ,C'.'),OVERLAY=(84:5X,
1:45,44,JFY=(SHIFT=LEFT))),
IFTHEN=(WHEN=(83,1,CH,EQ,C'.'),OVERLAY=(83:6X,
1:45,44,JFY=(SHIFT=LEFT))),
IFTHEN=(WHEN=(82,1,CH,EQ,C'.'),OVERLAY=(82:7X,
1:45,44,JFY=(SHIFT=LEFT))),
IFTHEN=(WHEN=(81,1,CH,EQ,C'.'),OVERLAY=(81:8X,
1:45,44,JFY=(SHIFT=LEFT))),
IFTHEN=(WHEN=(80,1,CH,EQ,C'.'),OVERLAY=(80:9X,
1:45,44,JFY=(SHIFT=LEFT)))
END
/* |
Output:
Code: |
Match
-----
ZFS.ONE
ZFS.TWO.THR
NoMatch
-------
ZFS.NONE
|
|
|