         PROC  P,3                                                      ALC00010
J$ALCPRT NAME  1                                                        ALC00020
//       GBL   SPRNTR                                                   ALC00030
//PRLFD  JSET  'PRNTR'                                                  ALC00035
//       IF    ('&P(1)' EQ 'N')PRTEND   BRNCH IF PRNTR=(N) TO END       ALC00040
//       IF    ('&P'    EQ 'N')PRTEND   BRNCH IF PRNTR=N   TO END       ALC00050
//       IF    ('&SPRNTR' NE '')PR1     BRNCH IF GLOBAL ALREADY SET     ALC00060
//SPRNTR JSET  '20'                                                     ALC00070
//PR1    IF    ('&P'    EQ '')PR15      NO PARAMS THEN BRNCH            ALC00080
//SPRNTR JSET  '&P'                                                     ALC00090
//PR15   IF    ('&P(1)&P(2)&P(3)' EQ '')PR2  NO SUB-PARAMS THEN BRNCH   ALC00100
//       IF    ('&P(1)' EQ '')PR2                                       ALC00105
//SPRNTR JSET  '&P(1)'                                                  ALC00110
//PR2    DVC   &SPRNTR                                                  ALC00120
//PR3    NOP                                                            ALC00130
//       IF    ('&P(2)' EQ '')PR4                                       ALC00140
//       VOL   &P(2)                                                    ALC00150
//PR4    NOP                                                            ALC00160
//       IF    ('&P(3)' EQ '')PR5                                       ALC00170
//PRLFD  JSET  &P(3)                                                    ALC00180
//PR5    LFD   &PRLFD                                                   ALC00190
//PRTEND NOP                                                            ALC00200
         END                                                            ALC00210
