* 00200001 * %GOTO TCTL1; /* 00250001 MACRO 00600001 IEFTCT &DSECT=YES */ 00800001 *%TCTL1 : ; 00850001 * 02400001 */* **************************************************************** */ 02600001 */* */ 03200001 */* SMF TIMING CONTROL TABLE DEFINITION */ 03400001 */* */ 03800001 */* OS/VS2 RELEASE 3.8 @ZA52714*/ 03900003 */* */ 03950001 */* METHOD OF ACCESS */ 04000001 */* BAL - DSECT IS PRODUCED UNLESS DSECT=NO IS SPECIFIED. */ 04050001 */* USING ON SMFTCT GIVES ADDRESSABILITY FOR ALL SYMBOLS.*/ 04100001 */* PL/S - %INCLUDE SYSLIB(IKJTCB) TO DEFINE TCBTCT */ 04150001 */* */ 04160002 */* NOTES */ 04170002 */* THE TCT IS POINTED TO BY THE TCBTCT FIELD, OFFSET 164 */ 04180002 */* DECIMAL, OF THE TASK CONTROL BLOCK (TCB). */ 04190002 */* */ 04192002 */* THE TCT IS COMPOSED OF */ 04194002 */* 1. THE TCT PROPER WHICH CONSISTS OF */ 04196002 */* A. FIELDS UTILIZED BY THE SMF MODULES */ 04198002 */* B. ONE OR TWO STORAGE TABLES DEPENDING UPON THE */ 04198402 */* KINDS OF STORAGE ALLOCATED. */ 04198802 */* 2. THE TCT I/O TABLE CONSISTING OF A TCT I/O LOOKUP TABLE */ 04199202 */* AND A TCT I/O COUNTER TABLE. */ 04199602 */* */ 04199702 */* THE TCT I/O TABLE NEED NOT BE CONTIGUOUS TO THE TCT PROPER. */ 04199802 */* C - TCTTIOT DCL'S FOR VALUES OVER X'7FFF' @ZA52714 */ 04199903 */* **************************************************************** */ 04200001 *%GOTO TCTL2; /* 04250001 SPACE 04400001 IEZBITS , - SYMBOLIC BIT DEFINITIONS 04600001 AIF ('&DSECT' EQ 'NO').NODSCT 04650001 SMFTCT DSECT , - START OF TCT 04700001 AGO .CONT 04750001 .NODSCT ANOP 04760001 DS 0D 04770001 SMFTCT EQU * - START OF TCT 04780001 .CONT ANOP 04790001 SPACE 04792001 TCTQA DS CL3 - QUEUE ADDRESS OF TCT 04800001 TCTEXP DS 0B - JOB/STEP TIME INDICATOR MASK 04850002 TCTSW DS B - TCT SWITCHES 05000001 TCTJSTI EQU BIT0 - TQE JOB/STEP TIME INDICATOR. 05200002 * IF 0, TQE CONTAINS STEP TIME. 05400002 * IF 1, TQE CONTAINS JOB TIME. 05600002 TCTIEX EQU BIT1 - ERROR IN TCT I/O TABLE I/O COUNTS 05650002 * (OS/VS2) MDC017 05670002 TCTRSV02 EQU BIT2,,C'X' - RESERVED 05700001 TCTRSV03 EQU BIT3,,C'X' - RESERVED 05750001 TCTRSV04 EQU BIT4,,C'X' - RESERVED 05760001 TCTRSV05 EQU BIT5,,C'X' - RESERVED 05770001 TCTRSV06 EQU BIT6,,C'X' - RESERVED 05780001 TCTRSV07 EQU BIT7,,C'X' - RESERVED 05790001 TCTTCB DS A - ADDRESS OF THE INITIATOR TCB 06000002 TCTCRTBL DS A - ADDRESS OF THE TCT STORAGE TABLE 06200002 TCTIOTBL DS A - ADDRESS OF THE TCT I/O TABLE. TCT I/O 06400002 * TABLE IS NOT NECESSARILY CONTIGUOUS WITH 06450002 * THE TCT. 06500002 TCTPOOL DS 0F - SUBPOOL/LENGTH FOR TCT PROPER 06600001 DS H - SUBPOOL IN WHICH THE TCT RESIDES 06800002 TCTSZE DS H - SIZE IN BYTES OF THE TCT AND THE TCT 07400002 * STORAGE TABLES 07410002 TCTUTL DS A - ADDRESS OF USER TIME LIMIT ROUTINE 07450001 TCTUDATA DS A - ADDRESS OF A ONE-WORD PARAMETER LIST 07800002 * WHICH POINTS TO THE JOB MANAGEMENT 07850002 * RECORD (JMR) 07900002 TCTJMR DS A - ADDRESS OF THE JOB MANAGEMENT RECORD 08200002 TCTRSV08 DS XL4 - *** TCTUSO FIELD RESERVED IN OS/VS *** 08250002 TCTJSTX DS 0F - AMOUNT OF TIME THAT JOB OR STEP HAS BEEN 08300002 * EXTENDED BY USER EXIT IEFUTL (32-BIT 08350002 * UNSIGNED BINARY NUMBER) (OS/VS2) MDC005 08400002 TCTSTOF DS F - OVERFLOW FIELD FOR USER-SUPPLIED STEP 08600002 * TIME EXTENSIONS (OS/VS1) MDC001 08800002 TCTTJLM DS 0F - CONTAINS REMAINING JOB TIME (32-BIT 08850002 * UNSIGNED BINARY NUMBER) (OS/VS2) MDC006 08900002 TCTSACT DS F - A RUNNING TOTAL OF THE USER-SUPPLIED STEP 09000002 * TIME EXTENSIONS EXPRESSED IN TIMER UNITS 09200002 * (OS/VS1) MDC002 09250002 TCTWLMT DS F - THE JOB OR STEP MAXIMUM WAIT TIME LIMIT 09400002 * AS SPECIFIED IN SMFDEFLT, EXPRESSED IN 09402002 * TIMER UNITS (OS/VS1) 09404002 * RESERVED - SET TO ZERO (OS/VS2) MDC016 09410002 TCTLIN DS F - TSO - COUNT OF LINES OF TERMINAL INPUT 09450001 TCTLOUT DS F - TSO - COUNT OF LINES OF TERMINAL OUTPUT 09500001 TCTAST DS F - THE TIME OF DAY (TO ONE HUNDREDTH OF A 09550002 * SECOND) THAT DEVICE ALLOCATION STARTED 09600002 * ICB365 09610002 TCTPPST DS F - THE TIME OF DAY (TO ONE HUNDREDTH OF A 09650002 * SECOND THAT THE PROBLEM PROGRAM WAS 09700002 * INITIALLY LOADED INTO MAIN STORAGE ICB365 09750002 TCTPGSMF DS 0CL20 - SMF REGION-RELATED STATISTICS 09810002 * (OS/VS1) MDC007 09820002 TCTAJS DS 0F - ACCUMULATED SESSION SERVICE TIME 09830002 * (OS/VS2) (MDC019) YM7459 09840002 TCTPGIN DS F - TOTAL PAGE-INS FOR THIS REGION 09850001 * (INCLUDING SWAP-INS) (OS/VS1) MDC007 09860002 TCTACT DS 0F - ACCUMULATED ACTIVE TIME (OS/VS2) 09870002 * (MDC020) YM7459 09880002 TCTPGOUT DS F - TOTAL PAGE-OUTS FOR THIS REGION 09900001 * (INCLUDING SWAP-OUTS) (OS/VS1) MDC008 09950102 TCTATR DS 0F - ACCUMULATED TRANSACTION RESIDENCY TIME 09953104 * (OS/VS2) (MDC302) @Z40FP9A 09956104 TCTRGNS DS F - TOTAL SWAPS PERFORMED FOR THIS TSO 09960001 * USER (SWAP-INS + SWAP-OUTS) 09970002 * (OS/VS1) MDC009 09972002 TCTSIN DS F - TOTAL PAGES SWAPPED-IN FOR THIS TSO 09980001 * USER (OS/VS1) MDC010 09990002 TCTSOUT DS F - TOTAL PAGES SWAPPED-OUT FOR THIS TSO 09992001 * USER (OS/VS1) MDC011 09994002 TCTCOMZ EQU *-SMFTCT - LENGTH OF TCT COMMON SECTION 10000001 SPACE 10200001 *********************************************************************** 10400001 * * 10402001 * TCT STORAGE TABLES * 10600001 * * 10800001 * A SEPARATE TABLE IS USED TO DESCRIBE EACH TYPE OF STORAGE * 11000001 * OBTAINED FOR A TASK (PROCESSOR STORAGE (HIERARCHY 0) AND * 11200001 * LCS (HIERARCHY 1)) * 11400001 * * 11600001 *********************************************************************** 11800001 SPACE 12000001 TCTCORE EQU * - TCTCRTBL - START OF TCT STORAGE TABLES 12200001 TCTLWM DS A - THE CURRENT HIGHEST ADDRESS ALLOCATED 12400002 * FROM THE BOTTOM OF THE REGION 12450002 TCTHWM DS A - THE CURRENT LOWEST ADDRESS ALLOCATED 12600002 * FROM THE TOP OF THE REGION 12650002 TCTMINC DS H - THE MINIMUM DIFFERENCE (IN 2K BLOCKS) 12800002 * BETWEEN TCTLWM AND TCTHWM. THIS FIGURE 12850002 * REPRESENTS THE UNUSED PORTION OF THE 12900002 * USER'S REGION. 12950002 TCTRSZ DS H - THE ORIGINAL REGION REQUEST EXPRESSED IN 13000002 * 2K BLOCKS 13010002 TCTRBA DS A - FOR A V=V PROBLEM PROGRAM, LOWEST ADDRESS 13050002 * IN PRIVATE AREA. FOR A V=R PROBLEM 13100002 * PROGRAM, LOWEST ADDRESS IN REGION. 13150002 * (OS/VS2) MDC012 13200002 TCTCREZ EQU *-TCTCORE - LENGTH OF A PROCESSOR STORAGE TABLE 13600002 * (MDC018) YM2148 13620002 SPACE 13650001 *********************************************************************** 13700001 * * 13750001 * HIERARCHY 1 STORAGE TABLE * 13760001 * * 13770001 *********************************************************************** 13780001 SPACE 13790001 TCTLCS DS 4F - STORAGE RESERVED FOR HIERARCHY 1 STORAGE 13800001 * TABLE 14000001 TCTBIG EQU *-SMFTCT - COMBINED LENGTH OF TCT COMMON SECTION AND 14200002 * STORAGE TABLES 14250002 SPACE 2 14400001 *********************************************************************** 14600001 * * 14800001 * TCT INPUT/OUTPUT TABLE * 15000001 * * 15200001 * THE TCT I/O TABLE IS COMPOSED OF THE TCT I/O LOOKUP TABLE * 15400001 * AND THE TCT I/O COUNTER TABLE. THE TCT I/O TABLE IS NOT * 15600002 * NECESSARILY CONTIGUOUS TO THE TCT. THE TCTIOTBL FIELD OF * 15650002 * THE TCT POINTS TO IT. * 15700002 * * 15800001 *********************************************************************** 16000001 SPACE 16200001 *********************************************************************** 16400001 * * 16600001 * TCT I/O LOOKUP TABLE * 16800001 * * 17000001 * THE TCT I/O LOOKUP TABLE CONTAINS A COMMON SECTION AND A * 17200001 * DD LOOKUP TABLE ENTRY FOR EACH DD ENTRY IN THE TIOT. * 17400001 * * 17600001 *********************************************************************** 17800001 SPACE 18000001 TCTTIOT EQU * - BEGINNING OF TCT I/O TABLE 18200001 TCTPLEXT DS 0F - SUBPOOL/LENGTH OF TCT I/O TABLE 18400001 DS H - SUBPOOL IN WHICH THE TCT I/O TABLE 18600002 * RESIDES 18650002 TCTSZEXT DS H - SIZE IN BYTES OF TCT I/O TABLE 19200002 TCTSZLKP DS H - NUMBER OF DEVICE ENTRIES IN THE TCT I/O 19400002 * LOOKUP TABLE TIMES 8 19450002 TCTRSV11 DS XL2 - RESERVED 19600001 TCTCOMIO EQU *-TCTTIOT - LENGTH OF TCT I/O TABLE COMMON SECTION 19800001 SPACE 20000001 *********************************************************************** 20200001 * * 20400001 * DD LOOKUP TABLE ENTRY * 20600001 * * 20800001 * A DD LOOKUP TABLE ENTRY IS CREATED FOR EACH DD ENTRY IN * 21000002 * THE TIOT. THE DD LOOKUP TABLE ENTRIES ARE REFERENCED BY * 21050002 * THE SYSTEM MANAGEMENT FACILITIES OPTION CODE TO ENTER THE * 21100002 * TCT I/O COUNTER TABLE AT THE DD ENTRY CONTAINING THE DEVICE * 21150002 * ENTRY FOR THE ACCESSED DEVICE. * 21200002 * * 21400001 *********************************************************************** 21600001 SPACE 21800001 TCTIODSP EQU * - START OF DD LOOKUP TABLE ENTRY 22000001 TCTDCBTD DS H - OFFSET FROM THE TIOT ORIGIN TO THE 22200002 * TIOELNGH FIELD IN THE TIOT ENTRY FOR THE 22250002 * DD STATEMENT ASSOCIATED WITH THE 22300002 * ACCESSED DATA SET 22350002 TCTIOTSD DS H - OFFSET FROM THE TCT I/O TABLE ORIGIN TO 22400002 * THE DD ENTRY, WITHIN THE TCT I/O COUNTER 22450002 * TABLE, ASSOCIATED WITH THE ACCESSED DATA 22500002 * SET 22550002 TCTDCBLE DS F - END OF TCT I/O LOOKUP TABLE (ZEROS) 22600001 SPACE 22800001 *********************************************************************** 23000001 * * 23200001 * TCT I/O COUNTER TABLE * 23400001 * * 23600001 * THE TCT I/O COUNTER TABLE CONSISTS OF ONE DD ENTRY FOR * 23800002 * EACH DD ENTRY IN THE TIOT * 24000001 * * 24200001 *********************************************************************** 24400001 SPACE 24600001 *********************************************************************** 24800001 * * 25000001 * DD ENTRY * 25200001 * * 25400001 * EACH DD ENTRY CONSISTS OF AN 8-BYTE DEVICE ENTRY REPEATED * 25600002 * FOR EACH UCB (DEVICE) ASSOCIATED WITH A DD STATEMENT AND * 25800002 * AN 8-BYTE OUTPUT LIMIT EXTENSION. * 26000002 * * 26200001 *********************************************************************** 26400001 SPACE 26600001 *********************************************************************** 26800001 * * 27000001 * DEVICE ENTRY * 27200001 * * 27400001 *********************************************************************** 27600001 SPACE 27800001 TCTDDENT EQU * - START OF TCT I/O COUNTER TABLE (DEVICE 28000001 * ENTRY) 28200001 TCTUCBP DS H - ADDRESS OF THE UCB ASSOCIATED WITH THIS 28400002 * DEVICE 28450002 TCTSCTR DS FL1 - NUMBER OF DEVICES ASSOCIATED WITH THIS 28600001 * DD STATEMENT. THIS NUMBER REPRESENTS 28800002 * THE NUMBER OF DEVICE ENTRIES WITHIN THIS 28800402 * DD ENTRY. THIS FIELD CONTAINS ZEROS IN 28800802 * ALL BUT ITS FIRST APPEARANCE IN ANY DD 28801202 * ENTRY. 28801602 * X'FF' INDICATES SYSIN DATA SET (OS/VS1). 28802002 * ICB375 28804001 TCTFLGS DS B - FLAG BYTE MDC013 28854002 TCTDDIND EQU X'80' - END OF CONCATENATED DD STRING (OS/VS1) 28904002 * MDC014 28914002 TCTVAMDS EQU X'40' - VAM DATA SET ENTRY. TCTUCBP FIELD IS 28954002 * ZERO WHEN THIS BIT IS ONE. MDC015 28964002 TCTNOCNT EQU X'20' - IF ON, DO NOT COUNT THE EXCP (OS/VS1) 29004004 * (MDC301) @XA09673 29014004 TCTRSV22 EQU X'10',,C'X' - RESERVED 29054002 TCTRSV23 EQU X'08',,C'X' - RESERVED 29104002 TCTRSV24 EQU X'04',,C'X' - RESERVED 29154002 TCTRSV25 EQU X'02',,C'X' - RESERVED 29164002 TCTRSV26 EQU X'01',,C'X' - RESERVED 29174002 TCTDCTR DS F - COUNTER FOR EXCP'S ISSUED AGAINST THIS 29200002 * UCB (DEVICE) 29250002 SPACE 29400001 *********************************************************************** 29600001 * * 29800001 * OUTPUT LIMIT EXTENSION * 30000001 * * 30200001 *********************************************************************** 30400001 SPACE 30600001 TCTRSV10 DS XL4 - *** TCTOUTLM FIELD RESERVED IN OS/VS *** 30850002 TCTEXRLD DS FL1 - A BINARY NUMBER OF EXTENTS RELEASED BY 31400002 * THE DADSM RELEASE ROUTINE. COLLECTED 31450002 * ONLY IF RLSE WAS SPECIFIED IN THE SPACE 31500002 * PARAMETER FOR THIS DATA SET. 31550002 TCTTKRLD DS FL3 - A BINARY NUMBER OF TRACKS RELEASED BY THE 31600002 * DADSM RELEASE ROUTINE. COLLECTED ONLY 31650002 * IF RLSE WAS SPECIFIED IN THE SPACE 31700002 * PARAMETER FOR THIS DATA SET. 31750002 MEND , */ 31800001 *%TCTL2 : ; 32000001 * 35000001 *DECLARE 35050001 * 1 SMFTCT BASED(TCBTCT) BDY(WORD), /* START OF TCT */ 35100001 * 2 TCTQA CHAR(3) BDY(WORD), /* QUEUE ADDRESS OF TCT */ 35200001 * 2 TCTSW BIT(8), /* TCT SWITCHES */ 35400001 * 3 TCTJSTI BIT(1), /* TQE JOB/STEP TIME 35600001 * INDICATOR. IF 0, TQE 35800002 * CONTAINS STEP TIME. IF 36000002 * 1, TQE CONTAINS JOB TIME.*/ 36200002 * 3 TCTIEX BIT(1), /* ERROR IN TCT I/O TABLE 36400002 * I/O COUNTS (OS/VS2) 36410002 * MDC017*/ 36420002 * 3 TCTRSV02 BIT(1), /* RESERVED */ 36450001 * 3 TCTRSV03 BIT(1), /* RESERVED */ 36500001 * 3 TCTRSV04 BIT(1), /* RESERVED */ 36550001 * 3 TCTRSV05 BIT(1), /* RESERVED */ 36600001 * 3 TCTRSV06 BIT(1), /* RESERVED */ 36650001 * 3 TCTRSV07 BIT(1), /* RESERVED */ 36700001 * 2 TCTTCB PTR(31), /* ADDRESS OF THE INITIATOR 37800002 * TCB */ 37850002 * 2 TCTCRTBL PTR(31), /* ADDRESS OF THE TCT 38000002 * STORAGE TABLE */ 38200002 * 2 TCTIOTBL PTR(31), /* ADDRESS OF THE TCT I/O 38400002 * TABLE. TCT I/O TABLE IS 38450002 * NOT NECESSARILY CONTIGUOUS 38500002 * WITH THE TCT. */ 38550002 * 2 TCTPOOL FIXED(31), /* SUBPOOL/LENGTH FOR TCT 38600001 * PROPER */ 38800001 * 3 * FIXED(15), /* SUBPOOL IN WHICH THE TCT 39000002 * RESIDES */ 39050002 * 3 TCTSZE FIXED(15), /* SIZE IN BYTES OF THE TCT 39600002 * AND THE TCT STORAGE 39650002 * TABLES */ 39700002 * 2 TCTUTL PTR(31), /* ADDRESS OF USER TIME 40000001 * LIMIT ROUTINE */ 40200001 * 2 TCTUDATA PTR(31), /* ADDRESS OF A ONE-WORD 40400002 * PARAMETER LIST WHICH 40450002 * POINTS TO THE JOB 40500002 * MANAGEMENT RECORD (JMR) */ 40550002 * 2 TCTJMR PTR(31), /* ADDRESS OF THE JOB 40800002 * MANAGEMENT RECORD */ 41000001 * 2 TCTRSV08 CHAR(4) BDY(WORD), /* *** TCTUSO FIELD UNUSED 41200001 * IN OS/VS *** */ 41400002 * 2 TCTJSTX PTR(32), /* AMOUNT OF TIME THAT JOB 41450002 * OR STEP HAS BEEN EXTENDED 41500002 * BY USER EXIT IEFUTL 41550002 * (32-BIT UNSIGNED BINARY 41560002 * NUMBER) (OS/VS2) MDC005*/ 41570002 * 3 TCTSTOF FIXED(31), /* OVERFLOW FIELD FOR 41600002 * USER-SUPPLIED STEP TIME 41650002 * EXTENSIONS (OS/VS1) 41800002 * MDC001*/ 42000002 * 2 TCTTJLM PTR(32), /* CONTAINS REMAINING JOB 42050002 * TIME (32-BIT UNSIGNED 42100002 * BINARY NUMBER) 42150002 * (OS/VS2) MDC006*/ 42160002 * 3 TCTSACT FIXED(31), /* A RUNNING TOTAL OF THE 42200002 * USER-SUPPLIED STEP TIME 42400001 * EXTENSIONS, EXPRESSED IN 42600002 * TIMER UNITS (OS/VS1) 42610002 * MDC002*/ 42650002 * 2 TCTWLMT FIXED(31), /* THE JOB OR STEP MAXIMUM 42800002 * WAIT TIME LIMIT AS 42850002 * SPECIFIED IN SMFDEFLT, 42900002 * EXPRESSED IN TIMER UNITS. 42950002 * (OS/VS1) 43000002 * RESERVED - SET TO ZERO 43010002 * (OS/VS2) MDC016*/ 43020002 * 2 TCTLIN FIXED(31), /* TSO - COUNT OF LINES OF 43050001 * TERMINAL INPUT */ 43100001 * 2 TCTLOUT FIXED(31), /* TSO - COUNT OF LINES OF 43150001 * TERMINAL OUTPUT */ 43200001 * 2 TCTAST FIXED(31), /* THE TIME OF DAY (TO ONE 43250002 * HUNDREDTH OF A SECOND) 43300002 * THAT DEVICE ALLOCATION 43350002 * STARTED ICB365*/ 43360002 * 2 TCTPPST FIXED(31), /* THE TIME OF DAY (TO ONE 43400002 * HUNDREDTH OF A SECOND) 43450002 * THAT THE PROBLEM PROGRAM 43500002 * WAS INITIALLY LOADED INTO 43550002 * MAIN STORAGE ICB365*/ 43600002 * 2 TCTPGSMF CHAR(20) BDY(WORD), /* SMF PAGING AND TSO 43850001 * STATISTICS (OS/VS1) 43860002 * MDC007*/ 43880002 * 3 TCTPGIN FIXED(31), /* TOTAL PAGE-INS FOR THIS 43900001 * REGION (INCL/SWAP-INS) 43950001 * (OS/VS1) MDC007*/ 43952002 * 4 TCTAJS FIXED(31), /* ACCUMULATED SESSION 43954002 * SERVICE TIME (OS/VS2) 43956002 * (MDC019) YM7459*/ 43958002 * 3 TCTPGOUT FIXED(31), /* TOTAL PAGE-OUTS FOR THIS 43960001 * REGION (INCL/SWAP-OUTS) 43970001 * (0S/VS1) MDC008*/ 43980002 * 4 TCTACT FIXED(31), /* ACCUMULATED ACTIVE TIME 43980102 * (OS/VS2) (MDC020) YM7459*/ 43983102 * 3 TCTRGNS FIXED(31), /* TOTAL SWAPS PERFORMED FOR 43986102 * THIS TSO USER (SWAP-INS + 43990001 * SWAP-OUTS) 43992002 * (0S/VS1) MDC009*/ 43992402 * 4 TCTATR FIXED(31), /* ACCUMULATED TRANSACTION 43992804 * RESIDENCY TIME (OS/VS2) 43993204 * (MDC302) @Z40FP9A*/ 43993604 * 3 TCTSIN FIXED(31), /* TOTAL PAGES SWAPPED-IN 43994002 * FOR THIS TSO USER 43998402 * (0S/VS1) MDC010*/ 44000402 * 3 TCTSOUT FIXED(31); /* TOTAL PAGES SWAPPED-OUT 44002402 * FOR THIS TSO USER 44004402 * (0S/VS1) MDC011*/ 44008402 *%TCTCOMZ = 'LENGTH(SMFTCT)'; /* GET LENGTH OF TCT COMMON 44030001 * SECTION */ 44080001 * 44400001 */********************************************************************/ 44600001 */* */ 44800001 */* TCT STORAGE TABLES */ 45000001 */* */ 45200001 */* A SEPARATE TABLE IS USED TO DESCRIBE EACH TYPE OF STORAGE */ 45400001 */* OBTAINED FOR A TASK (PROCESSOR STORAGE (HIERARCHY 0) AND */ 45600001 */* LCS (HIERARCHY 1)) */ 45800001 */* */ 46000001 */********************************************************************/ 46200001 * 46400001 *DECLARE 46600001 * 1 TCTCORE BASED(TCTCRTBL) BDY(WORD), /* START OF TCT STORAGE 46800001 * TABLES */ 47000001 * 2 TCTLWM PTR(31), /* THE CURRENT HIGHEST 47200002 * ADDRESS ALLOCATED FROM 47250002 * THE BOTTOM OF THE REGION */ 47300002 * 2 TCTHWM PTR(31), /* TEH CURRENT LOWEST 47600002 * ADDRESS ALLOCATED FROM 47650002 * THE TOP OF THE REGION */ 47700002 * 2 TCTMINC FIXED(15), /* THE MINIMUM DIFFERENCE 48000002 * (IN 2K BLOCKS) BETWEEN 48050002 * TCTLWM AND TCBHWM. THIS 48100002 * FIGURE REPRESENTS THE 48150002 * UNUSED PORTION OF THE 48200002 * USER'S REGION. */ 48250002 * 2 TCTRSZ FIXED(15), /* THE ORIGINAL REGION 48400002 * REQUEST EXPRESSED IN 2K 48450002 * BLOCKS */ 48500002 * 2 TCTRBA PTR(31), /* FOR A V=V PROBLEM PROGRAM, 48650002 * LOWEST ADDRESS IN PRIVATE 48700002 * AREA. FOR A V=R PROBLEM 48750002 * PROGRAM, LOWEST ADDRESS 48800002 * IN REGION. (OS/VS2) 48850002 * MDC012*/ 48900002 * 49450001 */********************************************************************/ 49500001 */* */ 49550001 */* HIERARCHY 1 STORAGE TABLE */ 49560001 */* */ 49570001 */********************************************************************/ 49580001 * 49590001 * 2 TCTLCS (4) FIXED(31); /* STORAGE RESERVED FOR 49600001 * HIERARCHY 1 STORAGE 49800001 * TABLE */ 50000001 *%TCTCREZ = 'LENGTH(TCTCORE)'; /* LENGTH OF A PROCESSOR 50050002 * STORAGE TABLE */ 50100001 *%TCTBIG = 'LENGTH(SMFTCT)+LENGTH(TCTCORE)'; /* COMBINED LENGTH OF 50150002 * TCT COMMON SECTION AND 50200002 * STORAGE TABLES */ 50250002 * 51000001 */* **************************************************************** */ 51200001 */* */ 51400001 */* TCT INPUT/OUTPUT TABLE */ 51600001 */* */ 51800001 */* THE TCT I/O TABLE IS COMPOSED OF THE TCT I/O LOOKUP TABLE */ 52000001 */* AND THE TCT I/O COUNTER TABLE. THE TCT I/O TABLE IS NOT */ 52200002 */* NECESSARILY CONTIGUOUS TO THE TCT. THE TCTIOTBL FIELD OF */ 52250002 */* THE TCT POINTS TO IT. */ 52300002 */* */ 52400001 */* **************************************************************** */ 52600001 * 52800001 */* **************************************************************** */ 53000001 */* */ 53200001 */* TCT I/O LOOKUP TABLE */ 53400001 */* */ 53600001 */* THE TCT I/O LOOKUP TABLE CONTAINS A COMMON SECTION AND A */ 53800001 */* DD LOOKUP TABLE ENTRY FOR EACH DD ENTRY IN THE TIOT */ 54000001 */* */ 54200001 */********************************************************************/ 54400001 *DECLARE 54600001 * 54800001 * 1 TCTTIOT BASED(TCTIOTBL) BDY(WORD), /* START OF TCT I/O TABLE */ 55000001 * 2 TCTPLEXT FIXED(31), /* SUBPOOL/LENGTH OF TCT 55200001 * I/O TABLE */ 55400001 * 3 * FIXED(15), /* SUBPOOL IN WHICH THE TCT 55600002 * I/O TABLE RESIDES */ 55800002 * 3 TCTSZEXT FIXED(16), /* SIZE IN BYTES OF TCT I/O 56400003 * TABLE @ZA52714*/ 56600003 * 2 TCTSZLKP FIXED(16), /* NUMBER OF DEVICE ENTRIES 56800003 * IN THE TCT I/O LOOKUP 56850002 * TABLE TIMES 8 @ZA52714*/ 56900003 * 2 TCTRSV11 CHAR(2); /* RESERVED */ 57200001 *%TCTCOMIO = 'LENGTH(TCTTIOT)'; /* LENGTH OF TCT I/O TABLE 57250002 * COMMON SECTION */ 57300002 * 57800001 */* **************************************************************** */ 58000001 */* */ 58200001 */* DD LOOKUP TABLE ENTRY */ 58400001 */* */ 58600001 */* A DD LOOKUP TABLE ENTRY IS CREATED FOR EACH DD ENTRY IN */ 58800001 */* THE TIOT. THE DD LOOKUP TABLE ENTRIES ARE REFERENCED BY */ 58850002 */* THE SYSTEM MANAGEMENT FACILITIES OPTION CODE TO ENTER THE */ 58900002 */* TCT I/O COUNTER TABLE AT THE DD ENTRY CONTAINING THE */ 58950002 */* DEVICE ENTRY FOR THE ACCESSED DEVICE. */ 59000002 */* */ 59200001 */* **************************************************************** */ 59400001 * 59600001 *DECLARE 59800001 *%IF TCTLUEPT='' %THEN 59810001 * %GOTO TCTA1; 59820001 * 1 TCTIODSP BASED(TCTLUEPT) BDY(WORD), 59850001 *%GOTO TCTA3; 59860001 *%TCTA1 : ; 59870001 *%IF IKEPLS='2' %THEN 59880001 * %GOTO TCTA2; 59890001 * 1 TCTIODSP BASED(ADDR(TCTPLEXT)+8) BDY(WORD), 59892001 *%GOTO TCTA3; 59894001 *%TCTA2 : ; 59896001 * 1 TCTIODSP DEF(TCTPLEXT) POS(9) BDY(WORD), 59898001 *%TCTA3 : ; 59898401 * /* BEGINNING OF DD LOOKUP 59900001 * TABLE ENTRY */ 60200001 * 2 TCTDCBTD FIXED(16), /* OFFSET FROM THE TIOT 60400003 * ORIGIN TO THE TIOELNGH 60450002 * FIELD IN THE TIOT ENTRY 60500002 * FOR THE DD STATEMENT 60550002 * ASSOCIATED WITH THE 60560002 * ACCESSED DATA SET @ZA52714*/ 60570003 * 2 TCTIOTSD FIXED(16), /* OFFSET FROM THE TCT I/O 60600003 * TABLE ORIGIN TO THE DD 60650002 * ENTRY, WITHIN THE TCT I/O 60700002 * COUNTER TABLE, ASSOCIATED 60750002 * WITH THE ACCESSED DATA 60800002 * SET @ZA52714*/ 60850003 * 2 TCTDCBLE FIXED(31); /* END OF TCT I/O LOOKUP 61000001 * TABLE (ZEROS) */ 61200001 * 61400001 */* **************************************************************** */ 61600001 */* */ 61800001 */* TCT I/O COUNTER TABLE */ 62000001 */* */ 62200001 */* THE TCT I/O COUNTER TABLE CONSISTS OF ONE DD ENTRY FOR */ 62400001 */* EACH DD ENTRY IN THE TIOT */ 62600001 */* */ 62800001 */* */ 63000001 */* **************************************************************** */ 63200001 * 63400001 */********************************************************************/ 63600001 */* */ 63800001 */* DD ENTRY */ 64000001 */* */ 64200001 */* EACH DD ENTRY CONSISTS OF AN 8-BYTE DEVICE ENTRY REPEATED */ 64400002 */* FOR EACH UCB (DEVICE) ASSOCIATED WITH A DD STATEMENT AND */ 64600002 */* AN 8-BYTE OUTPUT LIMIT EXTENSION */ 64800002 */* */ 65000001 */********************************************************************/ 65200001 * 65400001 */********************************************************************/ 65600001 */* */ 65800001 */* DEVICE ENTRY */ 66000001 */* */ 66200001 */********************************************************************/ 66400001 * 66600001 *DECLARE 66800001 *%IF TCTCTEPT='' %THEN 66810001 * %GOTO TCTA4; 66820001 * 1 TCTDDENT BASED(TCTCTEPT) BDY(WORD), 66850001 *%GOTO TCTA6; 66860001 *%TCTA4 : ; 66870001 *%IF IKEPLS='2' %THEN 66880001 * %GOTO TCTA5; 66890001 * 1 TCTDDENT BASED(ADDR(TCTDCBLE)+4) BDY(WORD), 66892001 *%GOTO TCTA6; 66894001 *%TCTA5 : ; 66896001 * 1 TCTDDENT DEF(TCTDCBLE) POS(5) BDY(WORD), 66898001 *%TCTA6 : ; 66898401 * /* BEGINNING OF I/O COUNTER 66900001 * TABLE DEVICE ENTRY */ 67200001 * 2 TCTUCBP PTR(16), /* ADDRESS OF THE UCB 67400003 * ASSOCIATED WITH THIS 67450002 * DEVICE @Z30AA9A*/ 67500003 * 2 TCTSCTR PTR(8), /* NUMBER OF DEVICES 67800001 * ASSOCIATED WITH THIS DD 68000001 * STATEMENT. THIS NUMBER 68200002 * REPRESENTS THE NUMBER OF 68200402 * DEVICE ENTRIES WITHIN 68200802 * THIS DD ENTRY. THIS 68201202 * FIELD CONTAINS ZEROS IN 68201602 * ALL BUT ITS FIRST 68201702 * APPEARANCE IN ANY DD 68201802 * ENTRY. 68201902 * 'FF'X INDICATES SYSIN 68202001 * DATA SET (OS/VS1). ICB375*/ 68204002 * 2 TCTFLGS BIT(8), /* FLAG BYTE MDC013*/ 68254002 * 3 TCTDDIND BIT(1), /* END OF CONCATENATED DD 68304002 * STRING (OS/VS1) MDC014*/ 68354002 * 3 TCTVAMDS BIT(1), /* VAM DATA SET ENTRY. 68404002 * TCTUCBP FIELD IS ZERO 68414002 * WHEN THIS BIT IS ONE. 68424002 * MDC015*/ 68434002 * 3 TCTNOCNT BIT(1), /* IF ON, DO NOT COUNT THE 68454004 * EXCP (OS/VS1) 68464004 * (MDC301) @XA09673*/ 68474004 * 3 TCTRSV22 BIT(1), /* RESERVED */ 68504002 * 3 TCTRSV23 BIT(1), /* RESERVED */ 68554002 * 3 TCTRSV24 BIT(1), /* RESERVED */ 68564002 * 3 TCTRSV25 BIT(1), /* RESERVED */ 68574002 * 3 TCTRSV26 BIT(1), /* RESERVED */ 68584002 * 2 TCTDCTR FIXED(31), /* COUNTER FOR EXCP'S ISSUED 68600002 * AGAINST THIS UCB (DEVICE)*/ 68650002 * 69000001 */********************************************************************/ 69200001 */* */ 69400001 */* OUTPUT LIMIT EXTENSION */ 69402001 */* */ 69800001 */********************************************************************/ 70000001 * 70200001 * 2 TCTRSV10 CHAR(4) BDY(WORD), /* *** TCTOUTLM FIELD UNUSED 70850001 * IN OS/VS *** */ 70900002 * 2 TCTEXRLD PTR(8), /* A BINARY NUMBER OF 71600002 * EXTENTS RELEASED BY THE 71650002 * DADSM RELEASE ROUTINE. 71700002 * COLLECTED ONLY IF RLSE 71750002 * WAS SPECIFIED IN THE 71800002 * SPACE PARAMETER FOR THIS 71850002 * DATA SET. */ 71900002 * 2 TCTTKRLD PTR(24); /* A BINARY NUMBER OF TRACKS 72000002 * RELEASED BY THE DADSM 72050002 * RELEASE ROUTINE. 72100002 * COLLECTED ONLY IF RLSE 72150002 * WAS SPECIFIED IN THE 72200002 * SPACE PARAMETER FOR THIS 72250002 * DATA SET. */ 72300002