* %GOTO CPABBSL; /*BILINGUAL MAPPING 00050002 MACRO 00100002 IHACPAB &DSECT=YES 00150002 AIF ('&DSECT' EQ 'NO').NODSCT 00200002 CPAB DSECT 00250002 AGO .CONT 00300002 .NODSCT ANOP 00350002 DS 0F 00400002 CPAB EQU * 00450002 .CONT ANOP 00500002 SPACE 1 00550002 *********************************************************************** 00600002 * CPAB OS/VS2 -- 8/12/77 @ZA28730* 00620003 * THE CELL POOL ANCHOR BLOCK IS USED TO CONTAIN A PRE-ALLOCATED* 00700002 * POOL OF CELLS FOR THE GET AND FREE QUICKCELL SERVICES. * 00750002 *********************************************************************** 00800002 SPACE 1 00850002 CPABCPID DS F CPID FOR THIS POOL (ADDRESS OF THE ORIGINAL CPAB 00900002 * IN AN EXTENSION CPAB) 00910002 CPABCSZE DS F SIZE OF EACH CELL 00950002 CPABDEQC DS F COUNT OF NUMBER OF CELLS CURRENTLY ALLOCATED 00960002 * FROM THIS POOL SEGMENT. 00970002 CPABFACP DS F FIRST AVAILABLE CELL POINTER 01000002 CPABFLGW DS 0F FLAG AND COUNT WORD (USED FOR LOCKING A SEGMENT) 01050002 CPABSPID DS CL1 SUBPOOL NUMBER OF POOL (ZERO IN EXTENSION CPABE) 01100002 CPABFLGS DS BL1 FLAGS 01150002 NIPBLDCP EQU X'80' ORIGINAL POOL WAS CREATED DURING NIP AND 01200002 * CANNOT BE DELETED 01250002 BLDDWORD EQU X'40' CELLS IN THIS POOL MUST BE ALIGNED ON A 01300002 * DOUBLE WORD BOUNDARY. 01320002 ADELCAND EQU X'20' THIS EXTENT IS A CANDIDATE FOR AUTOMATIC DELETION 01350002 CPABEXTN EQU X'10' FLAGS AN ORIGINAL CPAB (0) OR AN EXTENSION 01370002 * CPAB (1) 01380002 DELETELK EQU X'08' THIS SEGMENT IS IN THE PROCESS OF BEING DELETED 01390002 SERIAL EQU X'04' CALLER HAS GUARANTEED SERIALIZATION @ZA28730 01392003 CPABUSE# DS H COUNT OF CONCURRENT OPERATIONS ON THIS SEGMENT 01394002 CPABSTAD DS F START ADDRESS OF THIS POOL SEGMENT 01400002 CPABENAD DS F END ADDRESS OF THIS POOL SEGMENT 01450002 CPABNXTP DS F PTR TO NEXT CPABE/0 01500002 CPABEND DS 0C CPAB END 01510002 CPABLEN EQU CPABEND-CPAB LENGTH OF THE CPAB 01530002 MEND , */ 01550002 *%CPABBSL : ; 01600002 */********************************************************************/ 01650002 */* CPAB OS/VS2 -- 8/12/77 @ZA28730*/ 01700003 */* THE CELL POOL ANCHOR BLOCK IS USED TO CONTAIN A PRE-ALLOCATED*/ 01750002 */* POOL OF CELLS FOR THE GET AND FREE QUICKCELL SERVICES. */ 01800002 */********************************************************************/ 01850002 *DCL 1 CPAB BASED(CPABPTR), 01900002 * 2 CPABCPID FIXED(31), /*CPID FOR THIS POOL (ADDRESS OF */ 01950002 * /*THE ORIGINAL CPAB IN AN*/ 01952002 * /*EXTENSION CPAB*/ 01962002 * 2 CPABCSZE FIXED(31), /*SIZE OF EACH CELL*/ 02000002 * 2 CPABDEQC FIXED(31), /*COUNT OF CELLS CURRENTLY */ 02010002 * /*ALLOCATED FROM THIS POOL SEGMENT*/ 02020002 * 2 CPABFACP PTR(31), /*FIRST AVAILABLE CELL PTR*/ 02050002 * 2 CPABFLGW FIXED(32), /* LOCKING WORD FIELD -- CONTAINS */ 02100002 * /* FLAGS AND COUNT USED TO LOCK */ 02110002 * /* THE POOL SEGMENT */ 02120002 * 3 CPABSPID CHAR(1), /*SUBPOOL NUMBER OF POOL*/ 02150002 * /*(ZERO IN EXTENSION CPABE)*/ 02160002 * 3 CPABFLGS BIT(8), /*FLAGS*/ 02200002 * 4 NIPBLDCP BIT(1), /*THE ORIGINAL POOL WAS CREATED*/ 02250002 * /*DURING NIP AND CANNOT BE */ 02300002 * /*DELETED*/ 02350002 * 4 BLDDWORD BIT(1), /* CELLS IN THIS POOL MUST BE */ 02400002 * /* ALIGNED ON ANY WORD BOUNDARY. */ 02420002 * 4 ADELCAND BIT(1), /* THIS EXTENT IS A CANDIDATE */ 02500002 * /* FOR AUTOMATIC DELETION*/ 02550002 * 4 CPABEXTN BIT(1), /*FLAGS AN ORIGINAL CPAB (0)*/ 02600002 * /*OR AN EXTENSION CPAB (1)*/ 02610002 * 4 DELETELK BIT(1), /*INDICATES THAT THIS SEGMENT*/ 02620002 * /* IS BEING DELETED */ 02630002 * 4 SERIAL BIT(1), /* CALLER HAS GUARANTEED 02633003 * SERIALIZATION @ZA28730*/ 02636003 * 3 CPABUSE# FIXED(15), /*NUMBER OF CURRENT OPERATIONS */ 02640002 * /* ON THIS SEGMENT AT THIS TIME */ 02642002 * 2 CPABSTAD PTR(31), /* START ADDRESS OF THIS SEGMENT*/ 02650002 * 2 CPABENAD PTR(31), /* END ADDRESS OF THIS SEGMENT*/ 02700002 * 2 CPABNXTP PTR(31); /*PTR TO NEXT CPABE*/ 02750002