* 00400001 * %GOTO CHL1; /* BILINGUAL MAPPING 00450001 MACRO 00600000 IEECHAIN , */ 00800001 *%CHL1 : ; 00850001 * 01000000 */* COMMAND SCHEDULING CONTROL BLOCK */ 01800001 */* */ 02200001 */* OS/VS2 SU17, 01/26/78, LEVEL=3 */ 02205000 */* */ 02270001 */* METHOD OF ACCESS */ 02280001 */* BAL - DSECT CARD SHOULD PRECEDE MACRO CALL. USING ON */ 02290001 */* CHAIN GIVES ADDRESSABILITY FOR ALL SYMBOLS. */ 02292001 */* PL/S - DCL CSCBPTR PTR */ 02294001 */* */ 02300001 */* NOTES */ 02310001 */* RUN TIME JOB DESCRIPTOR RESIDENT IN GLOBAL SQS AND */ 02350001 */* COMMUNICATION AREA PASSED VIA CSCB QUEUE */ 02400001 */* FROM COMMAND SCHEDULING ROUTINES */ 02600001 */* TO COMMAND EXECUTION ROUTINES */ 02800001 */* */ 03000001 */* UPDATED BY COMMAND SCHEDULER IN EVENT OF - */ 05000001 */* CANCEL JOBNAME AFTER SELECTION / CANCEL WRITER DEVICE / */ 05200001 */* MODIFY / NONPERIODIC STOP */ 05400001 */* */ 05600001 *%GOTO CHL2; /* 05602001 SPACE 1 05604001 DS 0D - COMMAND SCHEDULING CONTROL BLOCK 05610000 CHAIN EQU * - CSCBPTR -> CSCB 05800000 * 06000000 * BEGINNING OF MAPPING COMMON 06200000 * TO CONTROL AND INPUT CSCB FORMATS 06400000 * 06600000 CHPTR DS A - CHAIN PTR TO NEXT CSCB 06800002 CHFLG DS 0CL4 - FOUR BYTES 07000002 CHVCD DS C - COMMAND VERB CODE 07200002 CHSZE DS FL1 - SIZE OF THIS CSCB IN DOUBLE WORDS 07400002 CHSTS DS B - STATUS FLAGS 07600002 CHAP EQU X'80' - ASSIGNMENT PENDING 07800002 CHSYS EQU X'40' - SYSTEM TASK CSCB (OS/VS1) MDC044 08000002 CHSOUT EQU X'20' - CANCEL ALL SYSOUT 08200002 CHQSPC EQU X'10' - INSUFFICIENT QSPACE CAUSING ABEND 422 08400002 CHAD EQU X'08' - ADD THIS CSCB TO CHAIN 08600002 CHDL EQU X'04' - DELETE THIS CSCB FROM CHAIN 08800002 CHFC EQU X'02' - FREE THIS CSCB'S CORE 09000002 CHABTERM EQU X'01' - EXECUTE BRANCH ENTRY TO ABTERM 09200002 CHACT DS B - FLAGS INDICATING ACTIVITY INVOLVED 09400002 CHSWAP EQU X'80' - SWAPPABLE JOB 09600002 CHTERM EQU X'40' - TERMINAL JOB 09800002 CHDISC EQU X'20' - CANCEL IMPLIES DISCONNECT 09810002 CHDSI EQU X'10' - ON MEANS NO DATA SET INTEGRITY (OS/VS1) MDC045 10200002 CHCL EQU X'08' - CANCELABLE JOB STEP 10400002 CHCLD EQU X'04' - CANCEL COMMUNICATION SWITCH 10600002 CHAIFX EQU X'02' - CANCELABLE (OS/VS1) 10800004 CHIFY EQU X'01' - SYSTEM ASSIGNED PROCEDURE (OS/VS1) 10900004 CHAFORCE EQU X'01' - CANCEL ISSUED FOR THIS CSCB (FORCE COMMAND CAN 10920041 * BE ACCEPTED) (OS/VS2) (MDC301) @G17FP9A 10970041 CHPARM DS 0A - POINTER TO PARAMETER LIST USED FOR 11050002 * COMMUNICATION BETWEEN SVC 34 COMMANDS AND 11100002 * MASTER SCHEDULER TASK (OS/VS1) MDC040 11150002 CHPCOI EQU X'80' - SUBSYSTEM COMMAND INDICATOR (MDC300) @X60BE9A 11155006 CHKEY DS CL8 - 1. ID OF A STARTED TASK 11200002 * (THIS ID IS THE TASK'S STEPNAME) 11400000 * 2. JOBNAME OF AN EXECUTED JOB. 11600000 CHCLS DS CL8 - 1.PROCNAME OF A STARTED TASK 11800002 * (THE PROCNAME IS THE TASK'S JOBNAME.) 12000000 * 2. JOBNAME OF AN EXECUTED JOB (SAME AS CHKEY) 12200002 CHUNIT DS CL3 - UNITNAME (SET FOR STARTED TASKS ONLY) 12400002 CHCIBCTR DS FL1 - MAXIMAL NUMBER OF QUEUED CIB'S 12600002 CHPKE DS 0CL1 - PROTECT KEY (OS/VS1) ICB345 12650002 CHTRKID DS CL1 - DISPLAY/TRACK IDENTIFIER (OS/VS2) MDC014 12700002 CHTSID EQU X'01' - TIME SHARING USER IDENTIFIER MDC015 12750002 CHJOBID EQU X'02' - JOB IDENTIFIER MDC016 12800002 CHINITID EQU X'03' - INITIATOR IDENTIFIER MDC017 12850002 CHUCMP DS CL1 - UCMI (UNIT CONTROL MODULE INDICATOR) 13000002 * THIS IS THE ID OF THE CONSOLE WHICH 13200000 * ISSUED THE COMMAND, 13400002 * OR FOR OS/VS2, X'80' FOR A VARY COMMAND 13450002 * ISSUED IN THE INPUT STREAM MDC046 13500002 CHTJID DS 0H - TERMINAL ID (OS/VS1) 13600002 CHASID DS H - ADDRESS SPACE ID (ASID) (OS/VS2) MDC018 13610002 CHPROCSN DS 0CL8 - PROCEDURE STEP NAME (OS/VS2) (MDC049) YM6960 13630002 CHQID DS H - QID OF REMOTE USER (OS/VS1) ICB384 13650002 CHARSV30 DS XL1 - RESERVED MDC041 13700002 CHACT1 DS B - FLAG BYTE (OS/VS1) MDC041 13750002 CHRDWTR EQU X'80' - COMMAND WAS START RDR OR WTR MDC042 13760002 CHMODIFY EQU X'40' - CAN BE MODIFIED BY REMOTE USER 13761006 * (MDC302) @X60EI9A 13762006 CHARSV05 EQU X'20',,C'X' - RESERVED 13764002 CHARSV06 EQU X'10',,C'X' - RESERVED 13766002 CHARSV07 EQU X'08',,C'X' - RESERVED 13768002 CHARSV08 EQU X'04',,C'X' - RESERVED 13768402 CHARSV09 EQU X'02',,C'X' - RESERVED 13768802 CHARSV10 EQU X'01',,C'X' - RESERVED 13769202 CHDER DS CL4 - TTRL OF DER FOR THIS JOB (OS/VS1) MDC043 13770002 * 13800000 * END OF MAPPING COMMON 14000000 * TO CONTROL AND INPUT CSCB FORMATS 14200000 * 14400000 CHASM EQU * 14600000 * BEGINNING OF OVERLAY SEGMENT 14800000 * 15000000 * BEGINNING OF MAPPING UNIQUE 15200000 * TO CONTROL FORMAT CSCB AFTER 15400000 * INTERPRETATION OF COMMAND OPERANDS 15600000 * 15800000 CHECBP DS A - PTR TO STOP/MODIFY ECB 16000002 CHCIBP DS A - PTR TO CIB -- 16200002 CHEND EQU X'80' - HIGH ORDER BIT OF LAST PARAMETER POINTER IS ON 16400002 * 16600000 * THE ABOVE ECB AND CIB POINTERS FORM 16800000 * THE COMMUNICATIONS PARAMETER LIST MAPPED BY IEZCOM 17000000 * 17200000 CHRGNSZ DS 0F - JOB REGION SIZE IF V=R (OS/VS2) MDC001 17250002 CHRPRTY DS B - RESET PRIORITY OF A JOB WHOSE PRIORITY 17400002 * HAS BEEN RESET DURING EXECUTION (OS/VS1) 17600002 CHARSV18 DS AL3 - RESERVED 17800002 CHRGNAD DS F - STARTING ADDRESS OF REGION IF V=R 18000002 * (OS/VS2) MDC002 18050002 CHECB DS F - STOP/MODIFY ECB 18200002 CHCECB DS F - CANCEL ECB 18400002 CHSTEP DS 0CL8 - STEP NAME (OS/VS2) (MDC050) YM6960 18600002 CHSWT DS B - COMMUNICATIONS SWITCHES (OS/VS1) 19800002 CHARSV20 EQU X'80',,C'X' RESERVED 20000001 CHJCT EQU X'40' - READER RETURN WITH IN-CORE JCT 20200002 CHPSD EQU X'20' - WRITER PAUSE DATASET 20400002 CHPSF EQU X'10' - WRITER PAUSE FORMS 20600002 CHAC EQU X'08' - ID SPECIFIED ON S COMMAND 20800002 CHARSV21 EQU X'04',,C'X' RESERVED 20850001 CHARSV22 EQU X'02',,C'X' RESERVED 20900001 CHARSV23 EQU X'01',,C'X' RESERVED 20950001 CHTCB DS AL3 - TCB POINTER (OS/VS1) 21600004 CHSPB DS A - TCB PTR FOR ABTERM (OS/VS1) 21660002 * 21720002 CHSHORT EQU * - AFTER OS/VS2 JOB SELECT TIME, END OF CSCB. 21780002 * OS/VS1 CSCB IS UNCHANGED. (MDC048) YM6960 21840002 * 21900002 CHSPC DS A - PTR TO SMALL PARTITION LIST (OS/VS1) 22000002 * TRANSIENT RDR TTR (OS/VS1) 22200002 * COMPLETION CODE FOR ABTERM (OS/VS1) 22400002 CHJCL DS A - JCLS PTR -- 22600002 * IN-CORE JCT PTR -- DA JCT TTR 22800000 * 23000000 CHQPA DS 9F - INPUT Q MANAGER PARAMETER AREA 23200002 CHSQA DS 9F - SYSOUT Q MANAGER PARAMETER AREA 23400002 * 23600000 * NOTE--THESE 2 QMPAS EXIST IN OS/VS2 CSCB'S ONLY BEFORE INITIATOR 23800002 * JOB SELECT TIME. 24000000 * 24200000 DS F - TENTH WORD OF CHSQA (OS/VS1) 24250002 * RESERVED (OS/VS2) MDC022,MDC023 24300002 DS F - ELEVENTH WORD OF CHSQA (OS/VS1) 24350002 * RESERVED (OS/VS2) MDC022,MDC024 24360002 CHUSCVS DS F - TIOT LENGTH (OS/VS1) MDC025 24400002 CHJSCBVS DS A - POINTER TO JSCB (OS/VS1) MDC026 24600002 CHSAVWD1 DS A - START CMD. TEMP. S/A 1 (MDC311) @ZA29618 24900000 CHSAVWD2 DS A - START CMD. TEMP. S/A 2 (MDC311) @ZA29618 24930000 * 25000000 * END OF MAPPING UNIQUE 25200000 * TO CONTROL FORMAT CSCB AFTER 25400000 * INTERPRETATION OF COMMAND OPERANDS 25600000 * 25800000 ORG CHASM - OVERLAY 26000002 * 26200000 * BEGINNING OF MAPPING UNIQUE 26400000 * TO INPUT FORMAT CSCB BEFORE 26600000 * INTERPRETATION OF COMMAND OPERANDS 26800000 * 27000000 CHBUF DS CL124 - COMMAND IMAGE (OPERAND FIELD) 27200002 CHTYPE DS B - FLAGS 27250002 CHDSTAT EQU X'80' - STATUS DISPLAY (SVC 104) CMD 27300002 CHARSV25 EQU X'40',,C'X' RESERVED 27310001 CHARSV26 EQU X'20',,C'X' RESERVED 27320001 CHARSV27 EQU X'10',,C'X' RESERVED 27330001 CHARSV28 EQU X'08',,C'X' RESERVED 27340001 CHARSV29 EQU X'04',,C'X' RESERVED 27342001 CHHIAR EQU X'02' - ON MEANS H1 SPECIFIED ON COMMAND (ICB337)40890 27350002 CHDEF EQU X'01' - ON MEANS DEFAULT TO H0 (ICB337) 40890 27400002 CHTRSTAT DS B - DISPLAY/TRACK REQUEST STATUS (OS/VS2) MDC003 27450002 CHJOBS EQU X'80' - JOBS MDC004 27460002 CHJOBSL EQU X'40' - JOBS,LIST MDC005 27470002 CHINIT EQU X'20' - INIT MDC006 27480002 CHINITL EQU X'10' - INIT,LIST MDC007 27490002 CHTS EQU X'08' - TS MDC008 27492002 CHTSL EQU X'04' - TS,LIST MDC009 27494002 CHACTA EQU X'A8' - ACTIVE MDC010 27496002 CHACTL EQU X'54' - ACTIVE,LIST MDC011 27498002 CHCNID DS C - DISPLAY-RECEIVING CONSOLE ID 27500002 CHARID DS C - DISPLAY SCREEN-AREA ID 27550002 CHPEND DS A - CHAIN PTR FOR PENDING START COMMANDS (OS/VS1) 27600004 CHINC DS H - UNIQUE CTR FOR INTERPRETER 27800002 * OR FOR OS/VS2, COMMAND AUTHORITY FOR VARY 27850002 * COMMAND ISSUED FROM THE INPUT STREAM MDC047 27900002 CHCSYSO DS BL1 - EXPRESS CANCEL SYSOUT (OS/VS1) 28000002 CHALL EQU X'80' - ALL SPECIFIED 28200002 CHINN EQU X'40' - IN SPECIFIED 28400002 CHOUT EQU X'20' - OUT SPECIFIED 28600002 CHHOLD EQU X'10' - HOLD Q SPECIFIED 28800002 CHQUE EQU X'08' - SPECIFIC QUEUE 29000002 CHDUMP EQU X'04' - DUMP SPECIFIED 29200002 CHJB EQU X'02' - END SCAN SWITCH 29400002 CHUSERID EQU X'01' - INDICATES 'USER=' SPECIFIED ON CANCEL 29600002 * COMMAND (OS/VS1) ICB396 29650004 CHSPA DS CL1 - OS/VS1 SYSTEM TASK CONTROL SWITCHES 29850004 * 30200000 * END OF MAPPING UNIQUE 30400000 * TO INPUT FORMAT CSCB BEFORE 30600000 * INTERPRETATION OF COMMAND OPERANDS 30800000 * 31000000 CHLAST EQU * 31200000 * END OF CSCB 31400000 MEND , */ 32200000 * %CHL2 : ; 32400001 * 32600000 * DECLARE 37400000 * 1 CHAIN BASED(CSCBPTR) BDY(WORD), 37600001 * 2 CHPTR PTR(31), /* CHAIN PTR TO NEXT CSCB */ 38000000 * 2 CHFLG CHAR(4) BDY(WORD),/* FOUR BYTES */ 38200001 * 3 CHVCD CHAR(1), /* COMMAND VERB CODE */ 38400000 * 3 CHSZE PTR(8), /* SIZE OF THIS CSCB IN DOUBLE 38600000 * WORDS */ 38800000 * 3 CHSTS CHAR(1), /* STATUS FLAGS */ 39000000 * 4 CHAP BIT(1), /* ASSIGNMENT PENDING */ 39200000 * 4 CHSYS BIT(1), /* SYSTEM TASK CSCB 39400002 * (OS/VS1) MDC044*/ 39450002 * 4 CHSOUT BIT(1), /* CANCEL ALL SYSOUT */ 39600000 * 4 CHQSPC BIT(1), /* INSUFFICIENT Q SPACE FOR 422 39800000 * ABEND */ 40000000 * 4 CHAD BIT(1), /* ADD THIS CSCB TO CHAIN */ 40200000 * 4 CHDL BIT(1), /* DELETE THIS CSCB FROM CHAIN */ 40400000 * 4 CHFC BIT(1), /* FREE THIS CSCB'S CORE */ 40600000 * 4 CHABTERM BIT(1), /* EXECUTE BRANCH ENTRY TO 40800000 * ABTERM */ 41000000 * 3 CHACT CHAR(1), /* FLAGS INDICATING ACTIVITY 41200000 * INVOLVED */ 41400000 * 4 CHSWAP BIT(1), /* SWAPPABLE JOB */ 41600000 * 4 CHTERM BIT(1), /* TERMINAL JOB */ 41800000 * 4 CHDISC BIT(1), /* CANCEL IMPLIES DISCONNECT */ 42000000 * 4 CHDSI BIT(1), /* ON MEANS NO DATA SET 42200000 * INTEGRITY (OS/VS1) MDC045*/ 42400002 * 4 CHCL BIT(1), /* CANCELABLE JOB STEP */ 42600000 * 4 CHCLD BIT(1), /* CANCEL COMMUNICATION SWITCH */ 42800000 * 4 CHAIFX BIT(1), /* CANCELABLE (OS/VS1) */ 43000004 * 4 CHIFY BIT(1), /* SYSTEM ASSIGNED 43200000 * PROCEDURE (OS/VS1) */ 43400004 * 5 CHAFORCE BIT(1), /* CANCEL ISSUED FOR THIS CSCB 43420041 * (FORCE COMMAND CAN BE 43480004 * ACCEPTED) (OS/VS2) 43520004 * (MDC301) @G17FP9A*/ 43540041 * 2 CHKEY CHAR(8) BDY(WORD),/* 1. ID OF A STARTED TASK 43600001 * (THIS ID IS THE TASK'S 43800000 * STEPNAME) 2. JOBNAME OF AN 44000000 * EXECUTED JOB. */ 44200000 * 3 CHPARM PTR(31), /* POINTER TO PARAMETER LIST 44250002 * USED FOR COMMUNICATION 44300002 * BETWEEN SVC 34 COMMANDS AND 44350002 * MASTER SCHEDULER TASK 44360002 * (OS/VS1) MDC040*/ 44370002 * 4 CHPCOI BIT(1), /* SUBSYSTEM COMMAND INDICATOR 44373006 * (MDC300) @X60BE9A*/ 44376006 * 2 CHCLS CHAR(8) BDY(WORD),/* 1.PROCNAME OF A STARTED TASK 44400001 * (THE PROCNAME IS THE TASK'S 44600000 * JOBNAME.) 2. JOBNAME OF AN 44800002 * EXECUTED JOB (SAME AS CHKEY) */ 45000002 * 2 CHUNIT CHAR(3) BDY(WORD),/* UNITNAME (SET FOR STARTED 45200001 * TASKS ONLY) */ 45400000 * 2 CHCIBCTR PTR(8), /* MAXIMAL NUMBER OF QUEUED 45600000 * CIB'S */ 45800000 * 2 CHPKE CHAR(1) BDY(WORD),/* PROTECT KEY (0S/VS1) ICB345*/ 45850002 * 3 CHTRKID CHAR(1), /* DISPLAY/TRACK IDENTIFIER 45900002 * (OS/VS2) MDC014*/ 45950002 *%CHTSID='''01''X'; /* TIME SHARING USER IDENTIFIER 46000002 * MDC015*/ 46010002 *%CHJOBID='''02''X'; /* JOB IDENTIFIER MDC016*/ 46050002 *%CHINITID='''03''X'; /* INITIATOR IDENTIFIER MDC017*/ 46100002 * 2 CHUCMP CHAR(1), /* UCMI (UNIT CONTROL MODULE 46200000 * INDICATOR) THIS IS THE ID 46400000 * OF THE CONSOLE WHICH ISSUED 46600000 * THE COMMAND, 46800002 * OR FOR OS/VS2, X'80' FOR A 46850002 * VARY COMMAND ISSUED IN THE 46900002 * INPUT STREAM MDC046*/ 46950002 * 2 CHTJID FIXED(15), /* TERMINAL ID (OS/VS1) */ 47000002 * 3 CHASID FIXED(15), /* ADDRESS SPACE ID (ASID) 47010002 * (OS/VS2) MDC018*/ 47020002 * 2 CHPROCSN CHAR(8) BDY(WORD),/* PROCEDURE STEP NAME (OS/VS2) 47030002 * (MDC049) YM6960*/ 47040002 * 3 CHQID FIXED(15), /* QID OF REMOTE USER 47050002 * (OS/VS1) ICB384*/ 47060002 * 3 CHARSV30 CHAR(1), /* RESERVED MDC041*/ 47100002 * 3 CHACT1 BIT(8), /* FLAG BYTE (OS/VS1) MDC041*/ 47120002 * 4 CHRDWTR BIT(1), /* COMMAND WAS START RDR OR WTR 47140002 * MDC042*/ 47170002 * 4 CHMODIFY BIT(1), /* CAN BE MODIFIED BY REMOTE 47175006 * USER (MDC302) @X60EI9A*/ 47180006 * 4 CHARSV05 BIT(1), /* RESERVED */ 47181002 * 4 CHARSV06 BIT(1), /* RESERVED */ 47182002 * 4 CHARSV07 BIT(1), /* RESERVED */ 47183002 * 4 CHARSV08 BIT(1), /* RESERVED */ 47184002 * 4 CHARSV09 BIT(1), /* RESERVED */ 47185002 * 4 CHARSV10 BIT(1), /* RESERVED */ 47186002 * 3 CHDER CHAR(4) BDY(WORD),/* TTRL OF DER FOR THIS JOB 47187002 * (OS/VS1) MDC043*/ 47192002 * 47200000 * 2 CHASM BDY(WORD), 47400001 * /* BEGINNING OF OVERLAY SEGMENT */ 47600000 * 47800000 * /* BEGINNING OF CONTROL FORMAT MAPPING AFTER */ 48000000 * /* INTERPRETATION OF COMMAND OPERANDS */ 48200000 * 48400000 * 3 CHECBP PTR(31), /* PTR TO STOP/MODIFY ECB */ 48600000 * 3 CHCIBP PTR(31), /* PTR TO CIB -- */ 48800000 * 4 CHEND BIT(1), /* HIGH ORDER BIT OF LAST 49000000 * PARAMETER POINTER IS ON */ 49200000 * 4 * BIT(7), /* RESERVED */ 49250001 * 49400000 * /* THE ABOVE ECB AND CIB POINTERS FORM */ 49600000 * /* THE COMMUNICATIONS PARAMETER LIST MAPPED BY IEZCOM */ 49800000 * 50000000 * 3 CHRGNSZ FIXED(31), /* JOB REGION SIZE IF V=R 50050002 * (OS/VS2) MDC001*/ 50100002 * 4 CHRPRTY CHAR(1), /* RESET PRIORITY OF A JOB WHOSE 51600002 * PRIORITY HAS BEEN RESET 51800002 * DURING EXECUTION (OS/VS1) */ 52000002 * 4 CHARSV18 PTR(24), /* RESERVED */ 52200002 * 3 CHRGNAD PTR(31), /* STARTING ADDRESS OF REGION 52400002 * IF V=R (OS/VS2) MDC002*/ 52450002 * 3 CHECB FIXED(31), /* STOP/MODIFY ECB */ 52600000 * 3 CHCECB FIXED(31), /* CANCEL ECB */ 52800000 * 3 CHSTEP CHAR(8) BDY(WORD),/* STEPNAME (OS/VS2) (MDC050) 52900002 * YM6960*/ 53000002 * 4 CHSWT CHAR(1), /* COMMUNICATIONS SWITCHES 54200002 * (OS/VS1) */ 54300002 * 5 CHARSV20 BIT(1), /* RESERVED */ 54400001 * 5 CHJCT BIT(1), /* READER RETURN WITH IN-CORE 54600000 * JCT */ 54800000 * 5 CHPSD BIT(1), /* WRITER PAUSE DATASET */ 55000000 * 5 CHPSF BIT(1), /* WRITER PAUSE FORMS */ 55200000 * 5 CHAC BIT(1), /* ID SPECIFIED ON S COMMAND */ 55400000 * 5 CHARSV21 BIT(1), /* RESERVED */ 55600001 * 5 CHARSV22 BIT(1), /* RESERVED */ 55650001 * 5 CHARSV23 BIT(1), /* RESERVED */ 55700001 * 4 CHTCB PTR(24), /* TCB PTR (OS/VS1) */ 56400002 * 4 CHSPB PTR(31), /* TCB PTR FOR ABTERM (OS/VS1) */ 56450002 * 56500002 * 3 CHSHORT BDY(WORD), /* AFTER OS/VS2 JOB SELECT TIME, 56550002 * END OF CSCB. OS/VS1 CSCB IS 56600002 * UNCHANGED. (MDC048) YM6960*/ 56650002 * 56700002 * 4 CHSPC PTR(31), /* PTR TO SMALL PARTITION LIST 56800002 * (OS/VS1) TRANSIENT RDR TTR 57000002 * (OS/VS1) COMPLETION CODE 57200002 * FOR ABTERM (OS/VS1) */ 57400002 * 4 CHJCL PTR(31), /* JCLS PTR -- IN-CORE JCT PTR 57600000 * -- DA JCT TTR */ 57800000 * 58000000 * 4 CHQPA (9) FIXED(31), /* INPUT Q MANAGER PARAMETER 58200000 * AREA */ 58400000 * 4 CHSQA (9) FIXED(31), /* SYSOUT Q MANAGER PARAMETER 58600000 * AREA NOTE--THESE 2 QMPAS 58800000 * EXIST IN OS/VS2 CSCB'S ONLY 59000002 * BEFORE INITIATOR JOB SELECT 59200002 * TIME. */ 59400000 * 4 * FIXED(31), /* TENTH WORD OF CHSQA (OS/VS1) 59450002 * RESERVED (OS/VS2) 59500002 * MDC022,MDC023*/ 59550002 * 4 * FIXED(31), /* ELEVENTH WORD OF CHSQA 59600002 * (OS/VS1) RESERVED (OS/VS2) 59650002 * MDC022,MDC024*/ 59700002 * 4 CHUSCVS FIXED(31), /* TIOT LENGTH (OS/VS1) MDC025*/ 59800002 * 4 CHJSCBVS PTR(31), /* JSCB POINTER (OS/VS1) MDC026*/ 60000002 * 4 CHSAVWD1 PTR(31), /* START CMD. TEMP. S/A 1 60300000 * (MDC311) @ZA29618*/ 60320000 * 4 CHSAVWD2 PTR(31); /* START CMD. TEMP. S/A 2 60340000 * (MDC311) @ZA29618*/ 60360000 * 60400000 * /* END OF CONTROL FORMAT MAPPING AFTER */ 60600000 * /* INTERPRETATION OF COMMAND OPERANDS */ 60800000 * 61000000 * DECLARE 1 CHAINS01 61200000 *%IF IKEPLS='2' %THEN 61250002 * %GOTO CHA2; 61300002 * BASED(ADDR(CHASM)) BDY(WORD), /* OVERLAY */ 61400001 *%GOTO CHA3; 61450002 *%CHA2 : ; 61500002 * DEF(CHASM) BDY(WORD), 61550002 *%CHA3 : ; 61560002 * 61600000 * /* BEGINNING OF INPUT FORMAT MAPPING BEFORE */ 61800000 * /* INTERPRETATION OF COMMAND OPERANDS */ 62000000 * 62200000 * 2 CHBUF CHAR(124) BDY(WORD), /* COMMAND IMAGE (OPERAND 62400001 * FIELD) */ 62600000 * 2 CHTYPE CHAR(1) BDY(WORD),/* FLAGS */ 62650001 * 3 CHDSTAT BIT(1), /* STATUS DISPLAY (SVC 104) CMD */ 62700001 * 3 CHARSV25 BIT(1), /* RESERVED */ 62750001 * 3 CHARSV26 BIT(1), /* RESERVED */ 62760001 * 3 CHARSV27 BIT(1), /* RESERVED */ 62770001 * 3 CHARSV28 BIT(1), /* RESERVED */ 62780001 * 3 CHARSV29 BIT(1), /* RESERVED */ 62790001 * 3 CHHIAR BIT(1), /* ON MEANS H1 SPECIFIED ON 62800001 * COMMAND (ICB337) 40890 */ 62850001 * 3 CHDEF BIT(1), /* ON MEANS DEFAULT TO 62900001 * H0 (ICB337) 40890 */ 62950001 * 2 CHTRSTAT BIT(8), /* DISPLAY/TRACK REQUEST STATUS 62960002 * (OS/VS2) MDC003*/ 62962002 * 3 CHJOBS BIT(1), /* JOBS MDC004*/ 62964002 * 3 CHJOBSL BIT(1), /* JOBS,LIST MDC005*/ 62966002 * 3 CHINIT BIT(1), /* INIT MDC006*/ 62968002 * 3 CHINITL BIT(1), /* INIT,LIST MDC007*/ 62968402 * 3 CHTS BIT(1), /* TS MDC008*/ 62968802 * 3 CHTSL BIT(1), /* TS,LIST MDC009*/ 62969202 * 3 * BIT(2), /* RESERVED */ 62969602 *%CHACTA='''A8''X'; /* ACTIVE MDC010*/ 62969702 *%CHACTL='''54''X'; /* ACTIVE,LIST MDC011*/ 62969802 * 2 CHCNID CHAR(1), /* DISPLAY-RECEIVING CONSOLE ID */ 62970001 * 2 CHARID CHAR(1), /* DISPLAY SCREEN-AREA ID */ 62980001 * 2 CHPEND PTR(31), /* CHAIN PTR FOR PENDING START 63000004 * COMMANDS (OS/VS1) */ 63200004 * 2 CHINC PTR(16), /* UNIQUE CTR FOR INTERPRETER 63400002 * OR FOR OS/VS2, COMMAND 63450002 * AUTHORITY FOR VARY COMMAND 63500002 * ISSUED FROM THE INPUT 63550002 * STREAM MDC047*/ 63560002 * 2 CHCSYSO CHAR(1), /* EXPRESS CANCEL SYSOUT(OS/VS1)*/ 63600002 * 3 CHALL BIT(1), /* ALL SPECIFIED */ 63800000 * 3 CHINN BIT(1), /* IN SPECIFIED */ 64000000 * 3 CHOUT BIT(1), /* OUT SPECIFIED */ 64200000 * 3 CHHOLD BIT(1), /* HOLD Q SPECIFIED */ 64400000 * 3 CHQUE BIT(1), /* SPECIFIC QUEUE */ 64600000 * 3 CHDUMP BIT(1), /* DUMP SPECIFIED */ 64800000 * 3 CHJB BIT(1), /* END SCAN SWITCH */ 65000000 * 3 CHUSERID BIT(1), /* INDICATES 'USER=' SPECIFIED 65200002 * ON CANCEL COMMAND (OS/VS1) 65250004 * ICB396*/ 65300002 * 2 CHSPA CHAR(1), /* OS/VS1 SYSTEM TASK CONTROL 65400004 * SWITCHES */ 65600004 * 65800000 * /* END OF INPUT FORMAT MAPPING BEFORE */ 66000000 * /* INTERPRETATION OF COMMAND OPERANDS */ 66200000 * 66400000 * 2 CHLAST CHAR(0) BDY(WORD); 66600002 * /* END OF CSCB */ 66800000