TITLE 'DFH$STAS - ' 00640000 *********************************************************************** 00680000 * * 00760000 * MODULE NAME = DFH$STAS * 00840000 * * 00920000 * DESCRIPTIVE NAME = Access MVS Storage Areas Sample * 01000000 * * 01080000 * 5655-018 * 01133300 * COPYRIGHT = NONE * 01186600 * * 01240000 * STATUS = 3.3.0 * 01320000 * * 01400000 *---------------------------------------------------------------------* 01480000 * * 01560000 * DESCRIPTION : * 01640000 * * 01720000 * This program is part of the set of sample programs illustrating the * 01800000 * use of CICS/ESA INQUIRE and COLLECT STATISTICS commands. It is * 02400000 * called by the main program DFH0STAT to obtain information on MVS * 03000000 * storage usage. This information is used in the STORAGE-STATISTICS * 03600000 * section of the DFH0STAT program. * 04800000 * * 04900000 *---------------------------------------------------------------------* 05000000 * * 05100000 * CHANGE ACTIVITY : * 05200000 * $SEG(DFH$STAS),COMP(SAMPLES),PROD(CICS/ESA): * 05250000 * * 05300000 * PN= REASON REL YYMMDD HDXIII : REMARKS * 05400000 * $P0= 311 900228 : Created. * 05500000 * $P1= M90474 330 910807 HDBWSH : Prologue fixed. * 05550000 * * 05600000 *********************************************************************** 05800000 R0 EQU 0 06600000 R1 EQU 1 07200000 R2 EQU 2 07800000 R3 EQU 3 08400000 R4 EQU 4 09000000 R5 EQU 5 09600000 R6 EQU 6 10200000 R7 EQU 7 10800000 R8 EQU 8 11400000 R9 EQU 9 12000000 R10 EQU 10 12600000 R11 EQU 11 13200000 R12 EQU 12 13800000 R13 EQU 13 14400000 R14 EQU 14 15000000 R15 EQU 15 15600000 EJECT 16200000 IEZBITS 16210000 EJECT 16220000 ********************************************************************** 16230000 * Communication Vector Table * 16240000 ********************************************************************** 16250000 CVT DSECT=YES,LIST=NO,PREFIX=YES 16260000 EJECT 16280000 ********************************************************************** 16300000 * Prefixed Save area * 16400000 ********************************************************************** 16600000 IHAPSA DSECT=YES,LIST=NO 16800000 EJECT 17400000 ********************************************************************** 17500000 * Address space control block * 17600000 ********************************************************************** 17800000 IHAASCB DSECT=YES,LIST=NO 18000000 EJECT 18600000 ********************************************************************** 18700000 * Address space extension block * 18800000 ********************************************************************** 19000000 IHAASXB DSECT=YES,LIST=NO 19200000 EJECT 19800000 ********************************************************************** 19900000 * Task control block * 20000000 ********************************************************************** 20200000 IKJTCB DSECT=YES,LIST=NO 20400000 EJECT 21000000 ********************************************************************** 21100000 * SMF timing control table definition * 21200000 ********************************************************************** 21400000 IEFTCT DSECT=YES 21600000 EJECT 25100000 ********************************************************************** 25130000 * The following DSECT describes the area which is passed between * 25160000 * this program and DFH0STAT, the calling program. This DSECT must * 25190000 * match the 01 structure STATASCB-FIELDS in program DFH0STAT. * 25220000 ********************************************************************** 25250000 ASCB_FIELDS DSECT 25280000 MVS_RELEASE DS CL8 25290000 ADSP_TCTLWM DS F 25310000 ADSP_TCTHWM DS F 25340000 ADSP_TCTELWM DS F 25370000 ADSP_TCTEHWM DS F 25400000 REGN_SZE_BELOW DS F 25430000 REGN_SZE_ABOVE DS F 25460000 REGN_SZE_ESTAB DS F 25490000 EJECT 25760000 DFHEISTG DSECT 25800000 EJECT 26500000 DFH$STAS AMODE 31 27200000 DFH$STAS RMODE ANY 27900000 DFH$STAS DFHEIENT CODEREG=(R11),EIBREG=(R9) 28600000 L R2,DFHEICAP GET CALLERS COMMAREA 29300000 USING ASCB_FIELDS,R2 29600000 SPACE 29670000 *********************************************************************** 29740000 * Locate the PSA (prefix storage area at location zero) * 29810000 * Locate the CVT and back off to the CVT prefix * 29880000 * Copy the MVS/SP release information * 29950000 *********************************************************************** 30020000 SPACE 30090000 USING PSA,0 ADDRESSABILITY TO PSA AT LOC 0 30160000 L R4,FLCCVT ADDRESS OF THE CVT 30230000 S R4,=A(CVTMAP-CVTFIX) BACK OFF TO PREFIX 30300000 USING CVTFIX,R4 ADDRESSABILITY 30380000 MVC MVS_RELEASE,CVTPRODN GET THE MVS/SP RELEASE 30460000 DROP 0,R4 DONE WITH PSA AND CVT 30540000 SPACE 30620000 *********************************************************************** 30700000 * Locate the PSA (prefix storage area at location zero) * 31000000 * Locate the current TCB (from PSATOLD) * 31400000 * Locate the Storage Information within Timing Control Table * 31700000 *********************************************************************** 32100000 SPACE 32800000 USING PSA,0 ADDRESSABILITY TO PSA AT LOC 0 33500000 L R4,PSATOLD ADDRESS CURRENT TCB 34200000 DROP 0 DONE WITH PSA 34900000 USING TCB,R4 ADDRESSABILITY 35600000 L R5,TCBTCT TIMING CONTROL TABLE ADDRESS 36300000 USING SMFTCT,R5 ADDRESSABILITY 37000000 L R6,TCTCRTBL ADDRESS OF STORAGE INFORMATION 37700000 USING TCTCORE,R6 38400000 SPACE 39100000 *********************************************************************** 39800000 * Extract the Region storage details * 40500000 * (NB. This information is the same as that output in message * 40600000 * IEF274I at Job Step termination and also output in the SMF * 40800000 * Record Type 30) * 41000000 *********************************************************************** 41200000 SPACE 41900000 MVC ADSP_TCTLWM,TCTLWM LOW PRIVATE BELOW - LWM 42600000 MVC ADSP_TCTHWM,TCTHWM HIGH PRIVATE BELOW - HWM 43300000 MVC ADSP_TCTELWM,TCTELWM LOW PRIVATE ABOVE - LWM 44000000 MVC ADSP_TCTEHWM,TCTEHWM HIGH PRIVATE ABOVE - HWM 44700000 MVC REGN_SZE_BELOW,TCTRGNB REGION SIZE BELOW 45400000 MVC REGN_SZE_ABOVE,TCTERGNB REGION SIZE ABOVE 46100000 MVC REGN_SZE_ESTAB,TCTRSZ REGION SIZE ESTABLISHED 46800000 SPACE 47500000 DROP R5,R6 48200000 SPACE 48900000 RETURN DS 0H 96500000 EXEC CICS RETURN 97200000 SPACE 97900000 LTORG 98600000 END 99300000