MACRO                                                          00020000
         IECIST &DEVCNT,&LIST,&LSTCNT,&TCBTYP                           00040000
         LCLA  &COUNT                                                   00060000
         TITLE 'STATISTICS TABLE'                                       00070002
*****************************************************************       00080002
*                                                               *       00090002
*        DEVICE STATISTICS TABLE                                *       00092002
*                                                               *       00094002
*****************************************************************       00096002
         SPACE 2                                                        00098002
IECSTB   DS    0C                                                       00100000
&COUNT   SETA  1                        INITIALIZE COUNTER         P256 00101018
.ADDLOP  ANOP                                                      P256 00102018
         AIF   (&COUNT EQ &LSTCNT).FILL DO FILL                    P256 00103018
         DC    AL2(UCB&LIST(&COUNT).-IPLPSW)                   @Z30ANLG 00104003
&COUNT   SETA  &COUNT+1                 UPDATE COUNTER             P256 00105018
         AGO   .ADDLOP                  GO TEST FOR LAST           P256 00106018
.FILL    ANOP                                                      P256 00107018
         DC    X'FFFF'                  END OF TABLE           @Z30ANLG 00108003
&COUNT   SETA  10-&COUNT                GET FILL COUNT         @Z30ANLG 00109003
         AIF   (&COUNT EQ 0).STATLP     TEST FOR FILL              P256 00110018
&COUNT   SETA  &COUNT*2                 GET FILL COUNT             P256 00111018
         DC    XL&COUNT.'0'             NORMAL FILL                P256 00112018
&COUNT   SETA  0                        CLEAR COUNTER              P256 00113018
.STATLP  ANOP                                                           00120000
&COUNT   SETA  &DEVCNT                                                  00140018
         DC    &COUNT.XL10'0'                                  @Z30ANLG 00160003
.*1342001000                                                       P256 00190017
         MEND                                                           94990000