//NEWNET JOB (SYS),'REPLACE NET/VTAM', 00000102 // CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1) 00000202 //*JOBPARM LINES=100 00000302 //* 00000402 //BACKUP01 EXEC PGM=IEHPROGM 00000502 //* ***************************************************************** * 00000602 //* SYS1.PROCLIB: BACKUP NET TO NET99 * 00000702 //* ***************************************************************** * 00000802 //SYSPRINT DD SYSOUT=* 00000902 //MVSRES DD UNIT=3350,VOL=SER=MVSRES,DISP=OLD 00001002 //SYSIN DD * 00001102 SCRATCH DSNAME=SYS1.PROCLIB,VOL=3350=MVSRES, C00001206 MEMBER=NET99 00001306 RENAME DSNAME=SYS1.PROCLIB,VOL=3350=MVSRES, C00001403 MEMBER=NET,NEWNAME=NET99 00001504 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -BACKUP01 00001602 //* 00001702 //UPDATE02 EXEC PGM=IEBUPDTE,PARM=NEW 00001802 //* 00001902 //* ***************************************************************** * 00002002 //* SYS1.PROCLIB: REPLACE NET (VTAM) 2019/07/15: * 00002102 //* UPDATING DD INFORMATION FOR VTAMOBJ TO PREVENT * 00002202 //* DATASET REMAINING ON VOLUME FOLLOWING ABNORMAL * 00002302 //* TERMINATION OF VTAM/MVS/HERCULES. * 00002402 //* ***************************************************************** * 00002502 //SYSUT2 DD DSN=SYS1.PROCLIB,DISP=OLD 00002602 //SYSPRINT DD SYSOUT=* 00002702 //SYSIN DD DATA,DLM='><' 00002802 ./ ADD NAME=NET,LIST=ALL 00002902 ./ NUMBER NEW1=10,INCR=10 00003002 //NET PROC 00003102 //IEFPROC EXEC PGM=ISTINM01,TIME=1440,REGION=4096K,DPRTY=(14,15) 00003202 //VTAMLST DD DSN=SYS1.VTAMLST,DISP=SHR 00003302 //VTAMLIB DD DSN=SYS1.VTAMLIB,DISP=SHR 00003402 //VTAMOBJ DD DSN=&&NETOBJ,DISP=(NEW,DELETE,DELETE), 00003505 // UNIT=SYSDA,SPACE=(CYL,(5,5,10)), 00003602 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120) 00003702 ./ ENDUP 00003802 >< 00003902 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -UPDATE02 00004002 //* 00004102 // 00004202