41 lines
3.2 KiB
Plaintext
41 lines
3.2 KiB
Plaintext
//**** 00010001
|
|
//* UI TAX VSAM CHGMXXX FILE BACKUP 00050001
|
|
//**** 00070001
|
|
//** PARMS ARE: CHGNOD2I='PROD' 00081006
|
|
//** : CHGNOD2O='PROD' /FOR CHGM002 00082006
|
|
//** : CHGMN2R='CHGM002' 00090006
|
|
//** : CHGNOD3I='PROD' 00090106
|
|
//** : CHGNOD3O='PROD' /FOR CHGM030 00090206
|
|
//** : CHGMN3R='CHGM030' 00090307
|
|
//** - BKP='BKP' 00091007
|
|
//** - BKPGEN='(+1)' 00100007
|
|
//**** 00110001
|
|
//DTSCHGMB PROC BKP='BKP', 00111001
|
|
// BKPGEN='(+1)' 00112001
|
|
//STEP0110 EXEC PGM=SORT,REGION=0K, /* VSAM CHGMXXX BACKUP 00120001
|
|
// COND=(0,LT) 00130000
|
|
//SYSOUT DD SYSOUT=* 00140000
|
|
//SORTIN DD DSN=DOESTAX.&CHGNOD2I..VSAM.&CHGMN2R, 00150006
|
|
// DISP=SHR,AMP=('BUFNI=5,BUFND=30') 00151001
|
|
//SORTOUT DD DSN=DOESTAX.&CHGNOD2O..&BKP..&CHGMN2R.&BKPGEN., 00170006
|
|
// DISP=(,CATLG,DELETE), 00180000
|
|
// UNIT=CART, 00190000
|
|
// VOLUME=(,RETAIN), 00200007
|
|
// LABEL=(1,SL), 00210000
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=64,BLKSIZE=32000) 00220004
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00230000
|
|
//**** 02070000
|
|
//STEP0120 EXEC PGM=SORT,REGION=0K, /* VSAM CHGMXXX BACKUP 02073007
|
|
// COND=(0,LT) 02074007
|
|
//SYSOUT DD SYSOUT=* 02075007
|
|
//SORTIN DD DSN=DOESTAX.&CHGNOD3I..VSAM.&CHGMN3R, 02076007
|
|
// DISP=SHR,AMP=('BUFNI=5,BUFND=30') 02077007
|
|
//SORTOUT DD DSN=DOESTAX.&CHGNOD3O..&BKP..&CHGMN3R.&BKPGEN., 02078007
|
|
// DISP=(,CATLG,DELETE), 02079007
|
|
// UNIT=CART, 02079107
|
|
// VOLUME=(,RETAIN,REF=*.STEP0110.SORTOUT), 02079207
|
|
// LABEL=(2,SL), 02079307
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=22,BLKSIZE=22000) 02079609
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 02079707
|
|
//**** 02080007
|