MACRO                                                          00050082
&NAME    IEDBUFTR &ID=USER,&TRACESW=                                    00100082
.*000000-999999                                                @OY19405 00150082
.* C020000                                                     @OZ43081 00150182
.*C020000,022500,025000                                        @OZ43668 00150282
         GBLA  &IEDQZE(64),&IEDQZL(256)                                 00200082
         GBLB  &IEDQZA(64)                                              00250082
         LCLC  &KEY,&UID                                                00300082
         LCLA  &LEN,&L                                                  00350082
         AIF   (NOT &IEDQZA(5)).MHNORM                                  00400082
.MHERROR ANOP                                                           00450082
         MNOTE 12,'*** IHB070 SEQUENCE ERROR-MUST FOLLOW INHEADER, INBUX00500082
               F, OUTHEADER, OR OUTBUF MACROS ONLY'                     00550082
         AGO   .MEND                                                    00600082
.MHNORM  ANOP                                                           00650082
&LEN     SETA  10                                                       00700082
         AIF   (K'&ID GT 4).ERR                                         00750082
         AIF   ('&ID' EQ '').SETID                                      00800082
&UID     SETC  '&ID'                                                    00850082
         AGO   .CKSW                                                    00900082
.ERR     ANOP                                                           00950082
&KEY     SETC  'ID'                                                     01000082
.MSG     ANOP                                                           01050082
         MNOTE 12,'IHB304 &KEY SPECIFIED TOO MANY CHARACTERS'           01100082
         AGO   .MEND                                                    01150082
.SETID   ANOP                                                           01200082
&UID     SETC  'USER'                                                   01250082
.CKSW    ANOP                                                           01300082
&L       SETA  1                                                        01350082
         AIF   ('&TRACESW' EQ '').DF    NO SW SPECIFIED, ON ALWAYS      01400082
         AIF   (K'&TRACESW GT 8).ERR2                                   01450082
&L       SETA  &L+1                                                     01500082
         AGO   .DF                                                      01550082
.ERR2    ANOP                                                           01600082
&KEY     SETC  'TRACESW'                                                01650082
         AGO   .MSG                                                     01700082
.DF      ANOP                                                           01750082
         AIF   (&L NE 2).CONT                                           01800082
&LEN     SETA  &LEN+4                                                   01850082
.CONT    ANOP                                                           01900082
         IEDQVCON 70,IEDQBUFF                                           01950082
&NAME    BAL   1,*+&LEN+4               POINT R1 AT PARM LIST  @OZ43668 02000082
         DC    AL1(&IEDQZE(48)),AL1(&LEN) IEDQNWMH VCON AND PARM LENGTH 02050082
         DC    AL1(&IEDQZL(6))          IEDQBUFF VCON                   02100082
         DC    AL1(0)                   ALIGNMENT FILLER                02150082
         DC    CL4'&UID'                USER ID                         02200082
         DC    AL1(&L,0)                TRACESW INDICATOR      @OZ43668 02250082
         AIF   (&L NE 2).SKIP                                           02300082
         IEDQVCON 31,IEDQAE                                             02350082
         DC    AL1(&IEDQZE(31)),AL1(4),AL1(&TRACESW),AL1(08) AE PARM    02400082
.SKIP    ANOP                                                           02450082
         L     15,IEDUI                 LOAD BASE FOR UI       @OZ43668 02500082
         BALR  14,15                    GO TO UI                        02550082
.MEND    ANOP                                                           02600082
         MEND                                                           02650082