//S1 EXEC PGM=SORT
//*Concate the Two Data Sets , B first.
//SORTIN DD *
DATE=30052021
NAME=ABCD
DATE=DDMMYYYY
AGE =20
CITY=ZZZZ
//SORTOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,8,ZD)),
IFTHEN=(WHEN=GROUP,BEGIN=(1,5,CH,EQ,C'DATE=',AND,
6,1,CH,NE,C'D'),
PUSH=(91:1,20)),
IFTHEN=(WHEN=(1,6,CH,EQ,C'DATE=D'),OVERLAY=(1:91,20))
OUTFILE BUILD=(1,80),OMIT=(81,8,ZD,EQ,00000001)
Output
Code:
********************************* TOP OF DATA **********************************
NAME=ABCD
DATE=30052021
AGE =20
CITY=ZZZZ
******************************** BOTTOM OF DATA ********************************
One more way is to use SYMNAMES/Symbols since its just a Date field in another Data Set.
I wouldn't argue on poor subject line but I avoid unnecessary use of joinkeys when there is no compare needed or have one to many relationships between two data sets. Nevertheless, TS got the options to choose and should understand the thought process behind each solution.