// JOB DCON92,,,,3
// DVC 20  // VFB LENGTH=66,HP=1,DENSITY=6,OVF=65  // LFD PRNTR731
// DVC 30  // LFD READ171
// DVC 40  // LBL DISC$TODISC$$ // SPL HOLD  // LFD PUNCH051
// OPTION DUMP
// CR
// IF ('&GSDVC' EQ 'X')UETAG
// IF ('&GSVOL' EQ 'X')UETAG
// DVC &GSDVC  // VOL &GSVOL  // LBL SYS10PI  // LFD E9$KD&GSDVC
// IF ('&GDVC1' EQ 'X')UETAG
// DVC &GDVC1  // VOL &GVOL1  // LBL &GLBL1    // LFD E9$KD&GDVC1
// IF ('&GDVC2' EQ 'X')ET0
// IF ('&GDVC1' EQ '&GDVC2')ED3
// DVC &GDVC2  // VOL &GVOL2  // LBL &GLBL2    // LFD E9$KD&GDVC2
//ED3 NOP
// IF ('&GDVC3' EQ 'X')ET0
// IF ('&GDVC2' EQ '&GDVC3')ED4
// DVC &GDVC3  // VOL &GVOL3  // LBL &GLBL3    // LFD E9$KD&GDVC3
//ED4 NOP
// IF ('&GDVC4' EQ 'X')ET0
// IF ('&GDVC3' EQ '&GDVC4')ED5
// DVC &GDVC4  // VOL &GVOL4  // LBL &GLBL4    // LFD E9$KD&GDVC4
//ED5 NOP
// IF ('&GDVC5' EQ 'X')ET0
// IF ('&GDVC4' EQ '&GDVC5')ED6
// DVC &GDVC5  // VOL &GVOL5  // LBL &GLBL5    // LFD E9$KD&GDVC5
//ED6 NOP
// IF ('&GDVC6' EQ 'X')ET0
// IF ('&GDVC5' EQ '&GDVC6')ED7
// DVC &GDVC6  // VOL &GVOL6  // LBL &GLBL6    // LFD E9$KD&GDVC6
//ED7 NOP
// IF ('&GDVC7' EQ 'X')ET0
// IF ('&GDVC6' EQ '&GDVC7')ED8
// DVC &GDVC7  // VOL &GVOL7  // LBL &GLBL7    // LFD E9$KD&GDVC7
//ED8 NOP
// IF ('&GDVC8' EQ 'X')ET0
// IF ('&GDVC7' EQ '&GDVC8')ED9
// DVC &GDVC8  // VOL &GVOL8  // LBL &GLBL8    // LFD E9$KD&GDVC8
//ED9 NOP
// IF ('&GDVC9' EQ 'X')ET0
// IF ('&GDVC8' EQ '&GDVC9')ET0
// DVC &GDVC9  // VOL &GVOL9  // LBL &GLBL9    // LFD E9$KD&GDVC9
//ET0 NOP
// OPTION SUB,SCAN
// EXEC E9DC10,,4
/$
&GSDVC&GMNT&GSVOL  &G0  &GX       &GSLBL                                       B
&GDVC1&GPFMNT1&GVOL1  &GPFPU1          &GLBL1                                  B
// IF ('&GDVC2' EQ 'X')ET2
&GDVC2&GPFMNT2&GVOL2  &GPFPU2          &GLBL2                                  B
// IF ('&GDVC3' EQ 'X')ET2
&GDVC3&GPFMNT3&GVOL3  &GPFPU3          &GLBL3                                  B
// IF ('&GDVC4' EQ 'X')ET2
&GDVC4&GPFMNT4&GVOL4  &GPFPU4          &GLBL4                                  B
// IF ('&GDVC5' EQ 'X')ET2
&GDVC5&GPFMNT5&GVOL5  &GPFPU5          &GLBL5                                  B
// IF ('&GDVC6' EQ 'X')ET2
&GDVC6&GPFMNT6&GVOL6  &GPFPU6          &GLBL6                                  B
// IF ('&GDVC7' EQ 'X')ET2
&GDVC7&GPFMNT7&GVOL7  &GPFPU7          &GLBL7                                  B
// IF ('&GDVC8' EQ 'X')ET2
&GDVC8&GPFMNT8&GVOL8  &GPFPU8          &GLBL8                                  B
// IF ('&GDVC9' EQ 'X')ET2
&GDVC9&GPFMNT9&GVOL9  &GPFPU9          &GLBL9                                  B
//ET2 NOP
0                                                                              G
/        JOB
/        EXEC  UNLOAD10
/        PARAM 0001,01,1
// IF ('&GDATEF' LT '2')EDAT
// IF ('&GDATEF' GT '4')EDAT
/        PARAM 0005,01,&GDATEF
//EDAT NOP
/        DATA  T
// CR FIN
/        PAUSE 6FFF
/        FINIS
/*
// OPTION SUB,SCAN
// DVC 20  // LFD PRNTR
// IF ('&RETYPEA' EQ 'SQ')RL
// IF ('&RETYPEA' EQ 'IS')RL
// IF ('&RETYPEA' EQ 'DA')RL
// OPR ' RETYPE KEY WORD MUST BE SQ, IS OR DA'
// GO ETAG
//RL NOP
// IF ('&GRERUN' EQ 'NO')RR0
// IF ('&RDVCA' EQ 'X')RETAG
// IF ('&RVOLA' EQ '')RETAG
// DVC &RDVCA  // VOL &RVOLA
// LBL &RLBLA
// LFD CU$LOAD
// SCR CU$LOAD
//RR0 NOP
// IF ('&RDVCA' EQ 'X')RETAG
// IF ('&RVOLA' EQ '')RETAG
// DVC &RDVCA
// IF ('&RETYPEA' EQ 'SQ')RR1
// VOL &RVOLA
// GO RR2
//RR1 NOP
// IF ('&RVOLE' EQ '')RR3
// VOL &RVOLA,&RVOLB,&RVOLC,&RVOLD,&RVOLE
// GO RR2
//RR3 NOP
// IF ('&RVOLD' EQ '')RR4
// VOL &RVOLA,&RVOLB,&RVOLC,&RVOLD
// GO RR2
//RR4 NOP
// IF ('&RVOLC' EQ '')RR5
// VOL &RVOLA,&RVOLB,&RVOLC
// GO RR2
//RR5 NOP
// IF ('&RVOLB' EQ '')RR6
// VOL &RVOLA,&RVOLB
// GO RR2
//RR6 NOP
// VOL &RVOLA
//RR2 NOP
// EXT &RETYPEA,C,,CYL,&RNOCYLA
// LBL &RLBLA
// LFD CU$LOAD,,INIT
// OPTION DUMP
// OPTION SUB,SCAN
// EXEC RELOAD
// PARAM IFIL=S
// CR
// GO ETAG
//RETAG NOP
// OPR 'NO DVC THRU LFD SEQUENCE SPECIFIED FOR RELOAD'
// GO STAG
//UETAG NOP
// OPR 'NO DVC THRU LFD SEQUENCE SPECIFIED FOR UNLOAD'
//STAG NOP
// OPR ' OR SPECIFIED INCORRECTLY'
//ETAG NOP
/&
