* 00100001 * %GOTO TCBL1; /* 00110001 MACRO 00200001 IKJTCB &SYS=AOS2,&DSECT=YES,&LIST=NO */ 00300002 *%TCBL1 : ; 00310001 */* */ 00350001 */* TASK CONTROL BLOCK */ 00400001 */* */ 00500001 */* OS/VS2 SU64, 11/28/78, LEVEL=8 */ 00510064 */* */ 00560001 */* METHOD OF ACCESS */ 00570001 */* BAL - A DSECT IS PRODUCED UNLESS DSECT=NO IS SPECIFIED. */ 00580001 */* USING ON TCBFIX GIVES ADDRESSABILITY FOR ALL SYMBOLS */ 00590001 */* IN PREFIX AND TCB PROPER. TO GET ADDRESSABILITY FOR */ 00600001 */* THE OS/VS1 - OS/VS2 COMMON EXTENSION, YOU SHOULD */ 00610002 */* CODE */ 00620002 */* */ 00622002 */* L REG,TCBEXT2 */ 00630001 */* USING TCBXTNT2,REG */ 00640001 */* WHERE REG IS ANY REGISTER OTHER THAN ZERO. */ 00650001 */* */ 00660001 */* THIS MACRO ASSUMES A DEFAULT OF SYS=AOS2 WHICH MEANS */ 00670001 */* A MAPPING OF AN OS/VS2 TCB IS DESIRED. IF A MAPPING */ 00680002 */* OF AN OS/VS1 TCB IS DESIRED, PUT SYS=AOS1 AS A */ 00690002 */* PARAMETER ON THE MACRO CALL. IF A MAPPING OF THE */ 00700001 */* TCB FOR BOTH OS/VS1 AND OS/VS2 IS DESIRED, PUT */ 00710002 */* SYS=BOTH AS A PARAMETER. */ 00720001 */* */ 00730001 */* PL/S - DCL TCBPTR PTR */ 00740001 */* */ 00750001 */* THIS MACRO ASSUMES IT IS MAPPING AN OS/VS2 TCB. IF */ 00760002 */* AN OS/VS1 TCB MAPPING IS DESIRED, SPECIFY */ 00770002 */* %TCBSYSTM='AOS1' OR IF A MAPPING OF THE TCB FOR */ 00780002 */* BOTH OS/VS1 AND OS/VS2 IS DESIRED, SPECIFY */ 00790002 */* %TCBSYSTM='BOTH' BEFORE THE INCLUDE FOR THIS MACRO. */ 00800002 */* DO NOT SET TCBSYSTM TO 'AOS2' BECAUSE NULL MEANS */ 00810002 */* OS/VS2. */ 00812002 */* */ 00820001 */* MACRO VARIABLE TCBLEN IS SET TO THE LENGTH OF THE */ 00830001 */* TCB INCLUDING THE PREFIX. TCBLEN IS VALID IF */ 00840001 */* TCBSYSTM IS 'AOS1' OR '' (OS/VS2), BUT IT IS NOT */ 00850002 */* VALID IF TCBSYSTM='BOTH'. */ 00860001 */* */ 00910002 */* F.E.'S */ 00960002 */* MICROFICHE LISTING - IKJTCB */ 00970002 */* */ 00980002 */* DEVELOPERS */ 00990002 */* BAL LISTING - SPECIFY LIST=YES ON MACRO CALL. */ 00992002 */* PL/S LISTING - SPECIFY %IHALIST='YES' BEFORE INCLUDE. */ 00994002 */* */ 00996002 */* FOR INTEGRATION, A LISTING SHOULD NOT BE REQUESTED. */ 00998002 */* */ 00998300 */* CHANGE-ACTIVITY */ 00998600 */* OZ63673 CHANGE TCBDBTB TO TCBVAT @ZA63673*/ 00998900 */* OZ67167 DEFINE TCB NONDISPATCHABILITY BIT IN */ 00999000 */* SUPPORT OF OZ50029. @ZA67167*/ 00999100 */* */ 00999200 */* **************************************************************** */ 00999500 * 01000001 *%GOTO TCBL2; /* 01010001 PUSH PRINT 01012002 AIF ('&LIST' EQ 'YES').TCB10 01014002 PRINT OFF 01016002 .TCB10 ANOP 01018002 * 01020001 * TCB PREFIX 01100003 * 01170003 AIF ('&DSECT' EQ 'NO').NODSCT 01250001 TCBFIX DSECT , - TCBPTR-32 01300001 AGO .CONT 01350001 .NODSCT ANOP 01360001 DS 0D 01370001 TCBFIX EQU * - TCBPTR-32 01380001 .CONT ANOP 01390001 * 01400003 TCBFRS DS 0CL32 - FLOATING POINT REGISTER SAVE AREA 01500001 TCBFRS0 DS D - SAVE AREA FOR FLOATING POINT REGISTER 0 01600001 TCBFRS2 DS D - SAVE AREA FOR FLOATING POINT REGISTER 2 01700001 TCBFRS4 DS D - SAVE AREA FOR FLOATING POINT REGISTER 4 01800001 TCBFRS6 DS D - SAVE AREA FOR FLOATING POINT REGISTER 6 01900001 TCBPXLEN EQU *-TCBFIX LENGTH OF PREFIX SECTION 01950001 * 02000003 * TCB PROPER 02080003 * 02160003 DS 0D 02250001 TCB EQU * - TCBPTR 02372001 * 02400003 TCBRBP DS A - ADDRESS OF THE RB FOR EXECUTING PROGRAM 02500002 TCBPIE DS 0A - ADDRESS OF SPIE CONTROL AREA. THE FIRST WORD OF 02600002 * THIS AREA CONTAINS THE PROGRAM INTERRUPT ELEMENT 02610002 * (PIE) ADDRESS. MDC024 02620002 TCBPMASK DS B - SPIE BITS 02650001 TCBPM EQU X'0F' - PROGRAM MASK AT TIME OF SPIE INITIATION. MASK 02660001 * RESTORED AT TIME OF SPIE NULLIFICATION. 02670001 TCBPIEA DS AL3 - ADDRESS OF SPIE CONTROL AREA. THE FIRST WORD OF 02680002 * THIS AREA CONTAINS THE PROGRAM INTERRUPT ELEMENT 02690002 * (PIE) ADDRESS. MDC024 02692002 TCBDEB DS A - ADDRESS OF THE DEB QUEUE 02700002 TCBTIO DS A - ADDRESS OF THE TASK I/O TABLE (TIOT) 02800002 TCBCMP DS 0BL4 - TASK COMPLETION CODE AND INDICATORS 02900002 TCBCMPF DS B - INDICATOR FLAGS 03000002 TCBCREQ EQU X'80' - A DUMP HAS BEEN REQUESTED 03100001 TCBCSTEP EQU X'40' - A STEP ABEND HAS BEEN REQUESTED 03200001 TCBCPP EQU X'20' - SOME PROBLEM PROGRAM STORAGE WAS OVERLAID BY THE 03300002 * SECOND LOAD OF ABEND. A FIRST LOAD OVERLAY IS 03350002 * INDICATED IN TCBFLGS FIELD (OFFSET 29 DECIMAL). 03400002 * (OS/VS1) MDC054 03450002 TCBDMPO EQU X'20' - DUMP OPTIONS WERE PROVIDED ON CALLRTM OR SETRP 03510002 * MACRO (OS/VS2) MDC060 03520002 TCBSTCC EQU X'10' - COMPLETION CODE IS NOT TO BE STORED IN TCBCMPC 03550001 * (OFFSET 17 DECIMAL) IF AN ABEND IS ENCOUNTERED. 03552002 * THIS IS TO PREVENT AN OVERLAY OF THE ORIGINAL 03560002 * COMPLETION CODE. (OS/VS1) MDC055 03570002 TCBNOCC EQU X'10' - A COMPLETION CODE WAS NOT PROVIDED ON CALLRTM 03590002 * MACRO. A DEFAULT CODE IS BEING USED. 03592002 * (OS/VS2) MDC061 03594002 TCBCDBL EQU X'08' - A DOUBLE ABEND HAS OCCURRED (OS/VS1) MDC056 03600002 TCBCASID EQU X'08' - ABEND WAS SCHEDULED VIA CROSS MEMORY ABTERM 03650002 * (OS/VS2) MDC062 03660002 TCBCWTO EQU X'04' - A DUMP MESSAGE (WTO) IS TO BE ISSUED TO THE 03700002 * OPERATOR (OS/VS1) MDC057 03750002 TCBRV316 EQU X'04',,C'X' - RESERVED FOR CALLRTM FLAG (OS/VS2) MDC063 03760002 TCBCIND EQU X'02' - ABEND TO OUTPUT AN INDICATIVE DUMP (OS/VS1) 03800003 * (MDC303) @X04DA9A 03830003 TCBRV317 EQU X'02',,C'X' - RESERVED FOR CALLRTM FLAG (OS/VS2) MDC063 03860002 TCBCMSG EQU X'01' - AN ABEND MESSAGE IS PROVIDED TO BE PRINTED BY 03900002 * ABDUMP (OS/VS1) MDC059 03950002 TCBRV318 EQU X'01',,C'X' - RESERVED FOR CALLRTM FLAG (OS/VS2) MDC063 03960002 TCBCMPC DS BL3 - SYSTEM COMPLETION CODE IN FIRST 12 BITS, 04000002 * USER COMPLETION CODE IN LAST 12 BITS 04100002 TCBTRN DS 0A - ADDRESS OF TESTRAN CONTROL CORE TABLE 04200002 TCBABF DS B - FLAG BYTE 04300001 TCBMOD91 EQU X'80' - BOTH TESTRAN AND DECIMAL SIMULATOR ON A MOD 91 04400001 TCBNOCHK EQU X'40' - SUPPRESS TAKING CHECKPOINTS FOR THIS STEP 04500001 * (JOB STEP TCB) 04600001 TCBGRPH EQU X'20' - THIS IS A GRAPHICS FOREGROUND JOB OR THE 04700002 * GRAPHIC JOB PROCESSOR 04700402 TCBRSV01 EQU X'10',,C'X' - RESERVED 04701001 TCBTCPP EQU X'08' - TCAM POST-PENDING (RORI) 04800001 TCBTCP EQU X'04' - TEST TASK - USED BY TEST SVC 04900001 TCBOLTEP EQU X'02' - OLTEP FUNCTIONS REQUIRE CLEANUP BEFORE ABNORMAL 05000002 * TERMINATION CAN BE INVOKED 05100001 TCBRSV02 EQU X'01',,C'X' - RESERVED 05101001 TCBTRNB DS AL3 - ADDRESS OF TESTRAN CONTROL CORE TABLE 05200002 TCBMSS DS 0A - FOR JOB STEP TCB, ADDRESS OF THE BOUNDARY BOX. 05300002 * FOR SUBTASK TCB, ADDRESS OF THE GOTTEN SUBTASK 05350002 * AREA QUEUE ELEMENT (GQE). A GQE IS PRESENT 05360002 * ONLY IF THE SYSTEM HAS ISSUED A GETMAIN MACRO 05370002 * INSTRUCTION FOR THE SPACE. (OS/VS1) 05380002 * ADDRESS OF LAST SPQE ON MSS QUEUE (OS/VS2) 05400002 TCBRSV03 DS X - ** TCBNROC FIELD UNUSED IN OS/VS ** 05500002 TCBMSSB DS AL3 - FOR JOB STEP TCB, ADDRESS OF THE BOUNDARY BOX. 05700002 * FOR SUBTASK TCB, ADDRESS OF THE GOTTEN SUBTASK 05750002 * AREA QUEUE ELEMENT (GQE). A GQE IS PRESENT 05800002 * ONLY IF THE SYSTEM HAS ISSUED A GETMAIN MACRO 05850002 * INSTRUCTION FOR THE SPACE. (OS/VS1) 05860002 * ADDRESS OF LAST SPQE ON MSS QUEUE (OS/VS2) 05870002 TCBPKF DS B - STORAGE PROTECTION KEY FOR THIS TASK. IF THERE 05900002 * IS NO STORAGE PROTECTION, ALL BITS ARE ZERO. 05950002 TCBFLAG EQU X'F0' - STORAGE PROTECTION KEY 06000002 TCBZERO EQU X'0F' - MUST BE ZERO 06100002 TCBFLGS DS 0BL5 - FLAG BYTE FIELDS 06200002 TCBFLGS1 DS B - FIRST TCB FLAG BYTE 06300001 TCBFA EQU X'80' - ABNORMAL TERMINATION IN PROGRESS 06400001 TCBFE EQU X'40' - NORMAL TERMINATION IN PROGRESS 06500001 AIF ('&SYS' EQ 'AOS2').A1 06600001 AIF ('&SYS' EQ 'BOTH').A1A 06650001 TCBABTRM EQU X'20' - ABEND WAS INITIATED BY THE RESIDENT ABNORMAL 06700002 * TERMINATION ROUTINE (OS/VS1) 06700402 AGO .A1B 06850001 .A1A ANOP 06860001 * FOLLOWING OS/VS1 EQU IS SHOWN AS A COMMENT BECAUSE 06870002 * OS/VS2 USES THIS LABEL ON ANOTHER BIT 06880002 *TCBABTRM EQU X'20' - ABEND WAS INITIATED BY THE RESIDENT ABNORMAL 06890002 * TERMINATION ROUTINE (OS/VS1) 06892002 .A1B ANOP 06894001 TCBJSTE EQU X'10' - JOB STEP TIMER EXPIRED DURING JOB STEP ABEND 06894103 * PROCESSING. STAE EXITS WILL NOT BE ALLOWED. 06902103 * (OS/VS1) (MDC300) @X04DA9A 06910103 TCBDMPA EQU X'08' - THIS TASK IS USING THE DUMP AREA TO STORE PART 06918103 * OF THE PROBLEM PROGRAM, THEREBY PROVIDING THE 06926103 * JOB STEP WITH ENOUGH STORAGE FOR OBTAINING A 06934103 * DUMP (OS/VS1) ICB440 06944602 TCBPOOL EQU X'04' - SVC SECOND LEVEL INTERRUPT HANDLER REQUESTING 06994602 * SVRB CORE FOR ABEND (OS/VS1) MDC069 07044602 .A1 AIF ('&SYS' EQ 'AOS1').A2 07100001 TCBFERA EQU X'20' - ENTER ABEND ERASE ROUTINE WHEN IN CONTROL AGAIN 07200001 * (OS/VS2) 07250002 TCBNONPR EQU X'10' - TASK IS NON-PREEMPTABLE (OS/VS2) 07251004 * (MDC320) @Z40FP9A 07291004 TCBPDUMP EQU X'08' - PREVENT DUMP INDICATOR (OS/VS2) 07400002 TCBFT EQU X'04' - TOP TASK IN TREE BEING ABTERMED (OS/VS2) 07500002 .A2 ANOP 07600001 TCBFS EQU X'02' - ABTERM DUMP COMPLETED (OS/VS2) 07700002 * PROBLEM PROGRAM STORAGE HAS BEEN OVERLAID TO 07800002 * PROCESS ABEND (OS/VS1) 07850002 TCBFX EQU X'01' - PROHIBIT QUEUEING OF ASYNCHRONOUS EXITS FOR 07900002 * THIS TASK 07950002 TCBFLGS2 DS B - SECOND FLAG BYTE 08100001 AIF ('&SYS' EQ 'AOS2').A3 08200001 TCBSYSTK EQU X'80' - ABEND PROHIBITED FOR THIS SYSTEM TASK (OS/VS1) 08300002 .A3 AIF ('&SYS' EQ 'AOS1').A4 08500001 TCBFOINP EQU X'80' - THE TASK IS ABENDING AND IS IN THE PROCESS OF 08600002 * (1) OPEN FOR DUMP DATA SET PROCESSING, 08610002 * (2) CLOSE FOR USER DATA SET OR 08620002 * (3) PURGE FOR ENQ'ED RESOURCES. THIS BIT IS 08630002 * USED IN CONJUNCTION WITH TCBSTACK. 08640002 * (OS/VS2) ICB374 08650002 .A4 ANOP 08700001 TCBFSTI EQU X'40' - SECOND JOB STEP INTERVAL HAS EXPIRED 08800001 * (OS/VS2 INITIATOR TCB) 08900002 TCBFABOP EQU X'20' - IF 1, THE SYSABEND DUMP DATA SET HAS BEEN OPENED 08950002 * FOR ABEND. IF 0, THE SYSUDUMP DUMP DATA SET WAS 09000002 * OPENED. THIS BIT IS ONLY USED FOR THE JOB STEP 09100001 * TCB AND IS USED IN CONJUNCTION WITH TCBFDSOP 09150001 * BIT. (OS/VS2) (ICB482) YM0651 09160001 TCBFSMC EQU X'10' - TASK HAS ISSUED A SYSTEM-MUST-COMPLETE AND SET 09200002 * ALL OTHER TASKS IN THE SYSTEM NON-DISPATCHABLE 09300002 TCBFJMC EQU X'08' - TASK HAS ISSUED A STEP-MUST-COMPLETE AND TURNED 09400002 * OFF ALL OTHER TASKS IN THE STEP 09500001 AIF ('&SYS' EQ 'AOS1').A6 09900001 TCBFDSOP EQU X'04' - SYSABEND OPEN FOR JOB STEP (OS/VS2) 10000002 .A6 ANOP 10100001 AIF ('&SYS' EQ 'AOS2').A6A 10101001 TCBRSV50 EQU X'04',,C'X' - RESERVED (OS/VS1) 10102002 .A6A ANOP 10103001 TCBFETXR EQU X'02' - ETXR TO BE SCHEDULED 10200001 TCBFTS EQU X'01' - THIS TASK IS A MEMBER OF A TIME-SLICED GROUP 10300002 TCBFLGS3 DS B - THIRD FLAG BYTE 10500001 TCBFSM EQU X'80' - ALL PSW'S IN SUPERVISOR STATE (OS/VS2) 10600002 AIF ('&SYS' EQ 'AOS2').A7 11100001 TCBRSV51 EQU X'40',,C'X' - RESERVED (OS/VS1) 11101002 TCBSYSER EQU X'20' - EXIT EFFECTOR - SYSTEM ERROR ROUTINES ALREADY 11200002 * OPERATING FOR THIS TASK (OS/VS1) 11250002 TCBRSV52 EQU X'10',,C'X' - RESERVED (OS/VS1) 11251002 TCBFLREG EQU X'08' - FLOATING POINT REGISTERS EXIST (OS/VS1) 11300002 TCBSCHAB EQU X'04' - SCHEDULER HAS ABENDED, ABEND PROCESSING HAS 11400002 * COMPLETED AND THE SCHEDULER HAS BEEN RE-ENTERED 11450002 * (OS/VS1) (ICB465) XM4931 11460002 TCBPKCHG EQU X'02' - XCTL ROUTINE IS CHANGING THE STORAGE PROTECTION 11500002 * KEY IN THE PSW FROM ZERO TO THE ONE USED BY THE 11550002 * PROBLEM PROGRAM (OS/VS1) 11600002 TCBRSV53 EQU X'01',,C'X' - RESERVED (OS/VS1) 11601002 .A7 AIF ('&SYS' EQ 'AOS1').A8 11800001 TCBADINP EQU X'40' - USED IN CONJUNCTION WITH TCBONDSP. FLAG 11850001 * INDICATING THAT ABDUMP IS CURRENTLY PROCESSING 11860001 * FOR SOME TASK IN JOB STEP. A HIGHER LEVEL TASK 11870001 * IS NOT ALLOWED TO ENTER MAINLINE ABEND 11880001 * PROCESSING IF THIS BIT IS SET IN JOB STEP TCB 11890001 * UNLESS JOB STEP TASK IS FAILING. BIT SET ONLY 11892001 * IN JOB STEP TCB AND TASK INVOKING ABDUMP. 11894001 * (OS/VS2) 11896002 TCBABTRM EQU X'20' - ABTERM BIT TO PREVENT MULTIPLE ABENDS (OS/VS2) 11900002 TCBABGM EQU X'10' - GETMAIN IS TO DEFAULT LSQA REQUESTS TO SQA 11950001 * REQUESTS WHEN REQUEST CANNOT BE SATISFIED FROM 12000001 * LSQA (OS/VS2) 12050002 TCBRSV06 EQU X'08',,C'X' - RESERVED (OS/VS2) 12051002 TCBRSV07 EQU X'04',,C'X' - RESERVED (OS/VS2) 12052002 TCBRSV08 EQU X'02',,C'X' - RESERVED (OS/VS2) 12053002 TCBDWSTA EQU X'01' - THIS TASK WAS DETACHED WITH STAE=YES OPTION 12060001 * (OS/VS2) ICB315 12070002 .A8 ANOP 13000001 TCBFLGS4 DS B - NON-DISPATCHABILITY FLAGS (OS/VS2) 13100002 * RESERVED BYTE (OS/VS1) 13150002 TCBNDUMP EQU X'80' - ABDUMP NON-DISPATCHABILITY INDICATOR 13300002 TCBSER EQU X'40' - SER1 NON-DISPATCHABILITY INDICATOR 13400002 TCBRQENA EQU X'20' - I/O RQE'S EXHAUSTED 13500001 TCBHNDSP EQU X'10' - TASK OR JOB STEP IS MOMENTARILY 'FROZEN' UNTIL 13502001 * THE REQUIRED RESOURCES ARE AVAILABLE. THE BIT 13504001 * IS SET THROUGH THE USE OF THE 'STATUS' SVC 13506001 * ICB453 13508001 TCBUXNDV EQU X'08' - TASK IS TEMPORARILY NON-DISPATCHABLE BECAUSE 13510001 * SMF TIME LIMIT OR SYSOUT LIMIT USER EXIT 13520001 * ROUTINE IS BEING EXECUTED FOR THIS STEP 13530002 TCBMPCVQ EQU X'04' - VARY OR QUIESCE IN MULTIPROCESSING SYSTEM 13600001 TCBMPCND EQU X'02' - M65 MULTIPROCESSING NON-DISPATCHABILITY 13700002 * INDICATOR FOR ALL CPU'S 13800002 TCBONDSP EQU X'01' - TASK TERMINATING AND NON-DISPATCHABLE BECAUSE 13900002 * EITHER OPEN FOR DUMP DATA SET IS IN PROCESS OR 14000001 * CLOSE BY ABEND IS IN PROCESS 14100001 TCBFLGS5 DS B - MORE NON-DISPATCHABILITY FLAGS. IF ANY BIT IN 14200002 * THIS BYTE IS 1, THE TASK IS NON-DISPATCHABLE. 14250002 TCBFC EQU X'80' - TASK TERMINATED (OS/VS2) 14400002 TCBABWF EQU X'40' - ABNORMAL WAIT (OS/VS2) 14500002 TCBUXNDF EQU X'40' - TASK IS TEMPORARILY NON-DISPATCHABLE BECAUSE 14510002 * SMF TIME LIMIT OR SYSOUT LIMIT USER EXIT ROUTINE 14520001 * IS BEING EXECUTED FOR THIS STEP. THIS BIT IS 14530002 * SET TO 1 IN ALL TCB'S EXCEPT JOB STEP TCB. 14532002 * (OS/VS1) ICB263 14540002 TCBPAGE EQU X'20' - TASK IS NON-DISPATCHABLE DUE TO EXCESSIVE PAGING 14600002 * RATE 14650001 TCBANDSP EQU X'10' - TASK IS TEMPORARILY NON-DISPATCHABLE BECAUSE IT 14700002 * WAS ATTACHED UNDER THE DISP=NO OPERAND 14750002 TCBSYS EQU X'08' - ANOTHER TASK IS IN SYSTEM-MUST-COMPLETE STATUS 14800002 * OR A SUMMARY BIT FOR FIELD TCBSYSCT 14850002 TCBSTP EQU X'04' - ANOTHER TASK IN THIS JOB STEP IS IN 14900002 * STEP-MUST-COMPLETE STATUS 15000002 TCBFCD1 EQU X'02' - INITIATOR WAITING FOR REGION (OS/VS2) 15100002 TCBPNDSP EQU X'01' - PRIMARY NON-DISPATCHABILITY BIT. THIS BIT IS 15200002 * SET TO 1 IF ANY OF THE SECONDARY 15250002 * NON-DISPATCHABILITY BITS (OFFSETS 173, 174, 175, 15300002 * 200 OR 201 DECIMAL) IS SET TO 1. THIS BIT IS 15350002 * SET TO 0 IF A SECONDARY NON-DISPATCHABILITY BIT 15360002 * IS SET TO 0 AND ALL OTHER SECONDARY 15370002 * NON-DISPATCHABILITY BITS ARE 0. 15380002 TCBLMP DS FL1 - TASK LIMIT PRIORITY (OS/VS2) 15400002 * NUMBER OF RESOURCES FOR WHICH THIS TASK IS 15600002 * ENQUEUED (OS/VS1) 15650002 TCBDSP DS FL1 - DISPATCHING PRIORITY FOR THIS TASK 15800002 TCBLLS DS A - ADDRESS OF LAST LOAD LIST ELEMENT (LLE) IN LOAD 15900002 * LIST (OS/VS2) 15950002 * ADDRESS OF THE PREFIX OF THE MOST RECENTLY ADDED 16100002 * REQUEST BLOCK (RB-8) ON THE LIST OF PROGRAMS 16110002 * LOADED VIA THE LOAD MACRO INSTRUCTION (OS/VS1) 16150002 * MDC070 16200002 TCBJLB DS A - ADDRESS OF A JOBLIB DCB 16300002 AIF ('&SYS' EQ 'AOS2').B1 16400001 TCBFTJST DS 0A - ADDRESS OF THE JOB STEP TCB. FOR TASKS WITH A 16500002 * PROTECTION KEY OF ZERO, THIS FIELD CONTAINS THE 16550002 * ADDRESS OF THIS TCB. (OS/VS1) 16600002 .B1 AIF ('&SYS' EQ 'AOS1').B2 16700001 TCBJPQ DS 0A - ADDRESS OF LAST CDE FOR JOB PACK AREA (JPA) 16800002 * CONTROL QUEUE (OS/VS2) 16850002 .B2 ANOP 16900001 TCBPURGE DS B - PURGE FLAGS (OS/VS2) 17000002 TCBJPQF EQU X'80' - JPQ PURGE FLAG 17200001 TCBRSV09 EQU X'40',,C'X' - RESERVED 17201001 TCBRSV10 EQU X'20',,C'X' - RESERVED 17202001 TCBRSV11 EQU X'10',,C'X' - RESERVED 17203001 TCBRSV12 EQU X'08',,C'X' - RESERVED 17204001 TCBRSV13 EQU X'04',,C'X' - RESERVED 17205001 TCBRSV14 EQU X'02',,C'X' - RESERVED 17206001 TCBRSV15 EQU X'01',,C'X' - RESERVED 17207001 AIF ('&SYS' EQ 'AOS2').B3 17300001 AIF ('&SYS' EQ 'BOTH').B3A 17350001 TCBFTJSA DS AL3 - ADDRESS OF THE JOB STEP TCB. FOR TASKS WITH A 17400002 * PROTECTION KEY OF ZERO, THIS FIELD CONTAINS THE 17450002 * ADDRESS OF THIS TCB. (OS/VS1) 17460002 AGO .B4 17500001 .B3A ANOP 17550001 TCBFTJSA DS 0AL3 - ADDRESS OF THE JOB STEP TCB. FOR TASKS WITH A 17560002 * PROTECTION KEY OF ZERO, THIS FIELD CONTAINS THE 17570002 * ADDRESS OF THIS TCB. (OS/VS1) 17580002 .B3 ANOP 17600001 TCBJPQB DS AL3 - ADDRESS OF LAST CDE FOR JOB PACK AREA (JPA) 17700002 * CONTROL QUEUE (OS/VS2) 17750002 .B4 ANOP 17800001 TCBGRS DS 0CL64 - GENERAL REGISTER SAVE AREA 17900001 AIF ('&SYS' EQ 'AOS1').B4B 17905001 AIF ('&SYS' EQ 'AOS2').B4A 17910001 * THE FOLLOWING REGISTER MAPPING APPLIES TO OS/VS2. 17915002 * OS/VS1 SAVES REGISTERS IN THE ORDER TCBGRS10-TCBGRS9. 17920002 .B4A ANOP 17925001 TCBGRS0 DS F - SAVE AREA FOR GENERAL REGISTER 0 18000001 TCBGRS1 DS F - SAVE AREA FOR GENERAL REGISTER 1 18100001 TCBGRS2 DS F - SAVE AREA FOR GENERAL REGISTER 2 18200001 TCBGRS3 DS F - SAVE AREA FOR GENERAL REGISTER 3 18300001 TCBGRS4 DS F - SAVE AREA FOR GENERAL REGISTER 4 18400001 TCBGRS5 DS F - SAVE AREA FOR GENERAL REGISTER 5 18500001 TCBGRS6 DS F - SAVE AREA FOR GENERAL REGISTER 6 18600001 TCBGRS7 DS F - SAVE AREA FOR GENERAL REGISTER 7 18700001 TCBGRS8 DS F - SAVE AREA FOR GENERAL REGISTER 8 18800001 TCBGRS9 DS F - SAVE AREA FOR GENERAL REGISTER 9 18900001 TCBGRS10 DS F - SAVE AREA FOR GENERAL REGISTER 10 19000001 TCBGRS11 DS F - SAVE AREA FOR GENERAL REGISTER 11 19100001 TCBGRS12 DS F - SAVE AREA FOR GENERAL REGISTER 12 19200001 TCBGRS13 DS F - SAVE AREA FOR GENERAL REGISTER 13 19300001 TCBGRS14 DS F - SAVE AREA FOR GENERAL REGISTER 14 19400001 TCBGRS15 DS F - SAVE AREA FOR GENERAL REGISTER 15 19500001 AGO .B4C 19505001 .B4B ANOP 19510001 TCBGRS10 DS F - SAVE AREA FOR GENERAL REGISTER 10 19515001 TCBGRS11 DS F - SAVE AREA FOR GENERAL REGISTER 11 19520001 TCBGRS12 DS F - SAVE AREA FOR GENERAL REGISTER 12 19525001 TCBGRS13 DS F - SAVE AREA FOR GENERAL REGISTER 13 19530001 TCBGRS14 DS F - SAVE AREA FOR GENERAL REGISTER 14 19535001 TCBGRS15 DS F - SAVE AREA FOR GENERAL REGISTER 15 19540001 TCBGRS0 DS F - SAVE AREA FOR GENERAL REGISTER 0 19545001 TCBGRS1 DS F - SAVE AREA FOR GENERAL REGISTER 1 19550001 TCBGRS2 DS F - SAVE AREA FOR GENERAL REGISTER 2 19555001 TCBGRS3 DS F - SAVE AREA FOR GENERAL REGISTER 3 19560001 TCBGRS4 DS F - SAVE AREA FOR GENERAL REGISTER 4 19565001 TCBGRS5 DS F - SAVE AREA FOR GENERAL REGISTER 5 19570001 TCBGRS6 DS F - SAVE AREA FOR GENERAL REGISTER 6 19575001 TCBGRS7 DS F - SAVE AREA FOR GENERAL REGISTER 7 19580001 TCBGRS8 DS F - SAVE AREA FOR GENERAL REGISTER 8 19585001 TCBGRS9 DS F - SAVE AREA FOR GENERAL REGISTER 9 19590001 .B4C ANOP 19595001 TCBFSA DS 0A - ADDRESS OF THE FIRST PROBLEM PROGRAM SAVE AREA 19600002 AIF ('&SYS' EQ 'AOS2').B5 19700001 AIF ('&SYS' EQ 'BOTH').B5A 19750001 TCBIDF DS C - TCB IDENTIFIER FIELD (OS/VS1) 19800002 AGO .B6 19900001 .B5A ANOP 19950001 TCBIDF DS 0C - TCB IDENTIFIER FIELD (OS/VS1) 19960002 .B5 ANOP 20000001 TCBQEL DS FL1 - ENQUEUE COUNT (OS/VS2) 20100002 .B6 ANOP 20200001 TCBFSAB DS AL3 - ADDRESS OF THE FIRST PROBLEM PROGRAM SAVE AREA 20300002 TCBTCB DS A - ADDRESS OF NEXT TCB OF LOWER PRIORITY ON THE 20400002 * READY QUEUE 20450002 TCBTME DS A - ADDRESS OF THE TIMER QUEUE ELEMENT (TQE) 20600002 TCBTQET EQU X'80' - IF ZERO, TASK TYPE TQE. 20650002 * IF ONE, REAL/WAIT TYPE TQE. MDC028 20660002 AIF ('&SYS' EQ 'AOS2').B7 20700001 TCBPIB DS 0A - ADDRESS OF THE PARTITION INFORMATION BLOCK (PIB) 20800002 * (OS/VS1) 20850002 TCBPIBT DS B - PARTITION TYPE (OS/VS1) 20900002 TCBPART EQU X'C0' - PARTITION FLAG BITS 21000001 TCBPP EQU X'C0' - PROCESSING PROGRAM PARTITION 21200001 TCBSIZE EQU X'20' - IF 1, LARGE PARTITION. IF 0, SMALL PARTITION. 21600002 TCBSTOP EQU X'10' - CPU TIMING STOPPED BY FINCH UNTIL TRANSIENT IS 21700002 * LOADED 21800002 TCBRSV54 EQU X'08',,C'X' - RESERVED 21801001 TCBSCHTI EQU X'04' - SCHEDULER HAS SET TCBTIO (OFFSET 12 DECIMAL) TO 21851002 * POINT TO THE INITIATOR'S TIOT. IT ONLY HAS 21861002 * MEANING WHEN BIT TCBSCHED IS ON. (ICB489) XM8572 21871002 TCBWRITE EQU X'02' - INDICATES TO ABEND THAT THIS IS A READER OR 21900001 * WRITER TASK ICB422 21950001 TCBSCHED EQU X'01' - SCHEDULER IN CONTROL. BIT TURNED OFF WHEN TIOT 22000002 * WRITTEN TO JOB QUEUE. USED BY ABEND. 22100002 TCBPIBA DS AL3 - ADDRESS OF THE PARTITION INFORMATION BLOCK (PIB) 22200002 * (OS/VS1) 22210002 AIF ('&SYS' EQ 'AOS1').B8 22250001 ORG TCBPIB 22300001 .B7 ANOP 22400001 TCBJSTCB DS 0A - ADDRESS OF FIRST JOB STEP TCB 22500002 * OR OF THIS TCB IF KEY ZERO (OS/VS2) 22600002 TCBRSV16 DS X - RESERVED 22700001 TCBJSTCA DS AL3 - ADDRESS OF FIRST JOB STEP TCB 22800002 * OR OF THIS TCB IF KEY ZERO (OS/VS2) 22900002 .B8 ANOP 23000001 TCBNTC DS A - ADDRESS OF THE TCB FOR THE TASK PREVIOUSLY 23100002 * ATTACHED BY THE TASK THAT ATTACHED THIS TASK. 23150002 * FOR EXAMPLE, IF TASK A ATTACHED TASK B AND THEN 23200002 * TASK C, THIS FIELD IN TASK C'S TCB POINTS TO 23250002 * TASK B'S TCB, AND THIS FIELD IN TASK B'S TCB 23300002 * IS ZERO. 23350002 TCBOTC DS A - ADDRESS OF THE TCB FOR THE TASK (THE ORIGINATING 23400002 * TASK) THAT ATTACHED THIS TASK. THIS FIELD IS 23450002 * ZERO IN THE TCB FOR A SYSTEM TASK. 23500002 TCBLTC DS A - ADDRESS OF THE TCB FOR THE TASK LAST ATTACHED BY 23600002 * THIS TASK. NOTE - IF A TASK (THE ORIGINATING 23650002 * TASK) HAS ATTACHED OTHER TASKS, THE TCB'S FOR 23700002 * THE OTHER TASKS ARE ON THE SUBTASK QUEUE OF THE 23750002 * ORIGINATING TASK. TCBLTC IN THE TCB FOR THE 23760002 * ORIGINATING TASK POINTS TO THE LAST TCB (THE 23770002 * TCB FOR THE LAST ATTACHED TASK) IN THE SUBTASK 23780002 * QUEUE. IN EACH TCB ON THE SUBTASK QUEUE, 23790002 * EXCEPT THE FIRST TCB, TCBNTC POINTS TO THE 23792002 * PRECEDING TCB ON THE QUEUE. 23794002 TCBIQE DS A - ADDRESS OF AN INTERRUPTION QUEUE ELEMENT (IQE) 23800002 * FOR SCHEDULING THE ETXR ROUTINE OF THE TASK 23850002 * THAT ATTACHED THIS TASK. 23900002 TCBECB DS A - ADDRESS OF THE ECB THAT WILL BE POSTED BY THE 24000002 * SUPERVISOR'S TASK TERMINATION ROUTINES WHEN 24050002 * NORMAL OR ABNORMAL TERMINATION OCCURS. 24100002 TCBTSFLG DS B - TIME SHARING FLAGS 24200001 TCBTSTSK EQU X'80' - SWAPPED TIME SHARING TASK (OS/VS1) MDC013 24210002 TCBRV300 EQU X'80',,C'X' - RESERVED (WAS TCBTSTSK) (OS/VS2) MDC013 24250002 TCBSTPPR EQU X'40' - TASK SHOULD BE MADE NON-DISPATCHABLE VIA TCBSTPP 24400002 * WHEN IT IS NO LONGER RUNNING A PRIVILEGED 24500002 * PROGRAM 24550002 TCBATT EQU X'20' - TASK SHOULD NOT HAVE ATTENTION EXITS 24600001 * SCHEDULED ON IT BY EXIT EFFECTOR 24700001 TCBTIOTG EQU X'10' - PURGE TGET/TPUT AFTER ATTENTION 24800001 TCBRSV17 EQU X'08',,C'X' - RESERVED 24801001 TCBRSV18 EQU X'04',,C'X' - RESERVED 24802001 TCBDYDSP EQU X'02' - M195 TASK IS MEMBER OF DYNAMIC DISPATCHING 24810001 * GROUP ICB262 24820001 TCBCPUBN EQU X'01' - FOR M195, ZERO MEANS I/O BOUND AND ONE MEANS 24830001 * CPU BOUND ICB262 24840001 TCBSTPCT DS FL1 - NUMBER OF SETTASK STARTS WHICH MUST BE 24900001 * ISSUED BEFORE TASK IS MADE DISPATCHABLE - 25000001 * FIELD NOT RESTRICTED TO TSO 25100001 TCBTSLP DS FL1 - LIMIT PRIORITY OF TIME SHARING TASK 25200002 TCBTSDP DS B - DISPATCHING PRIORITY OF TIME SHARING TASK 25300002 AIF ('&SYS' EQ 'AOS1').C1 25400001 AIF ('&SYS' EQ 'BOTH').C1A 25450001 TCBPQE DS A - POINTER TO DPQE MINUS 8 FOR THE JOB STEP 25452002 * (OS/VS2) 25452402 AGO .C2 25454001 .C1A ANOP 25456001 TCBPQE DS 0A - POINTER TO DPQE MINUS 8 FOR THE JOB STEP 25458002 * (OS/VS2) 25458102 .C1 ANOP 25458401 TCBFTLMP DS FL1 - THE LIMIT PRIORITY OF THE TASK (OS/VS1) 25500002 TCBFTFLG DS 0BL3 - ABEND FLAGS (OS/VS1) 25600002 TCBFTFL1 DS B - ABEND FLAGS (OS/VS1) 25700002 TCBTCAM EQU X'80' - TCAM IS BEING USED BY THIS TCB STRUCTURE. THIS 25702003 * BIT IS SET ON IN THE JOB STEP TASK TCB ONLY. 25702203 * (MDC312) @X31BH9A 25702403 TCBVTAM EQU X'40' - VTAM IS BEING USED BY THIS TCB STRUCTURE. THIS 25702603 * BIT IS SET ON IN THE JOB STEP TASK TCB ONLY. 25703003 * (MDC313) @X31BH9A 25713003 TCBRWTOR EQU X'20' - TASK HAS ISSUED A WTOR TO A REMOTE RES 25718006 * WORKSTATION. RTAM WILL USE THIS BIT TO PREVENT 25723006 * AN UNNECESSARY NUMBER OF DISABLED PAGE FAULTS 25725006 * FROM OCCURRING AT STEP TERMINATION. 25727006 * (MDC328) @X60DS9A 25729006 TCBRSV59 EQU X'10',,C'X' - RESERVED 25733003 TCBRSV60 EQU X'08',,C'X' - RESERVED 25743003 TCBFTTOP EQU X'04' - THIS IS THE TOP TASK IN TREE OF ABNORMALLY 25800002 * TERMINATING TASKS ICB422 25850002 TCBFTCOM EQU X'02' - ABNORMAL TERMINATION DUMP HAS BEEN COMPLETED 25870006 TCBENQ EQU X'01' - INDICATES TO ABEND THAT TASK IS ENQUEUED ON 26000001 * DUMP DATA SET ICB422 26050001 TCBFTFL2 DS B - ABEND FLAGS (OS/VS1) 26100002 TCBRSV61 EQU X'80',,C'X' - RESERVED 26101001 TCBRSV62 EQU X'40',,C'X' - RESERVED 26102001 TCBDDEN EQU X'20' - CONDENSED DUMP - DOUBLE DENSITY LINE (64 BYTES 26104004 * WIDE INSTEAD OF 32 BYTES WIDE) (3800) 26104204 * (MDC318) @X50AD9A 26104404 TCBLPAGE EQU X'10' - LONG PAGE - 80 LINES LONG (3800) 26104604 * (MDC319) @X50AD9A 26105004 TCBRSV65 EQU X'08',,C'X' - RESERVED 26175004 AIF ('&SYS' EQ 'BOTH').C2X 26250101 TCBFDSOP EQU X'04' - THE SYSABEND (OR SYSUDUMP) DATA SET HAS BEEN 26300002 * OPENED FOR THE JOB STEP (JOB STEP TCB) ICB422 26350002 AGO .C2Y 26350101 .C2X ANOP 26350201 * FOLLOWING OS/VS1 EQU IS SHOWN AS A COMMENT BECAUSE 26350302 * OS/VS2 USES THIS LABEL ON ANOTHER BIT 26350402 *TCBFDSOP EQU X'04' - THE SYSABEND (OR SYSUDUMP) DATA SET HAS BEEN 26350502 * OPENED FOR THE JOB STEP (JOB STEP TCB) ICB422 26350602 .C2Y ANOP 26350701 TCBSYSAB EQU X'02' - IF 1, THE SYSABEND DATA SET IS BEING USED. 26400002 * IF 0, THE SYSUDUMP DATA SET IS BEING USED. 26450002 * (JOB STEP TCB) ICB422 26460002 TCBRSV66 EQU X'01',,C'X' - RESERVED 26461001 TCBFTFL3 DS B - ABEND FLAGS (OS/VS1) 26500002 TCBRSV67 EQU X'80',,C'X' - RESERVED 26501001 TCBRSV68 EQU X'40',,C'X' - RESERVED 26502001 TCBRSV69 EQU X'20',,C'X' - RESERVED 26503001 TCBRSV70 EQU X'10',,C'X' - RESERVED 26504001 TCBRSV71 EQU X'08',,C'X' - RESERVED 26505001 TCBFTDUM EQU X'04' - NO ABNORMAL TERMINATION DUMP (SYSABEND OR 26700002 * SYSUDUMP) CAN BE PROVIDED FOR THIS JOB STEP 26700402 * (JOB STEP TCB) 26700802 TCBRSV72 EQU X'02',,C'X' - RESERVED 26701001 TCBRSV73 EQU X'01',,C'X' - RESERVED 26702001 .C2 ANOP 27100001 AIF ('&SYS' EQ 'BOTH').C2E 27101001 AIF ('&SYS' EQ 'AOS1').C2F 27102001 TCBAQE DS A - LIST ORIGIN OF AQE(S) FOR THIS TASK (OS/VS2) 27200002 AGO .C2G 27201001 .C2E ANOP 27202001 TCBAQE DS 0A - LIST ORIGIN OF AQE(S) FOR THIS TASK (OS/VS2) 27203002 .C2F ANOP 27204001 TCBDDRTI DS F - AMOUNT OF TIME REMAINING IN TASK'S DYNAMIC 27205001 * DISPATCHING TIME SLICE (OS/VS1) ICB465 27206002 .C2G ANOP 27207001 TCBSTAB DS 0A - ADDRESS OF THE CURRENT STAE CONTROL BLOCK 27400002 TCBNSTAE DS B - FLAGS INTERNAL TO STAE ROUTINE 27500002 TCBSTABE EQU X'80' - ABEND ENTERED BECAUSE OF ERROR IN STAE 27600002 * PROCESSING 27650002 TCBQUIES EQU X'40' - STAE INVOKED PURGE I/O ROUTINE WITH QUIESCE I/O 27700001 * OPTION 27800001 AIF ('&SYS' EQ 'AOS1').C2A 27810001 TCB33E EQU X'20' - A 33E ABEND HAS OCCURRED FOR TASK (OS/VS2) 27900002 TCBPPSUP EQU X'10' - 1=SUPERVISOR MODE, 0=PROBLEM PROGRAM MODE. 27902064 * INDICATOR TO SYNCH OF THE MODE OF THE USER 27904064 * EXIT (OS/VS2) (MDC351) @ZM49654 27906064 .C2A AIF ('&SYS' EQ 'AOS2').C2B 27910001 TCBXCTL EQU X'20' - CURRENT SCB HAS XCTL=YES OPTION (OS/VS1) 27920002 TCBSCAT EQU X'10' - SCB WAS CREATED BY A PROGRAM THAT WAS SCATTER 27930002 * LOADED (OS/VS1) 27940002 .C2B ANOP 27950001 TCBHALT EQU X'08' - PURGE I/O ROUTINE DID NOT SUCCESSFULLY QUIESCE 28200001 * I/O, BUT I/O WAS HALTED 28300002 AIF ('&SYS' EQ 'AOS1').C2C 28310001 TCBSYNCH EQU X'04' - SYNCH ISSUED BY ASIR TO SCHEDULE EXIT ROUTINE 28400064 * (OS/VS2) (MDC352) @ZM49654 28420064 TCBRV301 EQU X'02',,C'X' - RESERVED (WAS TCBNPURG) (OS/VS2) MDC007 28460002 TCBSTCUR EQU X'01' - STAE RECURSION VALID (OS/VS2) ICB443 28700002 .C2C AIF ('&SYS' EQ 'AOS2').C2D 28710001 TCBSUPER EQU X'04' - PROGRAM USING STAE IS IN SUPERVISOR STATE 28720002 * (KEY 0) (OS/VS1) 28722002 TCBRETRY EQU X'02' - STAE USER REQUESTED THAT A RETRY ROUTINE BE 28730001 * SCHEDULED BUT THAT THE RB CHAIN NOT BE PURGED 28740001 * (OS/VS1) 28742002 TCBVALID EQU X'01' - RETRY ROUTINE AND PARAMETER LIST ADDRESSES ARE 28750001 * VALID (OS/VS1) 28760002 .C2D ANOP 28770001 TCBSTABB DS AL3 - ADDRESS OF THE CURRENT STAE CONTROL BLOCK 28900002 TCBTCT DS 0A - ADDRESS OF THE TIMING CONTROL TABLE (TCT) IF 29000003 * SYSTEM MANAGEMENT FACILITIES (SMF) DATA IS BEING 29000203 * COLLECTED FOR THE TASK. ZERO IF SMF DATA IS NOT 29000403 * BEING COLLECTED FOR THE TASK OR FOR OS/VS1, IF 29000803 * SMF IS NOT IN THE SYSTEM. (MDC305) @Z30AQ9A 29000904 TCBTCTGF DS B - FLAG BYTE FOR TIMING CONTROL TABLE ICB318 29001002 TCBSMFGF EQU X'80' - IF ZERO, THE TCT CORE TABLE IS NOT TO BE 29002001 * UPDATED BY GETMAIN/FREEMAIN. 29003001 * IF ONE, THE TCT CORE TABLE IS TO BE UPDATED BY 29004001 * GETMAIN/FREEMAIN. ICB318 29005001 TCBRSV20 EQU X'40',,C'X' - RESERVED 29006001 TCBRSV97 EQU X'20',,C'X' - RESERVED 29007001 TCBRSV98 EQU X'10',,C'X' - RESERVED 29008001 TCBRSV99 EQU X'08',,C'X' - RESERVED 29009001 TCBRSV9A EQU X'04',,C'X' - RESERVED 29010001 TCBRSV9B EQU X'02',,C'X' - RESERVED 29011001 TCBRSV9C EQU X'01',,C'X' - RESERVED 29012001 TCBTCTB DS AL3 - ADDRESS OF THE TIMING CONTROL TABLE (TCT) IF 29200003 * SYSTEM MANAGEMENT FACILITIES (SMF) DATA IS BEING 29220003 * COLLECTED FOR THE TASK. ZERO IF SMF DATA IS NOT 29240003 * BEING COLLECTED FOR THE TASK OR FOR OS/VS1, IF 29260003 * SMF IS NOT IN THE SYSTEM. (MDC305) @Z30AQ9A 29280004 TCBUSER DS A - A WORD AVAILABLE TO THE USER 29300002 TCBSCNDY DS 0BL4 - SECONDARY NON-DISPATCHABILITY BITS. IF ANY BIT 30800002 * IN THE FOLLOWING FOUR BYTES IS 1, THE PRIMARY 30900002 * NON-DISPATCHABILITY BIT (OFFSET 33.7 DECIMAL) 30950002 * IS 1, AND THE TASK IS NON-DISPATCHABLE. 31000002 TCBNDSP DS 0BL4 - SAME AS TCBSCNDY 31050001 TCBNDSP0 DS B - BYTE 0 31060001 TCBNDSP1 DS B - - BYTE 1 31100001 TCBDARTN EQU X'80' - THE TASK IS TEMPORARILY NON-DISPATCHABLE - 31200002 * DAMAGE ASSESSMENT ROUTINE (DAR) 31300002 TNONDISP EQU TCBDARTN * ALIAS * 31400001 TCBDARPN EQU X'40' - THE TASK IS PERMANENTLY NON-DISPATCHABLE - 31500002 * DAMAGE ASSESSMENT ROUTINE (DAR) 31600002 PNONDISP EQU TCBDARPN * ALIAS * 31700001 TCBRSTND EQU X'20' - THE TASK IS TEMPORARILY NON-DISPATCHABLE - 31800002 * RECOVERY MANAGEMENT SUPPORT AND SYSTEM ERROR 31850002 * RECOVERY (RMS/SER) 31900002 TCBRSPND EQU X'10' - THE TASK IS PERMANENTLY NON-DISPATCHABLE - 32000002 * RECOVERY MANAGEMENT SUPPORT AND SYSTEM ERROR 32050002 * RECOVERY (RMS/SER) 32100002 * (IF THIS BIT IS ON THEN THE PREVIOUS BIT 32200002 * MUST BE ON TOO) 32300002 TCBDDRND EQU X'08' - THE TASK IS IN DEVICE ALLOCATION AND DYNAMIC 32350002 * DEVICE RECONFIGURATION (DDR) HAS MADE IT 32360002 * NON-DISPATCHABLE - 32370002 * RECOVERY MANAGEMENT SUPPORT AND SYSTEM ERROR 32380002 * RECOVERY (RMS/SER) (OS/VS1) 32390002 TCBTPSP EQU X'04' - DISPATCHING OF TCAM TASK MUST BE DELAYED UNTIL 32400002 * TCAM I/O APPENDAGE OR SVC ROUTINE HAS COMPLETED 32500002 * EXECUTION (TCAM IN MULTIPROCESSING ENVIRONMENT) 32600002 TCBPIEND EQU X'02' - SRB IS TO BE SCHEDULED TO PERFORM PIE/PICA 32700402 * PROCESSING (FIRST LEVEL INTERRUPT HANDLER) 32700802 * MDC026 32701202 TCBRSV22 EQU X'01',,C'X' - RESERVED 32702001 TCBNDSP2 DS B - - BYTE 2 32800001 TCBABD EQU X'80' - ABDUMP IS PROCESSING (OS/VS1) 32900002 TCBSTPP EQU X'40' - TASK SET NON-DISPATCHABLE BY SETTASK 33100002 TCBNDSVC EQU X'20' - TASK IS NON-DISPATCHABLE BECAUSE SVC DUMP IS 33200002 * EXECUTING FOR ANOTHER TASK 33300002 TCBNDTS EQU X'10' - TASK IS NON-DISPATCHABLE BECAUSE IT IS BEING 33400002 * SWAPPED OUT 33450002 TCBIWAIT EQU X'08' - TASK IS NON-DISPATCHABLE DUE TO AN INPUT WAIT 33500002 TCBOWAIT EQU X'04' - TASK IS NON-DISPATCHABLE DUE TO AN OUTPUT WAIT 33600002 TCBDSS EQU X'02' - DYNAMIC SUPPORT SYSTEM (DSS) HAS SET THIS 33650002 * TASK NON-DISPATCHABLE ICB313 33660002 TCBABE EQU X'01' - ABEND ROUTINE WAS ENTERED FOR THIS TASK WHILE 33700002 * THE DCB FOR SYSABEND (OR SYSUDUMP) DATA SET WAS 33750002 * BEING OPENED FOR ANOTHER TASK (OS/VS1) 33800002 TCBNDSP3 DS B - BYTE 3 34000001 AIF ('&SYS' EQ 'AOS2').C3 34050001 TCBTERM EQU X'80' - TASK HAS BEEN TERMINATED (OS/VS1) 34100002 TCBABTER EQU X'40' - TASK TO BE TERMINATED BY ABEND (OS/VS1) 34300002 TCBNDSDA EQU X'20' - TEMPORARILY NON-DISPATCHABLE, PARTITION IS 34450002 * DEACTIVATED (OS/VS1) ICB357 34460002 .C3 AIF ('&SYS' EQ 'AOS1').C4 34467064 TCBLJSND EQU X'80' - TASK IS ABENDING AND NON-DISPATCHABLE BECAUSE IT 34470002 * HAS A JOB STEP SUBTASK. TCBONDSP MUST ALSO BE 34480001 * ON. (OS/VS2) 34490002 TCBRV302 EQU X'40',,C'X' - RESERVED (WAS TCBSTAND) (OS/VS2) MDC006 34490402 TCBSRBND EQU X'20' - TCB NON-DISPATCHABLE BECAUSE SRB'S ARE STOPPED 34490802 * (OS/VS2) MDC045 34491202 .C4 ANOP 34491464 TCBSLPER EQU X'10' - SET NON-DISPATCHABLE SO THAT SLIP/PER CAN ALTER 34491964 * RB PSW PER BIT (OS/VS2) (MDC340) @G64RP9A 34492464 TCBRSV25 EQU X'08',,C'X' - RESERVED 34494001 TCBAREQ EQU X'04' - TSO AUTHORIZED REQUEST PROCESSING ACTIVE 34494600 * @ZA67167 34495200 TCBRSV27 EQU X'02',,C'X' - RESERVED 34496001 AIF ('&SYS' EQ 'AOS2').C4A 34496502 TCBRSV28 EQU X'01',,C'X' - RESERVED (OS/VS1) MDC075 34497002 .C4A AIF ('&SYS' EQ 'AOS1').C4B 34497602 TCBNDINT EQU X'01' - INITIATOR SETS THIS BIT TO PREVENT JOB STEP 34498202 * EXECUTION IN ORDER TO DO CANCEL PROCESSING 34498802 * (CAN CANCEL LOOP) (OS/VS2) MDC075 34499402 .C4B ANOP 34500002 TCBMDIDS DS F - RESERVED FOR MODEL-DEPENDENT SUPPORT AND FOR 34520002 * IBM PROPRIETARY PROGRAMMING SUPPORT ICBXXX 34550001 TCBJSCB DS 0A - ADDRESS OF THE JOB STEP CONTROL BLOCK 34600002 TCBRECDE DS B - ABEND RECURSION BYTE ICB456 34610001 TCBREC EQU X'80' - VALID REENTRY TO ABEND IF NON-ZERO VALUE IN 34620002 * FOLLOWING 7 BITS ICB456 34630002 TCBOPEN EQU X'01' - OPEN DUMP DATA SET ICB456 34631001 TCBCLOSD EQU X'02' - CLOSE DIRECT SYSOUT ON TAPE ICB456 34632001 TCBCLOSE EQU X'03' - CLOSE OPEN DATA SETS ICB456 34633001 TCBCLOSF EQU X'04' - RESERVED ICB456 34634001 TCBGREC EQU X'05' - GRAPHICS ICB456 34635001 TCBADUMP EQU X'07' - ABDUMP ICB456 34636001 TCBPTAXE EQU X'08' - PURGE TAXE ICB456 34637001 TCBMESG EQU X'09' - MESSAGE RECURSION ICB456 34638001 TCBDYNAM EQU X'0A' - DD-DYNAM TIOT CLEANUP ICB456 34639001 TCBDAMSG EQU X'0B' - ABEND IS ISSUING A WTOR ASKING WHETHER THE JOB 34639402 * STEP TASK SHOULD WAIT FOR THE DUMP AREA 34639802 * (OS/VS1) MDC041 34639902 TCBQTIP EQU X'0C' - PURGE TSO INTERPARTITION POSTS ICB456 34640001 TCBTCAMP EQU X'0D' - PURGE TCAM INTERPARTITION POSTS ICB456 34641001 TCBINDRC EQU X'0E' - INDICATIVE DUMP (LOAD 8 OF ABEND) HAS ABENDED. 34641102 * ABEND WILL HANDLE THIS ABEND. (OS/VS1) MDC050 34641202 TCBSAVCD EQU X'0F' - ASIR RECURSION. SAVE OLD COMPLETION CODE ICB456 34642002 TCBTYP1W EQU X'10' - TYPE 1 MESSAGE WRITE TO PROGRAMMER ICB456 34643001 TCBWTPSE EQU X'20' - WRITE-TO-PROGRAMMER (WTP) FAILED. JOB STEP 34643103 * TIMER EXPIRED DURING JOB STEP ABEND AND THE 34643203 * STAE EXIT IS DENIED. (OS/VS1) (MDC301) @X04DA9A 34643303 TCBVTAM1 EQU X'21' - ABEND IS ENTERING FIRST VTAM INTERFACE, 34643403 * ISTRAAA1, FOR TERMINATION OF TASK OR SUBTASK 34643503 * (OS/VS1) (MDC081) @X31BH9A 34643603 TCBVTAM2 EQU X'22' - ABEND IS ENTERING SECOND VTAM INTERFACE, 34643703 * ISTRAAA2, BECAUSE ISTRAAA1 ABENDED (OS/VS1) 34648703 * (MDC082) @X31BH9A 34654003 TCBVTAM3 EQU X'23' - ABEND IS ENTERING FIRST VTAM INTERFACE, 34654203 * ISTRAAA0, BECAUSE VTAM ABENDED (OS/VS1) 34654403 * (MDC310) @X04BH9A 34654603 TCBVTAM4 EQU X'24' - ABEND IS ENTERING SECOND VTAM INTERFACE, 34654803 * ISTRAAA2, BECAUSE ISTRAAA0 ABENDED (OS/VS1) 34655003 * (MDC311) @X04BH9A 34655203 TCBNOSTA EQU X'30' - STAE/STAI NOT TO BE HONORED ICB456 34656003 TCBSTRET EQU X'31' - RETURN FROM DUMP PROCESSING ICB456 34662003 TCBCONVR EQU X'32' - CONVERT TO STEP ABEND ICB456 34668003 TCBDARET EQU X'33' - RETURN FROM DAMAGE ASSESSMENT ROUTINES ICB456 34674003 TCBTYP1R EQU X'34' - RETURN FROM TYPE 1 MESSAGE MODULE ICB456 34680003 TCBNEWRB EQU X'35' - ABEND ISSUED SVC 13 TO TRANSFER CONTROL (XCTL) 34686003 * TO A NON-ABEND MODULE ICB456 34692003 TCBMCCNS EQU X'40' - A MUST COMPLETE TASK HAS ABNORMALLY TERMINATED 34700002 * WITHOUT ENOUGH STORAGE FOR 2 RB'S FOR A WTOR 34750001 * ASKING WHETHER THE TASK'S RESOURCES ARE 34760002 * CRITICAL. THE RESOURCES ARE ASSUMED TO BE 34770002 * CRITICAL, AND THE PARTITION IS MARKED 34780002 * PERMANENTLY NON-DISPATCHABLE. (OS/VS1) ICB492 34790002 TCBJSCBB DS AL3 - ADDRESS OF THE JOB STEP CONTROL BLOCK 34800002 TCBDDEXC DS H - NUMBER OF TIMES A DYNAMIC DISPATCHING TASK HAS 34801002 * HAD ITS TIME SLICE EXPIRE (OS/VS1) ICB465 34802002 TCBDDWTC DS H - NUMBER OF TIMES A DYNAMIC DISPATCHING TASK IS 34804002 * NOT INTERRUPTED BY THE END OF A TIME SLICE 34805002 * BETWEEN WAITS (OS/VS1) ICB465 34806002 TCBIOBRC DS A - ADDRESS OF IOB RESTORE CHAIN FOR I/O QUIESCED 34806101 * BY EOT YM2840 34806201 TCBEXCPD DS A - ADDRESS OF EXCP DEBUG AREA (OS/VS2) 34808002 * (MDC083) YM4297 34828002 TCBEXT1 DS 0A - ADDRESS OF OS-OS/VS COMMON TCB EXTENSION ICB311 34860002 TCBRSV32 DS X - RESERVED ICB311 34862001 TCBEXT1A DS AL3 - ADDRESS OF OS-OS/VS COMMON TCB EXTENSION ICB311 34864002 * 34880001 * OS/VS1 - OS/VS2 COMMON SECTION 34890002 * 34892001 TCBBITS DS 0BL4 - FLAG BYTES. IF A BIT IN THE FOLLOWING TWO BYTES 34894002 * IS SET TO 1, THE PRIMARY NON-DISPATCHABILITY BIT 34894402 * (OFFSET 33.7 DECIMAL) IS SET TO 1, AND THE TASK 34894802 * IS NON-DISPATCHABLE. 34895202 TCBNDSP4 DS B - SECONDARY NON-DISPATCHABILITY FLAGS COMMON TO 34896002 * OS/VS1 AND OS/VS2. COORDINATED WITH PRIMARY 34898002 * NON-DISPATCHABILITY FLAG TCBPNDSP. THIS BYTE IS 34898402 * NOT CURRENTLY SUPPORTED BY OS/VS2. MDC076 34898502 TCBRSV86 EQU X'80',,C'X' - RESERVED 34898601 TCBRSV87 EQU X'40',,C'X' - RESERVED 34898701 TCBRSV88 EQU X'20',,C'X' - RESERVED 34898801 TCBRSV89 EQU X'10',,C'X' - RESERVED 34899001 TCBRSV90 EQU X'08',,C'X' - RESERVED 34899101 TCBRSV91 EQU X'04',,C'X' - RESERVED 34899301 TCBRSV92 EQU X'02',,C'X' - RESERVED 34899401 TCBRSV93 EQU X'01',,C'X' - RESERVED 34899501 TCBNDSP5 DS B - SECONDARY NON-DISPATCHABILITY FLAGS UNIQUE TO 34899602 * OS/VS1 OR OS/VS2. COORDINATED WITH PRIMARY 34899702 * NON-DISPATCHABILITY FLAG TCBPNDSP. THIS BYTE IS 34899802 * NOT CURRENTLY SUPPORTED BY OS/VS2. MDC077 34902802 AIF ('&SYS' EQ 'AOS2').C5 34906301 TCBNDSPL EQU X'80' - THE TASK IS NON-DISPATCHABLE BECAUSE THE 34913102 * SUPERVISOR LOCK IS SET. SET BY PAGING SERVICE 34915102 * INTERFACE ROUTINE WHEN DISABLED CODE PRODUCES A 34919802 * PAGE FAULT OR REQUESTS A PAGE FIX. (OS/VS1) 34926502 TCBNDGTF EQU X'40' - THE TASK IS NON-DISPATCHABLE WHILE WAITING FOR A 34943202 * TIRB ROUTINE TO PROCESS A PAGE FAULT IN DISABLED 34945202 * CODE PRODUCED BY GTF. SET AND RESET BY STAGE 34963202 * THREE EXIT EFFECTOR. SET WHEN TIRB POOL EMPTY 34965201 * AND REQUESTING TASK HAS AN SQE QUEUED AT REQUEST 34965602 * OF GTF. (OS/VS1) 34966002 AGO .C5D 34966101 .C5 ANOP 34966301 TCBRSV94 EQU X'80',,C'X' - RESERVED (OS/VS2) 34967302 TCBRSV95 EQU X'40',,C'X' - RESERVED (OS/VS2) 34967502 .C5D ANOP 34967701 TCBRSV74 EQU X'20',,C'X' - RESERVED 34967901 TCBRSV75 EQU X'10',,C'X' - RESERVED 34968101 TCBRSV76 EQU X'08',,C'X' - RESERVED 34968201 TCBRSV77 EQU X'04',,C'X' - RESERVED 34968501 TCBRSV78 EQU X'02',,C'X' - RESERVED 34968701 TCBRSV79 EQU X'01',,C'X' - RESERVED MDC075 34968802 TCBFLGS6 DS B - TASK-RELATED FLAGS 34970302 TCBRV EQU X'80' - THE PARTITION IS FIXED IN REAL STORAGE. VIRTUAL 34972302 * ADDRESSES ARE EQUAL TO REAL ADDRESSES. 34974302 AIF ('&SYS' EQ 'AOS2').C5A 34976601 AIF ('&SYS' EQ 'BOTH').C5B 34977001 TCBPIE17 EQU X'40' - THIS TASK REQUESTS EXECUTION OF A SPIE WHEN A 34977702 * PAGE FAULT OCCURS (OS/VS1) ICB339 34977802 .C5E ANOP 34978702 TCBPANIC EQU X'20' - TASK HAS, OR IS WAITING FOR, EMERGENCY WORK AREA 34979502 * (OS/VS1) ICB457 34981502 TCBFPROT EQU X'10' - IF ON, FETCH PROTECT FOR KEY EQUAL TO ZERO IN 34983802 * PROBLEM PROGRAM SPACE (OS/VS1) MDC048 34984602 TCBRUNPN EQU X'08' - IF ZERO, PARTITION IS ELIGIBLE FOR DEACTIVATION. 34985402 * IF ONE, PARTITION IS NOT ELIGIBLE FOR 34986202 * DEACTIVATION. (OS/VS1) ICB465 34987002 TCBRUNJB EQU X'04' - IF ZERO, CURRENT JOB IS ELIGIBLE FOR 34987802 * DEACTIVATION. IF ONE, PARTITION IS NOT ELIGIBLE 34988202 * FOR DEACTIVATION WHILE CURRENT JOB IS RUNNING. 34989402 * (OS/VS1) ICB465 34990202 TCBDSINQ EQU X'02' - IF ZERO, DATA SET INTEGRITY LOGIC IS NOT BEING 34991002 * EXECUTED. PARTITION IS ELIGIBLE FOR 34991402 * DEACTIVATION. IF ONE, SCHEDULER IS USING 34991502 * ENQUEUED DATA SET INTEGRITY LOGIC AT JOB START 34992402 * TIME. PARTITION IS NOT ELIGIBLE FOR 34993402 * DEACTIVATION. (OS/VS1) ICB465 34994202 TCBSTIJS EQU X'01' - IF ON, STIMER REQUEST IS FOR JOB STEP TIMING 34995002 * (OS/VS1) MDC049 34996602 AGO .C7 34997402 .C5A ANOP 34998202 TCBPIE17 EQU X'40' - PAGE FAULT INTERRUPT IS TO BE PASSED TO THE 34999002 * TASK'S INTERRUPT EXIT AND AN 8-BYTE PICA IS IN 34999802 * EFFECT FOR THIS TASK (OS/VS2) ICB339 35000602 AGO .C5C 35001402 .C5B ANOP 35002202 TCBPIE17 EQU X'40' - THIS TASK REQUESTS EXECUTION OF A SPIE WHEN A 35003802 * PAGE FAULT OCCURS (OS/VS1) 35004602 * PAGE FAULT INTERRUPT IS TO BE PASSED TO THE 35005402 * TASK'S INTERRUPT EXIT AND AN 8-BYTE PICA IS IN 35006202 * EFFECT FOR THIS TASK (OS/VS2) ICB339 35006602 .C5C ANOP 35007802 TCBCPU EQU X'20' - TASK IS CPU-BOUND MEMBER OF AUTOMATIC PRIORITY 35008602 * GROUP (APG) (OS/VS2) 35009402 TCBSPVLK EQU X'10' - TASK SCHEDULED FOR ABTERM WHILE OWNING 35011002 * SUPERVISOR LOCK (OS/VS2) 35011402 TCBRV303 EQU X'08',,C'X' - RESERVED (WAS TCBOLSQA) (OS/VS2) MDC014 35012602 TCBMIGR EQU X'04' - REGION SELECTED FOR MIGRATION FROM PRIMARY 35013402 * PAGING DEVICE (OS/VS2) 35014202 TCBAPG EQU X'02' - TASK IS IN AUTOMATIC PRIORITY GROUP (APG) 35015002 * (OS/VS2) 35015802 TCBNTJS EQU X'01' - JOB STEP TASK BUT NOT HIGHEST IN FAILING TREE 35016602 * (OS/VS2) 35018202 AIF ('&SYS' EQ 'BOTH').C5E 35019002 .C7 ANOP 35019802 TCBFLGS7 DS B - TASK-RELATED FLAGS 35020602 AIF ('&SYS' EQ 'AOS1').C9 35021802 TCBGPECB EQU X'80' - TASK IS IN AN ECB WAIT FOR A GETPART 35022202 * (OS/VS2) ICB339 35023002 TCBRSV33 EQU X'40',,C'X' - RESERVED (OS/VS2) 35023802 TCBRSV34 EQU X'20',,C'X' - RESERVED (OS/VS2) 35025402 TCBSTACK EQU X'10' - SET IN JOB STEP TCB TO INDICATE THAT A TASK IN 35026202 * THE JOB STEP IS IN SERIAL ABEND PROCESSING. 35027002 * USED IN CONJUNCTION WITH TCBFOINP. 35027802 * (OS/VS2) ICB374 35028602 TCBSVCS EQU X'08' - RESERVED (MDC315) @Z40EP9A 35029004 TCBRSTSK EQU X'04' - RESIDENT SYSTEM TASK (OS/VS2) 35030202 TCBADMP EQU X'02' - ALL OTHER TASKS IN JOB STEP HAVE BEEN SET 35031002 * NON-DISPATCHABLE BY ABDUMP. THIS BIT IS SET TO 35032602 * CONTROL JOB STEP DURING THE DUMPING PROCESS. 35033402 * (OS/VS2) 35034202 AIF ('&SYS' EQ 'AOS2').C9A 35035002 .C9 ANOP 35035802 TCBFDD EQU X'80' - THIS TCB IS A MEMBER OF THE DYNAMIC DISPATCHING 35036602 * GROUP (OS/VS1) ICB465 35037402 TCBFDDT EQU X'40' - IF 0, CPU-BOUND. IF 1, I/O-BOUND. 35038202 * (DYNAMIC DISPATCHING) (OS/VS1) ICB465 35039802 TCBFDDEI EQU X'20' - IF 0, TIME SLICE HAS NOT EXPIRED. IF 1, TIME 35040602 * SLICE FOR THIS TASK HAS EXPIRED SINCE IT LAST 35041402 * ISSUED A WAIT. (DYNAMIC DISPATCHING) 35042202 * (OS/VS1) ICB465 35042602 TCBFWDD EQU X'10' - THIS TCB WAS FORMERLY A MEMBER OF THE DYNAMIC 35043802 * DISPATCHING GROUP (OS/VS1) XM9175 35044602 AIF ('&SYS' EQ 'BOTH').C9C 35045402 TCBSVCS EQU X'08' - RESERVED (MDC315) @X50BE9A 35045704 .C9C ANOP 35047402 TCBRSV83 EQU X'04',,C'X' - RESERVED (OS/VS1) 35048602 TCBRSV84 EQU X'02',,C'X' - RESERVED (OS/VS1) 35049402 .C9A ANOP 35050202 TCBGTOFM EQU X'01' - GENERALIZED TRACE FACILITY (GTF) TRACING HAS 35051002 * BEEN TEMPORARILY DISABLED UNDER THIS TASK ICB402 35051802 TCBDAR DS B - - DAMAGE ASSESSMENT ROUTINE (DAR) FLAGS 35052602 TCBDARP EQU X'80' - PRIMARY DAR RECURSION. DAR HAS BEEN ENTERED FOR 35054202 * THIS TASK. 35054602 TCBDARS EQU X'40' - SECONDARY DAR RECURSION. IF DAR IS REENTERED, 35055402 * THIS TASK WILL BE SET NON-DISPATCHABLE. 35056602 TCBDARD EQU X'20' - A DUMP HAS BEEN REQUESTED FOR A WRITER OR 35057402 * SCHEDULER ABEND, AND THE USER HAS PROVIDED NO 35058202 * SYSABEND DD CARD (OS/VS1) 35059002 TCBDARC EQU X'10' - RECURSION PERMITTED IN CLOSE - 35059802 * AFTER DAR PROCESSING COMPLETED (PCP) 35061402 TCBDARMC EQU X'10' - DAR HAS BEEN ENTERED TO HANDLE A VALID RECURSION 35061802 * IN MUST-COMPLETE STATUS THROUGH ABEND ICB264 35063002 TCBDARO EQU X'08' - SYSTEM ERROR TASK IS FAILING. DAR DUMP SHOULD 35063402 * NOT REQUEST ANY ERROR RECOVERY PROCEDURE (ERP) 35064602 * PROCESSING. 35065402 TCBDARWT EQU X'04' - A WTO OPERATION WITH A 'REINSTATEMENT FAILURE' 35066202 * MESSAGE IS IN PROCESS FOR DAR ICB264 35067002 TCBDARMS EQU X'02' - WTO OPERATION WITH A 'DAR IN PROGRESS' MESSAGE 35068603 * IS IN PROCESS FOR DAR (OS/VS1) (MDC314) @XA08316 35069003 TCBEXSVC EQU X'01' - THE DUMP SVC ROUTINE IS EXECUTING FOR THIS TASK 35069402 TCBRSV37 DS X - RESERVED FOR USER MDC080 35070202 TCBSYSCT DS FL1 - NUMBER OF OUTSTANDING SYSTEM-MUST-COMPLETE 35071002 * REQUESTS (ICB497) YM3883 35071802 TCBSTMCT DS FL1 - NUMBER OF OUTSTANDING STEP-MUST-COMPLETE 35072602 * REQUESTS (ICB497) YM3883 35073402 TCBEXT2 DS 0A - ADDRESS OF OS/VS1 - OS/VS2 COMMON EXTENSION 35074202 * ICB311 35075802 TCBRSV39 DS X - RESERVED ICB311 35076602 TCBEXT2A DS AL3 - ADDRESS OF OS/VS1 - OS/VS2 COMMON EXTENSION 35077402 * ICB311 35078202 AIF ('&SYS' EQ 'AOS2').D1 35079002 * 35079802 * OS/VS1 TCB OVERLAY 35080602 * 35081402 TCBPCB DS A - ADDRESS OF PAGE CONTROL BLOCK FOR THIS TASK 35083002 TCBGQE DS A - ADDRESS OF FIRST GQE FOR THIS TASK 35083802 TCBARB DS 0A - ADDRESS OF AVAILABLE SVRB ICB344 35084602 TCBRSV85 DS XL1 - RESERVED ICB344 35085402 TCBARBA DS AL3 - ADDRESS OF AVAILABLE SVRB ICB344 35086202 TCBTTQE DS A - HEAD OF QUEUE OF TIMER QUEUE ELEMENTS FOR CPU 35087002 * (TASK) TIMING FOR THIS TASK MDC042 35087802 TCBJSONQ EQU X'80' - THE JOB STEP TIMING QUEUE ELEMENT IS ON THE 35088002 * QUEUE HEADED BY THIS TCBTTQE FIELD MDC074 35088202 TCBSVCA1 DS FL1 - RESERVED (MDC316) @X50BE9A 35088604 TCBRV190 DS AL3 - RESERVED @X50BE9A 35089204 AIF ('&SYS' EQ 'AOS1').D2 35089602 SPACE 1 35090602 ORG TCBPCB 35091602 .D1 ANOP 35092702 * 35093102 * OS/VS2 TCB OVERLAY 35094602 * 35095202 TCBAECB DS F - ABEND ECB. POSTED BY A MOTHER TASK IN RTM2 35095802 * PROCESSING WHEN A DAUGHTER IS WAITING TO 35096602 * TERMINATE IT. MDC033 35097602 TCBTIRB DS A - ADDRESS OF TIRB FOR TASK 35098602 TCBBACK DS A - ADDRESS OF PREVIOUS TCB ON READY QUEUE. ZERO 35099502 * IN TOP TCB. 35100402 TCBRTWA DS A - POINTER TO CURRENT RTM2 WORK AREA MDC034 35101302 TCBIOTIM DS F - TIME IN 16-MICROSECOND UNITS BETWEEN TIME 35102202 * ORIGINAL TIME SLICE INTERVAL WAS ASSIGNED AND 35103102 * TIME AUTOMATIC PRIORITY GROUP (APG) TASK WENT 35104002 * INTO VOLUNTARY WAIT 35104902 TCBTMSAV DS F - TIME IN 16-MICROSECOND UNITS REMAINING FROM 35105802 * ORIGINAL TIME SLICE INTERVAL WHEN AUTOMATIC 35106702 * PRIORITY GROUP (APG) TASK WAS LAST DISPATCHED 35107602 TCBABCUR DS C - ABEND RECURSION BYTE 35108502 TCBRSVAA DS FL1 - RESERVED (ICB497) YM3883 35110001 TCBTID DS C - TASK ID NUMBER ICB374 35112201 TCBPAGID EQU 255 - ID FOR PAGING SUPERVISOR TASK ICB403 35112301 TCBSYERR EQU 254 - ID FOR SYSTEM ERROR TASK ICB403 35112401 TCBCOMM EQU 253 - ID FOR COMMUNCIATIONS TASK ICB403 35112501 TCBIORMS EQU 252 - ID FOR I/O RMS TASK ICB403 35112601 TCBMASTR EQU 251 - ID FOR MASTER SCHEDULER TASK ICB403 35112701 TCBJES EQU 250 - ID FOR JOB ENTRY SUBSYSTEM (JES) MONITOR TASK 35112802 * ICB403 35113602 TCBDSSID EQU 249 - ID FOR DYNAMIC SUPPORT SYSTEM (DSS) TASK ICB403 35116502 TCBLOGID EQU 248 - ID FOR SYSTEM LOG TASK MDC001 35117302 TCBRSV41 DS X - RESERVED ICB374 35118102 TCBXSCT DS 0F - DISPATCHER INTERSECT CONTROL WORD 35118940 * (MDC322) @Z40FP9A 35119040 TCBXSCT1 DS B - FLAG BYTE (MDC323) @Z40FP9A 35119140 TCBACTIV EQU X'80' - BIT ON MEANS THIS TCB IS CURRENTLY ACTIVE ON A 35119240 * CPU. USED TO SYNCHRONIZE SOME STATUS SAVING AND 35119340 * DISPATCHABILITY INDICATORS WHEN ACTIVE OR NOT 35119440 * UNDER THE LOCAL LOCK. (MDC320) @Z40FP9A 35119540 TCBS3A EQU X'40' - STAGE 3 EXIT EFFECTOR/RESUME/TCTL INTERSECT FLAG 35119640 * (MDC324) @Z40FP9A 35119740 TCBRV319 EQU X'20',,C'X' - RESERVED @Z40FP9A 35119840 TCBRV320 EQU X'10',,C'X' - RESERVED @Z40FP9A 35119940 TCBRV321 EQU X'08',,C'X' - RESERVED @Z40FP9A 35120040 TCBRV322 EQU X'04',,C'X' - RESERVED @Z40FP9A 35120140 TCBRV323 EQU X'02',,C'X' - RESERVED @Z40FP9A 35120240 TCBRV324 EQU X'01',,C'X' - RESERVED @Z40FP9A 35120340 TCBRV325 DS B - RESERVED (MDC325) @Z40FP9A 35120440 TCBCCPVI DS H - ID OF THE CURRENT CPU RUNNING THIS TASK. USED 35120540 * FOR RECOVERY AND CPU AFFINITY. (MDC321) @Z40FP9A 35120640 TCBFOE DS 0A - ADDRESS OF FIRST FIX OWNERSHIP ELEMENT (FOE) 35121040 * IN LIST FOR THIS TASK ICB339 35121140 TCBRSV42 DS X - RESERVED ICB339 35121240 TCBFOEA DS AL3 - ADDRESS OF FIRST FIX OWNERSHIP ELEMENT (FOE) 35121302 * IN LIST FOR THIS TASK ICB339 35122401 TCBSWA DS A - ADDRESS OF FIRST SCHEDULER WORK AREA (SWA) SPQE 35122904 * ON SWA SPQE CHAIN (MDC326) @Z40AQ9A 35123404 TCBSTAWA DS A - ESTAE ROUTINE WORK AREA POINTER 35125340 * (MDC327) @Z40FP9A 35125540 TCBTCBID DS CL4 - CONTAINS BLOCK ID - 'TCB ' MDC012 35126102 TCBRTM12 DS A - POINTER TO PARAMETER AREAS PASSED FROM RTM1 TO 35126902 * RTM2 MDC008 35127702 TCBESTAE DS 0XL4 - AREA TO CONTAIN RECOVERY DATA FOR RTM MDC029 35128502 TCBSCBKY DS C - KEY IN WHICH SYNCH IS TO PASS CONTROL TO THE 35129364 * USER EXIT (MDC353) @ZM49654 35129864 TCBESTRM DS B - ESTAE TERM OPTIONS MDC039 35130902 TCBETERM EQU X'80' - ESTAE EXIT ENTERED WITH TERM OPTION MDC040 35131702 TCBSTAFX EQU X'40' - SERIALIZED BY TCB ACTIVE (MDC342) @ZA30005 35132500 TCBRV309 EQU X'20',,C'X' - RESERVED 35133302 TCBRV310 EQU X'10',,C'X' - RESERVED 35134102 TCBRV311 EQU X'08',,C'X' - RESERVED 35134902 TCBRV312 EQU X'04',,C'X' - RESERVED 35135702 TCBRV313 EQU X'02',,C'X' - RESERVED 35136502 TCBRV314 EQU X'01',,C'X' - RESERVED 35137302 TCBERTYP DS FL1 - TYPE OF ERROR CAUSING ENTRY TO THE RTM. SET 35138102 * BY RTM1. MDC052 35138902 TCBMODE DS FL1 - MASK INDICATING MODE OF SYSTEM AT TIME OF ERROR. 35140902 * SEE IHART1W/MODE FOR INDIVIDUAL BIT DEFINITIONS. 35141302 * MDC064 35141402 TCBUKYSP DS A - ADDRESS OF SPQE'S FOR SUBPOOLS 229 AND 230 35141802 * (USER KEY STORAGE IN THE PRIVATE AREA) MDC067 35142202 TCBRV326 DS H - RESERVED (MDC321) @Z40FP9A 35142440 TCBAFFN DS BL2 - CPU AFFINITY INDICATOR MDC047 35144002 TCBFBYT1 DS B - FLAG BYTE MDC002 35144802 TCBEOTFM EQU X'80' - END OF TASK FLAG FOR FREEMAIN. SET TO 1 BY TASK 35145602 * TERMINATION AT START OF TERMINATION PROCESSING 35146402 * AND RESET TO 0 AT FINISH. INDICATES THAT A 35147202 * FREEMAIN ON A BLOCK OF LOCAL STORAGE THAT IS 35148002 * STILL FIXED BY RSM SHOULD RESULT IN A RETURN 35148802 * CODE OF 8 RATHER THAN ABNORMAL TERMINATION. 35149602 * MDC002 35150402 TCBRV327 EQU X'40',,C'X' - RESERVED (MDC320) @Z40FP9A 35151240 TCBNDIOS EQU X'20' - TASK HAS BEEN SET NON-DISPATCHABLE VIA STATUSND 35154402 * WHILE SVC 16 (PURGE) SCANS THE RB CHAIN PURGING 35155202 * APPENDAGE-SCHEDULED ASYNCHRONOUS EXIT ROUTINES 35156002 * RUNNING UNDER AN IRB/RQE OR NON-RESIDENT ERP'S 35156802 * RUNNING UNDER THE SIRB. MDC005 35157602 TCBPGNLY EQU X'10' - SET BY RTM2 TO INDICATE ONLY PURGE PHASE TO BE 35158402 * PERFORMED MDC009 35159202 TCBRTM2 EQU X'08' - SET BY RTM2 TO INDICATE RTM2 HAS BEEN ENTERED 35160002 * FOR THIS TASK MDC010 35160802 TCBEOT EQU X'04' - SET BY RTM2 TO INDICATE TO EXIT THAT END OF TASK 35161602 * PROCESSING IS COMPLETE MDC011 35162402 TCBRV113 EQU X'02',,C'X' - RESERVED 35163202 TCBLLH EQU X'01' - LOCALLY LOCKED TCB HAS PAGE FAULTED, AND I/O IS 35164002 * REQUIRED (FIRST LEVEL INTERRUPT HANDLER) MDC027 35164802 TCBFBYT2 DS B - FLAG BYTE MDC035 35165602 TCBCNCB EQU X'80' - SET BY RTM2 IN THE JOB STEP TCB WHEN IT HAS BEEN 35166402 * ENTERED ON THE TCB FOR AN X22 ABEND MDC036 35167202 TCBFMW EQU X'40' - MOTHER WAITING FLAG. TURNED ON IN A SUBTASK IN 35168002 * RTM2 PROCESSING WHEN AN ANCESTOR TASK IS WAITING 35168802 * TO ABEND IT. MDC037 35169602 TCBFDW EQU X'20' - DAUGHTER WAITING FLAG. TURNED ON IN A MOTHER 35170402 * TASK IN RTM2 PROCESSING WHEN A DAUGHTER IS 35171202 * WAITING TO ABEND IT. MDC038 35172002 TCBFPRAP EQU X'10' - SET BY RTM2 TO PREVENT PERCOLATION TO THE TASK 35172802 * OF AN ASYNCHRONOUS ABEND MDC051 35173602 TCBSSSYN EQU X'08' - SYNCHRONIZED STATUS STOP PENDING FOR THIS TCB 35174002 * MDC053 35174402 TCBECBNV EQU X'04' - IF 1, ECB POINTED TO BY TCBECB IS NOT TO BE 35174802 * VALIDITY CHECKED. IF 0, ECB POINTED TO BY 35175202 * TCBECB IS TO BE VALIDITY CHECKED. MDC071 35175602 TCBRV122 EQU X'02',,C'X' - RESERVED 35176002 TCBRV123 EQU X'01',,C'X' - RESERVED 35176802 TCBRV124 DS B - RESERVED (MDC306) 35177604 TCBRV125 EQU X'80',,C'X' - RESERVED (MDC307) 35178204 TCBRV126 EQU X'40',,C'X' - RESERVED (MDC308) 35179604 TCBRV127 EQU X'20',,C'X' - RESERVED 35180002 TCBRV128 EQU X'10',,C'X' - RESERVED 35180802 TCBRV129 EQU X'08',,C'X' - RESERVED 35181602 TCBRV130 EQU X'04',,C'X' - RESERVED 35182402 TCBRV131 EQU X'02',,C'X' - RESERVED 35183202 TCBRV132 EQU X'01',,C'X' - RESERVED 35184002 TCBRV133 DS B - RESERVED 35184802 TCBRV134 EQU X'80',,C'X' - RESERVED 35185602 TCBRV135 EQU X'40',,C'X' - RESERVED 35186402 TCBRV136 EQU X'20',,C'X' - RESERVED 35187202 TCBRV137 EQU X'10',,C'X' - RESERVED 35188002 TCBRV138 EQU X'08',,C'X' - RESERVED 35188802 TCBRV139 EQU X'04',,C'X' - RESERVED 35189602 TCBRV140 EQU X'02',,C'X' - RESERVED 35190402 TCBRV141 EQU X'01',,C'X' - RESERVED 35191202 TCBRPT DS A - ADDRESS OF RADIX PARTITION TREE FOR LOCAL 35191602 * STORAGE MANAGEMENT MDC068 35192002 TCBVAT DS A - ADDRESS OF THE VAT (VSAM). THERE IS ONE @ZA63673 35192400 * VAT PER JOB STEP TCB. @ZA63673 35192800 TCBSWASA DS A - ADDRESS OF SAVE AREA USED BY SWA MANAGER MDC079 35193202 TCBSVCA2 DS A - RESERVED (MDC317) @Z40EP9A 35193504 .D2 ANOP 35195202 DS 0D 35196002 TCBMNLEN EQU *-TCB - LENGTH OF MAIN SECTION OF TCB 35196802 * 35197602 * OS/VS1 - OS/VS2 COMMON EXTENSION 35198402 * ADDRESS OF EXTENSION IS IN TCBEXT2 35199202 * 35200002 AIF ('&DSECT' EQ 'NO').D3 35200802 TCBXTNT2 DSECT , - START OF EXTENSION 35201602 AGO .D4 35202402 .D3 ANOP 35203202 TCBXTNT2 EQU * - START OF EXTENSION ICB311 35204002 .D4 ANOP 35204802 TCBGTF DS 0A - ADDRESS OF GENERALIZED TRACE FACILITY (GTF) 35205602 * TEMPORARY TRACE BUFFER ICB312 35206002 TCBTFLG DS B - GTF FLAG BYTE ICB312 35206402 TCBASYNC EQU X'80' - GTF ASYNCHRONOUS GATHER ROUTINE IS IN CONTROL 35207202 * ICB312 35207602 TCBERRTN EQU X'40' - GTF ASYNCHRONOUS GATHER ERROR ROUTINE IS IN 35208002 * CONTROL ICB312 35208802 TCBDSPIT EQU X'20' - MACHINE CHECK INTERRUPTION HANDLER SHOULD 35209602 * UNCONDITIONALLY BRANCH TO THE DISPATCHER ICB312 35210402 TCBRSV43 EQU X'10',,C'X' - RESERVED 35211202 TCBRSV44 EQU X'08',,C'X' - RESERVED 35212002 TCBRSV45 EQU X'04',,C'X' - RESERVED 35212802 TCBRSV46 EQU X'02',,C'X' - RESERVED 35213602 TCBRSV47 EQU X'01',,C'X' - RESERVED 35214402 TCBGTFA DS AL3 - ADDRESS OF GTF TEMPORARY TRACE BUFFER ICB312 35215202 TCBRSVAB DS FL1 - RESERVED (ICB497) YM3883 35216002 TCBRCMP DS BL3 - MOST RECENT ABEND COMPLETION CODE (INCLUDING 35216802 * VALID RECURSIONS IN STAE) ICB411 35217602 TCBEVENT DS A - ADDRESS OF EVENT TABLES QUEUE (MDC304) @X31ED9A 35219203 TCBRSV49 DS F - RESERVED 35220002 AIF ('&SYS' EQ 'AOS1').TCBD5 35220402 TCBRV142 DS A - RESERVED 35220802 TCBCAUF DS A - ADDRESS OF SUBSYSTEM FACILITY CONTROL BLOCK 35221640 * (OS/VS2) (MDC345) @ZA27912 35221840 TCBRV144 DS H - RESERVED 35222402 TCBRV145 DS H - RESERVED 35223202 TCBRV146 DS B - RESERVED 35224002 TCBRV147 EQU X'80',,C'X' - RESERVED 35224802 TCBRV148 EQU X'40',,C'X' - RESERVED 35225602 TCBRV149 EQU X'20',,C'X' - RESERVED 35226402 TCBRV150 EQU X'10',,C'X' - RESERVED 35227202 TCBRV151 EQU X'08',,C'X' - RESERVED 35228002 TCBRV152 EQU X'04',,C'X' - RESERVED 35228802 TCBRV153 EQU X'02',,C'X' - RESERVED 35229602 TCBRV154 EQU X'01',,C'X' - RESERVED 35230402 TCBRV155 DS B - RESERVED 35231202 TCBRV156 EQU X'80',,C'X' - RESERVED 35232002 TCBRV157 EQU X'40',,C'X' - RESERVED 35232802 TCBRV158 EQU X'20',,C'X' - RESERVED 35233602 TCBRV159 EQU X'10',,C'X' - RESERVED 35234402 TCBRV160 EQU X'08',,C'X' - RESERVED 35235202 TCBRV161 EQU X'04',,C'X' - RESERVED 35236002 TCBRV162 EQU X'02',,C'X' - RESERVED 35236802 TCBRV163 EQU X'01',,C'X' - RESERVED 35237602 TCBRV164 DS B - RESERVED 35238402 TCBRV165 EQU X'80',,C'X' - RESERVED 35239202 TCBRV166 EQU X'40',,C'X' - RESERVED 35240002 TCBRV167 EQU X'20',,C'X' - RESERVED 35240802 TCBRV168 EQU X'10',,C'X' - RESERVED 35241602 TCBRV169 EQU X'08',,C'X' - RESERVED 35242402 TCBRV170 EQU X'04',,C'X' - RESERVED 35243202 TCBRV171 EQU X'02',,C'X' - RESERVED 35244002 TCBRV172 EQU X'01',,C'X' - RESERVED 35244802 TCBRV173 DS B - RESERVED 35245602 TCBRV174 EQU X'80',,C'X' - RESERVED 35246402 TCBRV175 EQU X'40',,C'X' - RESERVED 35247202 TCBRV176 EQU X'20',,C'X' - RESERVED 35248002 TCBRV177 EQU X'10',,C'X' - RESERVED 35248802 TCBRV178 EQU X'08',,C'X' - RESERVED 35249602 TCBRV179 EQU X'04',,C'X' - RESERVED 35250402 TCBRV180 EQU X'02',,C'X' - RESERVED 35251202 TCBRV181 EQU X'01',,C'X' - RESERVED 35252002 .TCBD5 ANOP 35252402 SPACE 1 35252802 DS 0D - FORCE LENGTH EQUATE TO DOUBLE WORD ICB362 35253602 TCBX2LEN EQU *-TCBXTNT2 LENGTH OF COMMON EXTENSION 35254402 SPACE 2 35255202 TCBLEN EQU TCBPXLEN+TCBMNLEN+TCBX2LEN - TCB LENGTH INCLUDING 35256002 * PREFIX (VALID IF SYS=AOS1 OR SYS=AOS2, BUT 35256802 * NOT VALID IF SYS=BOTH) 35257602 * 35258402 * END OF TCB 35259202 POP PRINT 35259602 MEND , */ 35260001 * %TCBL2 : ; 35280001 *%IF IKEPLS='' %THEN 35330002 * %GOTO TCBL3; 35380002 *%IHALPUSH='@LISTPUSH'; 35430002 *%IHALPOP='@LISTPOP'; 35480002 *%IHALOFF='@LISTOFF'; 35530002 *IHALPUSH; 35580002 *%IF IHALIST='YES' %THEN 35630002 * %GOTO TCBL3; 35680002 *IHALOFF; 35730002 *%TCBL3 : ; 35780002 * /* TCB PREFIX */ 35900001 * 36000001 * DECLARE 36100001 * 1 TCBFIX BASED(TCBPTR-32) BDY(DWORD), 36200001 * 36300001 * 2 TCBFRS CHAR(32) BDY(DWORD), /* FLOATING POINT REGISTER SAVE 36400001 * AREA */ 36500001 * 3 TCBFRS0 CHAR(8) BDY(DWORD), /* SAVE AREA FOR FLOATING 36600001 * POINT REGISTER 0 */ 36700001 * 3 TCBFRS2 CHAR(8) BDY(DWORD), /* SAVE AREA FOR FLOATING 36800001 * POINT REGISTER 2 */ 36900001 * 3 TCBFRS4 CHAR(8) BDY(DWORD), /* SAVE AREA FOR FLOATING 37000001 * POINT REGISTER 4 */ 37100001 * 3 TCBFRS6 CHAR(8) BDY(DWORD); /* SAVE AREA FOR FLOATING 37200001 * POINT REGISTER 6 */ 37300001 * 37400001 * /* TCB PROPER */ 37500001 * 37600001 * DECLARE 37700001 * 1 TCB BASED(TCBPTR) BDY(DWORD), 37800001 * 2 TCBRBP PTR(31), /* ADDRESS OF THE RB FOR 38000002 * EXECUTING PROGRAM */ 38050002 * 2 TCBPIE PTR(31), /* ADDRESS OF SPIE CONTROL AREA. 38100002 * THE FIRST WORD OF THIS AREA 38150002 * CONTAINS THE PROGRAM INTERRUPT 38200002 * ELEMENT (PIE) ADDRESS. MDC024*/ 38210002 * 3 TCBPMASK CHAR(1), /* SPIE BITS */ 38250001 * 4 * BIT(4), /* RESERVED */ 38260001 * 4 TCBPM BIT(4), /* PROGRAM MASK AT TIME OF SPIE 38270001 * INITIATION. MASK RESTORED AT 38280001 * TIME OF SPIE NULLIFICATION. */ 38290001 * 3 TCBPIEA PTR(24), /* SAME AS TCBPIE ABOVE */ 38292002 * 2 TCBDEB PTR(31), /* ADDRESS OF THE DEB QUEUE */ 38300002 * 2 TCBTIO PTR(31), /* ADDRESS OF THE TASK I/O TABLE 38400002 * (TIOT) */ 38500001 * 2 TCBCMP CHAR(4) BDY(WORD), /* TASK COMPLETION CODE AND 38600002 * INDICATORS */ 38650002 * 3 TCBCMPF CHAR(1), /* INDICATOR FLAGS */ 38700002 * 4 TCBCREQ BIT(1), /* A DUMP HAS BEEN REQUESTED */ 38800002 * 4 TCBCSTEP BIT(1), /* A STEP ABEND HAS BEEN 38900002 * REQUESTED */ 39000001 * 4 TCBCPP BIT(1), /* SOME PROBLEM PROGRAM STORAGE 39100002 * WAS OVERLAID BY THE SECOND 39150002 * LOAD OF ABEND. A FIRST LOAD 39200002 * OVERLAY IS INDICATED IN 39250002 * TCBFLGS FIELD (OFFSET 29 39300002 * DECIMAL) (OS/VS1) MDC054*/ 39350002 * 5 TCBDMPO BIT(1), /* DUMP OPTIONS WERE PROVIDED ON 39400002 * CALLRTM OR SETRP MACRO 39450002 * (OS/VS2) MDC060*/ 39460002 * 4 TCBSTCC BIT(1), /* COMPLETION CODE IS NOT TO 39500001 * BE STORED IN TCBCMPC (OFFSET 39550002 * 17 DECIMAL) IF AN ABEND IS 39552002 * ENCOUNTERED. THIS IS TO 39560002 * PREVENT AN OVERLAY OF THE 39570002 * ORIGINAL COMPLETION CODE. 39580002 * (OS/VS1) MDC055*/ 39590002 * 5 TCBNOCC BIT(1), /* A COMPLETION CODE WAS NOT 39592002 * PROVIDED ON CALLRTM MACRO. 39594002 * A DEFAULT CODE IS BEING USED. 39596002 * (OS/VS2) MDC061*/ 39598002 * 4 TCBCDBL BIT(1), /* A DOUBLE ABEND HAS OCCURRED 39600002 * (OS/VS1) MDC056*/ 39650002 * 5 TCBCASID BIT(1), /* ABEND WAS SCHEDULED VIA CROSS 39700002 * MEMORY ABTERM (OS/VS2) MDC062*/ 39750002 * 4 TCBCWTO BIT(1), /* A DUMP MESSAGE (WTO) IS TO BE 39800002 * ISSUED TO THE OPERATOR 39850002 * (OS/VS1) MDC057*/ 39900002 * 5 TCBRV316 BIT(1), /* RESERVED FOR CALLRTM FLAG 39950002 * (OS/VS2) MDC063*/ 39960002 * 4 TCBCIND BIT(1), /* ABEND TO OUTPUT AN INDICATIVE 40000003 * DUMP (OS/VS1) 40050004 * (MDC303) @X04DA9A*/ 40100004 * 5 TCBRV317 BIT(1), /* RESERVED FOR CALLRTM FLAG 40150002 * (OS/VS2) MDC063*/ 40160002 * 4 TCBCMSG BIT(1), /* AN ABEND MESSAGE IS PROVIDED 40200002 * TO BE PRINTED BY ABDUMP 40300002 * (OS/VS1) MDC059*/ 40350002 * 5 TCBRV318 BIT(1), /* RESERVED FOR CALLRTM FLAG 40360002 * (OS/VS2) MDC063*/ 40370002 * 3 TCBCMPC CHAR(3), /* SYSTEM COMPLETION CODE IN 40400002 * FIRST 12 BITS, USER 40450002 * COMPLETION CODE IN LAST 12 40500002 * BITS */ 40550002 * 2 TCBTRN PTR(31), /* ADDRESS OF TESTRAN CONTROL 40700002 * CORE TABLE */ 40750002 * 3 TCBABF CHAR(1), /* FLAG BYTE */ 40800001 * 4 TCBMOD91 BIT(1), /* BOTH TESTRAN AND DECIMAL 40900002 * SIMULATOR ON A MOD 91 */ 41000001 * 4 TCBNOCHK BIT(1), /* SUPPRESS TAKING CHECKPOINTS 41100002 * FOR THIS STEP (JOB STEP TCB) */ 41200002 * 4 TCBGRPH BIT(1), /* THIS IS A GRAPHICS FOREGROUND 41400002 * JOB OR THE GRAPHIC JOB 41450002 * PROCESSOR */ 41500002 * 4 TCBRSV01 BIT(1), /* RESERVED */ 41600001 * 4 TCBTCPP BIT(1), /* TCAM POST-PENDING (RORI) */ 41700002 * 4 TCBTCP BIT(1), /* TEST TASK - USED BY TEST SVC */ 41800002 * 4 TCBOLTEP BIT(1), /* OLTEP FUNCTIONS REQUIRE 42000001 * CLEANUP BEFORE ABNORMAL 42100002 * TERMINATION CAN BE INVOKED */ 42200001 * 4 TCBRSV02 BIT(1), /* RESERVED */ 42300001 * 3 TCBTRNB PTR(24), /* ADDRESS OF TESTRAN CONTROL 42400002 * CORE TABLE */ 42450002 * 2 TCBMSS PTR(31), /* FOR JOB STEP TCB, ADDRESS OF 42600002 * THE BOUNDARY BOX. FOR 42650002 * SUBTASK TCB, ADDRESS OF THE 42700002 * GOTTEN SUBTASK AREA QUEUE 42750002 * ELEMENT (GQE). A GQE IS 42800002 * PRESENT ONLY IF THE SYSTEM 42850002 * HAS ISSUED A GETMAIN MACRO 42860002 * INSTRUCTION FOR THE SPACE. 42870002 * (OS/VS1) 42880002 * ADDRESS OF LAST SPQE ON MSS 42890002 * QUEUE (OS/VS2) */ 42892002 * 3 TCBRSV03 PTR(8), /* ** TCBNROC FIELD UNUSED 42900001 * IN OS/VS ** */ 43000002 * 3 TCBMSSB PTR(24), /* SAME AS TCBMSS ABOVE */ 43200002 * 2 TCBPKF CHAR(1), /* STORAGE PROTECTION KEY FOR 43600002 * THIS TASK. IF THERE IS NO 43650002 * STORAGE PROTECTION, ALL BITS 43660002 * ARE ZERO. */ 43670002 * 3 TCBFLAG BIT(4), /* STORAGE PROTECTION KEY */ 43700002 * 3 TCBZERO BIT(4), /* MUST BE ZERO */ 43800002 * 2 TCBFLGS CHAR(5), /* FLAG BYTE FIELDS */ 43900002 * 3 TCBFLGS1 CHAR(1), /* FIRST TCB FLAG BYTE */ 44000001 * 4 TCBFA BIT(1), /* ABNORMAL TERMINATION IN 44100002 * PROGRESS */ 44200001 * 4 TCBFE BIT(1), /* NORMAL TERMINATION IN 44300002 * PROGRESS */ 44400001 *%IF TCBSYSTM='' %THEN 44500001 * %GOTO TCBA1; 44600001 *%IF TCBSYSTM='BOTH' %THEN 44650001 * %GOTO TCBA1A; 44660001 * 4 TCBABTRM BIT(1), /* ABEND WAS INITIATED BY THE 44700002 * RESIDENT ABNORMAL TERMINATION 44750002 * ROUTINE (OS/VS1) */ 44800002 * 4 TCBJSTE BIT(1), /* JOB STEP TIMER EXPIRED DURING 44850003 * JOB STEP ABEND PROCESSING. 44900003 * STAE EXITS WILL NOT BE 44950003 * ALLOWED. (OS/VS1) 45000004 * (MDC300) @X04DA9A*/ 45050004 * 4 TCBDMPA BIT(1), /* THIS TASK IS USING THE DUMP 45110002 * AREA TO STORE PART OF THE 45162002 * PROBLEM PROGRAM, THEREBY 45172002 * PROVIDING THE JOB STEP WITH 45182002 * ENOUGH STORAGE FOR OBTAINING 45192002 * A DUMP (OS/VS1) ICB440*/ 45194002 * 4 TCBPOOL BIT(1), /* SVC SECOND LEVEL INTERRUPT 45200002 * HANDLER REQUESTING SVRB CORE 45250002 * FOR ABEND (OS/VS1) MDC069*/ 45260002 *%GOTO TCBA2; 45300001 *%TCBA1A : ; 45400001 * 4 TCBFERA BIT(1), /* ENTER ABEND ERASE ROUTINE 45410001 * WHEN IN CONTROL AGAIN 45420002 * (OS/VS2) */ 45420402 * 5 * BIT(1), /* TCBABTRM - ABEND WAS 45422002 * INITIATED BY THE RESIDENT 45424002 * ABNORMAL TERMINATION ROUTINE 45424402 * (OS/VS1) */ 45424802 * 4 TCBNONPR BIT(1), /* TASK IS NON-PREEMPTABLE 45426004 * (OS/VS2) (MDC320) @Z40FP9A*/ 45427004 * 5 TCBJSTE BIT(1), /* JOB STEP TIMER EXPIRED DURING 45430003 * JOB STEP ABEND PROCESSING. 45432003 * STAE EXITS WILL NOT BE 45434003 * ALLOWED. (OS/VS1) 45436004 * (MDC300) @X04DA9A*/ 45439004 * 4 TCBPDUMP BIT(1), /* PREVENT DUMP INDICATOR 45442001 * (OS/VS2) */ 45444002 * 5 TCBDMPA BIT(1), /* THIS TASK IS USING THE DUMP 45444102 * AREA TO STORE PART OF THE 45444502 * PROBLEM PROGRAM, THEREBY 45444902 * PROVIDING THE JOB STEP WITH 45445302 * ENOUGH STORAGE FOR OBTAINING 45445702 * A DUMP (OS/VS1) ICB440*/ 45445802 * 4 TCBFT BIT(1), /* TOP TASK IN TREE BEING 45446001 * ABTERMED (OS/VS2) */ 45448002 * 5 TCBPOOL BIT(1), /* SVC SECOND LEVEL INTERRUPT 45448102 * HANDLER REQUESTING SVRB CORE 45448502 * FOR ABEND (OS/VS1) MDC069*/ 45448902 *%GOTO TCBA2; 45449201 *%TCBA1 : ; 45450001 * 4 TCBFERA BIT(1), /* ENTER ABEND ERASE ROUTINE 45500001 * WHEN IN CONTROL AGAIN 45600002 * (OS/VS2) */ 45650002 * 4 TCBNONPR BIT(1), /* TASK IS NON-PREEMPTABLE 45700004 * (OS/VS2) (MDC320) @Z40FP9A*/ 45750004 * 4 TCBPDUMP BIT(1), /* PREVENT DUMP INDICATOR 45900001 * (OS/VS2) */ 45950002 * 4 TCBFT BIT(1), /* TOP TASK IN TREE BEING 46000001 * ABTERMED (OS/VS2) */ 46100002 *%TCBA2 : ; 46200001 * 4 TCBFS BIT(1), /* ABTERM DUMP COMPLETED (OS/VS2) 46300002 * PROBLEM PROGRAM STORAGE HAS 46400002 * BEEN OVERLAID TO PROCESS 46450002 * ABEND (OS/VS1) */ 46500002 * 4 TCBFX BIT(1), /* PROHIBIT QUEUEING OF 46700002 * ASYNCHRONOUS EXITS FOR THIS 46800002 * TASK */ 46850002 * 3 TCBFLGS2 CHAR(1), /* SECOND FLAG BYTE */ 46900001 *%IF TCBSYSTM='' %THEN 47000001 * %GOTO TCBA3; 47100001 * 4 TCBSYSTK BIT(1), /* ABEND PROHIBITED FOR THIS 47200001 * SYSTEM TASK (OS/VS1) */ 47300002 *%IF TCBSYSTM='AOS1' %THEN 47350001 * %GOTO TCBA4; 47360001 * 5 TCBFOINP BIT(1), /* THE TASK IS ABENDING AND IS 47370002 * IN THE PROCESS OF (1) OPEN 47380001 * FOR DUMP DATA SET PROCESSING, 47385001 * (2) CLOSE FOR USER DATA SET 47390001 * OR (3) PURGE FOR ENQ'ED 47395001 * RESOURCES. THIS BIT IS USED 47396001 * IN CONJUNCTION WITH TCBSTACK. 47397001 * (OS/VS2) ICB374*/ 47398002 *%GOTO TCBA4; 47400001 *%TCBA3 : ; 47500001 * 4 TCBFOINP BIT(1), /* THE TASK IS ABENDING AND IS 47505002 * IN THE PROCESS OF (1) OPEN 47515001 * FOR DUMP DATA SET PROCESSING, 47520001 * (2) CLOSE FOR USER DATA SET 47525001 * OR (3) PURGE FOR ENQ'ED 47530001 * RESOURCES. THIS BIT IS USED 47535001 * IN CONJUNCTION WITH TCBSTACK. 47540001 * (OS/VS2) ICB374*/ 47545002 *%TCBA4 : ; 47800001 * 4 TCBFSTI BIT(1), /* SECOND JOB STEP INTERVAL HAS 47900002 * EXPIRED (OS/VS2 INITIATOR 48000002 * TCB) */ 48100001 * 4 TCBFABOP BIT(1), /* IF 1, THE SYSABEND DUMP DATA 48200002 * SET HAS BEEN OPENED FOR 48250002 * ABEND. IF 0, THE SYSUDUMP 48300002 * DUMP DATA SET WAS OPENED. 48360002 * THIS BIT IS ONLY USED FOR THE 48370002 * JOB STEP TCB AND IS USED IN 48380002 * CONJUNCTION WITH TCBFDSOP 48390002 * BIT. (OS/VS2) (ICB482) YM0651*/ 48392002 * 4 TCBFSMC BIT(1), /* TASK HAS ISSUED A SYSTEM- 48400002 * MUST-COMPLETE AND SET ALL 48500002 * OTHER TASKS IN THE SYSTEM 48600001 * NON-DISPATCHABLE */ 48700002 * 4 TCBFJMC BIT(1), /* TASK HAS ISSUED A STEP-MUST- 48800002 * COMPLETE AND TURNED OFF ALL 48900001 * OTHER TASKS IN THE STEP */ 49000001 *%IF TCBSYSTM='AOS1' %THEN 49450001 * %GOTO TCBA5; 49460001 * 4 TCBFDSOP BIT(1), /* SYSABEND OPEN FOR JOB STEP 49470002 * (OS/VS2) */ 49480002 *%IF TCBSYSTM='' %THEN 49481001 * %GOTO TCBA6; 49482001 * 5 TCBRSV50 BIT(1), /* RESERVED (OS/VS1) ICB456*/ 49483002 *%GOTO TCBA6; 49500001 *%TCBA5 : ; 49600001 * 4 TCBRSV50 BIT(1), /* RESERVED (OS/VS1) ICB456*/ 49700002 *%TCBA6 : ; 49800001 * 4 TCBFETXR BIT(1), /* ETXR TO BE SCHEDULED */ 49900002 * 4 TCBFTS BIT(1), /* THIS TASK IS A MEMBER OF A 50000002 * TIME-SLICED GROUP */ 50100002 * 3 TCBFLGS3 CHAR(1), /* THIRD FLAG BYTE */ 50200001 * 4 TCBFSM BIT(1), /* ALL PSW'S IN SUPERVISOR STATE 50300002 * (OS/VS2) */ 50400002 *%IF TCBSYSTM='' %THEN 50800001 * %GOTO TCBA7; 50900001 *%IF TCBSYSTM='BOTH' %THEN 50950001 * %GOTO TCBA7A; 50953301 * 4 TCBRSV51 BIT(1), /* RESERVED (OS/VS1) */ 50960002 * 4 TCBSYSER BIT(1), /* EXIT EFFECTOR - SYSTEM ERROR 51000002 * ROUTINES ALREADY OPERATING 51100002 * FOR THIS TASK (OS/VS1) */ 51200002 * 4 TCBRSV52 BIT(1), /* RESERVED (OS/VS1) */ 51300002 * 4 TCBFLREG BIT(1), /* FLOATING POINT REGISTERS 51400001 * EXIST (OS/VS1) */ 51500002 * 4 TCBSCHAB BIT(1), /* SCHEDULER HAS ABENDED, ABEND 51600002 * PROCESSING HAS COMPLETED 51750001 * AND THE SCHEDULER HAS BEEN 51760001 * RE-ENTERED (OS/VS1) 51770002 * (ICB465) XM4931*/ 51780001 * 4 TCBPKCHG BIT(1), /* XCTL ROUTINE IS CHANGING THE 51800002 * STORAGE PROTECTION KEY IN THE 51850002 * PSW FROM ZERO TO THE ONE USED 51900002 * BY THE PROBLEM PROGRAM 51950002 * (OS/VS1) */ 52000002 * 4 TCBRSV53 BIT(1), /* RESERVED (OS/VS1) ICB456*/ 52100002 *%GOTO TCBA8; 52200001 *%TCBA7A : ; 52250001 * 4 TCBADINP BIT(1), /* USED IN CONJUNCTION WITH 52252001 * TCBONDSP. FLAG INDICATING 52254001 * THAT ABDUMP IS CURRENTLY 52256001 * PROCESSING FOR SOME TASK IN 52258001 * JOB STEP. A HIGHER LEVEL 52258401 * TASK IS NOT ALLOWED TO ENTER 52258801 * MAINLINE ABEND PROCESSING IF 52259201 * THIS BIT IS SET IN JOB STEP 52259601 * TCB UNLESS JOB STEP TASK IS 52259701 * FAILING. BIT SET ONLY IN JOB 52259801 * STEP TCB AND TASK INVOKING 52259901 * ABDUMP. (OS/VS2) */ 52263202 * 5 TCBRSV51 BIT(1), /* RESERVED (OS/VS1) */ 52264202 * 4 TCBABTRM BIT(1), /* ABTERM BIT TO PREVENT 52266702 * MULTIPLE ABENDS (OS/VS2) */ 52270002 * 5 TCBSYSER BIT(1), /* EXIT EFFECTOR - SYSTEM ERROR 52272002 * ROUTINES ALREADY OPERATING 52274002 * FOR THIS TASK (OS/VS1) */ 52276002 * 4 TCBABGM BIT(1), /* GETMAIN IS TO DEFAULT LSQA 52278001 * REQUESTS TO SQA REQUESTS WHEN 52280001 * REQUEST CANNOT BE SATISFIED 52280401 * FROM LSQA (OS/VS2) */ 52280802 * 5 TCBRSV52 BIT(1), /* RESERVED (OS/VS1) */ 52281802 * 4 TCBRSV06 BIT(1), /* RESERVED (OS/VS2) */ 52290002 * 5 TCBFLREG BIT(1), /* FLOATING POINT REGISTERS 52294001 * EXIST (OS/VS1) */ 52296002 * 4 TCBRSV07 BIT(1), /* RESERVED (OS/VS2) */ 52297002 * 5 TCBSCHAB BIT(1), /* SCHEDULER HAS ABENDED, ABEND 52298002 * PROCESSING HAS COMPLETED 52298501 * AND THE SCHEDULER HAS BEEN 52298601 * RE-ENTERED (OS/VS1) 52298702 * (ICB465) XM4931*/ 52299001 * 4 TCBRSV08 BIT(1), /* RESERVED (OS/VS2) */ 52299502 * 5 TCBPKCHG BIT(1), /* XCTL ROUTINE IS CHANGING THE 52307402 * STORAGE PROTECTION KEY IN THE 52317402 * PSW FROM ZERO TO THE ONE USED 52319402 * BY THE PROBLEM PROGRAM 52319802 * (OS/VS1) */ 52320202 * 4 TCBDWSTA BIT(1), /* TASK WAS DETATCHED WITH 52321301 * STAE=YES OPTION (OS/VS2) 52322302 * ICB315*/ 52322702 * 5 TCBRSV53 BIT(1), /* RESERVED (OS/VS1) ICB456*/ 52323302 *%GOTO TCBA8; 52333201 *%TCBA7 : ; 52366701 * 4 TCBADINP BIT(1), /* USED IN CONJUNCTION WITH 52368701 * TCBONDSP. FLAG INDICATING 52369101 * THAT ABDUMP IS CURRENTLY 52370001 * PROCESSING FOR SOME TASK IN 52380001 * JOB STEP. A HIGHER LEVEL 52390001 * TASK IS NOT ALLOWED TO ENTER 52392001 * MAINLINE ABEND PROCESSING IF 52394001 * THIS BIT IS SET IN JOB STEP 52396001 * TCB UNLESS JOB STEP TASK IS 52398001 * FAILING. BIT SET ONLY IN JOB 52398401 * STEP TCB AND TASK INVOKING 52398801 * ABDUMP. (OS/VS2) */ 52399202 * 4 TCBABTRM BIT(1), /* ABTERM BIT TO PREVENT 52400002 * MULTIPLE ABENDS (OS/VS2) */ 52500002 * 4 TCBABGM BIT(1), /* GETMAIN IS TO DEFAULT LSQA 52600001 * REQUESTS TO SQA REQUESTS WHEN 52650001 * REQUEST CANNOT BE SATISFIED 52660001 * FROM LSQA (OS/VS2) */ 52670002 * 4 TCBRSV06 BIT(1), /* RESERVED (OS/VS2) */ 52700002 * 4 TCBRSV07 BIT(1), /* RESERVED (OS/VS2) */ 52701002 * 4 TCBRSV08 BIT(1), /* RESERVED (OS/VS2) */ 52702002 * 4 TCBDWSTA BIT(1), /* TASK WAS DETATCHED WITH 52710001 * STAE=YES OPTION (OS/VS2) 52720002 * ICB315*/ 52770002 *%TCBA8 : ; 54100001 * 3 TCBFLGS4 CHAR(1), /* NON-DISPATCHABILITY FLAGS 54200002 * (OS/VS2) 54300002 * RESERVED BYTE (OS/VS1) */ 54350002 * 4 TCBNDUMP BIT(1), /* ABDUMP NON-DISPATCHABILITY 54400002 * INDICATOR */ 54450002 * 4 TCBSER BIT(1), /* SER1 NON-DISPATCHABILITY 54500002 * INDICATOR */ 54550002 * 4 TCBRQENA BIT(1), /* I/O RQE'S EXHAUSTED */ 54600002 * 4 TCBHNDSP BIT(1), /* TASK OR JOB STEP IS 54700001 * MOMENTARILY 'FROZEN' UNTIL 54701001 * THE REQUIRED RESOURCES ARE 54702001 * AVAILABLE. THE BIT IS SET 54703001 * THROUGH THE USE OF THE 54704001 * 'STATUS' SVC. ICB453*/ 54705001 * 4 TCBUXNDV BIT(1), /* TASK IS TEMPORARILY 54710002 * NON-DISPATCHABLE BECAUSE SMF 54720001 * TIME LIMIT OR SYSOUT LIMIT 54730001 * USER EXIT ROUTINE IS BEING 54740001 * EXECUTED FOR THIS STEP */ 54750001 * 4 TCBMPCVQ BIT(1), /* VARY OR QUIESCE IN 54900002 * MULTIPROCESSING SYSTEM */ 55000001 * 4 TCBMPCND BIT(1), /* M65 MULTIPROCESSING 55100002 * NON-DISPATCHABILITY 55200002 * INDICATOR FOR ALL CPU'S */ 55300002 * 4 TCBONDSP BIT(1), /* TASK TERMINATING AND 55400001 * NON-DISPATCHABLE BECAUSE 55450002 * EITHER OPEN FOR DUMP DATA 55500001 * SET IS IN PROCESS OR CLOSE 55550001 * BY ABEND IS IN PROCESS */ 55600001 * 3 TCBFLGS5 CHAR(1), /* MORE NON-DISPATCHABILITY 55800002 * FLAGS. IF ANY BIT IN THIS 55900002 * BYTE IS 1, THE TASK IS 55950002 * NON-DISPATCHABLE. */ 55960002 * 4 TCBFC BIT(1), /* TASK TERMINATED (OS/VS2) */ 56000002 * 4 TCBABWF BIT(1), /* ABNORMAL WAIT (OS/VS2) */ 56100002 * 5 TCBUXNDF BIT(1), /* TASK IS TEMPORARILY 56110001 * NON-DISPATCHABLE BECAUSE SMF 56120002 * TIME LIMIT OR SYSOUT LIMIT 56130001 * USER EXIT ROUTINE IS BEING 56140001 * EXECUTED FOR THIS STEP. THIS 56150001 * BIT IS SET TO 1 IN ALL TCB'S 56160002 * EXCEPT JOB STEP TCB. 56170002 * (OS/VS1) ICB263*/ 56180002 * 4 TCBPAGE BIT(1), /* TASK IS NON-DISPATCHABLE DUE 56200002 * TO EXCESSIVE PAGING RATE */ 56300002 * 4 TCBANDSP BIT(1), /* TASK IS TEMPORARILY 56400002 * NON-DISPATCHABLE BECAUSE IT 56450002 * WAS ATTACHED UNDER THE 56500002 * DISP=NO OPERAND */ 56550002 * 4 TCBSYS BIT(1), /* ANOTHER TASK IS IN SYSTEM- 56600002 * MUST-COMPLETE STATUS OR A 56700002 * SUMMARY BIT FOR FIELD 56750001 * TCBSYSCT */ 56760002 * 4 TCBSTP BIT(1), /* ANOTHER TASK IN THIS JOB STEP 56800002 * IS IN STEP-MUST-COMPLETE 56900002 * STATUS */ 56910002 * 4 TCBFCD1 BIT(1), /* INITIATOR WAITING FOR REGION 57000002 * (OS/VS2) */ 57100002 * 4 TCBPNDSP BIT(1), /* PRIMARY NON-DISPATCHABILITY 57200002 * BIT. THIS BIT IS SET TO 1 57250002 * IF ANY OF THE SECONDARY 57300002 * NON-DISPATCHABILITY BITS 57350002 * (OFFSETS 173, 174, 175, 200 57360002 * OR 201 DECIMAL) IS SET TO 1. 57370002 * THIS BIT IS SET TO 0 IF A 57380002 * SECONDARY NON-DISPATCHABILITY 57390002 * BIT IS SET TO 0 AND ALL OTHER 57392002 * SECONDARY NON-DISPATCHABILITY 57394002 * BITS ARE 0. */ 57396002 * 2 TCBLMP PTR(8), /* TASK LIMIT PRIORITY (OS/VS2) 57400002 * NUMBER OF RESOURCES FOR WHICH 57450002 * THIS TASK IS ENQUEUED 57500002 * (OS/VS1) */ 57550002 * 2 TCBDSP PTR(8), /* DISPATCHING PRIORITY FOR THIS 57600002 * TASK */ 57650002 * 2 TCBLLS PTR(31), /* ADDRESS OF LAST LOAD LIST 57700002 * ELEMENT (LLE) IN LOAD LIST 57750002 * (OS/VS2) 57800002 * ADDRESS OF THE PREFIX OF THE 57850002 * MOST RECENTLY ADDED REQUEST 57860002 * BLOCK (RB-8) ON THE LIST OF 57900002 * PROGRAMS LOADED VIA THE LOAD 57950002 * MACRO INSTRUCTION (OS/VS1) 58000002 * MDC070*/ 58050002 * 2 TCBJLB PTR(31), /* ADDRESS OF A JOBLIB DCB */ 58100002 *%IF TCBSYSTM='' %THEN 58200001 * %GOTO TCBB1; 58300001 * 2 TCBFTJST PTR(31), /* ADDRESS OF THE JOB STEP TCB. 58400002 * FOR TASKS WITH A PROTECTION 58450002 * KEY OF ZERO, THIS FIELD 58500002 * CONTAINS THE ADDRESS OF THIS 58510002 * TCB. (OS/VS1) */ 58520002 *%IF TCBSYSTM='AOS1' %THEN 58550001 * %GOTO TCBB2; 58560001 * 3 TCBJPQ PTR(31), /* ADDRESS OF LAST CDE FOR JOB 58570002 * PACK AREA (JPA) CONTROL QUEUE 58580002 * (OS/VS2) */ 58590002 *%GOTO TCBB2; 58600001 *%TCBB1 : ; 58700001 * 2 TCBJPQ PTR(31), /* ADDRESS OF LAST CDE FOR JOB 58800002 * PACK AREA (JPA) CONTROL QUEUE 58850002 * (OS/VS2) */ 58900002 *%TCBB2 : ; 59000001 * 4 TCBPURGE CHAR(1), /* PURGE FLAGS (OS/VS2) */ 59100002 * 5 TCBJPQF BIT(1), /* JPQ PURGE FLAG */ 59200002 * 5 TCBRSV09 BIT(1), /* RESERVED */ 59300001 * 5 TCBRSV10 BIT(1), /* RESERVED */ 59301001 * 5 TCBRSV11 BIT(1), /* RESERVED */ 59302001 * 5 TCBRSV12 BIT(1), /* RESERVED */ 59303001 * 5 TCBRSV13 BIT(1), /* RESERVED */ 59304001 * 5 TCBRSV14 BIT(1), /* RESERVED */ 59305001 * 5 TCBRSV15 BIT(1), /* RESERVED */ 59306001 *%IF TCBSYSTM='' %THEN 59400001 * %GOTO TCBB3; 59500001 * 4 TCBFTJSA PTR(24), /* SAME AS TCBFTJST ABOVE */ 59600002 *%IF TCBSYSTM='AOS1' %THEN 59850001 * %GOTO TCBB4; 59860001 * 5 TCBJPQB PTR(24), /* SAME AS TCBJPQ ABOVE */ 59870002 *%GOTO TCBB4; 59890001 *%TCBB3 : ; 59900001 * 4 TCBJPQB PTR(24), /* SAME AS TCBJPQ ABOVE */ 60000002 *%TCBB4 : ; 60200001 * 2 TCBGRS CHAR(64) BDY(WORD), /* GENERAL REGISTER SAVE AREA */ 60300001 *%IF TCBSYSTM='AOS1' %THEN 60305001 * %GOTO TCBB4B; 60310001 *%IF TCBSYSTM='' %THEN 60315001 * %GOTO TCBB4A; 60320001 * /* THE FOLLOWING REGISTER MAPPING APPLIES TO OS/VS2. */ 60325002 * /* OS/VS1 SAVES REGISTERS IN THE ORDER TCBGRS10-TCBGRS9. */ 60330002 *%TCBB4A : ; 60335001 * 3 TCBGRS0 PTR(31), /* SAVE AREA FOR REGISTER 0 */ 60400001 * 3 TCBGRS1 PTR(31), /* SAVE AREA FOR REGISTER 1 */ 60500001 * 3 TCBGRS2 PTR(31), /* SAVE AREA FOR REGISTER 2 */ 60600001 * 3 TCBGRS3 PTR(31), /* SAVE AREA FOR REGISTER 3 */ 60700001 * 3 TCBGRS4 PTR(31), /* SAVE AREA FOR REGISTER 4 */ 60800001 * 3 TCBGRS5 PTR(31), /* SAVE AREA FOR REGISTER 5 */ 60900001 * 3 TCBGRS6 PTR(31), /* SAVE AREA FOR REGISTER 6 */ 61000001 * 3 TCBGRS7 PTR(31), /* SAVE AREA FOR REGISTER 7 */ 61100001 * 3 TCBGRS8 PTR(31), /* SAVE AREA FOR REGISTER 8 */ 61200001 * 3 TCBGRS9 PTR(31), /* SAVE AREA FOR REGISTER 9 */ 61300001 * 3 TCBGRS10 PTR(31), /* SAVE AREA FOR REGISTER 10 */ 61400001 * 3 TCBGRS11 PTR(31), /* SAVE AREA FOR REGISTER 11 */ 61500001 * 3 TCBGRS12 PTR(31), /* SAVE AREA FOR REGISTER 12 */ 61600001 * 3 TCBGRS13 PTR(31), /* SAVE AREA FOR REGISTER 13 */ 61700001 * 3 TCBGRS14 PTR(31), /* SAVE AREA FOR REGISTER 14 */ 61800001 * 3 TCBGRS15 PTR(31), /* SAVE AREA FOR REGISTER 15 */ 61900001 *%GOTO TCBB4C; 61905001 *%TCBB4B : ; 61910001 * 3 TCBGRS10 PTR(31), /* SAVE AREA FOR REGISTER 10 */ 61915001 * 3 TCBGRS11 PTR(31), /* SAVE AREA FOR REGISTER 11 */ 61920001 * 3 TCBGRS12 PTR(31), /* SAVE AREA FOR REGISTER 12 */ 61925001 * 3 TCBGRS13 PTR(31), /* SAVE AREA FOR REGISTER 13 */ 61930001 * 3 TCBGRS14 PTR(31), /* SAVE AREA FOR REGISTER 14 */ 61935001 * 3 TCBGRS15 PTR(31), /* SAVE AREA FOR REGISTER 15 */ 61940001 * 3 TCBGRS0 PTR(31), /* SAVE AREA FOR REGISTER 0 */ 61945001 * 3 TCBGRS1 PTR(31), /* SAVE AREA FOR REGISTER 1 */ 61950001 * 3 TCBGRS2 PTR(31), /* SAVE AREA FOR REGISTER 2 */ 61955001 * 3 TCBGRS3 PTR(31), /* SAVE AREA FOR REGISTER 3 */ 61960001 * 3 TCBGRS4 PTR(31), /* SAVE AREA FOR REGISTER 4 */ 61965001 * 3 TCBGRS5 PTR(31), /* SAVE AREA FOR REGISTER 5 */ 61970001 * 3 TCBGRS6 PTR(31), /* SAVE AREA FOR REGISTER 6 */ 61975001 * 3 TCBGRS7 PTR(31), /* SAVE AREA FOR REGISTER 7 */ 61980001 * 3 TCBGRS8 PTR(31), /* SAVE AREA FOR REGISTER 8 */ 61985001 * 3 TCBGRS9 PTR(31), /* SAVE AREA FOR REGISTER 9 */ 61990001 *%TCBB4C : ; 61995001 * 2 TCBFSA PTR(31), /* ADDRESS OF THE FIRST PROBLEM 62000002 * PROGRAM SAVE AREA */ 62100001 *%IF TCBSYSTM='' %THEN 62200001 * %GOTO TCBB5; 62300001 * 3 TCBIDF CHAR(1), /* TCB IDENTIFIER FIELD (OS/VS1)*/ 62400002 *%IF TCBSYSTM='AOS1' %THEN 62450001 * %GOTO TCBB6; 62460001 * 4 TCBQEL PTR(8), /* ENQUEUE COUNT (OS/VS2) */ 62470002 *%GOTO TCBB6; 62500001 *%TCBB5 : ; 62600001 * 3 TCBQEL PTR(8), /* ENQUEUE COUNT (OS/VS2) */ 62700002 *%TCBB6 : ; 62800001 * 3 TCBFSAB PTR(24), /* ADDRESS OF THE FIRST PROBLEM 62900002 * PROGRAM SAVE AREA */ 63100001 * 2 TCBTCB PTR(31), /* ADDRESS OF NEXT TCB OF LOWER 63200002 * PRIORITY ON THE READY QUEUE */ 63300002 * 2 TCBTME PTR(31), /* ADDRESS OF THE TIMER QUEUE 63400002 * ELEMENT (TQE) */ 63500002 * 3 TCBTQET BIT(1), /* IF ZERO, TASK TYPE TQE. 63550002 * IF ONE, REAL/WAIT TYPE TQE. 63560002 * MDC028*/ 63570002 *%IF TCBSYSTM='' %THEN 63600001 * %GOTO TCBB7; 63700001 * 2 TCBPIB PTR(31), /* ADDRESS OF THE PARTITION 63800002 * INFORMATION BLOCK (PIB) 63900002 * (OS/VS1) */ 63910002 *%IF TCBSYSTM='AOS1' %THEN 63950001 * %GOTO TCBB7A; 63960001 * 3 TCBJSTCB PTR(31), /* ADDRESS OF FIRST JOB STEP TCB 63970002 * OR OF THIS TCB IF KEY ZERO 63980001 * (OS/VS2) */ 63990002 *%TCBB7A : ; 63992001 * 4 TCBPIBT CHAR(1), /* PARTITION TYPE (OS/VS1) */ 64000002 * 5 TCBPART BIT(2), /* PARTITION FLAG BITS */ 64100002 * %DCL TCBPP CHAR; 64300001 * %TCBPP ='''11''B'; /* PROCESSING PROGRAM PARTITION */ 64400001 * 5 TCBSIZE BIT(1), /* IF 1, LARGE PARTITION. 65100002 * IF 0, SMALL PARTITION. */ 65200002 * 5 TCBSTOP BIT(1), /* CPU TIMING STOPPED BY FINCH 65300002 * UNTIL TRANSIENT IS LOADED */ 65400002 * 5 TCBRSV54 BIT(1), /* RESERVED */ 65600001 * 5 TCBSCHTI BIT(1), /* SCHEDULER HAS SET TCBTIO 65601002 * (OFFSET 12 DECIMAL) TO POINT 65651002 * TO THE INITIATOR'S TIOT. IT 65701002 * ONLY HAS MEANING WHEN BIT 65751002 * TCBSCHED IS ON. (ICB489) 65761002 * XM8572*/ 65771002 * 5 TCBWRITE BIT(1), /* INDICATES TO ABEND THAT THIS 65800001 * IS A READER OR WRITER 65850001 * TASK ICB422*/ 65860001 * 5 TCBSCHED BIT(1), /* SCHEDULER IN CONTROL. BIT 65900002 * TURNED OFF WHEN TIOT WRITTEN 66000002 * TO JOB QUEUE. USED BY ABEND.*/ 66100002 * 4 TCBPIBA PTR(24), /* ADDRESS OF THE PARTITION 66300002 * INFORMATION BLOCK (PIB) 66400002 * (OS/VS1) */ 66410002 *%IF TCBSYSTM='AOS1' %THEN 66450001 * %GOTO TCBB8; 66460001 * 5 TCBJSTCA PTR(24), /* ADDRESS OF FIRST JOB STEP TCB 66470002 * OR OF THIS TCB IF KEY ZERO 66480001 * (OS/VS2) */ 66490002 *%GOTO TCBB8; 66500001 *%TCBB7 : ; 66600001 * 2 TCBJSTCB PTR(31), /* ADDRESS OF FIRST JOB STEP TCB 66700002 * OR OF THIS TCB IF KEY ZERO 66800001 * (OS/VS2) */ 66850002 * 3 TCBRSV16 PTR(8), /* RESERVED */ 66900001 * 3 TCBJSTCA PTR(24), /* ADDRESS OF FIRST JOB STEP TCB 67000002 * OR OF THIS TCB IF KEY ZERO 67100001 * (OS/VS2) */ 67150002 *%TCBB8 : ; 67200001 * 2 TCBNTC PTR(31), /* ADDRESS OF THE TCB FOR THE 67300002 * TASK PREVIOUSLY ATTACHED BY 67350002 * THE TASK THAT ATTACHED THIS 67400002 * TASK */ 67450002 * 2 TCBOTC PTR(31), /* ADDRESS OF THE TCB FOR THE 67700002 * TASK (THE ORIGINATING TASK) 67750002 * THAT ATTACHED THIS TASK. 67800002 * THIS FIELD IS ZERO IN THE TCB 67850002 * FOR A SYSTEM TASK. */ 67860002 * 2 TCBLTC PTR(31), /* ADDRESS OF THE TCB FOR THE 67900002 * TASK LAST ATTACHED BY THIS 67950002 * TASK */ 68000002 * 2 TCBIQE PTR(31), /* ADDRESS OF AN INTERRUPTION 68200002 * QUEUE ELEMENT (IQE) FOR 68250002 * SCHEDULING THE ETXR ROUTINE 68300002 * OF THE TASK THAT ATTACHED 68350002 * THIS TASK */ 68400002 * 2 TCBECB PTR(31), /* ADDRESS OF THE ECB THAT WILL 68500002 * BE POSTED BY THE SUPERVISOR'S 68550002 * TASK TERMINATION ROUTINES 68600002 * WHEN NORMAL OR ABNORMAL 68650002 * TERMINATION OCCURS. */ 68700002 * 2 TCBTSFLG BIT(8), /* TIME SHARING FLAGS */ 68800001 * 3 TCBTSTSK BIT(1), /* SWAPPED TIME SHARING TASK 68850002 * (OS/VS1) MDC013*/ 68860002 * 4 TCBRV300 BIT(1), /* RESERVED (WAS TCBTSTSK) 68900002 * (OS/VS2) MDC013*/ 68950002 * 3 TCBSTPPR BIT(1), /* TASK SHOULD BE MADE 69000002 * NON-DISPATCHABLE VIA TCBSTPP 69050002 * WHEN IT IS NO LONGER RUNNING 69100002 * A PRIVILEGED PROGRAM */ 69200002 * 3 TCBATT BIT(1), /* TASK SHOULD NOT HAVE 69400002 * ATTENTION EXITS SCHEDULED ON 69500001 * IT BY EXIT EFFECTOR */ 69600001 * 3 TCBTIOTG BIT(1), /* PURGE TGET/TPUT AFTER 69700002 * ATTENTION */ 69800001 * 3 TCBRSV17 BIT(1), /* RESERVED */ 69900001 * 3 TCBRSV18 BIT(1), /* RESERVED */ 69901001 * 3 TCBDYDSP BIT(1), /* M195 TASK IS MEMBER OF 69910001 * DYNAMIC DISPATCHING 69920001 * GROUP ICB262*/ 69930001 * 3 TCBCPUBN BIT(1), /* FOR M195, ZERO MEANS I/O 69940001 * BOUND AND ONE MEANS CPU 69950001 * BOUND ICB262*/ 69960001 * 2 TCBSTPCT PTR(8), /* NUMBER OF SETTASK STARTS 70000001 * WHICH MUST BE ISSUED BEFORE 70100001 * TASK IS MADE DISPATCHABLE - 70200001 * FIELD NOT RESTRICTED TO TSO */ 70300001 * 2 TCBTSLP PTR(8), /* LIMIT PRIORITY OF TIME 70400002 * SHARING TASK */ 70450002 * 2 TCBTSDP CHAR(1), /* DISPATCHING PRIORITY OF TIME 70500002 * SHARING TASK */ 70600002 *%IF TCBSYSTM='AOS1' %THEN 70700001 * %GOTO TCBC1; 70800001 * 2 TCBPQE PTR(31), /* POINTER TO DPQE MINUS 8 FOR 70810001 * THE JOB STEP (OS/VS2) */ 70820002 *%IF TCBSYSTM='' %THEN 70850001 * %GOTO TCBC2; 70860001 * 3 TCBFTLMP PTR(8), /* THE LIMIT PRIORITY OF THE 70870002 * TASK (OS/VS1) */ 70872002 * 3 TCBFTFLG CHAR(3), /* ABEND FLAGS (OS/VS1) */ 70880002 *%GOTO TCBC1A; 70880801 *%TCBC1 : ; 70890001 * 2 TCBFTLMP PTR(8), /* THE LIMIT PRIORITY OF THE 70900002 * TASK (OS/VS1) */ 70950002 * 2 TCBFTFLG CHAR(3), /* ABEND FLAGS (OS/VS1) */ 71000002 *%TCBC1A : ; 71150001 * 4 TCBFTFL1 CHAR(1), /* ABEND FLAGS (OS/VS1) */ 71200002 * 5 TCBTCAM BIT(1), /* TCAM IS BEING USED BY THIS 71250003 * TCB STRUCTURE. THIS BIT IS 71300003 * SET ON IN THE JOB STEP TASK 71350003 * TCB ONLY. (MDC312) @X31BH9A*/ 71400003 * 5 TCBVTAM BIT(1), /* VTAM IS BEING USED BY THIS 71400303 * TCB STRUCTURE. THIS BIT IS 71400603 * SET ON IN THE JOB STEP TASK 71401003 * TCB ONLY. (MDC313) @X31BH9A*/ 71401503 * 5 TCBRWTOR BIT(1), /* TASK HAS ISSUED A WTOR TO A 71401706 * REMOTE RES WORKSTATION. RTAM 71402006 * WILL USE THIS BIT TO PREVENT 71402106 * AN UNNECESSARY NUMBER OF 71402206 * DISABLED PAGE FAULTS FROM 71402306 * OCCURRING AT STEP TERMINATION. 71402406 * (MDC328) @X60DS9A*/ 71402506 * 5 TCBRSV59 BIT(1), /* RESERVED */ 71403001 * 5 TCBRSV60 BIT(1), /* RESERVED */ 71404001 * 5 TCBFTTOP BIT(1), /* THIS IS THE TOP TASK IN TREE 71500002 * OF ABNORMALLY TERMINATING 71550002 * TASKS ICB422*/ 71600002 * 5 TCBFTCOM BIT(1), /* ABNORMAL TERMINATION DUMP 71700002 * HAS BEEN COMPLETED */ 71800002 * 5 TCBENQ BIT(1), /* INDICATES TO ABEND THAT TASK 71900001 * IS ENQUEUED ON DUMP DATA 71950001 * SET ICB422*/ 72000001 * 4 TCBFTFL2 CHAR(1), /* ABEND FLAGS (OS/VS1) */ 72100002 * 5 TCBRSV61 BIT(1), /* RESERVED */ 72500001 * 5 TCBRSV62 BIT(1), /* RESERVED */ 72501001 * 5 TCBDDEN BIT(1), /* CONDENSED DUMP - DOUBLE 72503004 * DENSITY LINE (64 BYTES WIDE 72503204 * INSTEAD OF 32 BYTES WIDE) 72503404 * (3800) (MDC318) @X50AD9A*/ 72503604 * 5 TCBLPAGE BIT(1), /* LONG PAGE - 80 LINES LONG 72504004 * (3800) (MDC319) @X50AD9A*/ 72507004 * 5 TCBRSV65 BIT(1), /* RESERVED */ 72510004 *%IF TCBSYSTM='BOTH' %THEN 72515004 * %GOTO TCBC2X; 72520001 * 5 TCBFDSOP BIT(1), /* THE SYSABEND (OR SYSUDUMP) 72600002 * DATA SET HAS BEEN OPENED FOR 72650002 * THE JOB STEP (JOB STEP TCB) 72660002 * ICB422*/ 72700002 *%GOTO TCBC2Y; 72710001 *%TCBC2X : ; 72720001 * 5 * BIT(1), /* TCBFDSOP - THE SYSABEND (OR 72730002 * SYSUDUMP) DATA SET HAS BEEN 72740002 * OPENED FOR THE JOB STEP 72750002 * (JOB STEP TCB) ICB422*/ 72752002 *%TCBC2Y : ; 72760001 * 5 TCBSYSAB BIT(1), /* IF 1, THE SYSABEND DATA SET 72800002 * IS BEING USED. IF 0, THE 72850002 * SYSUDUMP DATA SET IS BEING 72900002 * USED. (JOB STEP TCB) ICB422*/ 72950002 * 5 TCBRSV66 BIT(1), /* RESERVED */ 73000001 * 4 TCBFTFL3 CHAR(1), /* ABEND FLAGS (OS/VS1) */ 73100002 * 5 TCBRSV67 BIT(1), /* RESERVED */ 73300001 * 5 TCBRSV68 BIT(1), /* RESERVED */ 73301001 * 5 TCBRSV69 BIT(1), /* RESERVED */ 73302001 * 5 TCBRSV70 BIT(1), /* RESERVED */ 73303001 * 5 TCBRSV71 BIT(1), /* RESERVED */ 73304001 * 5 TCBFTDUM BIT(1), /* NO ABNORMAL TERMINATION DUMP 73600002 * (SYSABEND OR SYSUDUMP) CAN BE 73650002 * PROVIDED FOR THIS JOB STEP 73700002 * (JOB STEP TCB) */ 73750002 * 5 TCBRSV72 BIT(1), /* RESERVED */ 73800001 * 5 TCBRSV73 BIT(1), /* RESERVED */ 73801001 *%TCBC2 : ; 74300001 *%IF TCBSYSTM='AOS1' %THEN 74303001 * %GOTO TCBC2F; 74304001 * 2 TCBAQE PTR(31), /* LIST ORIGIN OF AQE(S) FOR 74400001 * THIS TASK (OS/VS2) */ 74500002 *%IF TCBSYSTM='' %THEN 74500201 * %GOTO TCBC2G; 74501001 * 3 TCBDDRTI FIXED(31), /* AMOUNT OF TIME REMAINING IN 74505001 * TASK'S DYNAMIC DISPATCHING 74506002 * TIME SLICE (OS/VS1) ICB465*/ 74507002 *%GOTO TCBC2G; 74508001 *%TCBC2F : ; 74509001 * 2 TCBDDRTI FIXED(31), /* AMOUNT OF TIME REMAINING IN 74510001 * TASK'S DYNAMIC DISPATCHING 74511002 * TIME SLICE (OS/VS1) ICB465*/ 74512002 *%TCBC2G : ; 74513001 * 2 TCBSTAB PTR(31), /* ADDRESS OF THE CURRENT STAE 74600002 * CONTROL BLOCK */ 74650002 * 3 TCBNSTAE CHAR(1), /* FLAGS INTERNAL TO STAE 74700002 * ROUTINE */ 74750002 * 4 TCBSTABE BIT(1), /* ABEND ENTERED BECAUSE OF 74800002 * ERROR IN STAE PROCESSING */ 74900002 * 4 TCBQUIES BIT(1), /* STAE INVOKED PURGE I/O 75000002 * ROUTINE WITH QUIESCE I/O 75100001 * OPTION */ 75200001 *%IF TCBSYSTM='AOS1' %THEN 75210001 * %GOTO TCBC2A; 75220001 *%IF TCBSYSTM='BOTH' %THEN 75230001 * %GOTO TCBC2B; 75240001 * 4 TCB33E BIT(1), /* A 33E ABEND HAS OCCURRED FOR 75300002 * TASK (OS/VS2) */ 75400002 * 4 TCBPPSUP BIT(1), /* 1=SUPERVISOR MODE,0=PROBLEM 75450064 * PROGRAM MODE.INDICATOR TO 75500064 * SYNCH OF THE MODE OF THE USER 75550064 * EXIT (OS/VS2) (MDC351) 75600064 * @ZM49454*/ 75650064 * 4 TCBHALT BIT(1), /* PURGE I/O ROUTINE DID NOT 75700064 * SUCCESSFULLY QUIESCE I/O, BUT 75750064 * I/O WAS HALTED */ 75800064 * 4 TCBSYNCH BIT(1), /* SYNCH ISSUED BY ASIR TO 75850064 * SCHEDULE EXIT ROUTINE 75900064 * OS/VS2 (MDC352) @ZM49654*/ 75950064 * 4 TCBRV301 BIT(1), /* RESERVED (WAS TCBNPURG) 76300002 * (OS/VS2) MDC007*/ 76400002 * 4 TCBSTCUR BIT(1), /* STAE RECURSION VALID (OS/VS2) 76700002 * ICB443*/ 76710001 *%GOTO TCBC2C; 76711001 *%TCBC2A : ; 76712001 * 4 TCBXCTL BIT(1), /* CURRENT SCB HAS XCTL=YES 76713002 * OPTION (OS/VS1) */ 76714002 * 4 TCBSCAT BIT(1), /* SCB WAS CREATED BY A PROGRAM 76715002 * THAT WAS SCATTER LOADED 76716002 * (OS/VS1) */ 76717002 * 4 TCBHALT BIT(1), /* PURGE I/O ROUTINE DID NOT 76718002 * SUCCESSFULLY QUIESCE I/O, BUT 76719002 * I/O WAS HALTED */ 76720001 * 4 TCBSUPER BIT(1), /* PROGRAM USING STAE IS IN 76721002 * SUPERVISOR STATE (KEY 0) 76722002 * (OS/VS1) */ 76722402 * 4 TCBRETRY BIT(1), /* STAE USER REQUESTED THAT A 76723002 * RETRY ROUTINE BE SCHEDULED 76724001 * BUT THAT THE RB CHAIN NOT BE 76725001 * PURGED (OS/VS1) */ 76726002 * 4 TCBVALID BIT(1), /* RETRY ROUTINE AND PARAMETER 76727002 * LIST ADDRESSES ARE VALID 76728002 * (OS/VS1) */ 76729002 *%GOTO TCBC2C; 76730001 *%TCBC2B : ; 76731001 * 4 TCBXCTL BIT(1), /* CURRENT SCB HAS XCTL=YES 76732002 * OPTION (OS/VS1) */ 76733002 * 5 TCB33E BIT(1), /* A 33E ABEND HAS OCCURRED FOR 76734002 * TASK (OS/VS2) */ 76735002 * 4 TCBSCAT BIT(1), /* SCB WAS CREATED BY A PROGRAM 76736002 * THAT WAS SCATTER LOADED 76737002 * (OS/VS1) */ 76738002 * 5 TCBPPSUP BIT(1), /* 1=SUPERVISOR MODE, 0=PROBLEM 76738464 * PROGRAM MODE. INDICATOR TO 76742464 * SYNCH OF THE MODE OF THE USER 76746464 * EXIT(OS/VS2) 76750464 * (MDC351) @ZM49654*/ 76754464 * 4 TCBHALT BIT(1), /* PURGE I/O ROUTINE DID NOT 76764402 * SUCCESSFULLY QUIESCE I/O, BUT 76776802 * I/O WAS HALTED */ 76789202 * 4 TCBSUPER BIT(1), /* PROGRAM USING STAE IS IN 76801602 * SUPERVISOR STATE (KEY 0) 76814002 * (OS/VS1) */ 76824002 * 5 TCBSYNCH BIT(1), /* SYNCH ISSUED BY ASIR TO 76826464 * SCHEDULE EXIT ROUTINE (OS/VS2) 76832464 * (MDC352) @ZM49654*/ 76838464 * 4 TCBRETRY BIT(1), /* STAE USER REQUESTED THAT A 76851202 * RETRY ROUTINE BE SCHEDULED 76863602 * BUT THAT THE RB CHAIN NOT BE 76876002 * PURGED (OS/VS1) */ 76888402 * 5 TCBRV301 BIT(1), /* RESERVED (WAS TCBNPURG) 76900802 * (OS/VS2) MDC007*/ 76913202 * 4 TCBVALID BIT(1), /* RETRY ROUTINE AND PARAMETER 76925602 * LIST ADDRESSES ARE VALID 76938002 * (OS/VS1) */ 76950402 * 5 TCBSTCUR BIT(1), /* STAE RECURSION VALID (OS/VS2) 76962802 * ICB443*/ 76975202 *%TCBC2C : ; 76987602 * 3 TCBSTABB PTR(24), /* ADDRESS OF THE CURRENT STAE 77000002 * CONTROL BLOCK */ 77050002 * 2 TCBTCT PTR(31), /* ADDRESS OF THE TIMING CONTROL 77200002 * TABLE (TCT) IF SYSTEM 77200403 * MANAGEMENT FACILITIES (SMF) 77200802 * DATA IS BEING COLLECTED FOR 77200903 * THE TASK. ZERO IF SMF DATA 77206903 * IS NOT BEING COLLECTED FOR 77212903 * THE TASK OR FOR OS/VS1, IF 77218903 * SMF IS NOT IN THE SYSTEM. 77224903 * (MDC305) @Z30AQ9A*/ 77230904 * 3 TCBTCTGF BIT(8), /* FLAG BYTE FOR TIMING CONTROL 77237502 * TABLE ICB318*/ 77255002 * 4 TCBSMFGF BIT(1), /* IF ZERO, THE TCT CORE TABLE 77272502 * IS NOT BE TO UPDATED BY 77290002 * GETMAIN/FREEMAIN. IF ONE, 77307502 * THE TCT CORE TABLE IS TO BE 77325002 * UPDATED BY GETMAIN/FREEMAIN. 77342502 * ICB318*/ 77360002 * 4 TCBRSV20 BIT(1), /* RESERVED */ 77377502 * 4 TCBRSV97 BIT(1), /* RESERVED */ 77395002 * 4 TCBRSV98 BIT(1), /* RESERVED */ 77412502 * 4 TCBRSV99 BIT(1), /* RESERVED */ 77430002 * 4 TCBRSV9A BIT(1), /* RESERVED */ 77447502 * 4 TCBRSV9B BIT(1), /* RESERVED */ 77465002 * 4 TCBRSV9C BIT(1), /* RESERVED */ 77482502 * 3 TCBTCTB PTR(24), /* SAME AS TCBTCT ABOVE */ 77500002 * 2 TCBUSER PTR(31), /* A WORD AVAILABLE TO THE USER */ 77800002 * 2 TCBSCNDY CHAR(4) BDY(WORD), /* SECONDARY NON-DISPATCHABILITY 80100002 * BITS. IF ANY BIT IN THE 80200002 * FOLLOWING FOUR BYTES IS 1, THE 80250002 * PRIMARY NON-DISPATCHABILITY 80300002 * BIT (OFFSET 33.7 DECIMAL) IS 80350002 * 1, AND THE TASK IS 80400002 * NON-DISPATCHABLE. */ 80410002 * 3 TCBNDSP CHAR(4) BDY(WORD), /* SAME AS TCBSCNDY */ 80450001 * 4 TCBNDSP0 CHAR(1), /* BYTE 0 */ 80460001 * 4 TCBNDSP1 CHAR(1), /* BYTE 1 */ 80500001 * 5 TCBDARTN BIT(1), /* THE TASK IS TEMPORARILY 80600002 * NON-DISPATCHABLE - DAMAGE 80700002 * ASSESSMENT ROUTINE (DAR) */ 80750002 * 5 TCBDARPN BIT(1), /* THE TASK IS PERMANENTLY 80800002 * NON-DISPATCHABLE - DAMAGE 80850002 * ASSESSMENT ROUTINE (DAR) */ 80900002 * 5 TCBRSTND BIT(1), /* THE TASK IS TEMPORARILY 81000002 * NON-DISPATCHABLE - RECOVERY 81100002 * MANAGEMENT SUPPORT AND SYSTEM 81150002 * ERROR RECOVERY (RMS/SER) */ 81160002 * 5 TCBRSPND BIT(1), /* THE TASK IS PERMANENTLY 81200002 * NON-DISPATCHABLE - RECOVERY 81250002 * MANAGEMENT SUPPORT AND SYSTEM 81300002 * ERROR RECOVERY (RMS/SER) 81350002 * (IF THIS FLAG IS ON THEN THE 81400001 * PREVIOUS BIT MUST BE ON TOO) */ 81500002 * 5 TCBDDRND BIT(1), /* THE TASK IS IN DEVICE 81600002 * ALLOCATION AND DYNAMIC DEVICE 81650002 * RECONFIGURATION (DDR) HAS 81660001 * MADE IT NON-DISPATCHABLE - 81670002 * RECOVERY MANAGEMENT SUPPORT 81680002 * AND SYSTEM ERROR RECOVERY 81690002 * (RMS/SER) (OS/VS1) MDC046*/ 81692002 * 5 TCBTPSP BIT(1), /* DISPATCHING OF TCAM TASK 81700001 * MUST BE DELAYED UNTIL TCAM 81800001 * I/O APPENDAGE OR SVC ROUTINE 81900001 * HAS COMPLETED EXECUTION 82000001 * (TCAM IN MULTIPROCESSING 82100001 * ENVIRONMENT) */ 82200001 * 5 TCBPIEND BIT(1), /* SRB IS TO BE SCHEDULED TO 82300002 * PERFORM PIE/PICA PROCESSING 82300402 * (FIRST LEVEL INTERRUPT 82300802 * HANDLER) MDC026*/ 82300902 * 5 TCBRSV22 BIT(1), /* RESERVED */ 82301001 * 4 TCBNDSP2 CHAR(1), /* BYTE 2 */ 82400001 * 5 TCBABD BIT(1), /* ABDUMP IS PROCESSING (OS/VS1)*/ 82500002 * 5 TCBSTPP BIT(1), /* TASK SET NON-DISPATCHABLE 82700002 * BY SETTASK */ 82800001 * 5 TCBNDSVC BIT(1), /* TASK IS NON-DISPATCHABLE 82900002 * BECAUSE SVC DUMP IS 83000002 * EXECUTING FOR ANOTHER TASK */ 83100002 * 5 TCBNDTS BIT(1), /* TASK IS NON-DISPATCHABLE 83200002 * BECAUSE IT IS BEING SWAPPED 83250002 * OUT */ 83300002 * 5 TCBIWAIT BIT(1), /* TASK IS NON-DISPATCHABLE DUE 83400002 * TO AN INPUT WAIT */ 83450002 * 5 TCBOWAIT BIT(1), /* TASK IS NON-DISPATCHABLE DUE 83600002 * TO AN OUTPUT WAIT */ 83650002 * 5 TCBDSS BIT(1), /* DYNAMIC SUPPORT SYSTEM (DSS) 83750002 * HAS SET THIS TASK 83752002 * NON-DISPATCHABLE ICB313*/ 83760001 * 5 TCBABE BIT(1), /* ABEND ROUTINE WAS ENTERED BY 83900002 * THIS TASK WHILE THE DCB FOR 83950002 * SYSABEND (OR SYSUDUMP) DATA 84000002 * SET WAS BEING OPENED FOR 84050002 * ANOTHER TASK (OS/VS1) */ 84100002 * 4 TCBNDSP3 CHAR(1), /* BYTE 3 */ 84300001 *%IF TCBSYSTM='' %THEN 84350001 * %GOTO TCBC3; 84360001 *%IF TCBSYSTM='BOTH' %THEN 84370001 * %GOTO TCBC3A; 84380001 * 5 TCBTERM BIT(1), /* TASK HAS BEEN TERMINATED 84400002 * (OS/VS1) */ 84450002 * 5 TCBABTER BIT(1), /* TASK TO BE TERMINATED BY 84600002 * ABEND (OS/VS1) */ 84650002 * 5 TCBNDSDA BIT(1), /* TEMPORARILY NON-DISPATCHABLE, 84750002 * PARTITION IS DEACTIVATED 84760001 * (OS/VS1) ICB357*/ 84770002 *%GOTO TCBC4; 84850001 *%TCBC3A : ; 84860001 * 5 TCBLJSND BIT(1), /* TASK IS ABENDING AND 84860401 * NON-DISPATCHABLE BECAUSE IT 84860802 * HAS A JOB STEP SUBTASK. 84861201 * TCBONDSP MUST ALSO BE ON. 84861601 * (OS/VS2) */ 84861702 * 6 TCBTERM BIT(1), /* TASK HAS BEEN TERMINATED 84861802 * (OS/VS1) */ 84862902 * 5 TCBRV302 BIT(1), /* RESERVED (WAS TCBSTAND) 84865602 * (OS/VS2) MDC006*/ 84866702 * 6 TCBABTER BIT(1), /* TASK TO BE TERMINATED BY 84870402 * ABEND (OS/VS1) */ 84870802 * 5 TCBSRBND BIT(1), /* TCB NON-DISPATCHABLE BECAUSE 84871802 * SRB'S ARE STOPPED (OS/VS2) 84871902 * MDC045*/ 84872002 * 6 TCBNDSDA BIT(1), /* TEMPORARILY NON-DISPATCHABLE, 84874002 * PARTITION IS DEACTIVATED 84876001 * (OS/VS1) ICB357*/ 84876402 *%GOTO TCBC4; 84877201 *%TCBC3 : ; 84880401 * 5 TCBLJSND BIT(1), /* TASK IS ABENDING AND 84883601 * NON-DISPATCHABLE BECAUSE IT 84886802 * HAS A JOB STEP SUBTASK. 84890001 * TCBONDSP MUST ALSO BE ON. 84892001 * (OS/VS2) */ 84892102 * 5 TCBRV302 BIT(1), /* RESERVED (WAS TCBSTAND) 84892402 * (OS/VS2) MDC006*/ 84892802 * 5 TCBSRBND BIT(1), /* TCB NON-DISPATCHABLE BECAUSE 84895702 * SRB'S ARE STOPPED (OS/VS2) 84895802 * MDC045*/ 84895902 *%TCBC4 : ; 84896164 * 5 TCBSLPER BIT(1), /* SET NON-DISPATCHABLE SO THAT 84896664 * SLIP/PER CAN ALTER RB PSW 84897364 * PER BIT (OS/VS2) 84897464 * (MDC340) @G64RP9A*/ 84897564 * 5 TCBRSV25 BIT(1), /* RESERVED */ 84899001 * 5 TCBAREQ BIT(1), /* TSO AUTHORIZED REQUEST 84899100 * PROCESSING ACTIVE. @ZA67167*/ 84899200 * 5 TCBRSV27 BIT(1), /* RESERVED */ 84899401 *%IF TCBSYSTM='' %THEN 84899502 * %GOTO TCBC4A; 84899602 *%IF TCBSYSTM='BOTH' %THEN 84902602 * %GOTO TCBC4B; 84905602 * 5 TCBRSV28 BIT(1), /* RESERVED (OS/VS1) MDC075*/ 84908602 *%GOTO TCBC4C; 84911602 *%TCBC4A : ; 84914602 * 5 TCBNDINT BIT(1), /* INITIATOR SETS THIS BIT TO 84917602 * PREVENT JOB STEP EXECUTION 84920602 * IN ORDER TO DO CANCEL 84923602 * PROCESSING (CAN CANCEL LOOP) 84926602 * (OS/VS2) MDC075*/ 84929602 *%GOTO TCBC4C; 84932602 *%TCBC4B : ; 84935602 * 5 TCBNDINT BIT(1), /* INITIATOR SETS THIS BIT TO 84938602 * PREVENT JOB STEP EXECUTION 84950002 * IN ORDER TO DO CANCEL 84951002 * PROCESSING (CAN CANCEL LOOP) 84952002 * (OS/VS2) MDC075*/ 84953002 * 6 TCBRSV28 BIT(1), /* RESERVED (OS/VS1) MDC075*/ 84954002 *%TCBC4C : ; 84955002 * 2 TCBMDIDS FIXED(31), /* RESERVED FOR MODEL-DEPENDENT 84956002 * SUPPORT AND FOR IBM 84957002 * PROPRIETARY PROGRAMMING 84960001 * SUPPORT ICBXXX*/ 84970001 * 2 TCBJSCB PTR(31), /* ADDRESS OF THE JOB STEP 85000002 * CONTROL BLOCK */ 85100002 * 3 TCBRECDE CHAR(1), /* ABEND RECURSION BYTE ICB456*/ 85101001 * 4 TCBREC BIT(1), /* VALID REENTRY TO ABEND IF 85102002 * NON-ZERO VALUE IN FOLLOWING 85103002 * 7 BITS ICB456*/ 85104002 * 4 * BIT(7), /* ABEND BITS ICB456*/ 85105001 *%TCBOPEN='''01''X'; /* OPEN DUMP DATA SET ICB456*/ 85106001 *%TCBCLOSD='''02''X'; /* CLOSE DIRECT SYSOUT ON 85107001 * TAPE ICB456*/ 85108001 *%TCBCLOSE='''03''X'; /* CLOSE OPEN DATA SETS ICB456*/ 85109001 *%TCBCLOSF='''04''X'; /* RESERVED ICB456*/ 85110001 *%TCBGREC='''05''X'; /* GRAPHICS ICB456*/ 85111001 *%TCBADUMP='''07''X'; /* ABDUMP ICB456*/ 85112001 *%TCBPTAXE='''08''X'; /* PURGE TAXE ICB456*/ 85113001 *%TCBMESG='''09''X'; /* MESSAGE RECURSION ICB456*/ 85114001 *%TCBDYNAM='''0A''X'; /* DD-DYNAM TIOT CLEANUP ICB456*/ 85115001 *%TCBDAMSG='''0B''X'; /* ABEND IS ISSUING A WTOR 85115102 * ASKING WHETHER THE JOB STEP 85115202 * TASK SHOULD WAIT FOR THE 85115302 * DUMP AREA (OS/VS1) MDC041*/ 85115402 *%TCBQTIP='''0C''X'; /* PURGE TSO INTERPARTITION 85116001 * POSTS ICB456*/ 85117001 *%TCBTCAMP='''0D''X'; /* PURGE TCAM INTERPARTITION 85118001 * POSTS ICB456*/ 85119001 *%TCBINDRC='''0E''X'; /* INDICATIVE DUMP (LOAD 8 OF 85119102 * ABEND) HAS ABENDED. ABEND 85119202 * WILL HANDLE THIS ABEND. 85119302 * (OS/VS1) MDC050*/ 85119402 *%TCBSAVCD='''0F''X'; /* ASIR RECURSION. SAVE OLD 85120001 * COMPLETION CODE ICB456*/ 85121002 *%TCBTYP1W='''10''X'; /* TYPE 1 MESSAGE WRITE TO 85122001 * PROGRAMMER ICB456*/ 85123001 *%TCBWTPSE='''20''X'; /* WRITE-TO-PROGRAMMER (WTP) 85123103 * FAILED. JOB STEP TIMER 85123203 * EXPIRED DURING JOB STEP ABEND 85123303 * AND THE STAE EXIT IS DENIED. 85123403 * (OS/VS1) (MDC301) @X04DA9A*/ 85123503 *%TCBVTAM1='''21''X'; /* ABEND IS ENTERING FIRST VTAM 85124503 * INTERFACE, ISTRAAA1, FOR 85125503 * TERMINATION OF TASK OR 85128003 * SUBTASK (OS/VS1) 85135003 * (MDC081) @X31BH9A*/ 85138003 *%TCBVTAM2='''22''X'; /* ABEND IS ENTERING SECOND VTAM 85138603 * INTERFACE, ISTRAAA2, BECAUSE 85139203 * ISTRAAA1 ABENDED (OS/VS1) 85139803 * (MDC082) @X31BH9A*/ 85140403 *%TCBVTAM3='''23''X'; /* ABEND IS ENTERING FIRST VTAM 85140603 * INTERFACE, ISTRAAA0, BECAUSE 85140803 * VTAM ABENDED (OS/VS1) 85141003 * (MDC310) @X04BH9A*/ 85147003 *%TCBVTAM4='''24''X'; /* ABEND IS ENTERING SECOND VTAM 85148003 * INTERFACE, ISTRAAA2, BECAUSE 85149003 * ISTRAAA0 ABENDED (OS/VS1) 85150003 * (MDC311) @X04BH9A*/ 85151003 *%TCBNOSTA='''30''X'; /* STAE/STAI NOT TO BE 85156003 * HONORED ICB456*/ 85159003 *%TCBSTRET='''31''X'; /* RETURN FROM DUMP PROCESSING 85162003 * ICB456*/ 85168003 *%TCBCONVR='''32''X'; /* CONVERT TO STEP ABEND ICB456*/ 85174003 *%TCBDARET='''33''X'; /* RETURN FROM DAMAGE 85182003 * ASSESSMENT ROUTINES ICB456*/ 85188003 *%TCBTYP1R='''34''X'; /* RETURN FROM TYPE 1 MESSAGE 85194003 * MODULE ICB456*/ 85200003 *%TCBNEWRB='''35''X'; /* ABEND ISSUED SVC 13 TO 85206003 * TRANSFER CONTROL (XCTL) TO A 85212003 * NON-ABEND MODULE ICB456*/ 85218003 *%TCBMCCNS='''40''X'; /* A MUST COMPLETE TASK HAS 85224003 * ABNORMALLY TERMINATED WITHOUT 85232002 * ENOUGH STORAGE FOR 2 RB'S FOR 85282001 * A WTOR ASKING WHETHER THE 85292001 * TASK'S RESOURCES ARE CRITICAL. 85294002 * THE RESOURCES ARE ASSUMED TO 85296002 * BE CRITICAL, AND THE 85298002 * PARTITION IS MARKED 85298402 * PERMANENTLY NON-DISPATCHABLE. 85298802 * (OS/VS1) ICB492*/ 85299202 * 3 TCBJSCBB PTR(24), /* ADDRESS OF THE JOB STEP 85300002 * CONTROL BLOCK */ 85500002 * 2 TCBDDEXC FIXED(15), /* NUMBER OF TIMES A DYNAMIC 85501002 * DISPATCHING TASK HAS HAD ITS 85502002 * TIME SLICE EXPIRE 85503002 * (OS/VS1) ICB465*/ 85504002 * 2 TCBDDWTC FIXED(15), /* NUMBER OF TIMES A DYNAMIC 85505002 * DISPATCHING TASK IS NOT 85506002 * INTERRUPTED BY THE END OF A 85507002 * TIME SLICE BETWEEN WAITS 85507402 * (OS/VS1) ICB465*/ 85508002 * 2 TCBIOBRC PTR(31), /* ADDRESS OF IOB RESTORE CHAIN 85509001 * FOR I/O QUIESCED BY EOT 85509101 * YM2840*/ 85509401 * 2 TCBEXCPD PTR(31), /* ADDRESS OF EXCP DEBUG AREA 85510002 * (OS/VS2) (MDC083) YM4297*/ 85530002 * 2 TCBEXT1 PTR(31), /* ADDRESS OF OS - OS/VS COMMON 85560002 * EXTENSION ICB311*/ 85562002 * 3 TCBRSV32 PTR(8), /* RESERVED ICB311*/ 85570001 * 3 TCBEXT1A PTR(24), /* ADDRESS OF OS - OS/VS COMMON 85574002 * EXTENSION ICB311*/ 85576001 * 85592001 * /* OS/VS1 - OS/VS2 COMMON SECTION */ 85594002 * 85596001 * 2 TCBBITS CHAR(4) BDY(WORD), /* FLAG BYTES. IF A BIT IN THE 85598002 * FOLLOWING TWO BYTES IS SET 85598102 * TO 1, THE PRIMARY 85598202 * NON-DISPATCHABILITY BIT 85598302 * (OFFSET 33.7 DECIMAL) IS SET 85600302 * TO 1, AND THE TASK IS 85602302 * NON-DISPATCHABLE. */ 85602702 * 3 TCBNDSP4 BIT(8), /* SECONDARY NON-DISPATCHABILITY 85603202 * FLAGS COMMON TO OS/VS1 AND 85605202 * OS/VS2. COORDINATED WITH 85607202 * PRIMARY NON-DISPATCHABILITY 85609202 * FLAG TCBPNDSP. THIS BYTE IS 85611202 * NOT CURRENTLY SUPPORTED BY 85611802 * OS/VS2. MDC076*/ 85612402 * 4 TCBRSV86 BIT(1), /* RESERVED */ 85613202 * 4 TCBRSV87 BIT(1), /* RESERVED */ 85615202 * 4 TCBRSV88 BIT(1), /* RESERVED */ 85617202 * 4 TCBRSV89 BIT(1), /* RESERVED */ 85619202 * 4 TCBRSV90 BIT(1), /* RESERVED */ 85621202 * 4 TCBRSV91 BIT(1), /* RESERVED */ 85623202 * 4 TCBRSV92 BIT(1), /* RESERVED */ 85625202 * 4 TCBRSV93 BIT(1), /* RESERVED */ 85627202 * 3 TCBNDSP5 BIT(8), /* SECONDARY NON-DISPATCHABILITY 85629202 * FLAGS UNIQUE TO OS/VS1 OR 85631202 * OS/VS2. COORDINATED WITH 85633202 * PRIMARY NON-DISPATCHABILITY 85643202 * FLAG TCBPNDSP. THIS BYTE IS 85653202 * NOT CURRENTLY SUPPORTED BY 85653802 * OS/VS2. MDC077*/ 85654402 *%IF TCBSYSTM='' %THEN 85655201 * %GOTO TCBC5; 85657201 * 4 TCBNDSPL BIT(1), /* THE TASK IS NON-DISPATCHABLE 85663202 * BECAUSE THE SUPERVISOR LOCK 85663602 * IS SET. SET BY PAGING 85665202 * SERVICE INTERFACE ROUTINE 85665602 * WHEN DISABLED CODE PRODUCES 85666002 * A PAGE FAULT OR REQUESTS A 85666402 * PAGE FIX. (OS/VS1) */ 85666502 * 4 TCBNDGTF BIT(1), /* THIS TASK IS NON-DISPATCHABLE 85666602 * WHILE WAITING FOR A TIRB 85676602 * ROUTINE TO PROCESS A PAGE 85677702 * FAULT IN DISABLED CODE 85687702 * PRODUCED BY GTF. SET AND 85688102 * RESET BY STAGE THREE EXIT 85688502 * EFFECTOR. SET WHEN TIRB 85688602 * POOL EMPTY AND REQUESTING 85688701 * TASK HAS AN SQE QUEUED AT 85688801 * REQUEST OF GTF. (OS/VS1) */ 85692502 *%GOTO TCBC5D; 85693501 *%TCBC5 : ; 85693701 * 4 TCBRSV94 BIT(1), /* RESERVED (OS/VS2) */ 85693902 * 4 TCBRSV95 BIT(1), /* RESERVED (OS/VS2) */ 85694102 *%TCBC5D : ; 85694301 * 4 TCBRSV74 BIT(1), /* RESERVED */ 85694501 * 4 TCBRSV75 BIT(1), /* RESERVED */ 85694701 * 4 TCBRSV76 BIT(1), /* RESERVED */ 85694801 * 4 TCBRSV77 BIT(1), /* RESERVED */ 85695101 * 4 TCBRSV78 BIT(1), /* RESERVED */ 85695301 * 4 TCBRSV79 BIT(1), /* RESERVED MDC075*/ 85695402 * 3 TCBFLGS6 CHAR(1), /* TASK-RELATED FLAGS */ 85701602 * 4 TCBRV BIT(1), /* THE PARTITION IS FIXED IN 85703602 * REAL STORAGE. VIRTUAL 85705702 * ADDRESSES ARE EQUAL TO REAL 85706102 * ADDRESSES. */ 85709402 *%IF TCBSYSTM='' %THEN 85712902 * %GOTO TCBC5A; 85716201 *%IF TCBSYSTM='BOTH' %THEN 85726201 * %GOTO TCBC5B; 85736201 * 4 TCBPIE17 BIT(1), /* THIS TASK REQUESTS EXECUTION 85746202 * OF A SPIE WHEN A PAGE FAULT 85756202 * OCCURS (OS/VS1) ICB339*/ 85756302 * 4 TCBPANIC BIT(1), /* TASK HAS, OR IS WAITING FOR, 85756402 * EMERGENCY WORK AREA (OS/VS1) 85756502 * ICB457*/ 85756602 * 4 TCBFPROT BIT(1), /* IF ON, FETCH PROTECT FOR KEY 85756702 * EQUAL TO ZERO IN PROBLEM 85756802 * PROGRAM SPACE (OS/VS1) MDC048*/ 85756902 * 4 TCBRUNPN BIT(1), /* IF ZERO, PARTITION IS 85757002 * ELIGIBLE FOR DEACTIVATION. 85757402 * IF ONE, PARTITION IS NOT 85757802 * ELIGIBLE FOR DEACTIVATION. 85769902 * (OS/VS1) ICB465*/ 85770302 * 4 TCBRUNJB BIT(1), /* IF ZERO, CURRENT JOB IS 85770702 * ELIGIBLE FOR DEACTIVATION. 85771102 * IF ONE, PARTITION IS NOT 85771502 * ELIGIBLE FOR DEACTIVATION 85771602 * WHILE CURRENT JOB IS RUNNING. 85771902 * (OS/VS1) ICB465*/ 85772302 * 4 TCBDSINQ BIT(1), /* IF ZERO, DATA SET INTEGRITY 85772702 * LOGIC IS NOT BEING EXECUTED. 85772802 * PARTITION IS ELIGIBLE FOR 85772902 * DEACTIVATION. IF ONE, 85773002 * SCHEDULER IS USING ENQUEQUED 85773502 * DATA SET INTEGRITY LOGIC AT 85773902 * JOB START TIME. PARTITION IS 85774302 * NOT ELIGIBLE FOR DEACTIVATION. 85774702 * (OS/VS1) ICB465*/ 85775102 * 4 TCBSTIJS BIT(1), /* IF ON, STIMER REQUEST IS FOR 85775502 * JOB STEP TIMING (OS/VS1) 85775902 * MDC049*/ 85776302 *%GOTO TCBC8; 85776702 *%TCBC5B : ; 85777102 * 4 TCBPIE17 BIT(1), /* THIS TASK REQUESTS EXECUTION 85777502 * OF A SPIE WHEN A PAGE FAULT 85777902 * OCCURS (OS/VS1) 85778002 * PAGE FAULT INTERRUPT IS TO 85778302 * BE PASSED TO THE TASK'S 85778702 * INTERRUPT EXIT AND AN 8-BYTE 85779102 * PICA IS IN EFFECT FOR THIS 85779502 * TASK (OS/VS2) ICB339*/ 85779902 * 4 TCBCPU BIT(1), /* TASK IS CPU-BOUND MEMBER OF 85780302 * AUTOMATIC PRIORITY GROUP 85780702 * (APG) (OS/VS2) */ 85780802 * 5 TCBPANIC BIT(1), /* TASK HAS, OR IS WAITING FOR, 85781102 * EMERGENCY WORK AREA (OS/VS1) 85781502 * ICB457*/ 85781602 * 4 TCBSPVLK BIT(1), /* TASK SCHEDULED FOR ABTERM 85781902 * WHILE OWNING SUPERVISOR LOCK 85782302 * (OS/VS2) */ 85782702 * 5 TCBFPROT BIT(1), /* IF ON, FETCH PROTECT FOR KEY 85783102 * EQUAL TO ZERO IN PROBLEM 85783502 * PROGRAM SPACE (OS/VS1) MDC048*/ 85783902 * 4 TCBRV303 BIT(1), /* RESERVED (WAS TCBOLSQA) 85784302 * (OS/VS2) MDC014*/ 85784702 * 5 TCBRUNPN BIT(1), /* IF ZERO, PARTITION IS 85785102 * ELIGIBLE FOR DEACTIVATION. 85785502 * IF ONE, PARTITION IS NOT 85785902 * ELIGIBLE FOR DEACTIVATION. 85786302 * (OS/VS1) ICB465*/ 85786402 * 4 TCBMIGR BIT(1), /* REGION SELECTED FOR MIGRATION 85786702 * FROM PRIMARY PAGING DEVICE 85787102 * (OS/VS2) */ 85787502 * 5 TCBRUNJB BIT(1), /* IF ZERO, CURRENT JOB IS 85787902 * ELIGIBLE FOR DEACTIVATION. 85788602 * IF ONE, PARTITION IS NOT 85789002 * ELIGIBLE FOR DEACTIVATION 85789402 * WHILE CURRENT JOB IS RUNNING. 85789802 * (OS/VS1) ICB465*/ 85789902 * 4 TCBAPG BIT(1), /* TASK IS IN AUTOMATIC PRIORITY 85790002 * GROUP (APG) (OS/VS2) */ 85790302 * 5 TCBDSINQ BIT(1), /* IF ZERO, DATA SET INTEGRITY 85790402 * LOGIC IS NOT BEING EXECUTED. 85791002 * PARTITION IS ELIGIBLE FOR 85791102 * DEACTIVATION. IF ONE, 85791202 * SCHEDULER IS USING ENQUEUED 85791302 * DATA SET INTEGRITY LOGIC AT 85791502 * JOB START TIME. PARTITION IS 85791902 * NOT ELIGIBLE FOR DEACTIVATION. 85792302 * (OS/VS1) ICB465*/ 85792702 * 4 TCBNTJS BIT(1), /* JOB STEP TASK BUT NOT HIGHEST 85793102 * IN FAILING TREE (OS/VS2) */ 85793502 * 5 TCBSTIJS BIT(1), /* IF ON, STIMER REQUEST IS FOR 85793902 * JOB STEP TIMING (OS/VS1) 85794302 * MDC049*/ 85794702 *%GOTO TCBC8; 85795102 *%TCBC5A : ; 85795502 * 4 TCBPIE17 BIT(1), /* PAGE FAULT INTERRUPT IS TO 85795902 * BE PASSED TO THE TASK'S 85796302 * INTERRUPT EXIT AND AN 8-BYTE 85796702 * PICA IS IN EFFECT FOR THIS 85797102 * TASK (OS/VS2) ICB339*/ 85797502 * 4 TCBCPU BIT(1), /* TASK IS CPU-BOUND MEMBER OF 85797902 * AUTOMATIC PRIORITY GROUP 85798002 * (APG) (OS/VS2) */ 85798302 * 4 TCBSPVLK BIT(1), /* TASK SCHEDULED FOR ABTERM 85798702 * WHILE OWNING SUPERVISOR LOCK 85799102 * (OS/VS2) */ 85799502 * 4 TCBRV303 BIT(1), /* RESERVED (WAS TCBOLSQA) 85799902 * (OS/VS2) MDC014*/ 85800302 * 4 TCBMIGR BIT(1), /* REGION SELECTED FOR MIGRATION 85800702 * FROM PRIMARY PAGING DEVICE 85801102 * (OS/VS2) */ 85801502 * 4 TCBAPG BIT(1), /* TASK IS IN AUTOMATIC PRIORITY 85801902 * GROUP (APG) (OS/VS2) */ 85802002 * 4 TCBNTJS BIT(1), /* JOB STEP TASK BUT NOT HIGHEST 85802302 * IN FAILING TREE (OS/VS2) */ 85802702 *%TCBC8 : ; 85803102 * 3 TCBFLGS7 CHAR(1), /* TASK-RELATED FLAGS */ 85803502 *%IF TCBSYSTM='AOS1' %THEN 85803902 * %GOTO TCBC9; 85804302 *%IF TCBSYSTM='BOTH' %THEN 85804702 * %GOTO TCBC9B; 85805102 * 4 TCBGPECB BIT(1), /* TASK IS IN AN ECB WAIT FOR A 85805502 * GETPART (OS/VS2) ICB339*/ 85805902 * 4 TCBRSV33 BIT(1), /* RESERVED (OS/VS2) */ 85806302 * 4 TCBRSV34 BIT(1), /* RESERVED (OS/VS2) */ 85806702 * 4 TCBSTACK BIT(1), /* SET IN JOB STEP TCB TO 85807102 * INDICATE THAT A TASK IN THE 85807502 * JOB STEP IS IN SERIAL ABEND 85807902 * PROCESSING. USED IN 85808302 * CONJUNCTION WITH TCBFOINP. 85808702 * (OS/VS2) ICB374*/ 85809102 * 4 TCBSVCS BIT(1), /* RESERVED (MDC315) @Z40EP9A*/ 85809504 * 4 TCBRSTSK BIT(1), /* RESIDENT SYSTEM TASK (OS/VS2)*/ 85809902 * 4 TCBADMP BIT(1), /* ALL OTHER TASKS IN JOB STEP 85810302 * HAVE BEEN SET NON-DISPATCHABLE 85810702 * BY ABDUMP. THIS BIT IS SET 85811102 * TO CONTROL JOB STEP DURING 85811502 * THE DUMPING PROCESS. (OS/VS2)*/ 85811902 *%GOTO TCBC9A; 85812302 *%TCBC9B : ; 85812702 * 4 TCBGPECB BIT(1), /* TASK IS IN AN ECB WAIT FOR A 85813102 * GETPART (OS/VS2) ICB339*/ 85813502 * 5 TCBFDD BIT(1), /* THIS TCB IS A MEMBER OF THE 85813902 * DYNAMIC DISPATCHING GROUP. 85814302 * (OS/VS1) ICB465*/ 85814702 * 4 TCBRSV33 BIT(1), /* RESERVED (OS/VS2) */ 85815102 * 5 TCBFDDT BIT(1), /* IF 0, CPU-BOUND. IF 1, 85815502 * I/O-BOUND. (DYNAMIC 85815902 * DISPATCHING) (OS/VS1) ICB465*/ 85816302 * 4 TCBRSV34 BIT(1), /* RESERVED (OS/VS2) */ 85816702 * 5 TCBFDDEI BIT(1), /* IF 0, TIME SLICE HAS NOT 85817102 * EXPIRED. IF 1, TIME SLICE 85817502 * FOR THIS TASK HAS EXPIRED 85817902 * SINCE IT LAST ISSUED A WAIT. 85818302 * (DYNAMIC DISPATCHING) 85818702 * (OS/VS1) ICB465*/ 85819102 * 4 TCBSTACK BIT(1), /* SET IN JOB STEP TCB TO 85819502 * INDICATE THAT A TASK IN THE 85819902 * JOB STEP IS IN SERIAL ABEND 85820302 * PROCESSING. USED IN 85820702 * CONJUNCTION WITH TCBFOINP. 85821102 * (OS/VS2) ICB374*/ 85821502 * 5 TCBFWDD BIT(1), /* THIS TCB WAS FORMERLY A 85821902 * MEMBER OF THE DYNAMIC 85822302 * DISPATCHING GROUP 85822702 * (OS/VS1) XM9175*/ 85823102 * 4 TCBSVCS BIT(1), /* RESERVED (MDC315) @Z40EP9A*/ 85823504 * 4 TCBRSTSK BIT(1), /* RESIDENT SYSTEM TASK (OS/VS2)*/ 85823902 * 5 TCBRSV83 BIT(1), /* RESERVED (OS/VS1) */ 85824302 * 4 TCBADMP BIT(1), /* ALL OTHER TASKS IN JOB STEP 85824702 * HAVE BEEN SET NON-DISPATCHABLE 85825102 * BY ABDUMP. THIS BIT IS SET 85825502 * TO CONTROL JOB STEP DURING 85825902 * THE DUMPING PROCESS. (OS/VS2)*/ 85826302 * 5 TCBRSV84 BIT(1), /* RESERVED (OS/VS1) */ 85826702 *%GOTO TCBC9A; 85827102 *%TCBC9 : ; 85827502 * 4 TCBFDD BIT(1), /* THIS TCB IS A MEMBER OF THE 85827902 * DYNAMIC DISPATCHING GROUP. 85828302 * (OS/VS1) ICB465*/ 85828702 * 4 TCBFDDT BIT(1), /* IF 0, CPU-BOUND. IF 1, 85829102 * I/O-BOUND. (DYNAMIC 85829502 * DISPATCHING) (OS/VS1) ICB465*/ 85829902 * 4 TCBFDDEI BIT(1), /* IF 0, TIME SLICE HAS NOT 85830302 * EXPIRED. IF 1, TIME SLICE 85832302 * FOR THIS TASK HAS EXPIRED 85832402 * SINCE IT LAST ISSUED A WAIT. 85832502 * (DYNAMIC DISPATCHING) 85832602 * (OS/VS1) ICB465*/ 85833202 * 4 TCBFWDD BIT(1), /* THIS TCB WAS FORMERLY A 85836902 * MEMBER OF THE DYNAMIC 85839102 * DISPATCHING GROUP 85839202 * (OS/VS1) XM9175*/ 85839302 * 4 TCBSVCS BIT(1), /* RESERVED (MDC315) @X50BE9A*/ 85839504 * 4 TCBRSV83 BIT(1), /* RESERVED (OS/VS1) */ 85843504 * 4 TCBRSV84 BIT(1), /* RESERVED (OS/VS1) */ 85844104 *%TCBC9A : ; 85845104 * 4 TCBGTOFM BIT(1), /* GENERALIZED TRACE FACILITY 85845704 * (GTF) TRACING HAS BEEN 85846304 * TEMPORARILY DISABLED UNDER 85847104 * THIS TASK ICB402*/ 85848304 * 2 TCBDAR CHAR(1), /* DAMAGE ASSESSMENT ROUTINE 85848904 * (DAR) FLAGS */ 85849504 * 3 TCBDARP BIT(1), /* PRIMARY DAR RECURSION. DAR 85850704 * HAS BEEN ENTERED FOR THIS 85851304 * TASK */ 85851904 * 3 TCBDARS BIT(1), /* SECONDARY DAR RECURSION. IF 85853104 * DAR IS REENTERED, THIS TASK 85853704 * WILL BE SET NON-DISPATCHABLE.*/ 85854304 * 3 TCBDARD BIT(1), /* A DUMP HAS BEEN REQUESTED 85855504 * FOR A WRITER OR SCHEDULER 85856104 * ABEND, AND THE USER HAS NOT 85857104 * PROVIDED A SYSABEND DD CARD 85857304 * (OS/VS1) */ 85857904 * 3 TCBDARC BIT(1), /* RECURSION PERMITTED IN 85858804 * CLOSE - AFTER DAR PROCESSING 85859704 * COMPLETED (PCP) */ 85860604 * 4 TCBDARMC BIT(1), /* DAR HAS BEEN ENTERED TO 85861504 * HANDLE A VALID RECURSION 85862104 * IN MUST-COMPLETE STATUS 85862704 * THROUGH ABEND ICB264*/ 85863604 * 3 TCBDARO BIT(1), /* SYSTEM ERROR TASK IS FAILING. 85864504 * DAR DUMP SHOULD NOT REQUEST 85865704 * ANY ERROR RECOVERY PROCEDURE 85866304 * (ERP) PROCESSING. */ 85866904 * 3 TCBDARWT BIT(1), /* A WTO OPERATION WITH A 85867904 * 'REINSTATEMENT FAILURE' 85868904 * MESSAGE IS IN PROCESS FOR DAR 85869404 * ICB264*/ 85869904 * 3 TCBDARMS BIT(1), /* WTO OPERATION WITH A 'DAR IN 85870904 * PROGRESS' MESSAGE IS IN 85871904 * PROCESS FOR DAR (OS/VS1) 85872904 * (MDC314) @XA08316*/ 85873904 * 3 TCBEXSVC BIT(1), /* THE DUMP SVC ROUTINE IS 85874404 * EXECUTING FOR THIS TASK */ 85874904 * 2 TCBRSV37 PTR(8), /* RESERVED FOR USER MDC080*/ 85875704 * 2 TCBSYSCT PTR(8), /* NUMBER OF OUTSTANDING 85876504 * SYSTEM-MUST-COMPLETE 85877504 * REQUESTS (ICB497) YM3883*/ 85878304 * 2 TCBSTMCT PTR(8), /* NUMBER OF OUTSTANDING 85879104 * STEP-MUST-COMPLETE 85879904 * REQUESTS (ICB497) YM3883*/ 85880704 * 2 TCBEXT2 PTR(31) BDY(DWORD), /* SAME AS TCBEXT2A ICB311*/ 85881504 * 3 TCBRSV39 PTR(8), /* RESERVED ICB311*/ 85882304 * 3 TCBEXT2A PTR(24), /* ADDRESS OF OS/VS1 - OS/VS2 85883104 * COMMON EXTENSION ICB311*/ 85883904 *%IF TCBSYSTM='' %THEN 85884704 * %GOTO TCBD1; 85885504 * 85886304 * /* OS/VS1 TCB OVERLAY */ 85887502 * 85889501 * 2 TCBPCB PTR(31) BDY(DWORD,5),/* ADDRESS OF PAGE CONTROL BLOCK 85939502 * FOR THIS TASK */ 85947502 * 2 TCBGQE PTR(31), /* ADDRESS OF FIRST GQE FOR THIS 85947602 * TASK */ 85947702 * 2 TCBARB PTR(31), /* ADDRESS OF AVAILABLE SVRB 85948002 * ICB344*/ 85948102 * 3 TCBRSV85 CHAR(1), /* RESERVED ICB344*/ 85948401 * 3 TCBARBA PTR(24), /* ADDRESS OF AVAILABLE SVRB 85950602 * ICB344*/ 85952302 * 2 TCBTTQE PTR(31), /* HEAD OF QUEUE OF TIMER QUEUE 85955002 * ELEMENTS FOR CPU (TASK) 85956702 * TIMING FOR THIS TASK MDC042*/ 85958402 * 3 TCBJSONQ BIT(1), /* THE JOB STEP TIMING QUEUE 85958702 * ELEMENT IS ON THE QUEUE 85959002 * HEADED BY THIS TCBTTQE FIELD 85959302 * MDC074*/ 85959602 * 2 TCBSVCA1 PTR(8), /* RESERVED (MDC316) @X50BE9A*/ 85960104 * 2 TCBRV190 PTR(24), /* RESERVED @X50BE9A*/ 85963804 * 2 * CHAR(0) BDY(DWORD); 85965204 *%IF TCBSYSTM='AOS1' %THEN 85966904 * %GOTO TCBD2; 85968604 *%TCBD1 : ; 85970304 * 85973704 * /* OS/VS2 TCB OVERLAY */ 85975404 * 85977104 *%IF TCBSYSTM='' %THEN 85978804 * %GOTO TCBD1A; 85980504 * DECLARE 85982204 *%IF IKEPLS='2' %THEN 85983904 * %GOTO TCBD1B; 85987304 * 1 TCBS01 BASED(ADDR(TCBPCB)) BDY(DWORD,5), 85989004 *%GOTO TCBD1A; 85990704 *%TCBD1B : ; 85992704 * 1 TCBS01 DEF(TCBPCB) BDY(DWORD,5), 85994704 *%TCBD1A : ; 85996704 * 2 TCBAECB CHAR(4) BDY(DWORD,5),/* ABEND ECB. POSTED BY A 85998704 * MOTHER TASK IN RTM2 PROCESSING 86000704 * WHEN A DAUGHTER IS WAITING TO 86002704 * TERMINATE IT. MDC033*/ 86004704 * 2 TCBTIRB PTR(31), /* ADDRESS OF TIRB FOR TASK */ 86007701 * 2 TCBBACK PTR(31), /* ADDRESS OF PREVIOUS TCB ON 86009501 * READY QUEUE. ZERO IN TOP 86011301 * TCB. */ 86013101 * 2 TCBRTWA PTR(31), /* POINTER TO CURRENT RTM2 WORK 86013202 * AREA MDC034*/ 86013302 * 2 TCBIOTIM FIXED(31), /* TIME IN 16-MICROSECOND UNITS 86016701 * BETWEEN TIME ORIGINAL TIME 86018501 * SLICE INTERVAL WAS ASSIGNED 86020301 * AND TIME AUTOMATIC PRIORITY 86022102 * GROUP (APG) TASK WENT INTO 86022502 * VOLUNTARY WAIT */ 86023901 * 2 TCBTMSAV FIXED(31), /* TIME IN 16-MICROSECOND UNITS 86025701 * REMAINING FROM ORIGINAL TIME 86027501 * SLICE INTERVAL WHEN AUTOMATIC 86029302 * PRIORITY GROUP (APG) TASK 86029702 * WAS LAST DISPATCHED */ 86031101 * 2 TCBABCUR CHAR(1), /* ABEND RECURSION BYTE */ 86032901 * 2 TCBRSVAA PTR(8), /* RESERVED (ICB497) YM3883*/ 86034701 * 2 TCBTID CHAR(1), /* TASK ID NUMBER ICB374*/ 86040101 *%TCBPAGID='''FF''X'; /* ID FOR PAGING SUPERVISOR 86041901 * TASK ICB403*/ 86043701 *%TCBSYERR='''FE''X'; /* ID FOR SYSTEM ERROR 86045501 * TASK ICB403*/ 86047301 *%TCBCOMM='''FD''X'; /* ID FOR COMMUNICATIONS 86049101 * TASK ICB403*/ 86050901 *%TCBIORMS='''FC''X'; /* ID FOR I/O RMS 86052701 * TASK ICB403*/ 86054501 *%TCBMASTR='''FB''X'; /* ID FOR MASTER SCHEDULER 86056301 * TASK ICB403*/ 86058101 *%TCBJES='''FA''X'; /* ID FOR JOB ENTRY SUBSYSTEM 86059902 * (JES) MONITOR TASK ICB403*/ 86061702 *%TCBDSSID='''F9''X'; /* ID FOR DYNAMIC SUPPORT SYSTEM 86063502 * (DSS) TASK ICB403*/ 86065302 *%TCBLOGID='''F8''X'; /* ID FOR SYSTEM LOG TASK MDC001*/ 86065702 * 2 TCBRSV41 PTR(8), /* RESERVED ICB374*/ 86067101 * 2 TCBXSCT CHAR(4) BDY(WORD), /* DISPATCHER INTERSECT CONTROL 86068940 * WORD (MDC322) @Z40FP9A*/ 86074940 * 3 TCBXSCT1 BIT(8), /* FLAG BYTE (MDC323) @Z40FP9A*/ 86080940 * 4 TCBACTIV BIT(1), /* BIT ON MEANS THIS TCB IS 86086940 * CURRENTLY ACTIVE ON A CPU. 86092940 * USED TO SYNCHRONIZE SOME 86098940 * STATUS SAVING AND 86104940 * DISPATCHABILITY INDICATORS 86110940 * WHEN ACTIVE OR NOT UNDER THE 86116940 * LOCAL LOCK. (MDC320) @Z40FP9A*/ 86122940 * 4 TCBS3A BIT(1), /* STAGE 3 EXIT EFFECTOR/RESUME/ 86128940 * TCTL INTERSECT FLAG 86134940 * (MDC324) @Z40FP9A*/ 86140940 * 4 TCBRV319 BIT(1), /* RESERVED @Z40FP9A*/ 86146940 * 4 TCBRV320 BIT(1), /* RESERVED @Z40FP9A*/ 86152940 * 4 TCBRV321 BIT(1), /* RESERVED @Z40FP9A*/ 86158940 * 4 TCBRV322 BIT(1), /* RESERVED @Z40FP9A*/ 86164940 * 4 TCBRV323 BIT(1), /* RESERVED @Z40FP9A*/ 86170940 * 4 TCBRV324 BIT(1), /* RESERVED @Z40FP9A*/ 86176940 * 3 TCBRV325 BIT(8), /* RESERVED (MDC325) @Z40FP9A*/ 86182940 * 3 TCBCCPVI FIXED(15), /* ID OF THE CURRENT CPU RUNNING 86188940 * THIS TASK. USED FOR RECOVERY 86194940 * AND CPU AFFINITY. 86200940 * (MDC321) @Z40FP9A*/ 86206940 * 2 TCBFOE PTR(31), /* SAME AS TCBFOEA BELOW ICB339*/ 86242901 * 3 TCBRSV42 PTR(8), /* RESERVED ICB339*/ 86244901 * 3 TCBFOEA PTR(24), /* ADDRESS OF FIRST FIX 86246901 * OWNERSHIP ELEMENT (FOE) IN 86247301 * LIST FOR THIS TASK ICB339*/ 86247401 * 2 TCBSWA PTR(31), /* ADDRESS OF FIRST SCHEDULER 86247501 * WORK AREA (SWA) SPQE ON SWA 86247704 * SPQE CHAIN (MDC326) @Z40AQ9A*/ 86248104 * 2 TCBSTAWA PTR(31), /* ESTAE ROUTINE WORK AREA 86249140 * POINTER (MDC327) @Z40FP9A*/ 86249740 * 2 TCBTCBID CHAR(4) BDY(WORD), /* CONTAINS BLOCK ID - 'TCB ' 86251102 * MDC012*/ 86251202 * 2 TCBRTM12 PTR(31), /* POINTER TO PARAMETER AREAS 86251502 * PASSED FROM RTM1 TO RTM2 86251902 * MDC008*/ 86252302 * 2 TCBESTAE CHAR(4) BDY(WORD), /* AREA TO CONTAIN RECOVERY DATA 86254302 * FOR RTM MDC029*/ 86254702 * 3 TCBSCBKY CHAR(1), /* KEY IN WHICH SYNCH IS TO PASS 86254964 * CONTROL TO THE USER EXIT 86255064 * (MDC353) @ZM49654*/ 86255164 * 3 TCBESTRM BIT(8), /* ESTAE TERM OPTIONS MDC039*/ 86255402 * 4 TCBETERM BIT(1), /* ESTAE EXIT ENTERED WITH TERM 86255502 * OPTION MDC040*/ 86255602 * 4 TCBSTAFX BIT(1), /* SERIALIZED BY TCB ACTIVE 86255700 * (MDC342) @ZA30005*/ 86255800 * 4 TCBRV309 BIT(1), /* RESERVED */ 86255900 * 4 TCBRV310 BIT(1), /* RESERVED */ 86256000 * 4 TCBRV311 BIT(1), /* RESERVED */ 86256100 * 4 TCBRV312 BIT(1), /* RESERVED */ 86256200 * 4 TCBRV313 BIT(1), /* RESERVED */ 86256300 * 4 TCBRV314 BIT(1), /* RESERVED */ 86256400 * 3 TCBERTYP PTR(8), /* TYPE OF ERROR CAUSING ENTRY 86257202 * TO THE RTM. SET BY RTM1. 86259202 * MDC052*/ 86261202 * 3 TCBMODE PTR(8), /* MASK INDICATING MODE OF 86261602 * SYSTEM AT TIME OF ERROR. 86262002 * SEE IHART1W/MODE FOR 86262402 * INDIVIDUAL BIT DEFINITIONS. 86262502 * MDC064*/ 86262602 * 2 TCBUKYSP PTR(31), /* ADDRESS OF SPQE'S FOR 86263002 * SUBPOOLS 229 AND 230 (USER 86263402 * KEY STORAGE IN THE PRIVATE 86264302 * AREA) MDC067*/ 86266302 * 2 TCBRV326 FIXED(15), /* RESERVED (MDC321) @Z40FP9A*/ 86269940 * 2 TCBAFFN BIT(16), /* CPU AFFINITY INDICATOR MDC047*/ 86272602 * 2 TCBFBYT1 BIT(8), /* FLAG BYTE MDC002*/ 86273502 * 3 TCBEOTFM BIT(1), /* END OF TASK FLAG FOR FREEMAIN. 86274402 * SET TO 1 BY TASK TERMINATION 86275302 * AT START OF TERMINATION 86276202 * PROCESSING AND RESET TO 0 AT 86277102 * FINISH. INDICATES THAT A 86278002 * FREEMAIN ON A BLOCK OF LOCAL 86278902 * STORAGE THAT IS STILL FIXED 86279802 * BY RSM SHOULD RESULT IN A 86280702 * RETURN CODE OF 8 RATHER THAN 86281602 * ABNORMAL TERMINATION. MDC002*/ 86282502 * 3 TCBRV327 BIT(1), /* RESERVED (MDC320) @Z40FP9A*/ 86283440 * 3 TCBNDIOS BIT(1), /* TASK HAS BEEN SET NON- 86288802 * DISPATCHABLE VIA STATUSND 86289702 * WHILE SVC 16 (PURGE) SCANS 86290602 * THE RB CHAIN PURGING APPENDAGE- 86291502 * SCHEDULED ASYNCHRONOUS EXIT 86292402 * ROUTINES RUNNING UNDER AN 86293302 * IRB/RQE OR NON-RESIDENT ERP'S 86294202 * RUNNING UNDER THE SIRB MDC005*/ 86295102 * 3 TCBPGNLY BIT(1), /* SET BY RTM2 TO INDICATE ONLY 86296002 * PURGE PHASE TO BE PERFORMED 86296902 * MDC009*/ 86297802 * 3 TCBRTM2 BIT(1), /* SET BY RTM2 TO INDICATE RTM2 86298702 * HAS BEEN ENTERED FOR THIS 86299602 * TASK MDC010*/ 86300502 * 3 TCBEOT BIT(1), /* SET BY RTM2 TO INDICATE TO 86301402 * EXIT THAT END OF TASK 86302302 * PROCESSING IS COMPLETE MDC011*/ 86303202 * 3 TCBRV113 BIT(1), /* RESERVED */ 86304102 * 3 TCBLLH BIT(1), /* LOCALLY LOCKED TCB HAS PAGE 86305002 * FAULTED, AND I/O IS REQUIRED 86305902 * (FIRST LEVEL INTERRUPT 86306302 * HANDLER) MDC027*/ 86306802 * 2 TCBFBYT2 BIT(8), /* FLAG BYTE MDC035*/ 86307702 * 3 TCBCNCB BIT(1), /* SET BY RTM2 IN THE JOB STEP 86308602 * TCB WHEN IT HAS BEEN ENTERED 86309502 * ON THE TCB FOR AN X22 86310402 * ABEND MDC036*/ 86311302 * 3 TCBFMW BIT(1), /* MOTHER WAITING FLAG. TURNED 86312202 * ON IN A SUBTASK IN RTM2 86313102 * PROCESSING WHEN AN ANCESTOR 86314002 * TASK IS WAITING TO ABEND 86314902 * IT. MDC037*/ 86315802 * 3 TCBFDW BIT(1), /* DAUGHTER WAITING FLAG. 86316702 * TURNED ON IN A MOTHER TASK 86317602 * IN RTM2 PROCESSING WHEN A 86318502 * DAUGHTER IS WAITING TO ABEND 86319402 * IT. MDC038*/ 86320302 * 3 TCBFPRAP BIT(1), /* SET BY RTM2 TO PREVENT 86321202 * PERCOLATION TO THE TASK OF AN 86322102 * ASYNCHRONOUS ABEND MDC051*/ 86323002 * 3 TCBSSSYN BIT(1), /* SYNCHRONIZED STATUS STOP 86323902 * PENDING FOR THIS TCB MDC053*/ 86324802 * 3 TCBECBNV BIT(1), /* IF 1, ECB POINTED TO BY 86325202 * TCBECB IS NOT TO BE VALIDITY 86325602 * CHECKED. IF 0, ECB POINTED 86326002 * TO BY TCBECB IS TO BE 86326402 * VALIDITY CHECKED. MDC071*/ 86326502 * 3 TCBRV122 BIT(1), /* RESERVED */ 86326602 * 3 TCBRV123 BIT(1), /* RESERVED */ 86327502 * 2 TCBRV124 BIT(8), /* RESERVED (MDC306) */ 86328404 * 3 TCBRV125 BIT(1), /* RESERVED (MDC307) */ 86329004 * 3 TCBRV126 BIT(1), /* RESERVED (MDC308) */ 86330404 * 3 TCBRV127 BIT(1), /* RESERVED */ 86331102 * 3 TCBRV128 BIT(1), /* RESERVED */ 86332002 * 3 TCBRV129 BIT(1), /* RESERVED */ 86332902 * 3 TCBRV130 BIT(1), /* RESERVED */ 86333802 * 3 TCBRV131 BIT(1), /* RESERVED */ 86334702 * 3 TCBRV132 BIT(1), /* RESERVED */ 86335602 * 2 TCBRV133 BIT(8), /* RESERVED */ 86336502 * 3 TCBRV134 BIT(1), /* RESERVED */ 86337402 * 3 TCBRV135 BIT(1), /* RESERVED */ 86338302 * 3 TCBRV136 BIT(1), /* RESERVED */ 86339202 * 3 TCBRV137 BIT(1), /* RESERVED */ 86340102 * 3 TCBRV138 BIT(1), /* RESERVED */ 86341002 * 3 TCBRV139 BIT(1), /* RESERVED */ 86341902 * 3 TCBRV140 BIT(1), /* RESERVED */ 86342802 * 3 TCBRV141 BIT(1), /* RESERVED */ 86343702 * 2 TCBRPT PTR(31), /* ADDRESS OF RADIX PARTITION 86344602 * TREE FOR LOCAL STORAGE 86345002 * MANAGEMENT MDC068*/ 86345402 * 2 TCBVAT PTR(31), /* ADDRESS OF THE VAT @ZA63673 86345500 * (VSAM). THERE IS ONE @ZA63673 86345800 * VAT PER JOB STEP TCB @ZA63673*/ 86346100 * 2 TCBSWASA PTR(31), /* ADDRESS OF SAVE AREA USED BY 86346402 * SWA MANAGER MDC079*/ 86346802 * 2 TCBSVCA2 PTR(31), /* RESERVED (MDC317) @Z40EP9A*/ 86347004 * 2 * CHAR(0) BDY(DWORD); 86348202 *%TCBD2 : ; 86349102 * 86350002 * /* OS/VS1 - OS/VS2 COMMON EXTENSION */ 86350902 * 86351802 * DECLARE 86352702 * 1 TCBXTNT2 BASED(TCBEXT2) BDY(DWORD), 86353602 * 2 TCBGTF PTR(31), /* SAME AS TCBGTFA BELOW ICB312*/ 86354502 * 3 TCBTFLG BIT(8), /* GENERALIZED TRACE FACILITY 86355402 * (GTF) FLAG BYTE ICB312*/ 86355802 * 4 TCBASYNC BIT(1), /* GTF ASYNCHRONOUS GATHER 86356302 * ROUTINE IS IN CONTROL ICB312*/ 86357202 * 4 TCBERRTN BIT(1), /* GTF ASYNCHRONOUS GATHER ERROR 86358102 * ROUTINE IS IN CONTROL ICB312*/ 86359002 * 4 TCBDSPIT BIT(1), /* MACHINE CHECK INTERRUPTION 86359902 * HANDLER SHOULD UNCONDITIONALLY 86360302 * BRANCH TO DISPATCHER ICB312*/ 86360802 * 4 TCBRSV43 BIT(1), /* RESERVED */ 86361702 * 4 TCBRSV44 BIT(1), /* RESERVED */ 86362602 * 4 TCBRSV45 BIT(1), /* RESERVED */ 86363502 * 4 TCBRSV46 BIT(1), /* RESERVED */ 86364402 * 4 TCBRSV47 BIT(1), /* RESERVED */ 86365302 * 3 TCBGTFA PTR(24), /* ADDRESS OF GTF TEMPORARY 86366202 * TRACE BUFFER ICB312*/ 86367102 * 2 TCBRSVAB PTR(8), /* RESERVED (ICB497) YM3883*/ 86368002 * 2 TCBRCMP BIT(24), /* MOST RECENT ABEND COMPLETION 86368902 * CODE (INCLUDING VALID 86370902 * RECURSIONS IN STAE) ICB411*/ 86371302 * 2 TCBEVENT PTR(31), /* ADDRESS OF EVENT TABLES QUEUE 86373403 * (MDC304) @X31ED9A*/ 86373803 * 2 TCBRSV49 PTR(31), /* RESERVED */ 86374302 *%IF TCBSYSTM='AOS1' %THEN 86375202 * %GOTO TCBD5; 86376102 * 2 TCBRV142 PTR(31), /* RESERVED */ 86377002 * 2 TCBCAUF PTR(31), /* ADDRESS OF SUBSYSTEM FACILITY 86377940 * CONTROL BLOCK (OS/VS2) 86378140 * (MDC345) @ZA27912*/ 86378340 * 2 TCBRV144 FIXED(15), /* RESERVED */ 86378802 * 2 TCBRV145 FIXED(15), /* RESERVED */ 86379702 * 2 TCBRV146 BIT(8), /* RESERVED */ 86380602 * 3 TCBRV147 BIT(1), /* RESERVED */ 86381502 * 3 TCBRV148 BIT(1), /* RESERVED */ 86382402 * 3 TCBRV149 BIT(1), /* RESERVED */ 86383302 * 3 TCBRV150 BIT(1), /* RESERVED */ 86384202 * 3 TCBRV151 BIT(1), /* RESERVED */ 86385102 * 3 TCBRV152 BIT(1), /* RESERVED */ 86386002 * 3 TCBRV153 BIT(1), /* RESERVED */ 86386902 * 3 TCBRV154 BIT(1), /* RESERVED */ 86387802 * 2 TCBRV155 BIT(8), /* RESERVED */ 86388702 * 3 TCBRV156 BIT(1), /* RESERVED */ 86389602 * 3 TCBRV157 BIT(1), /* RESERVED */ 86390502 * 3 TCBRV158 BIT(1), /* RESERVED */ 86391402 * 3 TCBRV159 BIT(1), /* RESERVED */ 86392302 * 3 TCBRV160 BIT(1), /* RESERVED */ 86393202 * 3 TCBRV161 BIT(1), /* RESERVED */ 86394102 * 3 TCBRV162 BIT(1), /* RESERVED */ 86395002 * 3 TCBRV163 BIT(1), /* RESERVED */ 86395902 * 2 TCBRV164 BIT(8), /* RESERVED */ 86396802 * 3 TCBRV165 BIT(1), /* RESERVED */ 86397702 * 3 TCBRV166 BIT(1), /* RESERVED */ 86398602 * 3 TCBRV167 BIT(1), /* RESERVED */ 86399502 * 3 TCBRV168 BIT(1), /* RESERVED */ 86400402 * 3 TCBRV169 BIT(1), /* RESERVED */ 86410402 * 3 TCBRV170 BIT(1), /* RESERVED */ 86420402 * 3 TCBRV171 BIT(1), /* RESERVED */ 86422402 * 3 TCBRV172 BIT(1), /* RESERVED */ 86424402 * 2 TCBRV173 BIT(8), /* RESERVED */ 86426402 * 3 TCBRV174 BIT(1), /* RESERVED */ 86428402 * 3 TCBRV175 BIT(1), /* RESERVED */ 86428802 * 3 TCBRV176 BIT(1), /* RESERVED */ 86429202 * 3 TCBRV177 BIT(1), /* RESERVED */ 86429602 * 3 TCBRV178 BIT(1), /* RESERVED */ 86430002 * 3 TCBRV179 BIT(1), /* RESERVED */ 86430102 * 3 TCBRV180 BIT(1), /* RESERVED */ 86430202 * 3 TCBRV181 BIT(1), /* RESERVED */ 86430302 *%TCBD5 : ; 86447002 * 2 * CHAR(0) BDY(DWORD); 86463702 * 86480402 *%TCBLEN='LENGTH(TCBFIX) + LENGTH(TCB) + LENGTH(TCBXTNT2)'; /* TCB 86530402 * LENGTH INCLUDING PREFIX 86580402 * ICB362*/ 86630402 * 86680402 * /* END OF TCB */ 86730402 *%IF IKEPLS='' %THEN 86780402 * %GOTO TCBL4; 86830402 *IHALPOP; 86880402 *%TCBL4 : ; 86930402