// JOB DCOP                                                             DCO00010
// GBL T,N,V                                                            DCO00020
//VEXEC JSET   SU$CSL                                                   DCO00030
//VFOP  JSET   NO                                                       DCO00040
// IF ('&V' EQ '').NOPT                                                 DCO00050
// DVC 20  // LFD PRNTR                                                 DCO00060
//VFOP  JSET   YES                                                      DCO00070
//.NOPT NOP                                                             DCO00080
// IF ('&T' EQ '').SET16                                                DCO00090
// IF ('&T' NE '11').SET14                                              DCO00100
//.SET11  NOP                                                           DCO00110
//VEQU  JSET   2080                                                     DCO00120
//.SET14  NOP                                                           DCO00130
// IF ('&T' NE '14').SET30                                              DCO00140
//VEQU  JSET   2040                                                     DCO00150
//.SET30  NOP                                                           DCO00160
// IF ('&T' NE '30').SET18                                              DCO00170
//VEQU  JSET   2020                                                     DCO00180
//.SET18  NOP                                                           DCO00190
// IF ('&T' NE '18').SET16                                              DCO00200
//VEXEC JSET   SU$C16                                                   DCO00210
//VEQU  JSET   2002                                                     DCO00220
//.SET16  NOP                                                           DCO00230
// IF ('&T' EQ '').NEXT                                                 DCO00240
// IF ('&T' NE '16').DONT                                               DCO00250
//.NEXT  NOP                                                            DCO00260
//VEQU  JSET   2010                                                     DCO00270
//VEXEC JSET   SU$C16                                                   DCO00280
//.DONT   NOP                                                           DCO00290
// DVC RES     // LFD DISCIN                                            DCO00300
// EQU 50,&VEQU                                                         DCO00310
// DVC 50   // VOL DISC(NOVOL)  // LFD DISCOT                           DCO00320
//NOCPY JSET   1                                                        DCO00330
// IF ('&N' EQ '').EXIT                                                 DCO00340
// IF ('&N' EQ '1').EXIT                                                DCO00350
// EQU 51,&VEQU                                                         DCO00360
// DVC 51    // VOL DISC1(NOVOL)   // LFD DISCOT01                      DCO00370
//NOCPY JSET   2                                                        DCO00380
// IF ('&N' EQ '2').EXIT                                                DCO00390
// EQU 52,&VEQU                                                         DCO00400
// DVC 52    // VOL DISC2(NOVOL)   // LFD DISCOT02                      DCO00410
//NOCPY JSET   3                                                        DCO00420
// IF ('&N' EQ '3').EXIT                                                DCO00430
// EQU 53,&VEQU                                                         DCO00440
// DVC 53    // VOL DISC3(NOVOL)   // LFD DISCOT03                      DCO00450
//NOCPY JSET   4                                                        DCO00460
// IF ('&N' EQ '4').EXIT                                                DCO00470
// EQU 54,&VEQU                                                         DCO00480
// DVC 54    // VOL DISC4(NOVOL)   // LFD DISCOT04                      DCO00490
//NOCPY JSET   5                                                        DCO00500
// IF ('&N' EQ '5').EXIT                                                DCO00510
// EQU 55,&VEQU                                                         DCO00520
// DVC 55    // VOL DISC5(NOVOL)   // LFD DISCOT05                      DCO00530
//NOCPY JSET   6                                                        DCO00540
// IF ('&N' EQ '6').EXIT                                                DCO00550
// EQU 56,&VEQU                                                         DCO00560
// DVC 56    // VOL DISC6(NOVOL)   // LFD DISCOT06                      DCO00570
//NOCPY JSET   7                                                        DCO00580
//.EXIT  NOP                                                            DCO00590
// EXEC  &VEXEC                                                         DCO00600
// PARAM  COPY=&NOCPY,PRNT=&VFOP,VEFY=&VFOP                             DCO00610
/&                                                                      DCO00620
