MODNAM   PROC  P,0,PRNTR,IN,OUT,LST,SCR1,SCR2,ALTLOD,MOD,EMB            RPG00010
RPG      NAME  2                                                        RPG00020
RPGL     NAME  1                                                        RPG00030
RPGLG    NAME  0                                                        RPG00040
//       GBL   SSCR1,SSCR2,SPRNTR                                       RPG00050
// GO OPT&P(0)                                                          RPG00060
//OPT0   OPTION GO                                                      RPG00070
//OPT1   OPTION LINK                                                    RPG00080
//OPT2   NOP                                                            RPG00090
// J$ALCPRT &PRNTR(1),&PRNTR(2)                                         RPG00100
// IF ('&IN' EQ '')POUT                                                 RPG00130
//       IF    ('&IN(1)' NE 'RES')P2                                    RPG00140
//       IF    ('&IN(2)' EQ '')POUT                                     RPG00150
//P2 DVCVOL &IN(1)                                                      RPG00160
// LBL &IN(2) // LFD INRPUT                                             RPG00170
//POUT   IF    ('&OUT' EQ '')PSCR                                       RPG00180
//       IF    ('&OUT(1)' EQ 'N')PSCR                                   RPG00190
//       IF    ('&OUT(2)' EQ '$Y$RUN')PSCR                              RPG00195
// DVCVOL &OUT(1)                                                       RPG00200
// LBL &OUT(2) // LFD OUTRPUT                                           RPG00210
//PSCR   IF    ('&SSCR1' NE '')K4                                       RPG00220
//       IF    ('&SCR1' EQ '')K3                                        RPG00230
//SSCR1  JSET  &SCR1  // GO K4                                          RPG00240
//K3     NOP                                                            RPG00250
//SSCR1  JSET  RES                                                      RPG00260
//K4     DVCVOL &SSCR1                                                  RPG00270
// EXT ST,C,3,CYL,1                                                     RPG00280
// LBL $SCR1 // LFD $SCR1                                               RPG00290
//       IF    ('&SSCR2' NE '')K6                                       RPG00300
//       IF    ('&SCR2' EQ '')K5                                        RPG00310
//SSCR2  JSET  &SCR2  // GO K6                                          RPG00320
//K5     NOP                                                            RPG00330
//SSCR2  JSET  RUN                                                      RPG00340
//K6     DVCVOL &SSCR2                                                  RPG00350
// EXT ST,C,3,CYL,1                                                     RPG00360
//  LBL $SCR2 // LFD $SCR2                                              RPG00370
//       IF    ('&ALTLOD' EQ '')F1                                      RPG00380
// DVCVOL &ALTLOD(1)                                                    RPG00390
// LBL &ALTLOD(2)  // LFD ALTLOD                                        RPG00400
//F1     NOP                                                            RPG00410
//       IF    ('&ALTLOD' NE '')F2                                      RPG00430
//       EXEC  RPGII,$Y$RUN                                             RPG00440
// GO F3                                                                RPG00450
//F2     NOP                                                            RPG00460
// EXEC RPGII,ALTLOD                                                    RPG00470
//F3     NOP                                                            RPG00480
// IF ('&IN' EQ '')N1                                                   RPG00490
// IF ('&IN(2)' EQ '')P18                                               RPG00500
// PARAM IN=&MODNAM./INRPUT                                             RPG00510
// GO N1                                                                RPG00520
//P18    NOP                                                            RPG00530
// PARAM IN=&MODNAM                                                     RPG00540
//N1 IF ('&OUT' EQ '')N3                                                RPG00550
// IF ('&OUT(1)' EQ 'N')N2                                              RPG00560
//       IF    ('&OUT(2)' EQ '$Y$RUN')N3                                RPG00565
// PARAM OUT=OUTRPUT                                                    RPG00570
// GO N3                                                                RPG00580
//N2     NOP                                                            RPG00590
// PARAM OUT=N                                                          RPG00600
//N3 IF ('&LST' EQ '')N4                                                RPG00610
// PARAM LST=&LST                                                       RPG00620
//N4     NOP                                                            RPG00630
//       IF    ('&MOD' EQ '')N5                                         RPG00633
// PARAM MOD=&MOD                                                       RPG00634
//N5     NOP                                                            RPG00635
//       IF    ('&EMB' NE 'NO')N6                                       RPG00636
// PARAM OUT=(I)                                                        RPG00637
//N6     NOP                                                            RPG00638
         END                                                            RPG00640
