*%; /* 00000940 MACRO 00001840 IRAOUCB &DSECT=YES,&LABEL= 00002740 IEZBITS INVOKE STANDARD BIT DECLARATIONS 00003640 AGO .OUCBAL0 00004540 * */ 00005440 *@ LIST PUSH; /* SAVE LISTING STATUS FOR OUCB */ 00006340 * %IF OUCBSFX = '' /* IS NAMING CHARACTER OMITTED */ 00007240 * %THEN %OUCBSFX = ' '; /* YES, INSERT PLACEHOLDER BLANK */ 00008140 * %IF OUCBSFX ^= ' ' /* IS THIS THE DUPLICATE INCLUDE */ 00009040 * %THEN %OUCBDUM = '@ LIST OFF '; /* BYP INTRO CMT */ 00009940 * %ELSE %OUCBDUM = '@ LIST PUSH'; /* DMY CNTRL CMT */ 00010840 *OUCBDUM; 00011740 * %IF OUCBSFX = ' ' /* IS THIS THE FIRST INCLUDE */ 00012640 * %THEN %OUCBDUM = '@ LIST POP '; /* PRT INTRO CMT */ 00013540 *OUCBDUM; 00014440 *%; /* 00015340 .OUCBAL0 ANOP */ 00016240 * /* MACCOMP Z-4 SC1CX/PKD16 */ 00017140 * /* MACSTAT Z-4 75007/Z40BPSS */ 00018040 * /* *************************************************************** */ 00018940 * /* */ 00019840 * /* MACRO NAME - IRAOUCB */ 00020740 * /* */ 00021640 * /* DESCRIPTIVE NAME - RESOURCES MANAGER USER CONTROL BLOCK */ 00022540 * /* */ 00023440 * /* COPYRIGHT - NONE */ 00024340 * /* */ 00025240 * /* STATUS - OS/VS2 RELEASE 4, 09/19/75, LEVEL=1 */ 00026140 * /* */ 00027040 * /* FUNCTION - THE OUCB DESCRIBES THE STATUS OF THE ASSOCIATED */ 00027940 * /* MEMORY (USER) TO THE SYSTEM RESOURCES MANAGER. IT */ 00028840 * /* CONTAINS RESOURCE USAGE INFORMATION NEEDED TO DECIDE */ 00029740 * /* WHEN TO SWAP-IN THE MEMORY. THE OUCB IS POSITIONED */ 00030640 * /* ON TRANSITIONAL SYSTEM RESOURCES MANAGER CHAINS TO */ 00031540 * /* INDICATE ACTIONS TO BE TAKEN FOR THAT MEMORY. */ 00032440 * /* */ 00033340 * /* METHOD OF ACCESS - THE OUCB FOR AN ADDRESS SPACE IS LOCATED */ 00034240 * /* VIA THE -ASCBOUCB- FIELD OF THE ADDRESS SPACE CONTROL */ 00035140 * /* BLOCK. */ 00036040 * /* */ 00036940 * /* *************************************************************** */ 00037840 *%; /* 00038740 AGO .OUCBAL1 */ 00039640 *@ LIST OFF; /* BYPASS REMAINING COMMENTARY */ 00040540 * /* *************************************************************** */ 00041440 * /* */ 00042340 * /* INVOCATION PARAMETERS AND/OR KEYWORDS = */ 00043240 * /* */ 00044140 * /* BAL - DSECT=NO IF DSECT IS NOT TO BE PRODUCED. */ 00045040 * /* - LABEL='USERNAME' IF USERNAME EQU OUCB TO BE GEN'D. */ 00050040 * /* */ 00050940 * /* NOTE - THE BAL FORM OF THE MACRO IS CODED WITH */ 00051840 * /* 'DC' INSTRUCTIONS, SO THAT THE MACRO MAY BE USED */ 00052740 * /* TO ASSEMBLE THE INITIAL FIELD VALUES FOR A CSECT */ 00053640 * /* CONTAINING A MODEL OUCB. */ 00054540 * /* */ 00055440 * /* USING ON OUCB GIVES ADDRESSABILITY TO ALL SYMBOLS. */ 00056340 * /* */ 00057240 * /* PLS - %OUCBSFX='USERCHAR' IF THE INDICATED CHARACTER IS */ 00058140 * /* TO BE APPENDED TO ALL NAMES IN THE MAPPING, THEREBY */ 00059040 * /* PERMITTING MULTIPLE INCLUDES WHICH CREATE DUPLICATE */ 00059940 * /* DEFINITIONS BASED ON DIFFERENT POINTERS. */ 00060840 * /* */ 00061740 * /* NOTE - DUE TO THE MULTIPLE INCLUDE FACILITY FOR THE */ 00062640 * /* IRAOUCB MACRO, IT IS NOT POSSIBLE TO CONCATENATE THE */ 00063540 * /* OUCB DECLARATION WITH ANOTHER DECLARATION IN SUCH A */ 00064440 * /* FASHION THAT BOTH ARE BASED ON THE SAME POINTER. */ 00065340 * /* */ 00066240 * /* TO ACCESS AS A STANDALONE STRUCTURE, DCL OUCBPTR PTR. */ 00067140 * /* */ 00068040 * /* CHANGE ACTIVITY = ZM43085,@ZA10808,@ZA16887,@ZA20975 */ 00068440 * /* ZA29015,ZA29919,@ZA31942,@ZA42459 */ 00069140 * /* */ 00069840 * /* A000000-999999 Y02133*/ 00070740 * /* */ 00072540 * /* *************************************************************** */ 00073440 *%; /* 00074340 .OUCBAL1 ANOP 00075240 SPACE 1 00076140 AIF ('&DSECT' EQ 'NO').OUCBAL2 00077040 OUCB DSECT 00077940 AGO .OUCBAL3 00078840 .OUCBAL2 ANOP 00079740 DS 0D 00080640 OUCB EQU * 00081540 AIF ('&LABEL' EQ '').OUCBAL3 00082440 &LABEL EQU OUCB 00083340 .OUCBAL3 ANOP 00084240 SPACE 1 00085140 OUCBNAME DC C'OUCB' - BLOCK IDENTIFICATION 00086040 OUCBFWD DC A(OUCB) - SWAP CHAIN FORWARD POINTER 00086940 OUCBBCK DC A(OUCB) - SWAP CHAIN BCKWARD POINTER 00087840 OUCBTMA DC F'0' - TIME OF LAST ANALYSYS @Z40BPCH 00088740 OUCBQFL DC B'00100000' - SWAPPABILITY TRANSITION FLAGS 00089640 OUCBGOO EQU BIT0 - TRANSITIONING OUT OF CORE 00090540 OUCBGOI EQU BIT1 - TRANSITIONING INTO CORE 00091440 OUCBGOB EQU BIT2 - TRANSITIONING BETWEEN STATES 00092340 OUCBQSFL EQU BIT3 - QSCEFL RECURSION FLAG @ZA29919 00092740 OUCBOFF EQU BIT4 - REQUESTING ENTER WAIT STATE 00093240 OUCBOUT EQU BIT5 - REQUESTING ENTER OUT STATE 00094140 OUCBSFL DC B'10010100' - SWAPOUT CONTINUATION FLAGS 00100040 OUCBNSW EQU BIT0 - NON-SWAPPABLE STATUS 00100940 OUCBCTI EQU BIT1 - CTL INHIBITS QUIESCE 00101840 OUCBBIB EQU BIT2 - BRING IN FOR CANCEL @Z40BPCH 00102740 OUCBINV EQU BIT3 - =1 IF OUCB IS INVALID @Z40BPCH 00103640 OUCBNSWI EQU BIT4 - PREVENT SWAP IN @ZA29015 00104040 OUCBPVL EQU BIT5 - PRIVILEGED PROGRAM RUNNING 00104540 OUCBENQ EQU BIT6 - ENQ RESIDENT STATUS 00105440 OUCBSCN EQU BIT7 - SWAP CHAIN TERMINATION MARK 00106340 OUCBYFL DC B'00000000' - USER TYPE FLAGS 00107240 OUCBPSTE EQU BIT0 - POST ERROR @ZA07127 00108140 OUCBSTT EQU BIT1 - START CREATED USER 00109040 OUCBLOG EQU BIT2 - LOGON CREATED USER 00109940 OUCBMNT EQU BIT3 - MOUNT CREATED USER 00110840 OUCBPSTR EQU BIT4 - IF POST ERROR, RECOVER @ZA16887 00111240 OUCBAXS EQU BIT5 - AUX SHORTAGE FORCED SWAP 00112640 OUCBDTA EQU BIT6 - DATA ACCUMULATION IMPACTED 00113540 OUCBFXS EQU BIT7 - FIXED STORAGE FORCED SWAP @Z40BPCH 00114440 OUCBAFL DC B'00000000' - ALGORITHM STATUS FLAGS 00115340 OUCBAPG EQU BIT1 - APG ALGORITHM APPLICABLE 00116240 OUCBRMA EQU BIT2 - RMA ALGORITHM APPLICABLE 00117140 OUCBCPL EQU BIT3 - SIGNIFICANT CPU USER FLAG 00118040 OUCBJSR EQU BIT4 - JOBSELECT RECEIVED @Z40BPCH 00118940 OUCBR02 EQU BIT5 - RESERVED @ZM43085 00119840 OUCBNWT EQU BIT6 - MSO DETECTED NONSWAPPABLE WAIT 00120740 OUCBASW EQU BIT7 - AUTHORIZED FOR DONTSWAP 00121640 OUCBTFL DC B'00000000' - TRANSACTION STATUS FLAGS 00122540 OUCBATR EQU BIT0 - TRANSACTION IN EXISTENCE 00123440 OUCBSTR EQU BIT1 - TRANSACTION START PENDING 00124340 OUCBNTR EQU BIT2 - TRANSACTION STOP PENDING 00125240 OUCBRTR EQU BIT3 - TRANSACTION RESUME PENDING 00126140 OUCBPCH EQU BIT4 - PERF GRP PERIOD CHANGE PENDING 00127040 OUCBMAR EQU BIT5 - ACTIVITY RECORDING SUBTRACT FLAG 00127940 OUCBINP EQU BIT6 - INITIATOR ATTACH PENDING 00128840 OUCBINC EQU BIT7 - INITIATOR ATTACH CURRENT 00129740 OUCBEFL DC B'00000000' - EVENT STATUS FALGS 00130640 OUCBLWT EQU BIT0 - LONG WAIT STATUS 00131540 OUCBTRM EQU BIT1 - TERMINAL WAIT STATUS 00132440 OUCBOWT EQU BIT2 - OUTPUT TERMINAL WAIT 00133340 OUCBCIM EQU BIT3 - COMPOSITE INPUT MESSAGE 00134240 OUCBNQF EQU BIT4 - ENQHOLD EVENT PROCESSED 00135140 OUCBQSS EQU BIT5 - QSCEST EVENT PROCESSED 00136040 OUCBQSC EQU BIT6 - QSCECMP EVENT PROCESSED 00136940 OUCBMWT EQU BIT7 - MSO DETECTED WAIT STATUS 00137840 OUCBNQC DC HL1'0' - NO. OF OUTSTANDING ENQHOLDS 00138740 OUCBUFL DC B'00000000' - USER TYPE FLAGS @ZM43072 00139640 OUCBJSFS EQU BIT0 - JOB SELECT DELAYED @ZM43072 00140240 OUCBJSAS EQU BIT1 - JOB SELECT DELAYED @ZM43072 00140840 OUCBRSWP EQU BIT2 - REQSWAP IN PROGRESS @ZA16887 00141140 OUCBTSWP EQU BIT3 - TRANSWAP IN PROGRESS @ZA16887 00141440 OUCBTSWC EQU BIT4 - TRANSWAP COMPLETE @ZA16887 00141740 OUCBCSFS EQU BIT5 - SWAP IN FAIL DEFER BIT - USER ON 00141840 * WAIT QUEUE @ZA31942 00141940 OUCBCSFM EQU BIT6 - SWAP IN MESSAGE REQUIRED @ZA31942 00142040 OUCBLGFX EQU BIT7 - LOGICAL FIXED FRAME SHORTAGE CAUSED 00142140 * SWAP OUT @ZA42459 00142240 OUCBNPG DC HL1'0' - NEW PERFORMANCE GROUP NUMBER 00142340 OUCBRPG DC HL1'0' - RESET PERFORMANCE GROUP NUMBER 00143240 OUCBNDP DC HL1'0' - NEW ASCB DISPATCHING PRIORITY 00144140 OUCBRDP DC HL1'0' - REAL DISPATCHING PRIORITY @Z40BPCH 00150040 OUCBSPG DC HL1'0' - SPECIFIED PERFORMANCE GROUP @Z40BPCH 00150940 OUCBR30 DC HL1'0' - RESERVED @Z40BPEB 00151840 OUCBR40 DC HL1'0' - RESERVED @Z40BPEB 00152740 OUCBPGP DC HL1'12' - CURRENT WPGP OFFSET IN WPGD 00153640 OUCBWMG DC H'0' - WPGD OFFSET IN WPGD TABLE 00154540 OUCBDMO DC H'0' - OFFSET INTO DOMAIN TABLE @Z40BPCH 00155440 OUCBDMN DC HL1'0' DOMAIN NUMBER @Z40BPCH 00156340 OUCBSRC DC HL1'0' SWAP OUT REASON CODE @Z40BPCH 00157240 OUCBSWC DC H'0' - TRANSACTION SWAP COUNT 00158140 OUCBASCB DC A(0) - ASCB ADDRESS 00159040 OUCBIMCB DC A(0) - IMCB ADDRESS 00159940 OUCBTMW DC F'0' - WLM INTERVAL START TIME 00160840 OUCBWMS DC F'0' - INTERVAL SERVICE ACCUMULATOR 00161740 OUCBCPU DC F'0' - INTERVAL CPU SERVICE ACCUM @Z40BPCH 00162640 OUCBIOC DC F'0' - INTERVAL I/O SERVICE ACCUM @Z40BPCH 00163540 OUCBMSO DC F'0' - INTERVAL MSO SERVICE ACCUM @Z40BPCH 00164440 OUCBTMS DC F'0' - TIME OF LAST SWAP ACTION 00165340 OUCBTMO DC F'0' - TRANSACTION START TIME 00166240 OUCBPSO DC H'0' - PAGES SWAPPED AT LAST SWAP-OUT 00167140 OUCBWSS DC H'0' - WORKING SET SIZE AT SWAP-IN 00168040 OUCBACT DC A(0) - ACTION QUEUE FORWARD POINTER 00168940 OUCBCSW DS 0F - COMPARE AND SWAP FIELD NAME 00169840 OUCBACN DC 2B'00000000' - DEFERRED ACTION FLAGS 00170740 OUCBCFL DC B'00000000' - MULTIPROCESS CONDITION FLAGS 00171640 OUCBRDY EQU BIT0 - USERRDY EVENT RECEIVED 00172540 OUCBRSM EQU BIT1 - RSM SERVICE OUTSTANDING 00173440 OUCBDFSW EQU BIT2 - SWAP IN FAIL SPECIAL PROCESSING - 00173740 * PVT THRESHOLDS INCREASED @ZA31942 00174040 OUCBCMRV DC F'0' - COMPOSITE RECOM VALUE @Z40BPCH 00174340 OUCBWMR DC F'0' - WLM RECOMMENDATION VALUE @Z40BPCH 00175240 OUCBIRV DC H'0' - IOM RECOMMENDATION VALUE @Z40BPCH 00176140 OUCBCRV DC H'0' - CPM RECOMMENDATION VALUE @Z40BPCH 00177040 OUCBIOR DC H'0' - I/O USER PROFILE 00177940 OUCBSTOS DC H'0' - STAGE 1 WSS FOR SWAPIN FAIL @ZA31942 00178340 OUCBFMCT EQU OUCBSTOS - FRAME COUNT WHEN DETECT LOGICAL 00178740 * PAGEABLE STORAGE SHORTAGE @ZA42459 00179140 OUCBTMP DC F'0' - PERF GRP PERIOD STARTING TIME 00179740 OUCBIOSM DC F'0' - SMF EXCP COUNT @ZA10808 00180140 OUCBPSS DC D'0' - CPU PAGE SECONDS @Z40BPCH 00182440 OUCBPS1 EQU OUCBPSS - HIGH WORD PAGE SECONDS @Z40BPCH 00183340 OUCBPS2 EQU OUCBPSS+4 - LOW WORD PAGE SECONDS @Z40BPCH 00184240 OUCBPST DC F'0' - TIME OF LAST WORKING SET CHANGE 00185140 * @Z40BPCH 00186040 OUCBTCP DC F'0' - TIME OF CPU USAGE EVALUATION 00186940 * @Z40BPCH 00187840 OUCBTIO DC F'0' - TIME OF I/O USAGE EVALUATION 00188740 * @Z40BPCH 00189640 OUCBNDS DC H'1' - NUM OUTSTANDING DONTSWAPS @Z40BPEB 00190540 OUCBNTSP DC H'0' - NUM ADDITIONAL TRANSWAPS PENDING 00190940 * @ZA16887 00191440 OUCBLGWS EQU OUCBNTSP LOGICAL WORKING SET SIZE FOR LOGICAL 00191540 * PAGE STORAGE SHORTAGE @ZA42459 00191640 OUCBSWFC DC H'0' - SWAP IN FAIL COUNT @ZA31942 00191740 OUCBSFEC DC H'0' - SWAP IN FAIL EVALUATION 00191840 * COUNT @ZA31942 00191940 OUCBR50 DC F'0' - RESERVED @ZA31942 00192040 OUCBEND DS 0D - END OF OUCB 00192340 OUCBLEN EQU OUCBEND-OUCB - LENGTH OF OUCB 00193240 MEND 00194140 * */ 00195040 *@ LIST POP; /* RESUME LIST STATUS FOR OUCB */ 00195940 * %OUCBLABL = 'OUCB'; /* INITIALIZE THE LABEL VARIABLE */ 00196840 * %IF OUCBSFX ^= ' ' /* IS THIS THE DUPLICATE INCLUDE */ 00197740 * %THEN %OUCBLABL = 'OUCB'||OUCBSFX; /* RENAME STRUCTURE */ 00198640 * %IF OUCB9999 ^= ',' /* DOES STRUCTURE CONTINUE */ 00199540 * %THEN %OUCB9999 = ';'; /* NO, END DECLARE STATEMENT */ 00200440 * %OUCBDUM = OUCBLABL||'PTR' ; /* QUALIFY BASED POINTER NAME */ 00201340 * DCL 00202240 * 1 OUCBLABL BASED(OUCBDUM) BDY(DWORD), 00203140 * %OUCBLABL = 'OUCBNAME' ; 00204040 * %IF OUCBSFX ^= '' 00204940 * %THEN %OUCBLABL = 'OUCBNAM'||OUCBSFX ; 00205840 * 10 OUCBLABL CHAR(4), /* BLOCK IDENTIFICATION - 'OUCB' */ 00206740 * %OUCBLABL = 'OUCBFWD'||OUCBSFX ; 00207640 * 10 OUCBLABL PTR(31), /* SWAP CHAIN FORWARD POINTER */ 00208540 * %OUCBLABL = 'OUCBBCK'||OUCBSFX ; 00209440 * 10 OUCBLABL PTR(31), /* SWAP CHAIN BACKWARD POINTER */ 00210340 * %OUCBLABL = 'OUCBTMA'||OUCBSFX ; 00211240 * 10 OUCBLABL FIXED(32) UNSIGNED, /* TIME OF LAST ANALYSYS 00212140 * @Z40BPCH*/ 00213040 * %OUCBLABL = 'OUCBQFL'||OUCBSFX ; 00213940 * 10 OUCBLABL BIT(08) BDY(DWORD), /* SWAP TRANSITION FLAGS */ 00214840 * %OUCBLABL = 'OUCBGOO'||OUCBSFX ; 00215740 * 12 OUCBLABL BIT(1), /* TRANSITIONING OUT OF CORE */ 00216640 * %OUCBLABL = 'OUCBGOI'||OUCBSFX ; 00217540 * 12 OUCBLABL BIT(1), /* TRANSITIONING INTO CORE */ 00218440 * %OUCBLABL = 'OUCBGOB'||OUCBSFX ; 00219340 * 12 OUCBLABL BIT(1), /* TRANSITIONING BETWEEN STATES */ 00220240 * %OUCBLABL = 'OUCBQSFL'||OUCBSFX ; 00221140 * 12 OUCBLABL BIT(1), /* QSCEFL RECURSION FLAG @ZA29919*/ 00221740 * %OUCBLABL = 'OUCBOFF'||OUCBSFX ; 00222940 * 12 OUCBLABL BIT(1), /* REQUEST ENTER WAIT STATE */ 00223840 * %OUCBLABL = 'OUCBOUT'||OUCBSFX ; 00224740 * 12 OUCBLABL BIT(1), /* REQUEST ENTER OUT STATE */ 00225640 * %OUCBLABL = 'OUCBQF6'||OUCBSFX ; /* @Z40BPCH*/ 00226540 * 12 OUCBLABL BIT(1), /* RESERVED @Z40BPCH*/ 00227440 * %OUCBLABL = 'OUCBQF7'||OUCBSFX ; 00228340 * 12 OUCBLABL BIT(1), /* RESERVED */ 00229240 * %OUCBLABL = 'OUCBSFL'||OUCBSFX ; 00230140 * 10 OUCBLABL BIT(08), /* SWAPOUT CONTINUATION FLAGS */ 00231040 * %OUCBLABL = 'OUCBNSW'||OUCBSFX ; 00231940 * 12 OUCBLABL BIT(1), /* NON-SWAPPABLE STATUS */ 00232840 * %OUCBLABL = 'OUCBCTI'||OUCBSFX ; 00233740 * 12 OUCBLABL BIT(1), /* CTL INHIBITS QUIESCE */ 00234640 * %OUCBLABL = 'OUCBBIB'||OUCBSFX ; /* @Z40BPCH*/ 00235540 * 12 OUCBLABL BIT(1), /* BRING IN FOR CANCEL @Z40BPCH*/ 00236440 * %OUCBLABL = 'OUCBINV'||OUCBSFX ; /* @Z40BPCH*/ 00237340 * 12 OUCBLABL BIT(1), /* =1 IF OUCB IS INVALID @Z40BPCH*/ 00238240 * %OUCBLABL = 'OUCBNSWI'||OUCBSFX ; /* @ZA29015*/ 00239140 * 12 OUCBLABL BIT(1), /* PREVENT SWAP IN @ZA29015*/ 00239740 * %OUCBLABL = 'OUCBPVL'||OUCBSFX ; 00240940 * 12 OUCBLABL BIT(1), /* USER PROGRAM PRIVILEGED */ 00241840 * %OUCBLABL = 'OUCBENQ'||OUCBSFX ; 00242740 * 12 OUCBLABL BIT(1), /* ENQ RESIDENT STATUS */ 00243640 * %OUCBLABL = 'OUCBSCN'||OUCBSFX ; 00244540 * 12 OUCBLABL BIT(1), /* SWAP CHAIN TERMINATION MARK */ 00245440 * %OUCBLABL = 'OUCBYFL'||OUCBSFX ; 00246340 * 10 OUCBLABL BIT(08), /* USER TYPE FLAGS */ 00247240 * %OUCBLABL = 'OUCBPSTE'||OUCBSFX ;/* @ZA07127*/00248140 * 12 OUCBLABL BIT(1), /* POST ERROR @ZA07127*/ 00249040 * %OUCBLABL = 'OUCBSTT'||OUCBSFX ; 00249940 * 12 OUCBLABL BIT(1), /* START CREATED USER */ 00250840 * %OUCBLABL = 'OUCBLOG'||OUCBSFX ; 00251740 * 12 OUCBLABL BIT(1), /* LOGON CREATED USER */ 00252640 * %OUCBLABL = 'OUCBMNT'||OUCBSFX ; 00253540 * 12 OUCBLABL BIT(1), /* MOUNT CREATED USER */ 00254440 * %OUCBLABL = 'OUCBPSTR'||OUCBSFX ; /* @ZA16887*/00254840 * 12 OUCBLABL BIT(1), /* IF POST ERROR, RECOVER @ZA16887*/00255040 * %OUCBLABL = 'OUCBAXS'||OUCBSFX ; 00257140 * 12 OUCBLABL BIT(1), /* AUX SHORTAGE FORCED SWAP */ 00258040 * %OUCBLABL = 'OUCBDTA'||OUCBSFX ; 00258940 * 12 OUCBLABL BIT(1), /* DATA ACCUMULATION IMPACTED */ 00259840 * %OUCBLABL = 'OUCBFXS'||OUCBSFX ; 00260740 * 12 OUCBLABL BIT(1), /* FIXED STOR FORCED SWP @Z40BPCH*/ 00261640 * %OUCBLABL = 'OUCBAFL'||OUCBSFX ; 00262540 * 10 OUCBLABL BIT(08), /* ALGORITHM STATUS FLAGS */ 00263440 * %OUCBLABL = 'OUCBAF0'||OUCBSFX ; /* @Z40BPCH*/ 00264340 * 12 OUCBLABL BIT(1), /* RESERVED @Z40BPCH*/ 00265240 * %OUCBLABL = 'OUCBAPG'||OUCBSFX ; 00266140 * 12 OUCBLABL BIT(1), /* APG ALGORITHM APPLICABLE */ 00267040 * %OUCBLABL = 'OUCBRMA'||OUCBSFX ; 00267940 * 12 OUCBLABL BIT(1), /* RMA ALGORITHM APPLICABLE */ 00268840 * %OUCBLABL = 'OUCBCPL'||OUCBSFX ; 00269740 * 12 OUCBLABL BIT(1), /* SIGNIFICANT CPU USER */ 00270640 * %OUCBLABL = 'OUCBJSR'||OUCBSFX ; /* @Z40BPCH*/ 00271540 * 12 OUCBLABL BIT(1), /* JOBSELECT RECEIVED @Z40BPCH*/ 00272440 * %OUCBLABL = 'OUCBR02'||OUCBSFX ; /* @ZM43085*/00273340 * 12 OUCBLABL BIT(1), /* RESERVED @ZM43085*/00273940 * %OUCBLABL = 'OUCBNWT'||OUCBSFX ; 00275140 * 12 OUCBLABL BIT(1), /* MSO DETECTED NONSWAPP WAIT */ 00276040 * %OUCBLABL = 'OUCBASW'||OUCBSFX ; 00276940 * 12 OUCBLABL BIT(1), /* AUTHORIZED FOR DONTSWAP */ 00277840 * %OUCBLABL = 'OUCBTFL'||OUCBSFX ; 00278740 * 10 OUCBLABL BIT(08), /* TRANSACTION STATUS FLAGS */ 00279640 * %OUCBLABL = 'OUCBATR'||OUCBSFX ; 00280540 * 12 OUCBLABL BIT(1), /* TRANSACTION IN EXISTENCE */ 00281440 * %OUCBLABL = 'OUCBSTR'||OUCBSFX ; 00282340 * 12 OUCBLABL BIT(1), /* TRANSACTION START PENDING */ 00283240 * %OUCBLABL = 'OUCBNTR'||OUCBSFX ; 00284140 * 12 OUCBLABL BIT(1), /* TRANSACTION STOP PENDING */ 00300040 * %OUCBLABL = 'OUCBRTR'||OUCBSFX ; 00300940 * 12 OUCBLABL BIT(1), /* TRANSACTION RESUME PENDING */ 00301840 * %OUCBLABL = 'OUCBPCH'||OUCBSFX ; 00302740 * 12 OUCBLABL BIT(1), /* PG PERIOD CHANGE PENDING */ 00303640 * %OUCBLABL = 'OUCBMAR'||OUCBSFX ; 00304540 * 12 OUCBLABL BIT(1), /* ACTIVITY RECORDING MINUS */ 00305440 * %OUCBLABL = 'OUCBINP'||OUCBSFX ; 00306340 * 12 OUCBLABL BIT(1), /* INITIATOR ATTACH PENDING */ 00307240 * %OUCBLABL = 'OUCBINC'||OUCBSFX ; 00308140 * 12 OUCBLABL BIT(1), /* INITIATOR ATTACH CURRENT */ 00309040 * %OUCBLABL = 'OUCBEFL'||OUCBSFX ; 00309940 * 10 OUCBLABL BIT(08), /* EVENT STATUS FLAGS */ 00310840 * %OUCBLABL = 'OUCBLWT'||OUCBSFX ; 00311740 * 12 OUCBLABL BIT(1), /* LONG WAIT STATUS */ 00312640 * %OUCBLABL = 'OUCBTRM'||OUCBSFX ; 00313540 * 12 OUCBLABL BIT(1), /* TERMINAL WAIT STATUS */ 00314440 * %OUCBLABL = 'OUCBOWT'||OUCBSFX ; 00315340 * 12 OUCBLABL BIT(1), /* OUTPUT TERMINAL WAIT */ 00316240 * %OUCBLABL = 'OUCBCIM'||OUCBSFX ; 00317140 * 12 OUCBLABL BIT(1), /* COMPOSITE INPUT MESSAGE */ 00318040 * %OUCBLABL = 'OUCBNQF'||OUCBSFX ; 00318940 * 12 OUCBLABL BIT(1), /* ENQHOLD PROCESSED */ 00319840 * %OUCBLABL = 'OUCBQSS'||OUCBSFX ; 00320740 * 12 OUCBLABL BIT(1), /* QSCEST PROCESSED */ 00321640 * %OUCBLABL = 'OUCBQSC'||OUCBSFX ; 00322540 * 12 OUCBLABL BIT(1), /* QSCECMP PROCESSED */ 00323440 * %OUCBLABL = 'OUCBMWT'||OUCBSFX ; 00324340 * 12 OUCBLABL BIT(1), /* MSO DETECTED WAIT STATUS */ 00325240 * %OUCBLABL = 'OUCBNQC'||OUCBSFX ; 00326140 * 10 OUCBLABL FIXED(8), /* NO. OF OUTSTANDING ENQHOLDS */ 00327040 * %OUCBLABL = 'OUCBUFL'||OUCBSFX ; /* @ZM43072*/ 00327940 * 10 OUCBLABL BIT(08), /* USER TYPE FLAGS @ZM43072*/ 00328540 * %OUCBLABL = 'OUCBJSFS'||OUCBSFX ;/* @ZM43072*/ 00329140 * 12 OUCBLABL BIT(1), /* JOB SELECT DELAYED DUE TO 00330640 * PAGEABLE FRAME SHORTAGE @ZM43072*/ 00331540 * %OUCBLABL = 'OUCBJSAS'||OUCBSFX ; /* @ZM43072*/ 00332140 * 12 OUCBLABL BIT(1), /* JOB SELECT DELAYED DUE TO 00333340 * AUXILIARY SLOT SHORTAGE @ZM43072*/ 00334240 * %OUCBLABL = 'OUCBRSWP'||OUCBSFX ; /* @ZA16887*/ 00334740 * 12 OUCBLABL BIT(1), /* REQSWAP IN PROGRESS @ZA16887*/ 00335240 * %OUCBLABL = 'OUCBTSWP'||OUCBSFX ; /* @ZA16887*/ 00336240 * 12 OUCBLABL BIT(1), /* TRANSWAP IN PROGRESS @ZA16887*/ 00337240 * %OUCBLABL = 'OUCBTSWC'||OUCBSFX ; /* @ZA16887*/ 00338240 * 12 OUCBLABL BIT(1), /* TRANSWAP COMPLETE @ZA16887*/ 00338940 * %OUCBLABL = 'OUCBCSFS'||OUCBSFX ; /* @ZA31942*/ 00341240 * 12 OUCBLABL BIT(1), /* SWAP IN FAIL DEFER BIT - 00341840 * USER ON WAIT QUEUE @ZA31942*/ 00342440 * %OUCBLABL = 'OUCBCSFM'||OUCBSFX ; /* @ZA31942*/ 00343040 * 12 OUCBLABL BIT(1), /* SWAP IN MESSAGE REQUIRED @ZA31942*/ 00343640 * %OUCBLABL = 'OUCBLGFX'||OUCBSFX ; /* @ZA42459*/ 00345240 * 12 OUCBLABL BIT(1), /* LOGICAL FIXED FRAME SHORTAGE CAUSED 00346840 * SWAP OUT @ZA42459*/ 00348440 * %OUCBLABL = 'OUCBNPG'||OUCBSFX ; 00350040 * 10 OUCBLABL FIXED(8), /* NEW PERFORMANCE GROUP NUMBER */ 00351040 * %OUCBLABL = 'OUCBRPG'||OUCBSFX ; 00352040 * 10 OUCBLABL FIXED(8), /* RESET PERFORMNC GROUP NUMBER */ 00353040 * %OUCBLABL = 'OUCBNDP'||OUCBSFX ; 00354040 * 10 OUCBLABL FIXED(8), /* NEW DISPATCHING PRIORITY */ 00355040 * %OUCBLABL = 'OUCBRDP'||OUCBSFX ; 00356040 * 10 OUCBLABL FIXED(8), /* REAL DISPATCHING PRIO @Z40BPCH*/ 00357040 * %OUCBLABL = 'OUCBSPG'||OUCBSFX ; 00358040 * 10 OUCBLABL FIXED(8), /* SPECIFIED PERF GROUP @Z40BPCH*/ 00359040 * %OUCBLABL = 'OUCBR30'||OUCBSFX ; 00360040 * 10 OUCBLABL PTR(8), /* RESERVED @Z40BPEB*/ 00361040 * %OUCBLABL = 'OUCBR40'||OUCBSFX ; 00362040 * 10 OUCBLABL PTR(8), /* RESERVED @Z40BPEB*/ 00363040 * %OUCBLABL = 'OUCBPGP'||OUCBSFX ; 00364040 * 10 OUCBLABL PTR(08), /* WMPGP OFFSET */ 00365040 * %OUCBLABL = 'OUCBWMG'||OUCBSFX ; 00366040 * 10 OUCBLABL PTR(15), /* WMPGD OFFSET */ 00367040 * %OUCBLABL = 'OUCBDMO'||OUCBSFX ; /* @Z40BPCH*/ 00368040 * 10 OUCBLABL PTR(15), /* OFFSET INTO DOMAIN TABLE 00369040 * @Z40BPCH*/ 00370040 * %OUCBLABL = 'OUCBDMN'||OUCBSFX ; /* @Z40BPCH*/ 00371040 * 10 OUCBLABL PTR(8), /* DOMAIN NUMBER @Z40BPCH*/ 00372040 * %OUCBLABL = 'OUCBSRC'||OUCBSFX ; /* @Z40BPCH*/ 00373040 * 10 OUCBLABL PTR(8), /* SWAP OUT REASON CODE @Z40BPCH*/ 00374040 * %OUCBLABL = 'OUCBSWC'||OUCBSFX ; 00375040 * 10 OUCBLABL FIXED(15), /* TRANSACTION SWAP COUNT */ 00376040 * %OUCBLABL = 'OUCBASCB' ; 00377040 * %IF OUCBSFX ^= '' 00378040 * %THEN %OUCBLABL = 'OUCBASC'||OUCBSFX ; 00379040 * 10 OUCBLABL PTR(31), /* ASCB ADDRESS */ 00380040 * %OUCBLABL = 'OUCBIMCB' ; 00381040 * %IF OUCBSFX ^= '' 00382040 * %THEN %OUCBLABL = 'OUCBIMC'||OUCBSFX ; 00383040 * 10 OUCBLABL PTR(31), /* IMCB ADDRESS */ 00384040 * %OUCBLABL = 'OUCBTMW'||OUCBSFX ; 00385040 * 10 OUCBLABL FIXED(32) UNSIGNED, /* WLM INTERVAL START TIME */ 00386040 * %OUCBLABL = 'OUCBWMS'||OUCBSFX ; 00387040 * 10 OUCBLABL FIXED, /* INTERVAL SERVICE ACCUMULATOR */ 00388040 * %OUCBLABL = 'OUCBCPU'||OUCBSFX ; /* @Z40BPCH*/ 00389040 * 10 OUCBLABL FIXED, /* INTERVAL CPU SERVICE ACCUM 00390040 * @Z40BPCH*/ 00391040 * %OUCBLABL = 'OUCBIOC'||OUCBSFX ; /* @Z40BPCH*/ 00392040 * 10 OUCBLABL FIXED, /* INTERVAL I/O SERVICE ACCUM 00393040 * @Z40BPCH*/ 00394040 * %OUCBLABL = 'OUCBMSO'||OUCBSFX ; /* @Z40BPCH*/ 00395040 * 10 OUCBLABL FIXED, /* INTERVAL MSO SERVICE ACCUM 00396040 * @Z40BPCH*/ 00397040 * %OUCBLABL = 'OUCBTMS'||OUCBSFX ; 00398040 * 10 OUCBLABL FIXED(32) UNSIGNED, /* TIME OF LAST SWAP ACTION */ 00400040 * %OUCBLABL = 'OUCBTMO'||OUCBSFX ; 00400940 * 10 OUCBLABL FIXED(32) UNSIGNED, /* TRANSACTION START TIME */ 00401840 * %OUCBLABL = 'OUCBPSO'||OUCBSFX ; 00402740 * 10 OUCBLABL FIXED(15), /* PAGES SWPPD AT LAST SWAP-OUT */ 00403640 * %OUCBLABL = 'OUCBWSS'||OUCBSFX ; 00404540 * 10 OUCBLABL FIXED(15), /* WORKING SET SIZE AT SWAP-IN */ 00405440 * %OUCBLABL = 'OUCBACT'||OUCBSFX ; 00406340 * 10 OUCBLABL PTR(31) BDY(WORD), /* ACTION QUE FORWD POINTER */ 00407240 * %OUCBLABL = 'OUCBCSW'||OUCBSFX ; 00408140 * 10 OUCBLABL BIN(32) BDY(WORD), /* FIELD FOR COMPARE AND SWAP */ 00409040 * %OUCBLABL = 'OUCBACN'||OUCBSFX ; 00409940 * 12 OUCBLABL BIT(16) BDY(WORD), /* DEFERRED ACTION FLAGS */ 00410840 * %OUCBLABL = 'OUCBCFL'||OUCBSFX ; 00411740 * 12 OUCBLABL BIT(08), /* MULTIPROCS CONDITION FLAGS */ 00412640 * %OUCBLABL = 'OUCBRDY'||OUCBSFX ; 00413540 * 14 OUCBLABL BIT(1), /* USERRDY SYSEVENT RECEIVED */ 00414440 * %OUCBLABL = 'OUCBRSM'||OUCBSFX ; 00415340 * 14 OUCBLABL BIT(1), /* RSM SERVICE OUTSTANDING */ 00416240 * %OUCBLABL = 'OUCBDFSW'||OUCBSFX ; /* @ZA31942*/ 00417140 * 14 OUCBLABL BIT(1), /* SWAP IN FAIL SPECIAL PROCESSING 00417440 * - PVT THRESHOLDS INCREASED @ZA31942*/ 00417740 * %OUCBLABL = 'OUCBCF2'||OUCBSFX ; 00418040 * 14 OUCBLABL BIT(5), /* RESERVED */ 00418340 * %OUCBLABL = 'OUCBCMRV'||OUCBSFX ; /* @Z40BPCH*/ 00418940 * %IF OUCBSFX ^= '' 00419840 * %THEN %OUCBLABL = 'OUCBCMR'||OUCBSFX; 00420740 * 10 OUCBLABL FIXED(31), /* COMPOSITE RECOM VALUE @Z40BPCH*/ 00421640 * %OUCBLABL = 'OUCBWMR'||OUCBSFX ; 00422540 * 10 OUCBLABL FIXED(31), /* WLM RECOMMENDATION VALUE */ 00423440 * %OUCBLABL = 'OUCBIRV'||OUCBSFX ; 00424340 * 10 OUCBLABL FIXED(15), /* IOM RECOMM. VALUE @Z40BPCH*/ 00425240 * %OUCBLABL = 'OUCBCRV'||OUCBSFX ; 00426140 * 10 OUCBLABL FIXED(15), /* CPM RECOMM. VALUE @Z40BPCH*/ 00427040 * %OUCBLABL = 'OUCBIOR'||OUCBSFX ; 00427940 * 10 OUCBLABL FIXED(15), /* I/O USAGE PROFILE */ 00428840 * %OUCBLABL = 'OUCBSTOS'||OUCBSFX ; 00429240 * 10 OUCBLABL FIXED(15),/* STAGE 1 WSS FOR SWAPIN FAIL @ZA31942*/ 00429940 * %OUCBLABL = 'OUCBFMCT'||OUCBSFX ; /* @ZA42459*/ 00430240 * 12 OUCBLABL FIXED(15), /* FRAME COUNT WHEN DETECT LOGICAL 00430540 * PAGEABLE STORAGE SHORT @ZA42459*/ 00430840 * %OUCBLABL = 'OUCBTMP'||OUCBSFX ; 00431540 * 10 OUCBLABL FIXED(32) UNSIGNED, /* PG PERIOD STARTING TIME */ 00432440 * %OUCBLABL = 'OUCBIOSM' ; /*@ZA10808*/ 00432740 * %IF OUCBSFX ^= '' 00432840 * %THEN %OUCBLABL = 'OUCBIOS'||OUCBSFX ; /*@ZA10808*/ 00432940 * 10 OUCBLABL FIXED(32), /* SMF EXCP COUNT @ZA10808*/ 00433340 * %OUCBLABL = 'OUCBPSS'||OUCBSFX ; /* @Z40BPCH*/ 00436940 * 10 OUCBLABL BIT(64) BDY(WORD), /* CPU PAGE SECONDS @Z40BPCH*/ 00437840 * %OUCBLABL = 'OUCBPS1'||OUCBSFX ; /* @Z40BPCH*/ 00438740 * 12 OUCBLABL FIXED(32), /* HIGH WORD PAGE SECS @Z40BPCH*/ 00439640 * %OUCBLABL = 'OUCBPS2'||OUCBSFX ; /* @Z40BPCH*/ 00440540 * 12 OUCBLABL FIXED(32), /* LOW WORD PAGE SECONDS @Z40BPCH*/ 00441440 * %OUCBLABL = 'OUCBPST'||OUCBSFX ; /* @Z40BPCH*/ 00442340 * 10 OUCBLABL FIXED(32), /* TIME OF LAST WORKING SET 00443240 * CHANGE @Z40BPCH*/ 00444140 * %OUCBLABL = 'OUCBTCP'||OUCBSFX ; /* @Z40BPCH*/ 00450040 * 10 OUCBLABL FIXED(32), /* TIME OF CPU USAGE EVALUATION 00453040 * @Z40BPCH*/ 00456040 * %OUCBLABL = 'OUCBTIO'||OUCBSFX ; /* @Z40BPCH*/ 00459040 * 10 OUCBLABL FIXED(32), /* TIME OF I/O USAGE EVALUATION 00462040 * @Z40BPCH*/ 00465040 * %OUCBLABL = 'OUCBNDS'||OUCBSFX ; /* @Z40BPEB*/ 00468040 * 10 OUCBLABL FIXED(15) ABNORMAL, /* NUM OF DONTSWAPS @ZA20975*/ 00471040 * %OUCBLABL = 'OUCBNTSP'||OUCBSFX ; /* @ZA16887*/ 00472040 * 10 OUCBLABL FIXED(15), /* NUM OF ADDITIONAL TRANSWAPS 00473040 * PENDING (@ZA16887) @ZA20975*/ 00474040 * %OUCBLABL = 'OUCBLGWS'||OUCBSFX ; /* @ZA42459*/ 00474140 * 12 OUCBLABL FIXED(15), /* LOGICAL WORKING SET SIZE FOR 00474240 * LOGICAL PAGE STORAGE SHORTAGE 00474340 * @ZA42459*/ 00474440 * %OUCBLABL = 'OUCBSWFC'||OUCBSFX ; /* @ZA31942*/ 00474740 * 10 OUCBLABL FIXED(15), /* SWAP IN FAIL COUNT @ZA31942*/ 00475440 * %OUCBLABL = 'OUCBSFEC'||OUCBSFX ; /* @ZA31942*/ 00476140 * 10 OUCBLABL FIXED(15), /* SWAP IN FAIL EVALUATION 00476840 * COUNT @ZA31942*/ 00477540 * %OUCBLABL = 'OUCBR50'||OUCBSFX ; /* @ZA31942*/ 00478240 * 10 OUCBLABL FIXED(31), /* RESERVED @ZA31942*/ 00478940 * %OUCBLABL = 'OUCBEND'||OUCBSFX ; 00480040 * 10 OUCBLABL CHAR(0) BDY(DWORD) /* END OF OUCB */ 00483040 * OUCB9999 00486040 * %OUCBLEN = 'LENGTH(OUCB)'; /* SYMBOLIC FOR LENGTH OF OUCB */ 00489040