MACRO                                                          00050003
&NAME    PDAB  &MAXDCB=                                                 00100003
         AIF   ('&MAXDCB' EQ '').E1                                     00150003
         AIF   (T'&MAXDCB NE 'N').PDAB01                                00200003
         AIF   (&MAXDCB LT 0 OR &MAXDCB GT 32767).E2                    00250003
.PDAB01  ANOP                                                           00300003
&NAME    DS    0F                                                       00350003
         DC    AL2(0)                                                   00400003
         DC    AL2(&MAXDCB)                                             00450003
         DC    5F'0'                                                    00500003
         DS    (8*&MAXDCB)F                                             00550003
         MEXIT                                                          00600003
.E1      IHBERMAC 1006,MAXDCB 12,IHB001  MAXDCB OPERAND REQUIRED        00650003
         MEXIT                                                          00700003
.E2      IHBERMAC 1001,MAXDCB,&MAXDCB 12,IHB002  INVALID OPERAND        00750003
         MEND                                                           00800003