IBM OS/390 User Manual
&&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
&&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
&&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
&&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
&&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
&&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
&&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 //
&&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
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