&PL      PROC  &P,0,&LISTADR=,&BUFFADR=,&TABLADR=,&BUFFLEN=80           LU$00010
LU$SCAN  NAME                                                           LU$00020
&PL                DS    0H                                             LU$00030
         LCL   &X0,&X1,&X2                                              LU$00040
&X0      SET   2                                                        LU$00050
&X1      SET   0                                                        LU$00060
&X2      SET   0                                                        LU$00070
         DO    '&LISTADR'=''=0                                          LU$00080
                   CNOP  0,4                                            LU$00090
         DO    ('&LISTADR'='(1)')++('&LISTADR'='1')                     LU$00100
                   B     *+8                                            LU$00110
         GOTO  .L1                                                      LU$00120
         ENDO                                                           LU$00130
                   L     1,*+8                                          LU$00140
                   B     *+12                                           LU$00150
                   DC    A(&LISTADR)                                    LU$00160
                   EXTRN &LISTADR                                       LU$00170
         GOTO  .L1                                                      LU$00180
         ENDO                                                           LU$00190
         DO    '&BUFFADR'=''                                            LU$00200
                   PNOTE 'P','BUFFER ADDRESS PARAMETER MISSING'         LU$00210
         GOTO  .EXIT                                                    LU$00220
         ENDO                                                           LU$00230
         DO    '&TABLADR'=''                                            LU$00240
                   PNOTE 'P','TABLE ADDRESS PARAMETER MISSING'          LU$00250
         GOTO  .EXIT                                                    LU$00260
         ENDO                                                           LU$00270
         DO    ('&BUFFADR'='(1)')++('&BUFFADR'='1')                     LU$00280
&X1      SET   1                                                        LU$00290
         ENDO                                                           LU$00300
         DO    ('&TABLADR'='(2)')++('&TABLADR'='2')                     LU$00310
&X2      SET   1                                                        LU$00320
         ENDO                                                           LU$00330
         DO    ('&BUFFLEN'='(0)')++('&BUFFLEN'='0')                     LU$00340
&X0      SET   1                                                        LU$00350
                   CNOP  0,4                                            LU$00360
         GOTO  .B1                                                      LU$00370
         ENDO                                                           LU$00380
         DO    &X1--&X2                                                 LU$00390
                   CNOP  4,8                                            LU$00400
         GOTO  .B1                                                      LU$00410
         ENDO                                                           LU$00420
                   CNOP  0,8                                            LU$00430
.B1      LABEL                                                          LU$00440
         DO    &X1                                                      LU$00450
                   ST    1,*+12+4*&X2+4*&X0                             LU$00460
         ENDO                                                           LU$00470
         DO    &X2                                                      LU$00480
                   ST    2,*+16+4*&X0                                   LU$00490
         ENDO                                                           LU$00500
         DO    &X0=1                                                    LU$00510
                   ST    0,*+20                                         LU$00520
         GOTO  .B2                                                      LU$00530
         ENDO                                                           LU$00540
                   CVB   1,*+24                                         LU$00550
                   ST    1,*+20                                         LU$00560
.B2      LABEL                                                          LU$00570
                   LA    1,*+8                                          LU$00580
                   B    *+16+4*&X0                                      LU$00590
         DO    &X1                                                      LU$00600
                   DC    F'0'                BUFFER ADDRESS             LU$00610
         GOTO  .D1                                                      LU$00620
         ENDO                                                           LU$00630
                   DC    A(&BUFFADR)         BUFFER ADDRESS             LU$00640
                   EXTRN &BUFFADR                                       LU$00650
.D1      LABEL                                                          LU$00660
         DO    &X2                                                      LU$00670
                   DC    F'0'                TABLE ADDRESS              LU$00680
         GOTO  .D2                                                      LU$00690
         ENDO                                                           LU$00700
                   DC    A(&TABLADR)         TABLE ADDRESS              LU$00710
                   EXTRN &TABLADR                                       LU$00720
.D2      LABEL                                                          LU$00730
         DO    &X0=1                                                    LU$00740
                   DC    F'0'                BUFFER LENGTH              LU$00750
         GOTO  .L1                                                      LU$00760
         ENDO                                                           LU$00770
                   DC    PL8'&BUFFLEN'       BUFFER LENGTH              LU$00780
.L1      LABEL                                                          LU$00790
                   DC    V(LU$SCAN)                                     LU$00800
                   L     15,*-4                                         LU$00810
                   BALR  14,15                                          LU$00820
.EXIT    LABEL                                                          LU$00830
         END                                                            LU$00840
