MACRO                                                          00020000
         SGIEF011                                                       00040000
.* 1917 UCBS                                                   @ZA15758 00045003
.*C000600,000800,A000700                                       @YM08650 00050002
         GBLA  &TYPLIST(188),&HLFLIST(188),&ADDRESA            @YM08650 00060002
         GBLA  &ADDRESS(2056),&NUMBER                          @ZA15758 00065003
         GBLC  &NAME(188)                                      @YM08650 00080002
         LCLA  &LOOKUPT,&LOOK2,&A,&DTVAL(3)                             00100000
         LCLA  &B                                                       00120000
         ACTR  13000                                           @ZA15758 00125003
.*1057                                                            14814 00130016
         AIF   (N'&SYSLIST  NE 2).ON1                                   00140000
&B       SETA  &SYSLIST(1)                                              00160000
         DC    CL8'&NAME(&B)'                                           00180000
         AGO   .ON2                                                     00200000
.ON1     ANOP                                                           00220000
         DC    CL8'&SYSLIST(3)'                                         00240000
         AIF   (&SYSLIST(1) EQ 0).ESOTRC                                00260000
.ON2     ANOP                                                           00280000
&ADDRESA SETA 1                                                         00300000
&ADDRESS(1)  SETA &SYSLIST(1)                                           00320000
         AIF   (N'&SYSLIST NE 2).ESOTRC                                 00340000
&LOOKUPT SETA  &TYPLIST(&B)                                             00360000
&LOOK2   SETA  &HLFLIST(&B)                                             00380000
         AGO   .STRING                                                  00400000
.ESOTRC  ANOP                                                           00420000
&NUMBER  SETA  &NUMBER+1                                                00440000
&LOOKUPT SETA  &NUMBER                                                  00460000
         AIF   (&ADDRESA NE 1).ON3                                      00480000
         AIF   (&ADDRESS(1) EQ 0).STRING                                00500000
&LOOK2   SETA  &HLFLIST(&ADDRESS(1))/X'100'*X'100'                      00520000
         AGO   .STRING                                                  00540000
.ON3   AIF   (&A EQ  &ADDRESA).ON45                                     00560000
&A       SETA  &A+1                                                     00580000
         AIF   (&ADDRESS(&A) EQ 0).ON3                            14814 00590016
&DTVAL(3) SETA &HLFLIST(&ADDRESS(&A))/X'100'*X'100'                     00600000
         AIF   (&DTVAL(1) NE 0 AND &DTVAL(1) NE &DTVAL(3)).ON4          00620000
&DTVAL(1) SETA &DTVAL(3)                                                00640000
         AGO   .ON3                                                     00660000
.ON4     AIF   (&DTVAL(2) NE 0 AND &DTVAL(2) NE &DTVAL(3)).ON5          00680000
&DTVAL(2) SETA &DTVAL(3)                                                00700000
         AGO   .ON3                                                     00720000
.ON45   ANOP                                                            00740000
&DTVAL(3)  SETA   0                                                     00760000
.ON5     ANOP                                                           00780000
&LOOK2   SETA  &DTVAL(1)+&DTVAL(2)+&DTVAL(3)                            00800000
.STRING  ANOP                                                           00820000
         DC    AL2(&LOOKUPT)                                            00840000
         DC    AL2(&LOOK2)                                              00860000
         MEND                                                           00880000