MACRO                                                          03000020
&NAME    IMGLIB &OPCL,&DCBAD                                  @ZA28403  06000000
.*                                                                      09000020
.*   THIS MACRO WAS DESIGNED TO CONSTRUCT REQUIRED PARAMETERS NECESSARY 12000020
.*   TO BUILD OR DELETE A DCB AND DEB FOR SYS1.IMAGELIB                 15000020
.*                                                                      18000020
         AIF   ('&OPCL' EQ 'OPEN').OPENLB                               21000020
         AIF   ('&OPCL' EQ 'CLOSE').CLOSELB                             24000020
.ERROR1  ANOP                                                           27000020
         IHBERMAC 192                                                   30000020
         MEXIT                                                          33000020
.OPENLB  AIF   ('&DCBAD' NE '').ERROR1                                  36000020
&NAME    SR    1,1                     *ZERO OUT REGISTER 1   @ZA28403  39000000
         SVC   105                     *ISSUE SVC TO BUILD IMAGELIB DCB 42000020
         MEXIT                                                          45000020
.CLOSELB AIF   ('&DCBAD' EQ '').ERROR1                                  48000020
         AIF   ('&DCBAD'(1,1) EQ '(').CLOSE1                            51000020
&NAME    L     1,&DCBAD                *LOAD DCB INTO REG1    @ZA28403  54000000
         SVC   105                     *DELETE SYS1.IMAGELIB DCB        54050000
         MEXIT                                                          54100000
.CLOSE1  ANOP                                                           54150000
&NAME    LR    1,&DCBAD(1)             *LOAD DCB INTO REG1    @ZA28403  54200000
         SVC   105                     *DELETE SYS1.IMAGELIB DCB        54250000
         MEND                                                           54300000