* 00410001 * %GOTO JSCBL1; /* 00420001 MACRO 00800001 IEZJSCB , */ 01200001 *%JSCBL1 : ; 01210001 * 01220001 */* **************************************************************** */ 01600001 */* */ 02000001 */* ***** JOB/STEP CONTROL BLOCK ***** */ 02400001 */* */ 02800001 */* OS/VS2 SU64, 04/13/78, LEVEL=1 */ 02860064 */* */ 02900001 */* METHOD OF ACCESS */ 02910001 */* PL/S - %INCLUDE SYSLIB(IKJTCB) TO DEFINE TCBJSCB */ 02920001 */* BAL - L REG,TCBJSCB */ 02930001 */* USING IEZJSCB,REG */ 02940001 */* */ 02950001 */* WHERE REG IS ANY REGISTER OTHER THAN ZERO GIVES */ 02960001 */* ADDRESSABILITY FOR ALL SYMBOLS. */ 02970001 */* */ 02980001 */* NOTE */ 02990001 */* IN ADDITION TO THE MANDATORY USE OF THIS MACRO FOR */ 03000001 */* REFERENCES TO THE JSCB, MODULES IN 0S/VS1 AND OS/VS2 WHICH */ 03010002 */* ALLOCATE AND/OR FREE THE JSCB ARE REQUIRED TO USE THE */ 03020001 */* GETJSCB AND FREEJSCB MACROS. */ 03030001 */* */ 03040001 */* FUNCTION */ 03050001 */* COMMUNICATION OF JOB OR STEP RELATED DATA ITEMS */ 03060001 */* */ 06800001 */* **************************************************************** */ 07200001 * 07210001 *%GOTO JSCBL2; /* 07220001 * 07230001 IEZJSCB DSECT 07600001 ORG IEZJSCB+188 - ALLOWS ADDRESSABILITY FROM TCBJSCB 08000001 SPACE 08400001 *********************************************************************** 08800003 * * 09200001 * SECTION 1 DATA ITEMS USED IN OS/VS1 AND OS/VS2 * 09600002 * * 10000001 *********************************************************************** 10400003 JSCBSEC1 EQU * - START OF JSCB SECTION 1 10800001 SPACE 11200001 JSCRSV01 DS F - RESERVED 11202001 JSCHPCE DS 0A - ADDRESS OF OPTIONAL JOB ENTRY SUBSYSTEM 11202102 * (JES) PROCESSOR CONTROL ELEMENT ICB459 11202202 JSCRSV32 DS X - RESERVED ICB459 11202301 JSCHPCEA DS AL3 - ADDRESS OF OPTIONAL JOB ENTRY SUBSYSTEM 11203002 * (JES) PROCESSOR CONTROL ELEMENT ICB459 11203402 JSCBSHR DS A - ADDRESS OF ASSEMBLY CHAIN (VSAM) ICB434 11204402 JSCBTCP DS A - ADDRESS OF TIOT CHAINING ELEMENT CHAIN 11205101 * (VSAM) ICB434 11205802 JSCBPCC DS A - ADDRESS OF PRIVATE CATALOG CONTROL BLOCK 11206501 * CHAIN (VSAM) ICB434 11207202 JSCBTCBP DS A - ADDRESS OF INITIATOR'S TCB (VSAM) ICB434 11207902 JSCBIJSC DS A - ADDRESS OF JSCB OF THE INITIATOR THAT 11217902 * ATTACHED THIS JOB STEP (OS/VS1) MDC003 11227902 JSCBDBTB DS A - ADDRESS OF THE DEB TABLE FOR THIS JOB 11237902 * STEP (OS/VS1) MDC029 11243902 JSCBID DS CL4 - JOB SERIAL NUMBER 11250001 JSCBDCB DS 0A - ADDRESS OF DCB FOR DATA SET CONTAINING 11300001 * SCHEDULER TABLES FOR THIS JOB 11350001 JSCRSV02 DS X - RESERVED 11400001 JSCBDCBA DS AL3 - ADDRESS OF DCB FOR DATA SET CONTAINING 11450002 * SCHEDULER TABLES FOR THIS JOB 11460002 JSCBSTEP DS FL1 - CURRENT STEP NUMBER. THE FIRST STEP IS 11500002 * NUMBER 1. 11550002 JSCRSV03 DS XL3 - RESERVED 11560001 JSCBSECB DS CL4 - ECB FOR COMMUNICATION BETWEEN MAIN 11570001 * STORAGE SUPERVISOR AND THE INITIATOR 11572002 * ICB366 11574002 JSCBOPTS DS B - OPTION SWITCHES 11580002 JSCRSV04 EQU X'80',,C'X' - RESERVED 11582001 JSCRSV05 EQU X'40',,C'X' - RESERVED 11584001 JSCBLONG EQU X'20' - THE PARTITION CANNOT BE REDEFINED BECAUSE 11590002 * THE JOB OCCUPYING IT IS DEFINED AS LONG 11592002 * RUNNING (OS/VS1) ICB351 11592102 JSCRSV06 EQU X'10',,C'X' - RESERVED 11592401 JSCRSV07 EQU X'08',,C'X' - RESERVED 11592801 JSCRSV08 EQU X'04',,C'X' - RESERVED 11593202 JSCSIOTS EQU X'02' - CHECKPOINT MUST SCAN SIOT MDC018 11593702 JSCBAUTH EQU X'01' - THE STEP REPRESENTED BY THIS JSCB IS 11594001 * AUTHORIZED TO ISSUE THE MODESET MACRO 11596001 * INSTRUCTION 11596402 JSCRSV10 DS XL3 - RESERVED ICB351 11598001 JSCBTTTR DS XL3 - JOB QUEUE ADDRESS (TTR) OF TIOT 11648002 * EXTENSION (OS/VS2) ICB351 11698002 JSCBSWT1 DS B - STATUS SWITCHES (OS/VS2) ICB351 11748002 JSCBPASS EQU X'80' - WHEN THIS BIT IS SET TO ONE AND A 11798001 * CORRESPONDING BIT IN THE DCB IS SET TO 11848001 * ONE, OPEN WILL BYPASS PASSWORD 11898001 * PROTECTION FOR THE DATA SET BEING OPENED 11948001 * (OS/VS2) ICB351 11998002 JSCRSV11 EQU X'40',,C'X' - RESERVED 12008001 JSCRSV12 EQU X'20',,C'X' - RESERVED 12018001 JSCRSV13 EQU X'10',,C'X' - RESERVED 12028001 JSCRSV14 EQU X'08',,C'X' - RESERVED 12038001 JSCRSV15 EQU X'04',,C'X' - RESERVED 12048001 JSCRSV16 EQU X'02',,C'X' - RESERVED 12058001 JSCBPMSG EQU X'01' - A MESSAGE HAS BEEN ISSUED BECAUSE THE 13716601 * DUMP DATA SET WAS NOT SUCCESSFULLY 13733401 * OPENED. PREVENTS USE OF MULTIPLE SMB'S 13750001 * FOR MULTIPLE OPEN FAILURES IN JOB STEP. 13800001 * (OS/VS2) ICB351 13850002 JSCBQMPI DS A - ADDRESS OF THE QUEUE MANAGER PARAMETER 13900002 * AREA (QMPA) FOR THE JOB'S INPUT QUEUE 13910002 * TABLE ENTRIES (OS/VS2) 13950002 DS A - RESERVED (WAS JSCBQMPO) MDC005 14000002 JSCBWTP DS 0CL4 - WRITE-TO-PROGRAMMER (WTP) DATA 15600002 JSCBWTFG DS B - FLAGS USED BY WTP SUPPORT 15650002 JSCBIOFG EQU X'80' - THE PREVIOUS WTP I/O OPERATION HAD AN 15700002 * I/O ERROR 15702002 JSCBRET EQU X'40' - TEXT BREAKING INDICATOR, ADDITIONAL 15710002 * MESSAGE TEXT SCANNING REQUIRED 15712002 * (OS/VS1) ICB470 15714002 JSCRSV18 EQU X'20',,C'X' - RESERVED 15720001 JSCRSV19 EQU X'10',,C'X' - RESERVED 15730001 JSCRSV20 EQU X'08',,C'X' - RESERVED 15740001 JSCRSV21 EQU X'04',,C'X' - RESERVED 15742001 JSCRSV22 EQU X'02',,C'X' - RESERVED 15744001 JSCRSV23 EQU X'01',,C'X' - RESERVED 15746001 JSCBWTSP DS FL1 - NUMBER OF THE LAST JOB STEP TO ISSUE WTP 15750002 JSCBPMG DS H - NUMBER OF WTP OPERATIONS ISSUED FOR THE 15800002 * STEP IDENTIFIED BY JSCBWTSP 15810002 JSCBCSCB DS A - ADDRESS OF COMMAND SCHEDULING CONTROL 15850002 * BLOCK (CSCB) USED TO PROCESS COMMANDS 15900002 * RECEIVED FOR THIS JOB STEP ICB351 15950002 SPACE 16800001 JSCBS1LN EQU (*-JSCBSEC1) - LENGTH OF SECTION 1 17200001 SPACE 17600001 *********************************************************************** 29600003 * * 30000001 * SECTION 2 DATA ITEMS USED ONLY IN OS/VS1 * 30400002 * * 30800001 *********************************************************************** 31200003 JSCBSEC2 EQU * - START OF JSCB SECTION 2 ICB351 32000001 SPACE 32400001 * CURRENTLY NO OS/VS1 ONLY DATA ITEMS ICB351 32800002 SPACE 33200001 JSCBS2LN EQU (*-JSCBSEC2) - LENGTH OF SECTION 2 ICB351 33600001 SPACE 34000001 *********************************************************************** 34400003 * * 34800001 * SECTION 3 DATA ITEMS USED ONLY IN OS/VS2 * 35200002 * * 35600001 *********************************************************************** 36000003 ORG JSCBSEC2 - ICB351 36400001 JSCBSEC3 EQU * - START OF JSCB SECTION 3 ICB351 36800001 SPACE 37200001 JSCBJCT DS 0F - TTR OF JOB'S JCT ICB351 37250002 JSCRSV24 DS X - RESERVED ICB351 37300001 JSCJCTP DS 0CL3 - ALIAS FOR JSCBJCTA MDC025 37310002 JSCBJCTA DS CL3 - TTR OF JOB'S JCT ICB351 37350001 JSCBPSCB DS A - ADDRESS OF TSO PROTECTED STEP CONTROL 37600001 * BLOCK 38000001 JSCBASID DS 0H - ADDRESS SPACE IDENTIFIER (MDC028) YM0446 38050002 JSCBTJID DS H - TSO TERMINAL JOB IDENTIFIER 38400001 JSCBFBYT DS B - FLAG BYTE (MDC300) @Z40RP9A 38450004 JSCBRV01 EQU X'80',,C'X' - RESERVED 38500004 JSCBADSP EQU X'40' - AUTOMATIC DATA SET PROTECTION FOR THIS 38550004 * USER (MDC302) @Z40RP9A 38600004 JSCBRV02 EQU X'20',,C'X' - RESERVED 38650004 JSCBRV03 EQU X'10',,C'X' - RESERVED 38700004 JSCBRV04 EQU X'08',,C'X' - RESERVED 38750004 JSCBRV05 EQU X'04',,C'X' - RESERVED 38800004 JSCBRV06 EQU X'02',,C'X' - RESERVED 38850004 JSCBRV07 EQU X'01',,C'X' - RESERVED 38900004 JSCBRV08 DS X - RESERVED 38950004 JSCBIECB DS F - ECB USED FOR COMMUNICATION BETWEEN 39200001 * DYNAMIC ALLOCATION AND THE INITIATOR 39600001 * IN ORDER TO PERFORM DATA SET INTEGRITY 40000001 JSCBJRBA DS CL8 - JOB JOURNAL RELATIVE BYTE ADDRESS (RBA) 40050002 * (MDC031) YM7086 40060002 DS A - RESERVED (WAS JSCBSWAB) MDC004 40072002 JSCBJNL DS 0A - INITIATOR JSCB ONLY - ADDRESS OF JSCB 40080002 * FOR STEP BEING INITIATED. OTHERWISE, 40082002 * ZERO ICB431 40084002 JSCBJJSB DS B - JOB JOURNAL STATUS INDICATORS ICB332 40090001 JSCBJNLN EQU X'80' - NOTHING SHOULD BE WRITTEN IN 40100001 * JOURNAL ICB332 40110001 JSCBJNLF EQU X'40' - NO JOB JOURNAL MDC017 40120002 JSCBJNLE EQU X'20' - ERROR IN JOURNAL, DO NOT WRITE ICB332 40130001 * EQU X'10' - RESERVED (WAS JSCBJSBJ) MDC001 40140002 JSCBJSBI EQU X'08' - JOB HAS NOT ENTERED ALLOCATION FOR THE 40160001 * FIRST TIME ICB332 40170001 JSCBJSBA EQU X'04' - JOB HAS ENTERED ALLOCATION ICB332 40180001 JSCBJSBX EQU X'02' - JOB HAS COMPLETED ALLOCATION ICB332 40190001 JSCBJSBT EQU X'01' - JOB HAS ENTERED TERMINATION ICB332 40200001 JSCBJNLA DS AL3 - INITIATOR JSCB ONLY - ADDRESS OF JSCB 40210001 * FOR STEP BEING INITIATED. OTHERWISE, 40220001 * ZERO ICB431 40230001 JSCBJNLR DS A - POINTER TO JOB JOURNAL RPL MDC023 40240002 JSCBSMLR DS A - ADDRESS OF SYSTEM MESSAGE DATA 40250002 * SET RPL MDC024 40252002 JSCBSUB DS 0A - ADDRESS OF JES-SUBTL FOR THIS JOB 40260002 * STEP ICB333 40262002 JSCRSV31 DS X - RESERVED ICB333 40270001 JSCBSUBA DS AL3 - ADDRESS OF JES-SUBTL FOR THIS JOB 40280001 * STEP ICB333 40290001 JSCBSONO DS H - THE NUMBER OF SYSOUT DATA SETS PLUS 40300001 * ONE ICB335 40310001 JSCRSV28 DS H - RESERVED 40320001 JSCBFRBA DS CL8 - RELATIVE BYTE ADDRESS (RBA) OF THE FIRST 40330002 * JOURNAL BLOCK (MDC032) YM7086 40360002 JSCBSSIB DS A - ADDRESS OF THE SUBSYSTEM IDENTIFICATION 40390002 * BLOCK MDC021 40392002 JSCDSABQ DS A - ADDRESS OF QDB FOR DSAB CHAIN MDC007 40394002 JSCRSV54 DS A - RESERVED MDC025 40396002 JSCSCT DS 0F - TTR OF SCT MDC027 40396402 JSCRSV55 DS XL1 - RESERVED 40396802 JSCSCTP DS CL3 - TTR OF SCT MDC026 40398002 JSCTMCOR DS A - ADDRESS OF TIOT MAIN STORAGE MANAGEMENT 40398402 * AREA MDC010 40398802 JSCBVATA DS A - ADDRESS OF VAT USED DURING SYSTEM RESTART 40399202 * OR AUTOMATIC RESTART MDC011 40399602 JSCDDNNO DS H - COUNTER USED BY DYNAMIC ALLOCATION TO 40399702 * GENERATE DD NAMES MDC012 40399802 JSCRSV53 DS H - RESERVED 40399902 JSCDDNUM DS H - NUMBER OF DD ENTRIES CURRENTLY ALLOCATED 40459902 * INCLUDING IN USE AND NOT IN USE ENTRIES 40461902 * MDC022 40463902 JSCRSV33 DS X - RESERVED MDC019 40469902 JSCBSWSP DS FL1 - SWA SUBPOOL MDC015 40479902 JSCBACT DS A - POINTER TO ACTIVE JSCB MDC014 40489902 JSCBUFPT DS A - ADDRESS OF ALLOCATION/UNALLOCATION 40491902 * WRITE-TO-PROGRAMMER BUFFER MDC030 40493902 JSCBASWA DS A - POINTER TO THE LAST ALLOCATION ESTAE WORK 40495904 * AREA (MDC303) @Z40FP9A 40496704 JSCBPGMN DS CL8 - JOB STEP PROGRAM NAME (MDC304) @G64RP9A 40499764 JSCRSV44 DS A - RESERVED 40549802 JSCRSV45 DS 0F - RESERVED 40559802 JSCRSV46 DS 0H - RESERVED 40569802 JSCRSV48 DS B - RESERVED 40579802 JSCRSV49 DS B - RESERVED 40589802 JSCRSV47 DS 0H - RESERVED 40591802 JSCRSV50 DS B - RESERVED 40593802 JSCRSV51 DS B - RESERVED 40595802 JSCRSV52 DS A - RESERVED 40597802 SPACE 40599802 JSCBS3LN EQU (*-JSCBSEC3) - LENGTH OF SECTION 3 ICB351 40800001 SPACE 41200001 *********************************************************************** 41600003 SPACE 42000001 JSCBDISP EQU (260-JSCBS1LN) - DISPLACEMENT OF FIRST JSCB DATA BYTE 42400001 JSCBAOS1 EQU JSCBS1LN+JSCBS2LN - OS/VS1 JSCB LENGTH ICB351 42800002 JSCBAOS2 EQU JSCBS1LN+JSCBS3LN - OS/VS2 JSCB LENGTH ICB332 43200002 *********************************************************************** 43600001 * END OF JSCB 44000001 MEND , */ 44400001 *%JSCBL2:; 44800001 *DECLARE 50050001 * 1 IEZJSCB BASED(TCBJSCB) BDY(WORD), /* JOB STEP CONTROL BLOCK */ 50100001 * 50800001 * 2 * CHAR(188), /* ALLOWS ADDRESSABILITY 51250001 * FROM TCBJSCB */ 51600001 * 52000001 */********************************************************************/ 52400003 */* */ 52800001 */*SECTION 1 DATA ITEMS USED IN OS/VS1 AND OS/VS2 */ 53200002 */* */ 53600001 */********************************************************************/ 54000003 * 54400001 * 2 JSCBSEC1 BDY(WORD), /* JSCB SECTION 1 */ 54810001 * 3 JSCRSV01 FIXED(31), /* RESERVED */ 54812001 * 3 JSCHPCE PTR(31), /* ADDRESS OF OPTIONAL JOB 54812101 * ENTRY SUBSYSTEM (JES) 54812202 * PROCESSOR CONTROL 54813602 * ELEMENT ICB459*/ 54816302 * 4 JSCRSV32 CHAR(1), /* RESERVED ICB459*/ 54817702 * 4 JSCHPCEA PTR(24), /* SAME AS JSCHPCE ABOVE 54819102 * ICB459*/ 54820502 * 3 JSCBSHR PTR(31), /* ADDRESS OF ASSEMBLY CHAIN 54821902 * (VSAM) ICB434*/ 54823302 * 3 JSCBTCP PTR(31), /* ADDRESS OF TIOT CHAINING 54824702 * ELEMENT CHAIN (VSAM) 54826102 * ICB434*/ 54826502 * 3 JSCBPCC PTR(31), /* ADDRESS OF PRIVATE 54827502 * CATALOG CONTROL BLOCK 54828902 * CHAIN (VSAM) ICB434*/ 54830302 * 3 JSCBTCBP PTR(31), /* ADDRESS OF INITIATOR'S 54831702 * TCB (VSAM) ICB434*/ 54833102 * 3 JSCBIJSC PTR(31), /* ADDRESS OF JSCB OF THE 54834502 * INITIATOR THAT ATTACHED 54844502 * THIS JOB STEP (OS/VS1) 54854502 * MDC003*/ 54856502 * 3 JSCBDBTB PTR(31), /* ADDRESS OF THE DEB TABLE 54858502 * FOR THIS JOB STEP 54859002 * (OS/VS1) MDC029*/ 54859502 * 3 JSCBID CHAR(4) BDY(WORD), /* JOB SERIAL NUMBER */ 54860001 * 3 JSCBDCB PTR(31), /* ADDRESS OF DCB FOR DATA 54870001 * SET CONTAINING SCHEDULER 54950001 * TABLES FOR THIS JOB */ 55000001 * 4 JSCRSV02 CHAR(1), /* RESERVED */ 55060001 * 4 JSCBDCBA PTR(24), /* SAME AS JSCBDCB ABOVE */ 55070001 * 3 JSCBSTEP PTR(8), /* CURRENT STEP NUMBER. THE 55162002 * FIRST STEP IS NUMBER 1. */ 55170002 * 3 JSCRSV03 CHAR(3), /* RESERVED */ 55190401 * 3 JSCBSECB CHAR(4) BDY(WORD), /* ECB FOR COMMUNICATION 55190801 * BETWEEN MAIN STORAGE 55192801 * SUPERVISOR AND THE 55193201 * INITIATOR ICB366*/ 55193601 * 3 JSCBOPTS BIT(8), /* OPTION SWITCHES */ 55194402 * 4 JSCRSV04 BIT(1), /* RESERVED */ 55194801 * 4 JSCRSV05 BIT(1), /* RESERVED */ 55194901 * 4 JSCBLONG BIT(1), /* THE PARTITION CANNOT BE 55195202 * REDEFINED BECAUSE THE JOB 55195602 * OCCUPYING IT IS DEFINED 55195702 * AS LONG RUNNING 55201102 * (OS/VS1) ICB351*/ 55203102 * 4 JSCRSV06 BIT(1), /* RESERVED */ 55206502 * 4 JSCRSV07 BIT(1), /* RESERVED */ 55211902 * 4 JSCRSV08 BIT(1), /* RESERVED */ 55217302 * 4 JSCSIOTS BIT(1), /* CHECKPOINT MUST SCAN SIOT 55222702 * MDC018*/ 55228102 * 4 JSCBAUTH BIT(1), /* STEP REPRESENTED BY THIS 55233502 * JSCB IS AUTHORIZED TO 55238902 * ISSUE THE MODESET MACRO 55244302 * INSTRUCTION */ 55246302 * 3 JSCRSV10 CHAR(3), /* RESERVED */ 55249701 * 3 JSCBTTTR CHAR(3) BDY(WORD), /* JOB QUEUE ADDRESS (TTR) 55299701 * OF TIOT EXTENSION 55349701 * (OS/VS2) ICB351*/ 55399702 * 3 JSCBSWT1 BIT(8), /* STATUS SWITCHES 55449701 * (OS/VS2) ICB351*/ 55499702 * 4 JSCBPASS BIT(1), /* WHEN THIS BIT IS SET TO 55549701 * ONE AND A CORRESPONDING 55599701 * BIT IN THE DCB IS SET TO 55649701 * ONE, OPEN WILL BYPASS 55699701 * PASSWORD PROTECTION FOR 55749701 * THE DATA SET BEING OPENED 55799701 * (OS/VS2) ICB351*/ 55849702 * 4 JSCRSV11 BIT(1), /* RESERVED (OS/VS2) ICB351*/ 55899702 * 4 JSCRSV12 BIT(1), /* RESERVED (OS/VS2) ICB351*/ 55909702 * 4 JSCRSV13 BIT(1), /* RESERVED (OS/VS2) ICB351*/ 55919702 * 4 JSCRSV14 BIT(1), /* RESERVED (OS/VS2) ICB351*/ 55929702 * 4 JSCRSV15 BIT(1), /* RESERVED (OS/VS2) ICB351*/ 55939702 * 4 JSCRSV16 BIT(1), /* RESERVED (OS/VS2) ICB351*/ 55941702 * 4 JSCBPMSG BIT(1), /* A MESSAGE HAS BEEN ISSUED 55949701 * BECAUSE THE DUMP DATA SET 59776601 * WAS NOT SUCCESSFULLY 59783401 * OPENED. PREVENTS USE OF 59810001 * MULTIPLE SMB'S FOR 59820001 * MULTIPLE OPEN FAILURES IN 59830001 * JOB STEP (OS/VS2) ICB351*/ 59840002 * 3 JSCBQMPI PTR(31), /* ADDRESS OF THE QUEUE 59890002 * MANAGER PARAMETER AREA 59900002 * (QMPA) FOR THE JOB'S 59910002 * INPUT QUEUE TABLE ENTRIES 59940002 * (OS/VS2) */ 59990002 * 3 * PTR(31), /* RESERVED (WAS JSCBQMPO) 60040002 * MDC005*/ 60090002 * 3 JSCBWTP CHAR(4) BDY(WORD), /* WRITE-TO-PROGRAMMER (WTP) 63220002 * DATA */ 63222002 * 4 JSCBWTFG BIT(8), /* FLAGS USED BY WTP SUPPORT*/ 63230002 * 5 JSCBIOFG BIT(1), /* THE PREVIOUS WTP I/O 63280002 * OPERATION HAD AN I/O 63350002 * ERROR */ 63400002 * 5 JSCBRET BIT(1), /* TEXT BREAKING INDICATOR, 63410002 * ADDITIONAL MESSAGE TEXT 63410402 * SCANNING REQUIRED 63410802 * (OS/VS1) ICB470*/ 63411202 * 5 JSCRSV18 BIT(1), /* RESERVED */ 63412001 * 5 JSCRSV19 BIT(1), /* RESERVED */ 63414001 * 5 JSCRSV20 BIT(1), /* RESERVED */ 63416001 * 5 JSCRSV21 BIT(1), /* RESERVED */ 63418001 * 5 JSCRSV22 BIT(1), /* RESERVED */ 63418401 * 5 JSCRSV23 BIT(1), /* RESERVED */ 63418801 * 4 JSCBWTSP PTR(8), /* NUMBER OF THE LAST JOB 63420002 * STEP TO ISSUE WTP */ 63500002 * 4 JSCBPMG FIXED(15), /* NUMBER OF WTP OPERATIONS 63600002 * ISSUED FOR THE STEP 63610002 * IDENTIFIED BY JSCBWTSP */ 63620002 * 3 JSCBCSCB PTR(31), /* ADDRESS OF COMMAND 63650002 * SCHEDULING CONTROL BLOCK 63660002 * (CSCB) USED TO PROCESS 63670002 * COMMANDS RECEIVED FOR 63700002 * THIS JOB STEP ICB351*/ 63750002 * 2 JSCBEND1 CHAR(0) BDY(WORD); /* END OF SECTION 1 */ 63800001 * 65600001 */********************************************************************/ 79600003 */* */ 80000001 */*SECTION 2 DATA ITEMS USED ONLY IN OS/VS1 */ 80400002 */* */ 80800001 */********************************************************************/ 81200003 * 81600001 *DECLARE 81650001 *%IF IKEPLS='2' %THEN 81660001 * %GOTO JSCBA1; 81670001 * 1 JSCBSEC2 BASED(ADDR(JSCBEND1)) BDY(WORD), 81700001 *%GOTO JSCBA2; 81750001 *%JSCBA1 : ; 81800001 * 1 JSCBSEC2 DEF(JSCBEND1) BDY(WORD), 81850001 *%JSCBA2 : ; 81900001 * 82400001 * /* CURRENTLY NO OS/VS1 ONLY DATA ITEMS EXIST */ 82800002 * 83200001 * 2 JSCBEND2 CHAR(0) BDY(WORD); /* END OF SECTION 2 ICB351*/ 83250001 * 84000001 */********************************************************************/ 84400003 */* */ 84800001 */*SECTION 3 DATA ITEMS USED ONLY IN OS/VS2 */ 85200002 */* */ 85600001 */********************************************************************/ 86000003 * 86400001 *DECLARE 86450001 *%IF IKEPLS='2' %THEN 86460001 * %GOTO JSCBA3; 86470001 * 1 JSCBSEC3 BASED(ADDR(JSCBEND1)) BDY(WORD), 86500001 *%GOTO JSCBA4; 86550001 *%JSCBA3 : ; 86600001 * 1 JSCBSEC3 DEF(JSCBEND1) BDY(WORD), 86650001 *%JSCBA4 : ; 86700001 * 87200001 * 2 JSCBJCT CHAR(4) BDY(WORD), /* TTR OF JOB'S JCT ICB351*/ 87250001 * 3 JSCRSV24 CHAR(1), /* RESERVED ICB351*/ 87300001 * 3 JSCBJCTA CHAR(3), /* TTR OF JOB'S JCT ICB351*/ 87350001 * 4 JSCJCTP CHAR(3), /* ALIAS FOR JSCBJCTA MDC025*/ 87360002 * 2 JSCBPSCB PTR(31), /* ADDRESS OF TSO PROTECTED 87400001 * STEP CONTROL BLOCK */ 88000001 * 2 JSCBASID FIXED(15), /* ADDRESS SPACE IDENTIFIER 88050002 * (MDC028) YM0446*/ 88100002 * 3 JSCBTJID FIXED(15), /* TSO TERMINAL JOB 88850002 * IDENTIFIER */ 88900001 * 2 JSCBFBYT BIT(8), /* FLAG BYTE 88950004 * (MDC300) @Z40RP9A*/ 89000004 * 3 JSCBRV01 BIT(1), /* RESERVED */ 89050004 * 3 JSCBADSP BIT(1), /* AUTOMATIC DATA SET 89100004 * PROTECTION FOR THIS USER 89150004 * (MDC302) @Z40RP9A*/ 89200004 * 3 JSCBRV02 BIT(1), /* RESERVED */ 89250004 * 3 JSCBRV03 BIT(1), /* RESERVED */ 89300004 * 3 JSCBRV04 BIT(1), /* RESERVED */ 89350004 * 3 JSCBRV05 BIT(1), /* RESERVED */ 89400004 * 3 JSCBRV06 BIT(1), /* RESERVED */ 89450004 * 3 JSCBRV07 BIT(1), /* RESERVED */ 89500004 * 2 JSCBRV08 CHAR(1), /* RESERVED */ 89550004 * 2 JSCBIECB FIXED(31), /* ECB USED FOR COMMUNICATION 90450001 * BETWEEN DYNAMIC ALLOCATION 90500001 * AND THE INITIATOR IN ORDER 90550001 * TO PERFORM DATA SET 90600001 * INTEGRITY */ 90650001 * 2 JSCBJRBA CHAR(8) BDY(WORD), /* JOB JOURNAL RELATIVE BYTE 90850002 * ADDRESS (RBA) 91050002 * (MDC031) YM7086*/ 91250002 * 2 * PTR(31), /* RESERVED (WAS JSCBSWAB) 91782002 * MDC004*/ 91784002 * 2 JSCBJNL PTR(31), /* SAME AS JSCBJNLA 91790001 * BELOW ICB332*/ 91792001 * 3 JSCBJJSB BIT(8), /* JOB JOURNAL STATUS 91794001 * INDICATORS ICB332*/ 91796001 * 4 JSCBJNLN BIT(1), /* NOTHING SHOULD BE WRITTEN 91798001 * IN JOURNAL ICB332*/ 91798401 * 4 JSCBJNLF BIT(1), /* NO JOB JOURNAL MDC017*/ 91798802 * 4 JSCBJNLE BIT(1), /* ERROR IN JOURNAL, DO NOT 91799601 * WRITE ICB332*/ 91799701 * 4 * BIT(1), /* RESERVED (WAS JSCBJSBJ) 91799802 * MDC001*/ 91809802 * 4 JSCBJSBI BIT(1), /* JOB HAS NOT ENTERED 91811901 * ALLOCATION FOR THE FIRST 91813901 * TIME ICB332*/ 91815901 * 4 JSCBJSBA BIT(1), /* JOB HAS ENTERED 91817901 * ALLOCATION ICB332*/ 91818301 * 4 JSCBJSBX BIT(1), /* JOB HAS COMPLETED 91818701 * ALLOCATION ICB332*/ 91819101 * 4 JSCBJSBT BIT(1), /* JOB HAS ENTERED 91819501 * TERMINATION ICB332*/ 91819601 * 3 JSCBJNLA PTR(24), /* INITIATOR JSCB ONLY - 91819701 * ADDRESS OF JSCB FOR STEP 91819801 * BEING INITIATED. 91829801 * OTHERWISE, ZERO ICB431*/ 91830201 * 2 JSCBJNLR PTR(31), /* POINTER TO JOB JOURNAL 91833802 * RPL MDC023*/ 91835802 * 2 JSCBSMLR PTR(31), /* ADDRESS OF SYSTEM MESSAGE 91837802 * DATA SET RPL MDC024*/ 91838202 * 2 JSCBSUB PTR(31), /* SAME AS JSCBSUBA 91838601 * BELOW ICB333*/ 91839001 * 3 JSCRSV31 CHAR(1), /* RESERVED ICB333*/ 91839401 * 3 JSCBSUBA PTR(24), /* ADDRESS OF JES-SUBTL FOR 91839501 * THIS JOB STEP ICB333*/ 91839601 * 2 JSCBSONO FIXED(15), /* THE NUMBER OF SYSOUT DATA 91839701 * SETS PLUS ONE ICB335*/ 91849701 * 2 JSCRSV28 FIXED(15), /* RESERVED */ 91851701 * 2 JSCBFRBA CHAR(8) BDY(WORD), /* RELATIVE BYTE ADDRESS 91853702 * (RBA) OF THE FIRST JOURNAL 91854702 * BLOCK (MDC032) YM7086*/ 91855702 * 2 JSCBSSIB PTR(31), /* ADDRESS OF THE SUBSYSTEM 91857702 * IDENTIFICATION BLOCK 91858102 * MDC021*/ 91858502 * 2 JSCDSABQ PTR(31), /* ADDRESS OF QDB FOR DSAB 91858902 * CHAIN MDC007*/ 91859302 * 2 JSCRSV54 PTR(31), /* RESERVED MDC025*/ 91859402 * 2 JSCSCT CHAR(4) BDY(WORD), /* TTR OF SCT MDC027*/ 91859502 * 3 JSCRSV55 CHAR(1), /* RESERVED */ 91876202 * 3 JSCSCTP CHAR(3) BDY(WORD,2), /* TTR OF SCT MDC026*/ 91886202 * 2 JSCTMCOR PTR(31), /* ADDRESS OF TIOT MAIN 91892902 * STORAGE MANAGEMENT AREA 91909602 * MDC010*/ 91919602 * 2 JSCBVATA PTR(31), /* ADDRESS OF VAT USED 91929602 * DURING SYSTEM RESTART OR 91939602 * AUTOMATIC RESTART MDC011*/ 91949602 * 2 JSCDDNNO FIXED(15), /* COUNTER USED BY DYNAMIC 91951602 * ALLOCATION TO GENERATE 91953602 * DD NAMES MDC012*/ 91955602 * 2 JSCRSV53 FIXED(15), /* RESERVED */ 91957602 * 2 JSCDDNUM FIXED(15), /* NUMBER OF DD ENTRIES 91958802 * CURRENTLY ALLOCATED 91959202 * INCLUDING IN USE AND NOT 91969202 * IN USE ENTRIES MDC022*/ 91979202 * 2 JSCRSV33 CHAR(1), /* RESERVED MDC019*/ 91979502 * 2 JSCBSWSP PTR(8), /* SWA SUBPOOL MDC015*/ 91989502 * 2 JSCBACT PTR(31), /* POINTER TO ACTIVE JSCB 91999502 * MDC014*/ 92019502 * 2 JSCBUFPT PTR(31), /* ADDRESS OF ALLOCATION/ 92029502 * UNALLOCATION WRITE-TO- 92032502 * PROGRAMMER BUFFER MDC030*/ 92035502 * 2 JSCBASWA PTR(31), /* POINTER TO THE LAST 92039504 * ALLOCATION ESTAE WORK 92042504 * AREA (MDC303) @Z40FP9A*/ 92043504 * 2 JSCBPGMN CHAR(8), /* JOB STEP PROGRAM NAME 92058364 * (MDC304) @G64RP9A*/ 92058564 * 2 JSCRSV44 PTR(31), /* RESERVED */ 92059102 * 2 JSCRSV45 FIXED(31), /* RESERVED */ 92059202 * 3 JSCRSV46 FIXED(15), /* RESERVED */ 92059302 * 4 JSCRSV48 BIT(8), /* RESERVED */ 92059402 * 4 JSCRSV49 BIT(8), /* RESERVED */ 92109402 * 3 JSCRSV47 FIXED(15), /* RESERVED */ 92119402 * 4 JSCRSV50 BIT(8), /* RESERVED */ 92129402 * 4 JSCRSV51 BIT(8), /* RESERVED */ 92139402 * 2 JSCRSV52 PTR(31), /* RESERVED */ 92149402 * 2 JSCBEND3 CHAR(0) BDY(WORD); /* END OF SECTION 3 ICB351*/ 92159402 * 92800001 * /* MACRO DEFINITIONS OF JSCBDISP, JSCBAOS1, AND JSCBAOS2 */ 93200001 * 93600001 * JSCBDISP: GEN (EQU 188); 94000001 * JSCBAOS1: GEN (EQU 72); 94400001 * JSCBAOS2: GEN (EQU 192); 94800002 * 95200001 * /* END OF JSCB */ 95600001