*/********************************************************************/ 00002033 */* */ 00004033 */* MACRO NAME = SMWKRSCB */ 00006033 */* */ 00008033 */* MICROFICHE NAME = IHASDRSB */ 00010033 */* */ 00012033 */* DESCRIPTIVE NAME = SUMMARY DUMP REAL STORAGE CONTROL BLOCK */ 00014033 */* */ 00016033 */* STATUS = OS/VS2 RELEASE 3.7 PLUS SU33 2/10/77 @G33VPHD*/ 00018033 */* */ 00020033 */* FUNCTION = IHASDRSB IS A MAPPING MACRO WHICH MAPS THE */ 00022033 */* PART OF THE SUMMARY DUMP WORK AREA USED BY THE REAL */ 00024033 */* STORAGE MANAGEMENT FUNCTION (RSM). THE SMWKRSCB IS */ 00026033 */* USED BY RSM DURING A SUMMARY SVC DUMP REQUEST TO */ 00028033 */* CONTAIN IMPORTANT ADDRESSES AND COUNTERS WHICH */ 00030033 */* DESCRIBE THE REAL STORAGE BUFFER OBTAINED BY RSM FOR */ 00032033 */* SUMMARY DUMP USE. THIS MAPPING MAPS THE AREA NAMED */ 00034033 */* SMWKRSM IN THE IHASMWK MAPPING MACRO FOR THE SUMMARY */ 00036033 */* DUMP WORK AREA (SMWK). */ 00038033 */* */ 00040033 */* METHOD OF ACCESS= */ 00042033 */* BAL - DSECT IS ALWAYS PRODUCED. USING ON SMWKRSCB */ 00044033 */* GIVES ADDRESSABILITY TO ALL SYMBOLS. CVTRTMCT */ 00046033 */* POINTS TO THE RTCT. RTCTSDSW POINTS TO THE SMWK. */ 00050033 */* SMWKRSM IS MAPPED BY THIS MACRO. */ 00053033 */* PLS/2- INCLUDE IHASDRSB FROM SYSLIB. ALSO INCLUDE IHASMWK */ 00056033 */* TO DEFINE SMWKRSM FIELD. INCLUDE CVT AND IHARTCT */ 00059033 */* TO DEFINES BASE FOR SMWK. BASE SMWKRSCB ON THE */ 00062033 */* ADDRESS OF SMWKRSM TO GET ADDRESSABILITY. */ 00065033 */* */ 00068033 */* NOTES = INCLUDE THIS MAPPING PRIOR TO INCLUDING IHASMWK */ 00071033 */* SINCE IHASMWK USES THE LENGTH OF THIS MAPPING. */ 00074033 */* */ 00077033 */* SIZE = DECIMAL 416, X'1A0' */ 00080033 */* */ 00083033 */********************************************************************/ 00086033 * %GOTO SDRSBPLS; /* BILINGUAL MAPPING @G33VPHD*/ 00089033 MACRO 00100033 IHASDRSB 00150033 SMWKRSCB DSECT , BAL MAPPING OF SMWKRSCB 00200033 IEZBIT , SYMBOLIC BIT NAMES 00250033 * SU 33 @G33VPHD 00300033 SMWKFLGA DS B FLAGS FOR RSM INTERFACE 00350033 SMWKEVRY EQU BIT0 1=FREE THE WHOLE REAL STORAGE BUFFER 00400033 SMWKFLGB DS B RESERVED 00450033 SMWKFRHD DS H NUMBER OF REAL FRAMES REQUESTED/HELD 00500033 SMWKFRPT DS F REAL ADDRESS OF FRAME TO BE FREED 00550033 SMWKTSDS DS A ADDRESS OF SUM DUMP STEAL BACK 00600033 SMWKPRSR DS A ADDRESS OF RSM RETURN ROUTINE 00650033 * THE FOLLOWING TABLE IS COMPOSED OF 100 8-BYTE ENTRIES EACH ONE 00700033 * REPRESENTING 1 FRAME OF THE REAL STORAGE BUFFER 00750033 * 00800033 SMWKRSFM DS 0CL400 TABLE OF REAL STORAGE FRAMES 00850033 SMWKFRMA DS A REAL ADDRESS OF ONE FRAME 00900033 SMWKENTL EQU *-SMWKRSFM DEFINE LENGTH OF ONE TABLE ENTRY 00950033 DS CL392 REMAINING 99 TABLE ENTRIES 01000033 * *** END OF TABLE ******** 01050033 SMWKRSLN EQU *-SMWKRSCB TOTAL LENGTH OF REAL STORAGE CONTROL 01100033 * AREA 01150033 MEND 01200033 *%SDRSBPLS: ; 01250033 *DECLARE 01300033 * 1 SMWKRSCB BASED, /*REAL STORAGE BUFFER CONTROL AREA */ 01350033 * 2 SMWKFLGA BIT(8), /*FLAGS FOR RSM INTERFACE */ 01400033 * 3 SMWKEVRY BIT(1), /*1=FREE THE WHOLE REAL STORAGE BUFFER */ 01450033 * 3 * BIT(7), /* RESERVED */ 01500033 * 2 SMWKFLGB BIT(8), /* RESERVED */ 01550033 * 2 SMWKFRHD BIT(16), /*NUMBER OF REAL STORAGE FRAMES HELD */ 01600033 * 2 SMWKFRPT PTR(31), /*REAL ADDRESS OF FRAME TO BE FREED */ 01650033 * 2 SMWKTSDS PTR(31), /*ADDRESS OF SUM DUMP STEAL BACK */ 01700033 * 2 SMWKPRSR PTR(31), /*ADDRESS OF RSM FRAME RETURN ROUTINE */ 01750033 * 2 SMWKRSFM, /*TABLE OF REAL STORAGE FRAME ADDRESSES */ 01800033 * 3 SMWKFRMA(100) PTR(31); /*REAL ADDRESS OF EACH FRAME */ 01850033 * 01900033