IBM OS/390 manual Sysin DD Data TOP Stack 13 Quit

&&IF &&PARAM1 EQ ′′ &&GOTO TAG3 &&SET &&VARBL3 &&PARAM1 &&LABEL TAG3

&&TYPE ENTER THE DESCRIPTIVE QUALIFIER FOR THE PDS TO BE CREATED &&TYPE THE DEFAULT WILL BE &&VARBL4

&&READ &&PARAMS

&&IF &&PARAM1 EQ ′′ &&GOTO TAG4 &&SET &&VARBL4 &&PARAM 1 &&LABEL TAG4

&&TYPE ENTER TME DISK TYPE (IE 3350, 3375, 3380) FOR THE PDS &&READ &&PARAMS

&&IF &&PARAM1 EQ ′′ &&GOTO -TAG4 &&SET &&VARBL5 &&PARAM1 &&LABEL TAG5

&&TYPE ENTER THE VOLUME SERIAL NUMBER OF THE DISK FOR THE PDS &&READ &&PARAMS

&&IF &&PARAM1 EQ ′′ &&GO′ TO -TAG5 &&SET &&VARBL6 &&PARAM1 &&LABEL TAG6

/SWITCH &&VARBL1

&&IF &&RETCOD EQ ′ *SWITCHE′ &&GOTO TAG7 &&IF &&RETCOD EQ ′ *LIB′ &&GOTO TAG7

&&TYPE USER MAY NOT SWITCH TO ICCF LIBRARY &&VARBL1 &&TYPE PROCEDURE TERMINATED

&&GOTO TAG9

&&LABEL TAG7

&&TYPE YOU HAVE REQUESTED ICCF LIBRARY &&VARBL1 TO BE UNLOADED &&TYPE TO CREATE AN MVS JOB FOR CREATING A PDS WITH THE FOLLOWING &&TYPE &&VARBL2.ICCF.&&VARBL3.&&VARBL4′ ON A &&VARBL5 WITH VOL &&TYPE SERIAL &&VARBL6

&&LABEL TAG8

&&TYPE ENTER Y TO CONTINUE, C TO CANCEL, OR R TO RETRY. &&READ &&PARAMS

&&IF &&PARAM1 EQ ′ Y′ &&GOTO TAG10 &&IF &&PARAm1 EQ ′ R′ &&GOTO -TAG1 &&IF &&PARAM1 EQ ′ Y′ &&GOTO TAG9 &&GOTO -TAG8

&&LABEL TAG9

&&TYPE END OF PROCEDURE ICCFTSO/E &&EXIT

&&LABEL TAGIO &&OPTIONS 0010001 /ED

I // JOB IEBUPDTE CREATE MVS IEBUPDTE TAPE USING DITTO CT I // UPSI 1

I * PLEASE ASSIGN SYS020 TO A TAPE DRIVE WITH A SCRATCH TAPE MOUNTED I // PAUSE

I // EXEC DITTO,SIZE=92K

I $$DITTO CT OUTPUT=SYS020,BLKFACTOR=10 I //UPDATE JOB &&VARBL2

I // EXEC PGM=IEBUPDTE,PARM=NEW I //SYSPRINT DD SYSOUT=A

I //SYSUT2 DD DSNAME=&&VARBL2.ICCF.&&VARBL3.&&VARBL4,UNIT=&&

I // DISP=(NEW,KEEP),VOLUME=SER= &&VARBL6,SPACE=(TRK,(50,,10)), I // DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)

I //SYSIN DD DATA TOP

STACK 13 QUIT

Chapter 7. ICCF and TSO 165