*        %GOTO PLSVER;                                               /* 00050040
         MACRO                                                          00100040
         IHAMBCB                                                        00150040
MBCB     DSECT                 MAIN SVRB POOL CONTROL BLOCK             00200040
MBCBID   DS    F               ID IS 'SVRB'                             00250040
MBCBLINK DS    F               LINK TO NEXT POOL ELEMENT                00300040
MBCBSVRB DS    CL(SVRBLEN)     SVRB                                     00350040
MBCBBUFF DS    CL(8)           BUFFER BETWEEN SVRBS                     00400040
MBCBEND  DS    0H              END OF MBCB                              00450040
MBCBLEN  EQU   MBCBEND-MBCB    LENGTH OF MBCB                           00500040
MBCBPXLN EQU   MBCBSVRB-MBCB   LENGTH OF PREFIX                         00550040
         MEND                                                        */ 00600040
*%PLSVER:;                                                              00650040
*DECLARE 1 MBCB BASED,            /* MAIN SVRB POOL CONTROL BLOCK    */ 00700040
*          3 MBCBMAIN,            /* 8 BYTE HEADER                   */ 00750040
*            5 MBCBID CHAR(4),    /* ID IS 'SVRB'                    */ 00800040
*            5 MBCBLINK PTR(31),  /* LINK TO NEXT POOL ELEMENT       */ 00850040
*          3 MBCBSVRB CHAR(SVRBLGN),   /* SVRB                       */ 00900040
*          3 MBCBBUFF CHAR(8);    /* BUFFER BETWEEN SVRBS            */ 00950040