// JOB MODLST,,,A000
// WRTBIG '** BEGIN **','JOB$       ','DAT$       ','TIM$        '
//       GBL   VSN
//       GBL   LUN
//       DVC   20
//       LFD   PRNTR
//       DVC   RES
//       LBL   $Y$SRC
//       LFD   FILE1,,ACCEPT
//       DVC   RES
//       LBL   $Y$MAC
//       LFD   FILE2,,ACCEPT
//       DVC   RES
//       LBL   $Y$JCS
//       LFD   FILE3,,ACCEPT
//       DVC   RES
//       LBL   $Y$OBJ
//       LFD   FILE4,,ACCEPT
//       DVC   RES
//       LBL   $Y$LOD
//       LFD   FILE5,,ACCEPT
//       IF    ('&VSN' NE '')V1
//       DVC   RUN
//       GO    V2
//V1     NOP
//LUN    JSET  51
//       DVC   &LUN
//       VOL   &VSN
//V2     EXT   SQ,CF,1,BLK,(237,3200)
//       LBL   MODFILE
//       LFD   OUTPUT,,INIT
// SET UPSI,1
// OPTION DUMP
// EXEC MODXTR
//       SKIP  SCR1,1
//       IF    ('&VSN' NE '')V3
//       DVC   RUN
//       GO    V4
//V3     DVC   &LUN
//       VOL   &VSN
//V4     LBL   MODFILE
//       LFD   DISCIN1
//       IF    ('&VSN' NE '')V5
//       DVC   RUN
//       GO    V6
//V5     DVC   &LUN
//       VOL   &VSN
//V6     LBL   MODFILE
//       LFD   DISCIN2
//       DVC   20
//       LFD   PRNTOUT
//       IF    ('&VSN' NE '')V8
//       DVC   RUN
//       GO    V9
//V8     DVC   &LUN
//       VOL   &VSN
//V9     EXT   SQ,CF,1,BLK,(237,4500)
//       LBL   MODLSTWORK
//       LFD   DM01
// OPTION DUMP
// EXEC MODLST00
//       SKIP  SCR2,11111111
//SCR2   IF    ('&VSN' NE '')V10
//       DVC   RUN
//       GO    V11
//V10    DVC   &LUN
//       VOL   &VSN
//V11    LBL   MODLSTWORK
//       LFD   AA
//       SCR   AA
//SCR1   IF    ('&VSN' NE '')V12
//       DVC   RUN
//       GO    V13
//V12    DVC   &LUN
//       VOL   &VSN
//V13    LBL   MODFILE
//       LFD   BB
//       SCR   BB
// WRTBIG '*** END ***','JOB$       ','DAT$       ','TIM$        '
/&
