         PROC  P,2                                                      J$D00010
DVCVOL   NAME  0                                                        J$D00020
DVCVTP   NAME  1                                                        J$D00030
// GBL VLNM1,VLNM2,VLNM3,VLNM4,VLNM5,VLNM6,VLNM7,VLNM8                  J$D00040
// GBL VLNM9,VLNM10                                                     J$D00050
// GBL DVCNO=50                                                         J$D00060
// GBL TDVCNO=90                                                        J$D00070
// GBL VOLDEF=0                                                         J$D00080
//       IF    ('&P(1)' EQ 'RES')LX                                     J$D00090
//       IF    ('&P(1)' EQ 'RUN')LX                                     J$D00100
// GO P&VOLDEF                                                          J$D00110
//P10    IF    ('&VLNM10(1)' NE '&P(1)')P9                              J$D00120
//LCL    JSET  &VLNM10 // GO PA                                         J$D00130
//P9     IF    ('&VLNM9(1)' NE '&P(1)')P8                               J$D00140
//LCL    JSET  &VLNM9  // GO PA                                         J$D00150
//P8     IF    ('&VLNM8(1)' NE '&P(1)')P7                               J$D00160
//LCL    JSET  &VLNM8  // GO PA                                         J$D00170
//P7     IF    ('&VLNM7(1)' NE '&P(1)')P6                               J$D00180
//LCL    JSET  &VLNM7  // GO PA                                         J$D00190
//P6     IF    ('&VLNM6(1)' NE '&P(1)')P5                               J$D00200
//LCL    JSET  &VLNM6  // GO PA                                         J$D00210
//P5     IF    ('&VLNM5(1)' NE '&P(1)')P4                               J$D00220
//LCL    JSET  &VLNM5  // GO PA                                         J$D00230
//P4     IF    ('&VLNM4(1)' NE '&P(1)')P3                               J$D00240
//LCL    JSET  &VLNM4  // GO PA                                         J$D00250
//P3     IF    ('&VLNM3(1)' NE '&P(1)')P2                               J$D00260
//LCL    JSET  &VLNM3  // GO PA                                         J$D00270
//P2     IF    ('&VLNM2(1)' NE '&P(1)')P1                               J$D00280
//LCL    JSET  &VLNM2  // GO PA                                         J$D00290
//P1     IF    ('&VLNM1(1)' NE '&P(1)')P0                               J$D00300
//LCL    JSET  &VLNM1  // GO PA                                         J$D00310
//P0     IF    ('&P(2)' NE '')PB                                        J$D00320
// GO PD&P(0)                                                           J$D00330
//PD0    IF    (&DVCNO GT 59)P12                                        J$D00340
//LCL    JSET  (&P(1),&DVCNO)                                           J$D00350
//DVCNO JSET &DVCNO+1                                                   J$D00360
// GO PC                                                                J$D00370
//PD1    IF    (&TDVCNO GT 99)P14                                       J$D00380
//LCL    JSET  (&P(1),&TDVCNO)                                          J$D00390
//TDVCNO JSET  &TDVCNO+1                                                J$D00400
// GO PC                                                                J$D00410
//PB     NOP                                                            J$D00420
//LCL    JSET  (&P(1),&P(2))                                            J$D00430
//PC     IF    (&VOLDEF GE 10)P13                                       J$D00440
//VOLDEF JSET  &VOLDEF+1                                                J$D00450
//VLNM&VOLDEF JSET &LCL                                                 J$D00460
//PA DVC &LCL(2) // VOL &LCL(1)                                         J$D00470
// GO END                                                               J$D00480
//P12 PNOTE 'NO LOG.UNIT NO. 50-59 ANYMORE AVAILABLE'                   J$D00490
// GO END                                                               J$D00500
//P13 PNOTE 'MORE THAN 10 VOL.SER.NUMBERS SPECIFIED'                    J$D00510
// GO END                                                               J$D00520
//P14 PNOTE .LOGICAL UNIT NO. 90-99 ALREADY ASSIGNED.                   J$D00530
// GO END                                                               J$D00540
//LX DVC &P(1)                                                          J$D00550
//END    NOP                                                            J$D00560
         END                                                            J$D00570
