/********************************************************************/ 00002004 /* */ 00004004 /* MACRO NAME = IDAOPWRK */ 00006004 /* */ 00008004 /* DESCRIPTIVE NAME = VSAM OPEN ACB WORK AREA. */ 00010004 /* */ 00012004 /* FUNCTION = THIS MACRO DEFINES THE STRUCTURE OF THE OPEN VSAM */ 00014004 /* ACB WORK AREA. THE ACB WORK AREA IS THE COMMON WORK */ 00016004 /* AREA USED BY VSAM OPEN ROUTINES. */ 00018004 /* */ 00020004 /* CONTROL BLOCK STRUCTURE = THE ACB WORK AREA IS POINTED TO BY */ 00022004 /* REGISTER 4 (RCORE). */ 00024004 /* */ 00026004 /* INCLUDED MACROS = NONE */ 00028004 /* */ 00030004 /* METHOD OF ACCESS = PL/S - NO DECLARES NECESSARY */ 00032004 /* */ 00034004 /* CREATED BY: VSAM OPEN MODULE IDA0192A. */ 00036004 /* */ 00038004 /* STATUS = VS2 RELEASE 4 @Z40ESSR*/ 00040004 /* */ 00042004 /* DATE OF LAST CHANGE = 7/22/75 @Z40WSRL*/ 00044004 /* */ 00046004 /********************************************************************/ 00048004 DECLARE 00050003 1 IDAOPWRK BASED(RCORE), /* ACB WORK AREA */ 10800003 3 OPWSUBPL FIXED(8), /* SUBPOOL OF WORK AREA */ 11700003 3 OPWLENTH FIXED(24), /* LENGTH OF WORK AREA */ 12600003 3 OPWID CHAR(8), /* BLOCK IDENTIFIER */ 13500003 3 OPWFLGS1 BIT(8), /* SPHERE FLAGS FOR SYSTEM DATA 14400003 SETS */ 14402004 5 OPWCAT BIT(1), /* CATALOG OPEN */ 15300003 5 OPWSCRA BIT(1), /* SYS CATLG RECOVERY AREA OPEN */ 17100003 5 OPWVVIC BIT(1), /* VVIC DATA SET */ 17100403 6 OPWSDS BIT(1), /* IND SYSTEM DATA SET @Z40WSRL*/ 17100804 5 * BIT(5), /* RESERVED FOR SYSTEM DATA SETS */ 17102003 3 OPWFLGS2 BIT(8), /* SPHERE FLAGS NON-SYSTEM 18004003 DATA SETS */ 18006004 5 OPWUCRA BIT(1), /* USER CATLG RECOVERY AREA OPEN */ 18008003 5 OPWIXDT BIT(1), /* INDEX BEING OPENED AS AN ESDS */ 18010003 5 OPWAIXDT BIT(1), /* AIX OPENED FOR END USE */ 18012003 5 OPWDUMMY BIT(1), /* OPEN DUMMY DATA SET */ 18012403 5 * BIT(4), /* RESERVED */ 18014003 3 OPWFLGS3 BIT(8), /* INDICATORS FOR IDA0192F */ 18016003 5 OPWDAVAT BIT(1), /* DUMMY AMBL ADDED TO VAT */ 18018003 5 OPWPUPGR BIT(1), /* PATH ALSO IN UPGRADE SET */ 18020003 5 OPWUPGOP BIT(1), /* UPGRADE SET OPENED */ 18022003 5 OPWNOWRK BIT(1), /* MOD WORK AREA DOES NOT EXIST */ 18022403 5 OPWRSTRT BIT(1), /* RESTART IN PROGRESS */ 18022803 5 * BIT(3), /* UNUSED */ 18024003 3 OPWFLGS4 BIT(8), /* AUTHORIZATION LEVEL */ 20702003 5 OPWFULL BIT(1), /* FULL ACCESS */ 20704003 5 OPWCINV BIT(1), /* CONTROL INTERVAL ACCESS */ 20706003 5 OPWUPD BIT(1), /* UPDATE ACCESS */ 20708003 5 * BIT(5), /* NOT USED */ 20710003 3 OPWBIB PTR(31), /* PTR TO BIB */ 20712003 3 OPWCOMWA PTR(31), /* PTR TO OPEN COMMON WORK AREA */ 20712403 3 OPWIDF, /* CLUSTER IDENTIFIER */ 20714003 5 OPWCACB PTR(31), /* ADDRESS OF CATALOG ACB */ 20716003 5 OPWDCI PTR(24) BDY(WORD), /* CINV NO. OF DATA COMP */ 20718003 5 OPWQ BIT(8), /* QUALIFIER FOR TYPE OF OPEN */ 20720003 7 OPWDDC BIT(1), /* CONNECT BY DD NAME */ 20722003 7 OPWGSR BIT(1), /* OPENED FOR GSR */ 20724003 7 OPWLSR BIT(1), /* OPENED FOR LSR */ 20724403 7 OPWFSTP BIT(1), /* OPENED FOR ICI */ 20724803 7 OPWUBF BIT(1), /* OPENED FOR USER BUFFERING */ 20725203 7 OPWKSDS BIT(1), /* OPENED AS KSDS */ 20725603 7 OPWESDS BIT(1), /* OPENED AS ESDS */ 20725703 7 OPWDFR BIT(1), /* OPENED WITH DEFER WRT OPTION */ 20727003 3 OPWVSMPL, /* O/C/EOV VIRTUAL STORAGE 20727503 MANAGER (VSM) PARAMETER LIST */ 20728003 5 OPWVMANC PTR(31), /* PTR TO ANCHOR BLOCK */ 20730003 5 OPWVMSP FIXED(8), /* SUBPOOL FOR DIRECT REQUEST */ 20732003 5 OPWVMLNG FIXED(24), /* AMOUNT OF STORAGE REQUESTED */ 20736003 5 OPWVMADR PTR(31), /* ADDR OF GOTTEN STORAGE, ZERO 20738003 IF STORAGE NOT OBTAINED */ 20740003 5 OPWVMTYP FIXED(8), /* REQUEST TYPE */ 20740403 5 OPWVMFLG BIT(8), /* INDICATOR FLAGS */ 20742003 7 OPWVMPGB BIT(1), /* GET STORAGE ON A PAGE BNDY */ 20744003 7 OPWVMKE5 BIT(1), /* GET STORAGE IN KEY 5 */ 20746003 7 OPWVMDXK BIT(1), /* GET STORAGE IN GSR KEY 20748004 NOTE - IF NOT KEY 5 & NOT GSR, 20750004 GET CORE IN KEY 0 @Z40ESSR*/ 20752004 7 OPWVMSRB BIT(1), /* IND THIS IS A SPECIAL REQ BLK */ 20754403 7 OPWVMNSL BIT(1), /* DO NOT BLD A CSL FOR THIS REQ */ 20754803 7 OPWVMTCB BIT(1), /* CORE IS TO BE OWNED BY JOBSTEP 20755203 TCB */ 20756003 5 * CHAR(2), /* NOT USED */ 20758003 3 OPWVSMWA, /* O/C/EOV VSM WORK AREA */ 20760003 5 OPWVANCP PTR(31), /* PTR TO ADDR OF FIRST HEB HDR 20762003 ELEM ASSOCIATED WITH THIS REQ */ 20764003 5 OPWVTBLP PTR(31), /* PTR TO REQUEST TABLE USED BY 20766003 THE GETSPACE ROUTINE */ 20768003 5 OPWVCSLP PTR(31), /* USED TO SCAN FOR A CSL ENTRY */ 20768403 5 OPWVCSLE PTR(31), /* POINTER TO CSL ENTRY */ 20770003 5 OPWVHDRE PTR(31), /* POINTER TO HDR ELEMENT */ 20772003 5 OPWVR13 PTR(31), /* SAVE AREA ADDRESS SAVE AREA */ 20772403 5 OPWVSAVE(4) FIXED(31), /* SAVE AREA FOR IDA0192M */ 20774003 5 OPWVGSPL(3), /* GET SPACE PARAMETER LISTS */ 20776003 7 OPWVGSSP FIXED(8), /* SUBPOOL NUMBER */ 20778003 7 OPWVGETL FIXED(24), /* LENGTH OF GOTTEN CORE */ 20780003 7 OPWVGSPT PTR(31), /* POINTER TO GOTTEN CORE */ 20782003 7 OPWVGFLG BIT(8), /* FLAGS FOR GET SPACE REQUEST - 20784003 SEE OPWVMFLG ABOVE FOR A 20786003 DESCRIPTION OF BIT SETTINGS */ 20788003 7 OPWVREQL FIXED(24), /* LENGTH OF REQUEST */ 20798003 5 OPWVANCS PTR(31), /* BIB ANCHOR PTR FOR SPHERE 20802403 BLOCK REQUESTS */ 20802803 5 OPWVLSAV, /* SAVE AREA FOR SETLOCK */ 20803203 7 OPWVRG12 PTR(31), /* SAVE AREA FOR REG 12 */ 20803603 7 OPWVRG13 PTR(31), /* SAVE AREA FOR REG 13 */ 20803703 5 OPWVFMPL, /* FREEMAIN PARAMETER LIST */ 20804003 7 OPWVFMSP FIXED(8), /* FREEMAIN SUBPOOL NUMBER */ 20806003 7 OPWVFMLN FIXED(24), /* FREEMAIN LENGTH */ 20808003 7 OPWVFMPT PTR(31), /* FREEMAIN POINTER */ 20810003 3 OPWSAVE, /* PTR'S TO SAVE LISTS */ 20816003 5 OPWCSL PTR(31), /* PTR TO CORE SAVE LIST */ 20818003 5 OPWESL PTR(31), /* PTR TO ENQ SAVE LIST */ 20820003 5 OPWPSL PTR(31), /* PTR TO PAGE FIX SAVE LIST */ 20822003 5 OPWDSL PTR(31), /* PTR TO DEB SAVE LIST */ 20824003 5 OPWSSL PTR(31), /* PTR TO SWAP SAVE LIST */ 20826003 3 OPWCURPT PTR(31), /* PTR TO CLUSTER BEING PROCESSED*/ 21600003 3 OPWXAMBL PTR(31), /* PTR TO CURRENT AMBL */ 23400003 3 OPWCAMBL PTR(31), /* PTR TO AMBL CONNECTING TO */ 24300003 3 OPWBCON PTR(31), /* PTR TO BASE AMBL CONNECTING TO*/ 25200003 3 OPWPCON PTR(31), /* PTR TO PATH AMBL CONNECTING TO*/ 27000003 3 OPWBAMBL PTR(31), /* PTR TO AMBL FOR BASE */ 28800003 3 OPWPAMBL PTR(31), /* PTR TO AMBL FOR PATH */ 29700003 3 OPWCRA CHAR(6), /* CRA VOLUME SERIAL NUMBER */ 29702003 3 * CHAR(1), /* NOT USED */ 29704003 3 OPWCATTR CHAR(1), /* MVM CLUSTER ATTR FLAG */ 29754003 5 * BIT(6), /* NOT USED @Z40WSRL*/ 29804004 5 OPWSWSP BIT(1), /* SWAP SPACE @Z40WSRL*/ 29814004 5 OPWPSDS BIT(1), /* PAGE SPACE DATA SET */ 29854003 3 OPWUPT PTR(31), /* PTR TO UPT */ 30600403 3 OPWUACB PTR(31), /* PTR TO USER ACB */ 31500003 3 OPWWRKPT PTR(31), /* PTR TO CURRENT AMBWK AREA */ 36050003 3 OPWDTWRK PTR(31), /* PTR TO DATA AMB WORK AREA */ 36900003 3 OPWIXWRK PTR(31), /* PTR TO INDEX AMB WORK AREA */ 37800003 3 OPWCTCB PTR(31), /* PTR TO CURRENT TCB */ 38700003 3 OPWJSTCB PTR(31), /* PTR TO JOB STEP TCB */ 39600003 3 OPWTIOT PTR(31), /* PTR TO TIOT ENTRY */ 39602003 3 OPWBUFND FIXED(31), /* NUMBER OF DATA BUFFERS */ 39652003 3 OPWBUFNI FIXED(31), /* NUMBER OF INDEX BUFFERS */ 39654003 3 OPWCSTRN FIXED(8), /* CURRENT STRING NUMBER */ 40500003 3 OPWSTRNO FIXED(8), /* PATH STRING NO. IF PATH 41400003 PROCESSING OTHERWISE BASE */ 42300004 3 OPWBSTRN FIXED(8), /* BASE STRING NO. IF PATH 43200003 PROCESSING */ 44100004 3 * CHAR(1), /* NOT USED */ 44150003 3 OPWDACB CHAR(52), /* DUMMY ACB FOR OPENING BASE */ 69300003 3 OPWSFI CHAR(12), /* SUB-FUNCTION INFORMATION */ 69350003 3 OPWERMAP CHAR(256), /* PPCODE TO ACBERFLG MAP */ 69352003 3 OPWSAVEA PTR(31), /* SAVE AREA FOR RETURN ADDRESS */ 69354003 3 OPWBSECL, /* BASE CLUSTER INFORMATION */ 70200003 5 * BIT(8), /* RESERVED FOR FLAGS */ 71100003 5 OPWBDTCI PTR(24), /* BASE DATA CINV NUMBER */ 72000003 5 * BIT(8), /* RESERVED FOR FLAGS */ 72900003 5 OPWBIXCI PTR(24), /* BASE INDEX CINV NUMBER */ 73800003 3 OPWPTAIX, /* PATH AIX INFORMATION */ 74700003 5 * BIT(8), /* RESERVED FOR FLAGS */ 75600003 5 OPWPDTCI PTR(24), /* PATH AIX DATA CINV NUMBER */ 76500003 5 * BIT(8), /* RESERVED FOR FLAGS */ 77400003 5 OPWPIXCI PTR(24), /* PATH AIX INDEX CINV NUMBER */ 78300003 3 OPWNOUPG FIXED(8), /* NO. OF UPGRADE AIX'S */ 79200003 3 OPW2YPLH PTR(24), /* PLHNXT PTR FOR 2Y/2Z. */ 80100003 3 OPWUPAIX (*), /* UPGRADE AIX INFORMATION */ 81000003 5 * BIT(8), /* RESERVED FOR FLAGS */ 81900003 5 OPWUDTCI PTR(24), /* UPGRADE AIX DATA CINV NUMBER */ 82800003 5 * BIT(8), /* RESERVED FOR FLAGS */ 83700003 5 OPWUIXCI PTR(24); /* UPGRADE AIX INDEX CINV NUMBER */ 84600003 84602003 /*****************************************************************/ 84604003 /* MAP FOR REFERENCING CURRENT CLUSTER INFORMATION */ 84606003 /*****************************************************************/ 84608003 DECLARE 85500003 1 OPWCURCL BASED(OPWCURPT), /* CLUSTER INFORMATION MAP */ 86400003 2 OPWCFLG1 BIT(8), /* CLUSTER FLAGS SET BY SPHERE 87300003 OPEN */ 88200004 3 OPWBASE BIT(1), /* OPEN BASE CLUSTER */ 89100003 3 OPWPATH BIT(1), /* OPEN PATH AIX */ 90000003 3 OPWUPGR BIT(1), /* OPEN UPGRADE AIX */ 90900003 3 OPWSVWRK BIT(1), /* DON'T FREE AMB WORK AREAS */ 91800003 3 OPWPRTBL BIT(1), /* PARTIAL CONTROL BLOCK BUILD */ 93600003 2 OPWCDTCI PTR(24), /* CINV NO. OF DATA COMPONENT */ 94500003 2 OPWFLG2 BIT(8), /* CLUSTER FLAGS SET BY CLUSTER 95400003 OPEN */ 96300004 3 OPWDOPEN BIT(1), /* OPEN INDR ON IN CTLG FOR DATA */ 97200003 3 OPWMODWK BIT(1), /* MODULE WORK AREA EXISTS */ 98100003 3 OPWEMPUP BIT(1), /* IND EMPTY UPGRADE DS */ 98150003 3 OPWERR2B BIT(1), /* IND TERMINATING ERROR IN 192B */ 98200003 3 OPWIOPEN BIT(1), /* OPEN INDR ON IN CTLG FOR INDX */ 98250003 2 OPWCIXCI PTR(24); /* CINV NO. OF INDEX COMPONENT */ 99000003 99002004 /*****************************************************************/ 99004003 /* THE FOLLOWING CONSTANTS DEFINE THE REQUEST TYPE CODES USED IN*/ 99006003 /* THE VIRTUAL STORAGE MANAGER PARAMETER LIST TO CALL IDA0192M. */ 99008003 /* CODES 0 THROUGH 127 ARE RESERVED FOR REQUESTING SPACE IN */ 99010003 /* CLUSTER RELATED BLOCKS AS THESE CODES ARE USED TO INDEX THE */ 99012003 /* CORRESPONDING HEB HEADER ELEMENT ENTRY IN THE CMB. CODES */ 99014003 /* 128 THROUGH 255 ARE USED FOR ALL OTHER TYPE REQUESTS. */ 99016003 /*****************************************************************/ 99018003 DECLARE /* REQUEST TYPE CODES */ 99020004 USERBLK FIXED(8) CONSTANT(1), /* USER BLOCK */ 99022004 PROTBLK FIXED(8) CONSTANT(2), /* PROTECT BLOCK */ 99024004 STRBLK FIXED(8) CONSTANT(3), /* NON-PROTECTED STRING BLOCK */ 99026003 UPSTRBLK FIXED(8) CONSTANT(4), /* NON-PROT UPGRADE STRING BLK */ 99028003 FXSTRBLK FIXED(8) CONSTANT(5), /* GLOBAL FIXED STRING BLOCK */ 99030003 FUSTRBLK FIXED(8) CONSTANT(6), /* GLBL UPGRADE FIXED STRING BLK*/ 99032003 BFRBLK FIXED(8) CONSTANT(7), /* BUFFER BLOCK */ 99034004 UPBFRBLK FIXED(8) CONSTANT(8), /* UPGRADE BUFFER BLOCK */ 99036004 DEBBLK FIXED(8) CONSTANT(9), /* DEB BLOCK */ 99038004 EDBBLK FIXED(8) CONSTANT(10), /* EDB BLOCK */ 99040004 PRSTRBLK FIXED(8) CONSTANT(11), /* PROTECTED STRING BLK */ 99040403 PRUSTRBK FIXED(8) CONSTANT(12), /* PROT UPGR STRING BLK */ 99040803 FIXEDBLK FIXED(8) CONSTANT(13), /* FIXED BLOCK @ZA04718*/ 99041603 SPHBLK FIXED(8) CONSTANT(128), /* SPHERE BLOCK */ 99059603 PRSPHBLK FIXED(8) CONSTANT(129), /* PROTECTED SPHERE BLOCK */ 99065403 FREECLSP FIXED(8) CONSTANT(130), /* FREE EXCESS SPACE IN CLUSTER 99071203 RELATED BLOCKS */ 99077003 FREESPH FIXED(8) CONSTANT(131), /* FREE EXCESS SPACE IN SPHERE 99082803 BLOCKS */ 99088603 ERRCLNUP FIXED(8) CONSTANT(132), /* PERFORM ERROR CLEAN UP */ 99094403 DIRCTREQ FIXED(8) CONSTANT(133), /* DIRECT REQUEST FOR CORE */ 99100203 PSAMBLBK FIXED(8) CONSTANT(134), /* PROTECTED AMBL BLOCK */ 99106003 FREESREQ FIXED(8) CONSTANT(135); /* FREE SPECIAL REQ BLKS */ 99156003