// JOB SU$PAT                                                           SU$00010
// DVC 20  // LFD PRNTR                                                 SU$00020
// GBL V                      VOLUME SERIAL NUMBER                      SU$00030
// GBL D                      SPECIFIC DEVICE NUMBER                    SU$00040
// OPTION SCAN,SUB                                                      SU$00050
//       IF    ('&V' EQ '')DEFLT                                        SU$00060
//       IF    ('&V' EQ 'RES')DEFLT                                     SU$00070
//       IF    ('&D' EQ '')EXIT                                         SU$00080
// DVC 50,&D  // VOL &V.(NOVOL)  // LBL $Y$TRAN   // LFD WRITDTF        SU$00090
// DVC 50,&D  // VOL &V.(NOVOL)  // LBL $Y$TRANA  // LFD WRITALTR       SU$00100
// OPR 'JS04  SU$PAT IS PATCHING VOL=&V DVC"&D'                         SU$00110
// GO EXEC                                                              SU$00120
//EXIT   NOP                  NO DVC NUMBER SPECIFIED IN KEYWORD 'D'    SU$00170
// OPR 'JS06  DEVICE ID NUMBER MUST BE SPECIFIED FOR OTHER THAN RES'    SU$00180
// GO FINISH                                                            SU$00190
//DEFLT  NOP                  SU$PAT WILL BE TO 'RES'                   SU$00200
// DVC RES  // LBL $Y$TRAN   // LFD WRITDTF                             SU$00210
// DVC RES  // LBL $Y$TRANA  // LFD WRITALTR                            SU$00220
// OPR 'JS07  SU$PAT IS GOING TO RES'                                   SU$00230
//EXEC   NOP                                                            SU$00240
// OPTION JOBDUMP                                                       SU$00250
// EXEC TRNPAT                                                          SU$00260
/$                                                                      SU$00270
// CR                                                                   SU$00280
/*                                                                      SU$00290
//FINISH NOP                                                            SU$00300
/&                                                                      SU$00310
