*%GOTO SIABPLS1; 00050021 MACRO 00100021 IECDSIAB 00150021 *%SIABPLS1: ; 00200021 * /************************************************************/ 00250021 * /* */ 00300021 * /* THIS IS THE DESCRIPTION OF HOW THE AREA */ 00350021 * /* OF STORAGE RECIEVED FROM IOS STORAGE MANAGER */ 00400021 * /* IS SUBDIVIDED INTO SRB AND IOSB. */ 00450021 * /* */ 00500021 * /************************************************************/ 00550021 *%GOTO SIABPLS2; 00600021 SIAB DSECT 00650021 SIABCMCH DS 0F CHAIN POINTER FOR STORAGE MGR 00660021 SIABSRB DS 12F THIS IS THE SRB AREA 00700021 SIABIOSB DS 28F THIS IS THE IOSB AREA 00750021 SIABEL EQU *-SIABCMCH SIAB LENGTH 00760021 MEND 00800021 *%SIABPLS2: ; 00850021 * DCL 1 SIAB BDY(WORD) BASED(SIABPTR), 00852021 * 2 SIABCMCH CHAR(0), /*CHAIN PTR FOR STORAGE MGR*/ 00860021 * 2 SIABSRB CHAR(48), /*THIS IS THE SRB AREA */ 00900021 * 2 SIABIOSB CHAR(112), /*THIS IS THE IOSB AREA */ 00950021 * 2 SIABEND CHAR(0); /*THIS IS THE END OF SIAB */ 01000021 *%DCL SIABEL CHAR; /* SIAB LENGTH */ 01050021 *%SIABEL='ADDR(SIABEND)-ADDR(SIABCMCH)'; 01100021