MACRO                                                          01000020
&NAME    IEDQTO  &OPDATA,&X=(M,N,O,P,Q,R,S,T),&AA=(A,B,C,D,E,F)         02000082
.*                                                             @OZ44387 02050082
         GBLC  &IEDQOP(255),&IEDQSV(8),&IEDTNME                @OZ44387 02100082
         GBLB  &IEDQZA(64)                                              04000020
         GBLA  &IEDQAR(64)                                              05000020
         LCLC  &S,&T,&U,&V                                              06000020
         LCLA  &A,&B,&C,&D,&SX,&NN,&DS                                  07000020
.*C520000                                                      @OZ39371 07000182
.*A280000                                                      @OZ39371 07000282
.*C020000-030000                                               @OZ44387 07000382
.*A280000,280500                                               @OZ44387 07000482
.*PACKAGE ERROR                                                @OZ49699 07050482
&A       SETA  N'&OPDATA                                                08000020
&DS      SETA  &IEDQAR(5)                                               09000020
         AIF   (&IEDQAR(5) NE 0).NOCS                                   10000020
&IEDQSV(3)  SETC  'IED'.'&IEDQAR(6)'.'&X(&IEDQAR(9))'                   11000020
.NOCS    AIF   ('&OPDATA(&A)' EQ '').AD                                 12000020
&IEDQAR(5) SETA 0                                                       13000020
         AIF   (&IEDQAR(3) NE 0).CKN                                    14000020
         SPACE 2                                                        15000020
         MNOTE 12,'*** IHB317 OPDATA INVALID- NO OPTION FIELDS SPECIFIE*16000020
               D'                                                       17000020
         SPACE 2                                                        18000020
         MEXIT                                                          19000020
.CKN     AIF   (&IEDQAR(3) GE &DS+&A).XX                                20000020
         SPACE 2                                                        21000020
.ER      MNOTE 12,'*** IHB306 TOO MANY OPDATA PARAMETERS'               22000020
&A       SETA  &IEDQAR(3)-&DS                                           23000020
.XX      ANOP                                                           24000020
&D       SETA  &DS                                                      25000020
&SX      SETA  &IEDQAR(6)                                               26000020
&NN      SETA  &IEDQAR(9)                                               27000020
IEDQOPT  CSECT                                                          28000020
         AIF   ('&NAME' EQ '&IEDTNME').LOOP                    @OZ44387 28020082
         DS    0F                      ALIGN TO FULL WORD      @OZ39371 28050082
&IEDTNME SETC  '&NAME'                                         @OZ44387 28100082
.LOOP    ANOP                                                           29000020
&D       SETA  &D+1                                                     30000020
&B       SETA  &B+1                                                     31000020
         AIF   ('&OPDATA(&B)' EQ '').NXT                                32000020
&S       SETC  'IED'.'&IEDQAR(6)'.'&X(&IEDQAR(9))'                      33000020
&IEDQAR(6)  SETA  &IEDQAR(6)+1                                          34000020
         AIF   (&IEDQAR(6) LE 9999).OK                                  35000020
&IEDQAR(6)  SETA  0                                                     36000020
&IEDQAR(9)  SETA  &IEDQAR(9)+1                                          37000020
.OK      ANOP                                                           38000020
&T       SETC  '&IEDQOP(&D)'(1,1)                                       39000020
&C       SETA  &T                                                       40000020
&T       SETC  ')'                                                      41000020
         AIF   ('&IEDQOP(&D)'(&C+2,1) EQ '(').GO                        42000020
&T       SETC  ''''                                                     43000020
.GO      ANOP                                                           44000020
&U       SETC  '&IEDQOP(&D)'(2,&C+1)                                    45000020
&S       DC    &U&OPDATA(&B)&T                                          46000020
.NXT     AIF   (&B LT &A).LOOP                                          47000020
IEDQTRMC CSECT                                                          48000002
&B       SETA  0                                                        49000020
         AIF   (&DS NE 0).CON                                           50000020
         DC    AL1(&A) .                NUMBER OF OPTION FIELDS         51000020
         DC    AL2((&IEDQSV(3)-IEDQOPT)/4) OFFSET TO OPTION    @OZ39371 52000082
*                                       TABLE IN FULL WORDS    @OZ39371 52050082
&D       SETA  0                                                        53000020
.LOP2    ANOP                                                           54000020
&D       SETA  &D+1                                                     55000020
&B       SETA  &B+1                                                     56000020
         AIF   ('&OPDATA(&B)' NE '').GO2                                57000020
         DC    X'FF' .                  OPTION FIELD OMMITTED           58000020
         AGO   .NX2                                                     59000020
.AD      ANOP                                                           60000020
&A       SETA  &A-1                                                     61000020
&IEDQAR(5)  SETA  &IEDQAR(5)+&A                                         62000020
         AIF   (&IEDQAR(3) GT &DS+&A).XX                                63000020
&IEDQAR(5)  SETA  0                                                     64000020
         AGO   .ER                                                      65000020
.CON     ANOP                                                           66000020
&V       SETC  'IED'.'&IEDQAR(4)'.'&AA(&IEDQAR(7))'                     67000020
         ORG   &V+17                                                    68000020
         DC    AL1(&DS+&A)                                              69000020
         ORG                                                            70000020
&D       SETA  &DS                                                      71000020
         AGO   .LOP2                                                    72000020
.GO2     ANOP                                                           73000020
&S       SETC  'IED'.'&SX'.'&X(&NN)'                                    74000020
&SX      SETA  &SX+1                                                    75000020
         AIF   (&SX LE 9999).K2                                         76000020
&SX      SETA  0                                                        77000020
&NN      SETA  &NN+1                                                    78000020
.K2      DC    AL1(&S-&IEDQSV(3))                                       79000020
.NX2     AIF   (&B LT &A).LOP2                                          80000020
         MEND                                                           81000020