MACRO                                                          01000022
&A       TPDATE &DCB=,&DTSAREA=,&RECDLM=NO,&DELETE=NO                   02000022
         GBLB  &IEDQB2                                                  03000022
         LCLA  &SWITCH                                                  04000022
.* CHANGE ACTIVITY AS FOLLOWS                                           04000110
.******************* MICROFICHE FLAGS *********************** SUPT CODE 04000210
.*C 570000                                                       S21903 04000310
.*D 000500                                                       S21903 04000410
.*C080000                                                       SA61065 04000510
         AIF   ('&DCB' EQ '').ERR1                                      05000022
         AIF   (N'&SYSLIST GT 4).ERR2                                   06000022
         CNOP  0,4                                                      07000022
&A       DS    0H                                               SA61065 08000010
         AIF   (&IEDQB2).NOVCON                                 SA61065 09000010
         B     *+8                                                      10000022
IEDQDTS  DC    V(IEDQB2) .              ADDRESS OF TPDATE ROUTINE       11000022
&IEDQB2  SETB  1                                                        12000022
.NOVCON  ANOP                                                           13000022
         AIF   ('&RECDLM' EQ 'NO').NOREC                                14000022
         AIF   ('&RECDLM' EQ 'YES').REC                                 15000022
         MNOTE 12,'*** IHB002 INVALID RECDLM OPERAND SPECIFIED'         16000022
         AGO   .NOREC                                                   17000022
.REC     ANOP                                                           18000022
&SWITCH  SETA  128                                                      19000022
.NOREC   ANOP                                                           20000022
         AIF   ('&DELETE' EQ 'NO').NODEL                                21000022
         AIF   ('&DELETE' EQ 'YES').DEL                                 22000022
         MNOTE 12,'*** IHB002 INVALID DELETE OPERAND SPECIFIED'         23000022
         AGO   .NODEL                                                   24000022
.DEL     ANOP                                                           25000022
&SWITCH  SETA  &SWITCH+64                                               26000022
.NODEL   ANOP                                                           27000022
         AIF   ('&DCB'(1,1) EQ '(').DCBREG                              28000022
         LA    1,&DCB                                                   29000022
         AGO   .GOTDCB                                                  30000022
.DCBREG  ANOP                                                           31000022
         LR    1,&DCB(1)                                                32000022
         LA    1,0(1)                                                   33000022
.GOTDCB  ANOP                                                           34000022
         AIF   ('&DTSAREA' EQ '').TAG                                   35000022
&SWITCH  SETA  &SWITCH+32                                               36000022
.TAG     ANOP                                                           37000022
         LA    0,&SWITCH                                                38000022
         SLL   0,24                                                     39000022
         AR    0,1                                                      40000022
         AIF   ('&DTSAREA' EQ '').NODTS                                 41000022
         AIF   ('&DTSAREA'(1,1) EQ '(').DREG                            42000022
         LA    1,&DTSAREA                                               43000022
.GOTDTS  ANOP                                                           44000022
         L     15,IEDQDTS                                               45000022
         BALR  14,15                                                    46000022
         MEXIT                                                          47000022
.DREG    ANOP                                                           48000022
         LR    1,&DTSAREA(1)                                            49000022
         LA    1,0(1)                                                   50000022
         AGO   .GOTDTS                                                  51000022
.NODTS   ANOP                                                           52000022
         SR    1,1                                                      53000022
         AGO   .GOTDTS                                                  54000022
.ERR1    MNOTE 12,'*** IHB004 REQUIRED OPERAND NOT SPECIFIED'           55000022
         MEXIT                                                          56000022
.ERR2    MNOTE 12,'*** IHB004  EXCESSIVE OPERANDS SPECIFIED '    S21903 57000010
         MEND                                                           58000022