MACRO                                                          01000020
&NAME    PRIORITY &LEV,&CHARS,&BLANK=YES                                02000020
         GBLA  &IEDQZD                                                  03000020
         GBLB  &IEDQZA(64)                                              04000020
         GBLC  &IEDQZB                                                  05000020
         LCLB  &NOGO                                                    07000020
         LCLC  &PARM                                                    08000020
.*C280000                                                      @OZ09935 08300010
.*             VERSION DATED JULY 14,1976                      @OZ09935 08600010
         SPACE                                                          10000020
         AIF   (NOT &IEDQZA(9)).TSOCHK                              TSO 12000020
         MNOTE 12,'***  IHB312  MUST FOLLOW STARTMH MACRO WITH TSOMH=NO*13000020
               '                                                        14000020
&NOGO    SETB  1                                                        15000020
.TSOCHK  ANOP                                                       TSO 16000020
&PARM    SETC  'IEDT'.'&SYSNDX'                                         17000020
         AIF   (&IEDQZA(3)).CHECK                                       18000020
         MNOTE 12,'***  IHB070  SEQUENCE ERROR-MUST FOLLOW INHDR MACRO' 19000020
&NOGO    SETB  1                                                        20000020
.CHECK   AIF   ('&LEV' EQ '').CHARCHK                                   21000020
         AIF   ('&LEV'(K'&LEV,1) EQ '''').LENERR                        22000020
         IEDQMASK &LEV,1                                                23000020
         AIF   (NOT &IEDQZA(24)).CHARCHK                                24000020
.LENERR  MNOTE 12,'***  IHB300  LEVEL OPERAND INVALID AS SPECIFIED'     25000020
&NOGO    SETB  1                                                        26000020
.CHARCHK ANOP                                                  @OZ09935 27000010
         CNOP  0,4                                             @OZ09935 28000010
&NAME    DS    0H                                              @OZ09935 28500010
.NON     AIF   ('&CHARS' EQ '').DOIT                                    29000020
         IEDQCHAR 8,&CHARS                                              30000020
         AIF   (&IEDQZA(24)).ERR                                        31000020
         AIF   (&IEDQZD LE 8).ORG                                       32000020
.ERR     MNOTE 12,'***  IHB300  CHARACTER OPERAND INVALID AS SPECIFIED' 33000020
&NOGO    SETB  1                                                        34000020
.ORG     AIF   (&NOGO).MEND                                             35000020
         IEDQSCAN &IEDQZD,&CHARS,&BLANK                                 36000020
         AIF   (&IEDQZA(24)).MEND                                       37000020
         LTR   15,15                                                    38000020
         BNP   &PARM                                                    39000020
         L     1,IEDADBUF .             GET BUFFER ADDRESS              40000020
         STH   15,24(,1) .              PUT SCAN IN BUFFER              41000020
.DOIT    AIF   (&NOGO).MEND                                             42000020
         AIF   ('&LEV' NE '').PLUSP                                     43000020
.GO      ANOP                                                           44000020
&IEDQZA(8) SETB 1                                                       45000020
         IEDQSCAN 1,,&BLANK                                             46000020
&IEDQZA(8) SETB 0                                                       47000020
         AIF   (&IEDQZA(24)).MEND                                       48000020
         LTR   15,15                                                    49000020
         BM    &PARM                                                    50000020
         AGO   .ICSTC                                                   51000020
.PLUSP   MVI   IEDDOUBL,&LEV                                            52000020
.ICSTC   L     15,IEDADBUF .            GET BUFFER ADDRESS FROM AVT     52600020
         TM    20(15),X'01' .           BYPASS IF NOT FIRST HEADER BFR  53200020
         BO    &PARM                                                    53800020
         IC    1,IEDDOUBL .             GET PRIORITY                    54400020
         L     15,12(15) .              GET LCB FROM BUFFER             55000020
         L     15,92(,15) .             GET SCB FROM LCB                56000020
         STC   1,8(15) .                SET SCB PRIORITY                57000020
&PARM    DS    0H                                                       58000020
.MEND    SPACE 2                                                        59000020
         MEND                                                           60000020