MODNAM   PROC  P,0,PRNTR,IN,OUT,LST,SCR1,SCR2,SCR3,OBJ,LIN,ALTLOD       COB00010
COBOL    NAME  2                                                        COB00020
COBOLL   NAME  1                                                        COB00030
COBOLLG  NAME  0                                                        COB00040
COBOLB   NAME  (2,B)                                                    COB00045
COBOLBL  NAME  (1,B)
COBOLBLG NAME  (0,B)
//       GBL   SSCR1,SSCR2,SSCR3,SPRNTR                                 COB00050
// GO OPT&P(0,1)                                                        COB00060
//OPT0   OPTION GO                                                      COB00070
//OPT1   OPTION LINK                                                    COB00080
//OPT2   NOP                                                            COB00090
// J$ALCPRT &PRNTR(1),&PRNTR(2)                                         COB00100
//       IF    ('&IN' EQ '')POBJ                                        COB00130
//       IF    ('&IN(1)' NE 'RES')P2                                    COB00140
//       IF    ('&IN(2)' EQ '')P3                                       COB00150
//P2 DVCVOL &IN(1)                                                      COB00160
// LBL &IN(2) // LFD INCPUT // GO POBJ                                  COB00170
//P3 DVC RES // LBL $Y$SRC // LFD INCPUT                                COB00180
//POBJ   IF    ('&OBJ' EQ '')PLIN                                       COB00190
//       IF    ('&OBJ(2)' EQ '$Y$RUN')PLIN                              COB00195
// DVCVOL &OBJ(1)                                                       COB00200
// LBL &OBJ(2) // LFD OUTCPUT                                           COB00210
//PLIN   IF    ('&LIN' EQ '')P4                                         COB00220
// DVCVOL &LIN(1)                                                       COB00230
// LBL &LIN(2) // LFD COPY$                                             COB00240
// GO PSCR                                                              COB00250
//P4 DVC RES // LBL $Y$SRC // LFD COPY$                                 COB00260
//PSCR   IF    ('&SSCR1' NE '')K4                                       COB00270
//       IF    ('&SCR1' EQ '')K3                                        COB00280
//SSCR1  JSET  &SCR1  // GO K4                                          COB00290
//K3     NOP                                                            COB00300
//SSCR1  JSET  RES                                                      COB00310
//K4     DVCVOL &SSCR1                                                  COB00320
// EXT ST,C,3,CYL,1                                                     COB00330
// LBL $SCR1 // LFD $SCR1                                               COB00340
//       IF    ('&P(0,2)' EQ 'B')K9                                     COB00345
//       IF    ('&SSCR2' NE '')K6                                       COB00350
//       IF    ('&SCR2' EQ '')K5                                        COB00360
//SSCR2  JSET  &SCR2  // GO K6                                          COB00370
//K5     NOP                                                            COB00380
//SSCR2  JSET RES                                                       COB00390
//K6     DVCVOL &SSCR2                                                  COB00400
// EXT ST,C,3,CYL,1                                                     COB00410
//  LBL $SCR2 // LFD $SCR2                                              COB00420
//       IF    ('&SSCR3' NE '')K8                                       COB00430
//       IF    ('&SCR3' EQ '')K7                                        COB00440
//SSCR3  JSET  &SCR3  //  GO K8                                         COB00450
//K7     NOP                                                            COB00460
//SSCR3  JSET  RUN                                                      COB00470
//K8     DVCVOL &SSCR3                                                  COB00480
// EXT ST,C,3,CYL,1                                                     COB00490
//  LBL $SCR3  //  LFD $SCR3                                            COB00500
//K9     NOP                                                            COB00505
//       IF    ('&ALTLOD' EQ '')F1                                      COB00510
// DVCVOL &ALTLOD(1)                                                    COB00520
// LBL &ALTLOD(2)  // LFD ALTLOD                                        COB00530
//F1     NOP                                                            COB00540
//       IF    ('&ALTLOD' NE '')F2                                      COB00560
//       IF    ('&P(0,2)' EQ 'B')B1                                     COB00565
//       EXEC  COBOL,$Y$RUN                                             COB00570
// GO F3                                                                COB00580
//B1     EXEC  COBOLB,$Y$RUN                                            COB00590
// GO F3
//F2     IF    ('&P(0,2)' EQ 'B')B2
// EXEC COBOL,ALTLOD                                                    COB00600
// GO F3                                                                COB00605
//B2     EXEC  COBOLB,ALTLOD
//F3     NOP                                                            COB00610
//       IF    ('&IN' EQ '')N1                                          COB00620
// PARAM IN=&MODNAM./INCPUT                                             COB00630
//N1     IF    ('&OBJ' EQ '')N2                                         COB00640
//       IF    ('&OUT' EQ '(N)')N2                                      COB00650
//       IF    ('&OUT' EQ 'N')N2                                        COB00660
//       IF    ('&OBJ(2)' EQ '$Y$RUN')N2                                COB00665
// PARAM OBJ=OUTCPUT                                                    COB00670
//N2     IF    ('&OUT' EQ '')N4                                         COB00680
// PARAM OUT=&OUT                                                       COB00690
//N4     IF    ('&LST' EQ '')N5                                         COB00700
// PARAM LST=&LST                                                       COB00710
//N5     NOP                                                            COB00720
         END                                                            COB00730
