&TAG     PROC  &P,0,&DTF=(1),&MODNAM=(2,3),&TYPE=(0),&TABLE=(4)         SRC00010
SRC$GNOP  NAME      0                                                   SRC00020
         LCL   &L1,&L2,&L3,&L4,&L5,&L6                                  SRC00030
         LCL   &TYPE4                                                   SRC00040
         LCL   &PRLABEL                                                 SRC00050
&PRLABEL SET   '&TAG.        '(1,8)                                     SRC00060
&PRLABEL           DS    0H                                             SRC00070
&L1      SET   ('&P(1)'='(1)')++('&P(1)'='1')=0                         SRC00080
&L2      SET   ('&P(2)'='(2,3)')=0                                      SRC00090
&L3      SET   ('&P(3)'='(0)')++('&P(3)'='0')=0                         SRC00100
&L4      SET   ('&P(4)'='(4)')++('&P(4)'='4')=0                         SRC00110
&L5      SET   &L1++&L2++&L3++&L4                                       SRC00120
         DO    '&DTF'(1,6)='LU$DTF'                                     SRC00130
                   EXTRN &DTF                                           SRC00140
         ENDO                                                           SRC00150
         DO    '&TABLE'(1,6)='LU$EAT'                                   SRC00160
                   EXTRN &TABLE                                         SRC00170
         ENDO                                                           SRC00180
                   CNOP  0,4                                            SRC00190
         DO    &L1                                                      SRC00200
&L6      SET   8+4*&L2+4*&L3+4*&L4                                      SRC00210
                   L     1,*+&L6                                        SRC00220
                   ENDO                                                 SRC00230
         DO    &L2                                                      SRC00240
&L6      SET   8+4*&L3+4*&L4+4*&L1                                      SRC00250
                   LM    2,3,*+&L6                                      SRC00260
         ENDO                                                           SRC00270
         DO    &L3                                                      SRC00280
&L6      SET   8+4*&L4+4*&L1+8*&L2                                      SRC00290
                   L     0,*+&L6                                        SRC00300
         ENDO                                                           SRC00310
         DO    &L4                                                      SRC00320
&L6      SET   8+4*&L1+8*&L2+4*&L3                                      SRC00330
                   L     4,*+&L6                                        SRC00340
         ENDO                                                           SRC00350
&L6      SET   8+4*&L1+8*&L2+4*&L3+4*&L4                                SRC00360
                   B     *+&L6                                          SRC00370
         DO    &L1                                                      SRC00380
                   DC    A(&DTF)                                        SRC00390
         ENDO                                                           SRC00400
         DO    &L2                                                      SRC00410
                   DC    CL8'&MODNAM'                                   SRC00420
         ENDO                                                           SRC00430
         DO    &L3                                                      SRC00440
&TYPE4   SET   '&TYPE.    '(1,4)                                        SRC00450
                   DC    CL4'&TYPE4'                                    SRC00460
         ENDO                                                           SRC00470
         DO    &L4                                                      SRC00480
                   DC    A(&TABLE)                                      SRC00490
         ENDO                                                           SRC00500
                   DC    V(SRC$GNOP)                                    SRC00510
                   L     15,*-4                                         SRC00520
                   BALR  14,15                                          SRC00530
         END                                                            SRC00540
