         PROC P,15,DISCVOL=DISPAC,QUEUE=NO,GEN=NO,MASTER=NO,LINK=NO,   X00000010
               RUN=NO,SPVR=CHYA,LOAD=NO,JOURNAL=NO,CLEAR=NO,TYPE=STD,  X00000020
               TABLE=NO,DISCTYPE=8416,RESTORE=NO,BACKUP=NO              00000030
AUTODIS  NAME                                                           00000040
// DVC 20 // LFD PRNTR                                                  00000050
//       IF    ('&BACKUP' EQ 'YES')BAUTDIS                              00000060
//       GO    RAUTDIS                                                  00000070
//BAUTDIS      NOP                                                      00000080
// DVC 50 // VOL &DISCVOL.(NOVOL) // LFD DISCIN                         00000090
// DVC 95 // VOL AUTDIS(PREP) // LFD TAPEOT                             00000100
// EXEC DMPRST                                                          00000110
// PARAM IN=DISC                                                        00000120
// PARAM OUT=TAPE                                                       00000130
// PARAM TYPE=FILE                                                      00000140
/$                                                                      00000150
         FILE  QUEUE                                                    00000160
         FILE MASTER$MESSAGE$FILE                                       00000170
/*                                                                      00000180
//       GO    Z02                                                      00000190
//RAUTDIS      NOP                                                      00000200
//        IF        ('&RESTORE' EQ 'NO')Z02                             00000210
// DVC 50 // VOL &DISCVOL.(NOVOL) // LFD DISCOT                         00000220
// DVC 95 // VOL AUTDIS // LFD TAPEIN                                   00000230
// EXEC DMPRST                                                          00000240
// PARAM IN=TAPE                                                        00000250
// PARAM OUT=DISC                                                       00000260
// PARAM TYPE=FILE                                                      00000270
/$                                                                      00000280
         FILE  QUEUE                                                    00000290
         FILE  MASTER$MESSAGE$FILE                                      00000300
/*                                                                      00000310
//Z02    NOP                                                            00000320
//CINI NOP                                                              00000330
// IF ('&GEN' EQ 'NO')CQUEUE                                            00000340
//BGEN NOP                                                              00000350
// DVC 20 // LFD PRNTR                                                  00000360
// DVC RES // LBL $Y$SRC // LFD LU$DTF1                                 00000370
//       SWXGEN1                                                        00000380
// IF ('&LINK' EQ 'YES')LINKIT                                          00000390
//D1 WORK1                                                              00000400
//D2 WORK2                                                              00000410
//D3 WORK3                                                              00000420
//D5 WORK4                                                              00000430
// OPTION JOBDUMP                                                       00000440
// OPTION SCAN                                                          00000450
// EXEC TGEN93                                                          00000460
/$                                                                      00000470
// CR                                                                   00000480
/*                                                                      00000490
// WORK1                                                                00000500
// WORK2                                                                00000510
// EXEC ASM                                                             00000520
// PARAM IN=SWXSUB/$Y$SRC                                               00000530
// PARAM LIN=$Y$RUN                                                     00000540
// PARAM OUT=$Y$OBJ                                                     00000550
// PARAM LST=(NC)                                                       00000560
//LINKIT NOP                                                            00000570
// OPTION SUB                                                           00000580
// WORK1                                                                00000590
// EXEC LNKEDT                                                          00000600
/$                                                                      00000610
          LINKOP  OUT=$Y$LOD,ALIB=$Y$RUN                                00000620
         LOADM &TYPE.SWX                                                00000630
         INCLUDE SWXSUB(OSCANP8),$Y$OBJ                                 00000640
         INCLUDE SWXSUB(OSCANP4),$Y$OBJ                                 00000650
         INCLUDE SWXSUB(OSCANP2),$Y$OBJ                                 00000660
         INCLUDE SWXSUB(ISCANI8),$Y$OBJ                                 00000670
         INCLUDE SWXSUB(ISCANI4),$Y$OBJ                                 00000680
         INCLUDE SWXSUB(ISCANI2),$Y$OBJ                                 00000690
         INCLUDE SWXSUB(LOADNET),$Y$OBJ                                 00000700
         INCLUDE SWXSUB(RELNET),$Y$OBJ                                  00000710
         INCLUDE AUTROUTE,$Y$OBJ                                        00000720
         INCLUDE &TYPE.SWX00,$Y$OBJ                                     00000730
/*                                                                      00000740
//CQUEUE NOP                                                            00000750
// IF ('&TABLE' EQ 'YES')LINKTAB                                        00000760
// IF ('&QUEUE' EQ 'NO')CMAST                                           00000770
// DVC 20 // LFD PRNTR                                                  00000780
// DVC 50 // VOL &DISCVOL.(NOVOL) // LBL QUEUE // LFD Q // SCR Q        00000790
//       IF    ('&DISCTYPE' EQ '8414')A14                               00000800
// DVC 50 // VOL &DISCVOL.(NOVOL) // EXT ST,C,1,CYL,190                 00000810
//       GO    A16                                                      00000820
//A14    NOP                                                            00000830
// DVC 50 // VOL &DISCVOL.(NOVOL) // EXT ST,C,1,CYL,95                  00000840
//A16    NOP                                                            00000850
// LBL QUEUE // LFD INIQ,,INIT                                          00000860
// OPTION JOBDUMP                                                       00000870
// EXEC INIQUE                                                          00000880
//LINKTAB NOP                                                           00000890
// WORK1                                                                00000900
// EXEC LNKEDT                                                          00000910
/$                                                                      00000920
               LOADM TABLOD                                             00000930
         INCLUDE LOADTABL,$Y$OBJ                                        00000940
/*                                                                      00000950
// DVC 50 // VOL &DISCVOL.(NOVOL) // LBL QUEUE // LFD Q                 00000960
// OPTION JOBDUMP                                                       00000970
// EXEC TABLOD,$Y$RUN                                                   00000980
//CMAST NOP                                                             00000990
// IF ('&MASTER' EQ 'NO')CRUN                                           00001000
//BMAST NOP                                                             00001010
// DVC 50 // VOL &DISCVOL // LBL 'MASTER$MESSAGE$FILE' // LFD N         00001020
// SCR N                                                                00001030
// DVC 50 // VOL &DISCVOL // EXT ST,C,1,CYL,28                          00001040
// LBL 'MASTER$MESSAGE$FILE' // LFD ICOC                                00001050
// OPTION JOBDUMP                                                       00001060
// EXEC BLDMST                                                          00001070
//CRUN NOP                                                              00001080
// IF ('&RUN' EQ 'NO')CEND                                              00001090
//DORUN NOP                                                             00001100
// DVC 20 // LFD PRNTR                                                  00001110
// IF ('&TYPE' EQ 'BAS')SKIPTP                                          00001120
// DVC 90 // VOL AUTDS1(PREP) // LBL 'JOURNAL TAPE' // LFD JOURNAL      00001130
// DVC 91 // VOL AUTDS2(PREP) // LBL 'INTERCEPT TAPE' // LFD IC1        00001140
// DVC 92 // VOL AUTDS3(PREP) // LBL 'INTERCEPT TAPE' // LFD IC2        00001150
//SKIPTP NOP                                                            00001160
// DVC 50 // VOL &DISCVOL // LBL 'MASTER$MESSAGE$FILE' // LFD MAST      00001170
// DVC 50 // VOL &DISCVOL.(NOVOL)                                       00001180
// LBL QUEUE // LFD INIQ                                                00001190
// DVC 50 // VOL &DISCVOL.(NOVOL)                                       00001200
// LBL QUEUE // LFD SWXQ                                                00001210
// OPTION SYSDUMP                                                       00001220
// OPTION SUB                                                           00001230
// EXEC &TYPE.SWX                                                       00001240
/$                                                                      00001250
         &SPVR &CLEAR                                                   00001260
/*                                                                      00001270
//CEND NOP                                                              00001280
// IF ('&JOURNAL' EQ 'NO')PRCEND                                        00001290
//CJOURN NOP                                                            00001300
// IF ('&TYPE' EQ 'BAS')PRCEND                                          00001310
// DVC 20 // LFD PRNTR                                                  00001320
// OPTION JOBDUMP                                                       00001330
// DVC 90 // VOL AUTDS1 // LBL 'JOURNAL TAPE' // LFD JOURNAL            00001340
// EXEC JOURN                                                           00001350
/$                                                                      00001360
REQUEST UTILITY COMMAND                                                 00001370
REQUEST PRECEDENCE                                                      00001380
REQUEST OSRI                                                            00001390
REQUEST SSN                                                             00001400
REQUEST TIME                                                            00001410
REQUEST TRANSACTION TYPE                                                00001420
REQUEST TRANSACTION SOURCE                                              00001430
INVALID COMMAND TRY AGAIN                                               00001440
JOURNAL UTILITY READY                                                   00001450
END JOURNAL UTILITY                                                     00001460
/*                                                                      00001470
//PRCEND NOP                                                            00001480
         END                                                            00001490
