MACRO                                                          01000010
&NAME    IEDDFC &COMMAND,&CHARS,&BLANK=YES                              02000010
.*A000000-999999                                               @X50X9MH 03000010
.*C110000-120000                                               @Y17XAMG 03500010
         GBLA  &IEDQZD                                                  04000010
         GBLA  &IEDQZE(64)                                              05000010
         GBLB  &IEDQZA(64)                                              06000010
         LCLB  &NOGO                                                    07000010
         LCLC  &CODE                                                    08000010
.*                                                                      09000010
.* START MH ISSUED?                                                     10000010
         AIF   (&IEDQZA(46)).CKOUTHR                           @Y17XAMG 11000010
         MNOTE 12,'***IHB312 MUST FOLLOW STARTMH MACRO'        @Y17XAMG 12000010
&NOGO    SETB  1                                                        13000010
.*                                                                      14000010
.* MACRO ISSUED IN OUTHDR?                                              15000010
.CKOUTHR AIF   (&IEDQZA(4)).CKCMD                                       16000010
         MNOTE 12,'***IHB070 SEQUENCE ERROR - MUST FOLLOW OUTHDR MACRO' 17000010
&NOGO    SETB  1                                                        18000010
.*                                                                      19000010
.* VALID COMMAND SPECIFIED ?                                            20000010
.CKCMD   ANOP                                                           21000010
.*                                                                      22000010
.* SET CODE FOR BID                                                     23000010
&CODE    SETC  'C8'                                                     24000010
         AIF   ('&COMMAND' EQ 'BID').CKCHAR                             25000010
         MNOTE 12,'***IHB300 &COMMAND OPERAND INVALID AS SPECIFIED'     26000010
&NOGO    SETB  1                                                        27000010
.*                                                                      28000010
.* CONCHARS SPECIFIED?                                                  29000010
.CKCHAR  AIF   ('&CHARS' EQ '').ERRCHK                                  30000010
         IEDQCHAR 8,&CHARS                                              31000010
         AIF   (NOT &IEDQZA(24)).ERRCHK                                 32000010
         MNOTE 12,'***IHB300 &CHARS OPERAND INVALID AS SPECIFIED'       33000010
&NOGO    SETB  1                                                        34000010
.*                                                                      35000010
.ERRCHK  AIF   (&NOGO).EXIT                                             36000010
&NAME    DS    0H                                                       37000010
         IEDQVCON 63,IEDIAS                                             38000010
         AIF   ('&CHARS' EQ '').NOCHAR                                  39000010
         IEDQSCAN &IEDQZD,&CHARS,&BLANK                                 40000010
         AIF   (&IEDQZA(24)).EXIT                                       41000010
         LTR   15,15              CONCHARS FOUND                        42000010
         BNP   *+26               BRANCH IF NO                          43000010
         L     1,IEDADBUF         GET BUFFER ADDRESS           @XM10716 44000010
         STH   15,24(,1)          UPDATE SCAN POINTER                   45000010
.NOCHAR  ANOP                                                           46000010
         BAL   1,*+8              BRANCH AROUND CONSTANTS               47000010
         DC    AL1(&IEDQZE(63))   INDEX TO IEDIAS                       48000010
         DC    AL1(3)             LENGTH OF PARM LIST                   49000010
         DC    XL1'&CODE'         COMMAND CODE                          50000010
         DS    0H                                                       51000010
         L     15,IEDUI                                                 52000010
         BALR  14,15                                                    53000010
.EXIT    ANOP                                                           54000010
         MEND                                                           55000010