03000003
    /*****************************************************************/ 06000003
    /*                                                               */ 09000003
    /* ISDAGHDR - ISDAGET0 HEADER DCL                                */ 12000003
    /*                                                               */ 15000003
    /*****************************************************************/ 18000003
                                                                        21000003
 /* %INCLUDE ISDADCLS(ISDAGHDR)                              @Y30LB55*/ 24000003
                                                                        27000003
    DCL                             /* ISDAGET0 HEADER DCL   @Y30LB55*/ 30000003
      1 ISDAGHDR BASED(GET0PTR),                                        33000003
       2 STARTPTR PTR(31),          /* PTR TO START OF DATA AREA        36000003
                                                             @Y30LB55*/ 39000003
       2 ENDPTR PTR(31),            /* PTR TO END OF DATA AREA          42000003
                                                             @Y30LB55*/ 45000003
       2 GET0SPLN FIXED(31),        /* SP NO. + LENGTH IN BYTES         48000003
                                                             @Y30LB55*/ 51000003
        3 GET0SPNO BIT(8),          /* SUBPOOL NUMBER        @Y30LB55*/ 54000003
        3 GET0LEN FIXED(24),        /* LENGTH OF BLOCK       @Y30LB55*/ 57000003
       2 NEXTPTR PTR(31),           /* PTR TO NEXT BLOCK     @ZM30730*/ 60000003
       2 LASTPTR PTR(31),           /* PTR TO PREVIOUS BLOCK @Y30LB55*/ 63000003
       2 BLOCKID CHAR(4),           /* 4 BYTE OWNER ID       @Y30LB55*/ 66000003
       2 BLOCKCNT FIXED(15),        /* 2 BYTE BLOCK COUNT    @Y30LB55*/ 69000003
       2 * CHAR(2);                 /* RESERVED FOR FUTURE USE          72000003
                                                             @Y30LB55*/ 75000003
    %GET0HDRL='LENGTH(ISDAGHDR)';                          /*@Y30LB55*/ 78000003
                                                                        81000003
 /*  %GET0HDRL='LENGTH(ISDAGHDR)'                            @Y30LB55*/ 84000003
 /* DCL DATA AREA AS STRUCTURE BASED(STARTPTR)               @Y30LB55*/ 87000003