*        %GO TO DPB34BSL;               /*                              02000000
              MACRO                                                     04000000
         IKJDAP34                                                       06000000
DAPB34   DSECT                                                          08000000
*********************************************************************** 10000000
* THIS DAIR PARAMETER BLOCK IS USED TO CAUSE :                        * 12000000
*        1) A SEARCH  OF THE ATRCB CHAIN FOR A GIVEN NAME             * 14000000
*        2) AN ATRCB TO BE PLACED ON THE ATRCB CHAIN                  * 16000000
*        3) AN ATRCB TO BE REMOVED FROM THE ATRCB CHAIN               * 18000000
*********************************************************************** 20000000
DA34CD   DS    CL2       DAIR ENTRY CODE                                22000000
DA34FLG  DS    CL2       FLAG FIELD                                     24000000
DA34FIND EQU   X'80'     ZERO IF ATTR-LIST-NAME NOT FOUND ONE IF FOUND  26000000
DA34DARC DS    CL2       DYNAMIC ALLOCATION RETURN CODE                 28000000
DA34CTRL DS    CL1       CONTROL BYTES                                  30000000
DA34SRCH EQU   X'80'     SEARCH ATTR.CHAIN FOR NAME                     32000000
DA34CHN  EQU   X'40'     CHAIN NEW ATTR.LIST                            34000000
DA34UNCH EQU   X'20'     REMOVE ATTR.LIST FROM CHAIN                    36000000
         DS    CL1       RESERVED                                       38000000
DA34NAME DS    CL8       ATTRIBUTE-LIST-NAME                            40000000
DA34ADDR DS    CL4       ADDR OF DAIRACB                                42000000
**/                                                                     44000000
         MEND                                                           46000000
   %DPB34BSL:  ;                                                        48000000
 /********************************************************************/ 50050000
 /* THIS DAIR PARAMETER BLOCK IS USED TO CAUSE:                      */ 52000000
 /*      1) A SEARCH OF THE ATRCB CHAIN FOR A GIVEN NAME             */ 54000000
 /*      2) AN ATRCB TO BE PLACED ON THE ATRCB CHAIN                 */ 56000000
 /*      3) AN ATRCB TO BE REMOVED FROM THE ATRCB CHAIN              */ 58000000
 /********************************************************************/ 60050000
         DECLARE                                                        62000000
               1 DAPB34 BASED(DAPB3PTR),                                64000000
                 2 DA34CD CHAR(2),      /* DAIR ENTRY CODE           */ 66000000
                 2 DA34FLG CHAR(2),     /* FLAG FIELD                */ 68000000
                   3 DA34FIND BIT(1),   /* ZERO IF ATTR-LIST-NAME       70000000
                                           NOT FOUND ONE IF FOUND    */ 72000000
                 2 DA34DARC FIXED(15),  /* DYNAMIC ALLOC. RETURN CODE*/ 74000000
                 2 DA34CTRL CHAR(1),    /* CONTROL BYTES             */ 76000000
                   3 DA34SRCH BIT(1),   /* SEARCH ATTR.CHAIN FOR NAME*/ 78000000
                   3 DA34CHN  BIT(1),   /* CHAIN NEW ATTR.LIST       */ 80000000
                   3 DA34UNCH  BIT(1), /* REMOVE ATTR-LIST FROM CHAIN*/ 82000000
                 2 *       CHAR(1),                                     84000000
                 2 DA34NAME  CHAR(8),   /* ATTRIBUTE-LIST-NAME       */ 86000000
                 2 DA34ADDR  PTR(31);   /* ADDR OF DAIRACB           */ 88000000