/********************************************************************/ 00010003 /* */ 00020003 /* MACRO NAME = IDAOCECN */ 00030003 /* */ 00040003 /* DESCRIPTIVE NAME = CONSTANTS USED BY OPEN/CLOSE/EOV MODULES. */ 00042003 /* */ 00044003 /* FUNCTION = THESE ARE SOME CONSTANTS AND REGISTERS COMMONLY */ 00046003 /* USED BY THE OPEN/CLOSE/EOV MODULES. */ 00048003 /* */ 00048403 /* CONTROL BLOCK STRUCTURE = NONE */ 00048803 /* */ 00049203 /* INCLUDED MACROS = NONE */ 00049603 /* */ 00049703 /* METHOD OF ACCESS = PL/S - NO DECLARES NECESSARY */ 00049803 /* */ 00049903 /* CREATED BY: N/A */ 00066603 /* */ 00076603 /* STATUS = VS1 RELEASE 4, VS2 RELEASE 3. */ 00078603 /* */ 00080603 /* DATE OF LAST CHANGE = 2 AUGUST 74 */ 00082603 /* */ 00083003 /********************************************************************/ 00083103 /* REGISTER DECLARES */ 00083303 DCL (R0 REG(00), R1 REG(01)) PTR(31) UNRESTRICTED;/* WORK REGISTERS*/00100004 DCL (RACB REG(02), /* PTR TO ACB */ 00150004 RBASEA REG(03), /* BASE REGISTER */ 00200004 (RBASEB,R12) REG(12), /* BASE REGISTER */ 00250004 R13 REG(13), /* PTR TO SAVE AREA */ 00300004 (RCORE,R4) REG(04)) /* PTR TO OPEN/CLOSE WKAREA */ 00350004 PTR(31) RESTRICTED; 00400004 DCL (R5 REG(05), /* WORK REGISTER */ 00450004 R6 REG(06), /* WORK REGISTER */ 00500004 R7 REG(07), /* WORK REGISTER */ 00550004 R8 REG(08), /* WORK REGISTER */ 00600004 (RTIOT, /* POINTER TO TIOT */ 00650004 R9) REG(09), /* WORK REGISTER */ 00700004 (RUCB, /* PTR TO UCB */ 00750004 R10) REG(10), /* WORK REGISTER */ 00800004 (RDEB, /* PTR TO DEB */ 00850004 R11) REG(11), /* WORK REGISTER */ 00900004 RET REG(14), /* RETURN REGISTER */ 00950004 (RETCODE,R15)REG(15)) /* RETURN CODE REGISTER */ 01000004 PTR(31) UNRESTRICTED; /* WORK REGISTERS */ 01050004 /* CONSTANT DECLARES */ 01100004 DCL (ON CONSTANT('1'B), /* INDIC BIT IS SET TO 1 */ 01200004 OFF CONSTANT('0'B)) BIT(1); /* INDIC BIT IS SET TO 0*/ 01250004 DCL (DWORDLEN CONSTANT(8), /* BYTE LENGTH OF DWORD */ 01300004 FWORDLEN CONSTANT(4), /* BYTE LENGTH OF WORD */ 01350004 HWORDLEN CONSTANT(2)) FIXED; /* BYTE LENGTH OF HWORD */ 01400004 DCL (FIX CONSTANT(0), 01450004 NOFIX CONSTANT(4)) FIXED; 01500004 DCL (EXFGON CONSTANT('0'B), /* USER EXIT */ 01550004 EXFGOFF CONSTANT('1'B)) BIT(1); /* USER EXIT NOT IN PROGRESS */ 01600004 DCL (OP1 CONSTANT(4), 01650004 CLM CONSTANT(8), 01700004 OPO CONSTANT(12), 01750004 OPP CONSTANT(16), 01800004 VLT CONSTANT(20), 01850004 CLR CONSTANT(24), 01900004 DUM CONSTANT(28), 01910004 PRE CONSTANT(32), 01950004 RCM CONSTANT(36), 02000004 CLD CONSTANT(40), 02050004 OP2 CONSTANT(44), 02100004 CLC CONSTANT(48)) FIXED; 02150004 %IF ENV='VS2' %THEN 02160004 %GOTO IDAOCE1; 02170004 DCL PAGE CONSTANT(2048) FIXED(31); /* VS1 PAGE SIZE */ 02180004 DCL (RDEBPOOL CONSTANT(234), /* SUBPOOL FOR REAL DEB */ 02200004 DDEBPOOL CONSTANT(252), /* SUBPOOL FOR DUMMY DEB */ 02250004 FIXDPOOL CONSTANT(234), /* SUBPOOL FOR FIXED CORE */ 02300004 FIXSTRPL CONSTANT(234), /* SUBPOOL FOR FIXED STRING BLK */ 02350004 FIXUPGPL CONSTANT(234), /* SUBPOOL FOR FIXED UPGRADE STR */ 02360004 CATPOOL CONSTANT(241), /* CATALOG BLOCK SUBPOOL */ 02400004 PRTSPPL CONSTANT(252), /* SUBPOOL FOR PROTECTED SPHERE BLK*/02400404 %GOTO IDAOCE2; 02402004 %IDAOCE1: ; 02404004 DCL PAGE CONSTANT(4096) FIXED(31); /* VS2 PAGE SIZE */ 02406004 DCL (RDEBPOOL CONSTANT(230), /* SUBPOOL FOR REAL DEB */ 02410004 DDEBPOOL CONSTANT(230), /* SUBPOOL FOR DUMMY DEB */ 02420004 FIXDPOOL CONSTANT(245), /* SUBPOOL FOR FIXED CORE */ 02430004 FIXSTRPL CONSTANT(245), /* SUBPOOL FOR FIXED STRING BLK */ 02440004 FIXUPGPL CONSTANT(245), /* SUBPOOL FOR FIXED UPGRADE STR */ 02442004 CATPOOL CONSTANT(231), /* CATALOG BLOCK SUBPOOL */ 02442404 FCATPOOL CONSTANT(231), /* FETCH PROTECTED CATALOG BLOCK */ 02444004 SCATPOOL CONSTANT(241), /* STORE PROTECTED CATALOG BLOCK */ 02444404 PRTSPPL CONSTANT(241), /* SUBPOOL FOR PROTECTED SPHERE BLK*/02444804 GSRSPOOL CONSTANT(241), /* SUBPOOL FOR GSR CONTROL BLKS. */ 02445204 %IDAOCE2: ; 02446004 WKPOOL CONSTANT(252), /* SUBPOOL FOR GENERAL USE */ 02450004 EDBPOOL CONSTANT(252), /* SUBPOOL FOR EDB */ 02460004 VATPOOL CONSTANT(252), /* SUBPOOL FOR VAT */ 02500004 SPBLKPL CONSTANT(250), /* SUBPOOL FOR SPHERE BLK */ 02550004 VMTPOOL CONSTANT(252), /* SUBPOOL FOR VMT */ 02650004 BIBPOOL CONSTANT(252), /* SUBPOOL FOR BIB */ 02700004 USERPOOL CONSTANT(250), /* SUBPOOL FOR USER BLK */ 02750004 PRTBLKPL CONSTANT(252), /* PROTECTED USER BLK */ 02800004 STRBLKPL CONSTANT(250), /* SUBPOOL FOR STRING BLOCK */ 02850004 UPSTRPL CONSTANT(250), /* SUBPOOL FOR UPGRADE STR BLK */ 02950004 BFRPOOL CONSTANT(250), /* SUBPOOL FOR BUFFER BLOCK */ 03050004 UPGBFRPL CONSTANT(250), /* SUBPOOL FOR UPGRADE BFR BLK */ 03100004 CMBPOOL CONSTANT(252), /* SUBPOOL FOR CMB */ 03150004 WSHDPL CONSTANT(250), /* SUBPOOL FOR WSHD */ 03160004 AMBLPOOL CONSTANT(252)) FIXED; /* SUBPOOL FOR AMBL */ 03200004