//A540769Z JOB (CP00,KE50) 00010003
//*MAIN CLASS=CMNA 00020000
//S003A10 EXEC PGM=ADRDSSU 00030000
//SYSPRINT DD SYSOUT=* 00040000
//SAVE DD DISP=(NEW,CATLG,CATLG),DSN=A540769.MARTIN 00050003
//SYSIN DD * 00060000
DUMP - 00070000
DATASET(INCLUDE( - 00080000
DSN.A390880.TSO.** - 00090002
)) - 00100000
OUTDDNAME(SAVE) - 00110000
ALLDATA(*) - 00120000
CANCELERROR 00130001
//SDF DD * 00140001
COMPRESS - 00150000
OPTIMIZE(4) 00160000