//MODIFY JOB
//JOBLIB DD DSN=P8740SM1.V3M1.PTF0037.SORTLIB,DISP=SHR
//MAPINIT EXEC PGM=IEHINITT (INITIALIZE MRT MOD TAPE)
//SYSPRINT DD SYSOUT=A
//LABEL DD UNIT=(TAPE,,DEFER)
//SYSIN DD *
LABEL INITT SER=111111
/*
//MAPGEN EXEC PGM=ASLOL,PARM='MODIFY,PRINT',TIME=8
//STEPLIB DD DSN=USER LINK LIBRARY,DISP=(SHR,PASS) (ASSUMED CATALOGED)
//PRINT DD SYSOUT=A,DCB=(RECFM=FB,BLKSIZE=3630,LRECL=121)
//MAPD DD DSN=USER MAP LIBRARY,DISP=SHR (ASSUMED CATALOGED)
//MAPS DD DSN=USER MAP LIBRARY,DISP=SHR (ASSUMED CATALOGED)
//MAPTAPE DD DCB=BLKSIZE=1055,LRECL=1055,RECFM=FB),DSN=MAPRCDS,
// UNIT=(TAPE,,DEFER),VOL=SER=111111,DISP=(OLD,PASS),
// LABEL=(,SL)
//SYSUDUMP DD SYSOUT=A
//PRINT2 DD SYSOUT=A,DCB=(RECFM=FBA,BLKSIZE=3630,LRECL=121)
//SYSOUT DD SYSOUT=A
//SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR
//STORE DD DSN=&&PRTDATA,DCB=(BLKSIZE=18,LRECL=18,RECFM=FB),
// UNIT=SYSDA,SPACE=TRK,(20),,CONTIG),DISP=(NEW,DELETE)
//SORTIN DD DSN=&&PRTDATA,DISP=SHR,VOL=REF=*.STORE
//SORTOUT DD DSN=&&PRTDATA,DISP=(OLD,DELETE),VOL=REF=*.STORE
//SORTWK01 DD UNIT=SYSDA,SPACE=(TRK,(20),,CONTIG)
//SORTWK02 DD UNIT=SYSDA,SPACE=(TRK,(20),,CONTIG)
//SORTWK03 DD UNIT=SYSDA,SPACE=(TRK,(20),,CONTIG)
//CARD DD *
D 299 B DELETE MAP WITH SEQ NO. OF 299 FOR DEV TYPE B
D 2300 BF DELETE MAP WITH SEQ NO. OF 2300 FOR DEV TYPE B & F
D 3000 BF DELETE MAP WITH SEQ NO. OF 3000 FOR DEV TYPE B & F
D 2800 ABC DELETE MAP WITH SEQ NO. OF 2800 FOR DEV TYPE A, B & C
A AAAA ADD MAP NAMED AAAA
A MAP ADD MAP NAMED MAP
A LARG ADD MAP NAMED LARG
A RCDS ADD MAP NAMED RCDS
R TKT1 REPLACE MAP NAMED TKT1
R PAGE REPLACE MAP NAMED PAGE
R LARG REPLACE MAP NAMED LARG
R ZZZZ REPLACE MAP NAMED ZZZZ
/*
//PRINT EXEC PGM=IEBPTPCH (PRINT MRT MOD TAPE)
//SYSUT1 DD DCB=(BLKSIZE=1055,RECFM=FB),DSN=MAPRCDS,
// UNIT=(TAPE,,DEFER),VOL=SER=111111,DISP=(NEW,KEEP),
// LABEL=(,SL)
//SYSPRINT DD SYSOUT=A
//SYSUT2 DD SYSOUT=A
//SYSIN DD *
PRINT TOTCONV=XE
/*
//