MODNAM   PROC  P,0,PRNTR,IN,LIN=LIB1,LST,OPT,                          *00000100
               MAP,OUT,ALTLOD,SCR1,SIZE=S,                             *00000200
               MDE,CNL,STX,NXT                                          00000300
FOR4     NAME  2                                                        00000400
FOR4L    NAME  1                                                        00000500
FOR4LG   NAME  0                                                        00000600
// GBL SSCR1,SPRNTR                                                     00000700
// GO OPT&P(0)                                                          00000800
//OPT0   OPTION GO                                                      00000900
//OPT1   OPTION LINK                                                    00001000
//OPT2 NOP                                                              00001100
//       J$ALCPRT &PRNTR(1),&PRNTR(2)                                   00001200
// IF ('&MDE' NE '')DIAG                                                00001300
// IF ('&STX' NE '')DIAG                                                00001400
// IF ('&CNL' NE '')DIAG                                                00001500
// IF ('&NXT' EQ '')OK                                                  00001600
//DIAG NOP                                                              00001700
//       WRTBIG 'FOR4','PARAM ERROR','INGORED'                          00001800
//OK NOP                                                                00001900
// IF ('&IN' EQ '')POUT                                                 00002000
//       DVCVOL &IN(1)                                                  00002100
// IF ('&IN(2)' EQ '')PIN1                                              00002200
//       LBL   &IN(2)                                                   00002300
// GO PIN2                                                              00002400
//PIN1   LBL   $Y$SRC                                                   00002500
//PIN2   LFD   &LIN                                                     00002600
//POUT IF ('&OUT' EQ '')PSCR                                            00002700
// IF ('&OUT(2)' EQ '$Y$RUN')PSCR                                       00002800
//       DVCVOL &OUT(1)                                                 00002900
//       LBL   &OUT(2)                                                  00003000
//       LFD   OUTFPUT                                                  00003100
//PSCR IF ('&SSCR1' NE '')K2                                            00003200
// IF ('&SCR1' EQ '')K1                                                 00003300
//SSCR1 JSET &SCR1                                                      00003400
// GO K2                                                                00003500
//K1 NOP                                                                00003600
//SSCR1 JSET RES                                                        00003700
//K2     DVCVOL &SSCR1                                                  00003800
//       EXT   ST,C,3,CYL,1                                             00003900
//       LBL   $SCR1                                                    00004000
//       LFD   $SCR1                                                    00004100
//COMP JSET FOR4L                                                       00004200
// IF ('&SIZE' EQ 'L')NAM1                                              00004300
//COMP JSET FOR4                                                        00004400
//NAM1 NOP                                                              00004500
// IF ('&ALTLOD' EQ '')EX1                                              00004600
//       DVCVOL &ALTLOD(1)                                              00004700
//       LBL   &ALTLOD(2)                                               00004800
//       LFD   ALTLOD                                                   00004900
//       EXEC  &COMP,ALTLOD                                             00005000
// GO P1                                                                00005100
//EX1    EXEC  &COMP                                                    00005200
//P1 IF ('&LST' EQ '')P2                                                00005300
//       PARAM LST=&LST                                                 00005400
//P2 IF ('&OPT' EQ '')P3                                                00005500
//       PARAM OPT=&OPT                                                 00005600
//P3 IF ('&MAP' EQ '')P4                                                00005700
//       PARAM MAP=&MAP                                                 00005800
//P4 IF ('&OUT' EQ '')P5                                                00005900
//       PARAM OUT=OUTFPUT                                              00006000
//P5 IF ('&LIN' EQ 'LIB1')P6                                            00006100
//       PARAM LIN=&LIN                                                 00006200
//P6 IF ('&MODNAM' EQ '')PLAST                                          00006300
//       PARAM IN=&MODNAM./&LIN                                         00006400
//PLAST NOP                                                             00006500
         END                                                            00006600
