SPACE=(TRK,(65000,15000),RLSE)
//A EXEC PGM=IEFBR14
//NEWDS DD DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,(50,10,5),RLSE),
// DCB=(RECFM=FB,LRECL=80),DSN=&SYSUID..SRC
//B EXEC PGM=IEBDPDTE,PARM=NEW
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD DISP=(OLD,CATLG),DSN=*.A.NEWDS
//SYSIN DD *
./ ADD NAME=IEFBR14
IEFBR14 RSECT
IEFBR14 AMODE 31
IEFBR14 RMODE ANY
SR 15,15
BR 14
END IEFBR14