MACRO                                                          02000010
&PARM    IEDQCKO &VAL,&DEF,&N,&R=(0,0),&C=0                             02010010
         GBLB  &IEDQFL(16),&IEDQNO                                      02020010
         GBLA  &IEDQAR(64)                                              02030010
         GBLC  &IEDQAD(5)                                       SA57685 02040010
         LCLA  &A                                                       02050010
.******************* MICROFICHE FLAGS *********************** SUPT CODE 02060010
.*A135000,210000,250000,630000                                   S22025 10000010
.*C496000-498000,640000-660000                                   S22025 10000110
.*C100000,400000                                                 S99228 10000210
.*C020000-080000,100000-122000,500000-520000                    SA57685 10000310
.********************************************************************** 12250010
         AIF   (&N EQ 8).DISP                                       TSO 13000020
         AIF   (  &N EQ 31  OR   &N EQ 32).LP1 .                 S22025 13500022
&IEDQFL(&N) SETB 0                                                      14000020
         AIF   ('&VAL' EQ '').ND                                        16000020
         AIF   ('&VAL' EQ '&DEF').ND                                    18000020
&IEDQFL(&N) SETB 1                                                      20000020
         AIF   ( &N EQ 10).NOY .                                 S22025 21000022
         AIF   (&N EQ 2).DL             IF DIAL DIGITS                  22000020
         AIF   (&C NE 0).NOCK                                           24000020
.LP1     ANOP .                                                  S22025 25000022
&A       SETA  K'&VAL                                                   26000020
.LP      AIF   ('&VAL'(&A,1) LT '0' OR '&VAL'(&A,1) GT '9').MN          28000020
&A       SETA  &A-1                                                     30000020
         AIF   (&A GT 0).LP                                             32000020
         AIF   ('&VAL' LT '&R(1)' OR '&VAL' GT '&R(2)').MN              34000020
&IEDQAR(&N+16)  SETA  &VAL                                              36000020
         MEXIT                                                          38000020
.NOCK    ANOP .                                                  S99228 40000022
&IEDQAR(40) SETA 0 .                                             S99228 40200022
         AIF   (K'&VAL GT 16).MN .                               S99228 40400022
         AIF   (K'&VAL LE 8).NOCK1 .                             S99228 40600022
&IEDQAD(1) SETC '&VAL'(1,8) .                                    S99228 40800022
&IEDQAR(40) SETA K'&VAL .                                        S99228 41000022
&IEDQAR(40) SETA &IEDQAR(40)-8 .                                 S99228 41200022
&IEDQAD(4) SETC '&VAL'(9,&IEDQAR(40)) .                          S99228 41400022
         AGO   .CM .                                             S99228 41600022
.NOCK1   ANOP .                                                  S99228 41800022
&IEDQAD(1)  SETC  '&VAL'                                                42000020
.CM      ANOP                                                           44000020
&IEDQAR(&N+16) SETA K'&VAL                                              46000020
         MEXIT                                                          48000020
.DISP    AIF   ('&VAL' EQ '').ND                                    TSO 48300020
         AIF   (N'&VAL NE 2).MN                                     TSO 48600020
         AIF   (T'&VAL(1) NE 'N' OR T'&VAL(2) NE 'N').MN            TSO 48900020
         AIF   ('&VAL(1)' GT '&R(2)' OR '&VAL(2)' GT '&R(2)').MN    TSO 49200020
         MEXIT                                                      TSO 49500020
.NOY     ANOP .                                                  S22025 49600022
         AIF   ( '&VAL' NE 'YES').MN .                           S22025 49700022
         MEXIT .                                                 S22025 49800022
.DL      AIF   (K'&VAL GT 20).MN  .     DIGITS GREATER THAN 20  SA57685 50000010
         AIF   (K'&VAL LE 8).ON  .      DIGITS 1 TO 8           SA57685 50800010
         AIF   (K'&VAL LE 16).OM  .     DIGITS 9 TO 16          SA57685 51600010
&IEDQAD(5)  SETC  '&VAL'(17,K'&VAL-16) .DIGITS 17 TO 20         SA57685 52400010
.OM      ANOP                                                   SA57685 53200010
&IEDQAD(3)  SETC  '&VAL'(9,K'&VAL-8)                                    54000020
.ON      ANOP                                                           56000020
&IEDQAD(2)  SETC  '&VAL'                                                58000020
         AGO   .CM                                                      60000020
.MN      MNOTE 12,'*** IHB002 INVALID &PARM OPERAND SPECIFIED- &VAL'    62000022
.*                                                               S22025 62500022
&IEDQNO SETB 1 .                                                 S22025 63000022
         AIF   ( &N EQ 31 OR &N EQ 32 ).ND .                     S22025 64000022
&IEDQFL(&N) SETB 0 .                                             S22025 65000022
         MEXIT .                                                 S22025 66000022
.ND      MEND                                                           68000020