LODEDT   PROC  P,1,IN,OUT,RLIB,ALIB,SCR1,PRNTR,STD=YES,ALTLOD,OPT       LIN00010
LINK     NAME  2                                                        LIN00020
LINKG    NAME  0                                                        LIN00030
//       GBL   SSCR1,SPRNTR                                             LIN00040
//OPTN   JSET  &OPT                                                     LIN00045
// GO OPT&P(0)                                                          LIN00050
//OPT0   OPTION GO                                                      LIN00060
//OPT2   NOP                                                            LIN00070
// J$ALCPRT &PRNTR(1),&PRNTR(2)                                         LIN00080
//       IF    ('&IN' EQ '')POUT                                        LIN00110
//       IF    ('&IN(1)' NE 'RES')A                                     LIN00120
//       IF    ('&IN(2)' NE '')A                                        LIN00130
//       IF    ('&RLIB' EQ '')POUT                                      LIN00140
// DVC RES // LBL $Y$OBJ                                                LIN00150
// GO A1                                                                LIN00160
//A DVCVOL &IN(1)                                                       LIN00170
// LBL &IN(2)                                                           LIN00180
//A1 LFD IN                                                             LIN00190
//POUT   IF    ('&OUT' EQ '')PSCR                                       LIN00200
//       IF    ('&OUT(1)' EQ 'N')PSCR                                   LIN00210
//       IF    ('&OUT(2)' EQ '$Y$RUN')PSCR                              LIN00215
// DVCVOL &OUT(1)                                                       LIN00220
// LBL &OUT(2) // LFD OUT                                               LIN00230
//PSCR   IF    ('&SSCR1' NE '')K4                                       LIN00240
//       IF    ('&SCR1' EQ '')K3                                        LIN00250
//SSCR1  JSET  &SCR1  // GO K4                                          LIN00260
//K3     NOP                                                            LIN00270
//SSCR1  JSET  RES                                                      LIN00280
//K4     DVCVOL &SSCR1                                                  LIN00290
// EXT ST,C,3,CYL,1                                                     LIN00300
// LBL $SCR1 // LFD $SCR1                                               LIN00310
//       IF    ('&RLIB' EQ '')ALB                                       LIN00320
// DVCVOL &RLIB(1)                                                      LIN00330
// LBL &RLIB(2) // LFD RLIB                                             LIN00340
//ALB    IF    ('&ALIB' EQ '')B                                         LIN00350
// DVCVOL &ALIB(1)                                                      LIN00360
// LBL &ALIB(2) // LFD ALIB                                             LIN00370
//B      IF    ('&ALTLOD' EQ '')F1                                      LIN00380
// DVCVOL &ALTLOD(1)                                                    LIN00390
// LBL &ALTLOD(2)  // LFD ALTLOD                                        LIN00400
//F1     NOP                                                            LIN00410
//       OPTION SCAN,SUB                                                LIN00420
//       IF    ('&ALTLOD' NE '')F2                                      LIN00430
//       EXEC  LNKEDT,$Y$RUN                                            LIN00440
// GO F3                                                                LIN00450
//F2     NOP                                                            LIN00460
// EXEC LNKEDT,ALTLOD                                                   LIN00470
//F3     NOP                                                            LIN00480
//       IF    ('&OPTN' EQ '')F4                                        LIN00485
// PARAM &OPTN                                                          LIN00486
//F4     NOP                                                            LIN00487
//       IF    ('&RLIB' EQ '')C                                         LIN00490
// PARAM RLIB=RLIB                                                      LIN00500
//C      IF    ('&ALIB' EQ '')D                                         LIN00510
// PARAM ALIB=ALIB                                                      LIN00520
//D      IF    ('&OUT' EQ '')E                                          LIN00530
//       IF    ('&OUT(1)' EQ 'N')E1                                     LIN00540
//       IF    ('&OUT(2)' EQ '$Y$RUN')E                                 LIN00545
// PARAM OUT=OUT                                                        LIN00550
// GO E                                                                 LIN00560
//E1     NOP                                                            LIN00570
// PARAM OUT=(N)                                                        LIN00580
//E      IF    ('&STD' NE 'YES')AUS                                     LIN00590
/$                                                                      LIN00600
//       IF    ('&LODEDT' EQ '')F                                       LIN00610
  LOADM &LODEDT                                                         LIN00620
// GO INCL                                                              LIN00630
//F      IF    ('&P(1)' EQ '')G                                         LIN00640
  LOADM &P(1)                                                           LIN00650
// GO INCL                                                              LIN00660
//G      NOP                                                            LIN00670
  LOADM LNKLOD                                                          LIN00680
//INCL   IF    ('&P(1)' EQ '')H                                         LIN00690
//INMOD JSET &P(1)                                                      LIN00700
// GO K                                                                 LIN00710
//H      IF    ('&LODEDT' EQ '')Z                                       LIN00720
//INMOD  JSET  &LODEDT                                                  LIN00730
//K      IF    ('&IN' EQ '')L                                           LIN00740
//       IF    ('&IN(2)' EQ '')L                                        LIN00750
  INCLUDE &INMOD,IN                                                     LIN00760
// GO Z                                                                 LIN00770
//L      NOP                                                            LIN00780
  INCLUDE &INMOD                                                        LIN00790
//Z      NOP                                                            LIN00800
/*                                                                      LIN00810
//AUS    NOP                                                            LIN00820
         END                                                            LIN00830
