* %GOTO SSCSCMT; /* @ZA34144 00050000 MACRO @ZA34144 00100000 IEFSSCS 00150000 .*/ %SSCSCMT:; /* @ZA34144*/ 00200000 */********************************************************************/ 00250000 */* MACRO NAME = IEFSSCS @ZA34144*/ 00300000 */* DESCRIPTIVE NAME = CANCEL/STATUS FUNCTION @ZA34144*/ 00350000 */* STATUS = SPLITOUT FROM IEFJSSOB @ZA34144*/ 00400000 */* ACCESS METHOD = INVOKED VIA IEFJSSOB @ZA34144*/ 00450000 */* COPYRIGHT = NONE @ZA34144*/ 00500000 */* C036500 @ZA59113*/ 00525000 */********************************************************************/ 00550000 * %GOTO SSCSPLS; /* @ZA34144 00600000 * 00650000 SSOBCANC EQU 2 CANCEL FUNCTION ID (SSOBFUNC) 00700000 SSOBSTAT EQU 3 JOB STATUS FUNCTION ID (SSOBFUNC) 00750000 * 00800000 * CANCEL/STATUS RETURN CODES (SSOBRETN) 00850000 * 00900000 SSCSRTOK EQU 0 CANCEL/STATUS COMPLETED 00950000 SSCSNOJB EQU 4 JOB NAME NOT FOUND 01000000 SSCSBADI EQU 8 INVALID JOBNAME/JOB ID COMBINATION 01050000 SSCSNCAN EQU 12 JOB NOT CANCELLED - DUPLICATE 01100000 * JOBNAMES AND NO JOB ID GIVEN 01150000 SSCSMALL EQU 16 STATUS ARRAY TOO SMALL 01200000 SSCSOUTP EQU 20 JOB NOT CANCELLED-JOB ON OUTPUT QUEUE 01250000 SSCSYNTX EQU 24 JOBID WITH INVALID SYNTAX FOR 01300000 * SYBSYSTEM YM06023 01350000 SSCSICAN EQU 28 INVALID CANCEL REQUEST - CANNOT 01400000 * CANCEL AN ACTIVE TSO USER OR STARTED 01450000 * TASK / TSO USER MAY NOT CANCEL THE 01500000 * ABOVE JOBS UNLESS THEY ARE ON AN 01550000 * OUTPUT QUEUE. YM06036 01600000 * 01650000 ORG SSOBGN 01700000 SSCSBGN EQU * 01750000 SSCSLEN DC AL2(SSCSIZE) CANCEL/STATUS EXTENSION LENGTH 01800000 SSCSFLGS DS B USER SELECTION FLAGS 01850000 SSCSUSID EQU X'80' USERID IS IN JOBNAME FIELD 01900000 SSCSCOUT EQU X'40' CANCEL THE JOBS OUTPUT Y02886 01950000 * EQU X'3F' RESERVED FLAGS 02000000 SSCSULEN DS X USERID LENGTH 02050000 SSCSJOBN DS CL8 JOB NAME 02100000 SSCSJOBI DS CL8 JOB ID OR BLANKS 02150000 SSCSDIMP DS H SET BY CALLER TO INDICATE SIZE 02200000 * OF ARRAY AVAILABLE TO SUBSYSTEM 02250000 * TO STORE RESULTS IN 02300000 SSCSDIMR DS H SET BY SUBSYSTEM TO INDICATE SIZE 02350000 * OF ARRAY USED, OR NEEDED IF NOT 02400000 * ENOUGH IS AVAILABLE 02450000 SPACE 02500000 * 02550000 * SSCSARAY MAPS AN ELEMENT OF AN ARRAY GOTTEN BY THE CALLER FOR 02600000 * THE SUBSYSTEM TO RETURN RESULTS IN. IF MORE THAN ONE ELEMENT 02650000 * EXISTS, ADDRESSABILITY TO THIS ARRAY MUST BE UPDATED BY THE 02700000 * ELEMENT SIZE (SSCSELSZ). THE TOTAL ARRAY SPACE USED FOR JOB 02750000 * STATUS REPLIES FROM THE SUBSYSTEM(ARRAY ELEMENT SIZE IN BYTES 02800000 * TIMES THE NUMBER OF ELEMENTS) MUST BE INDICATED IN SSCSDIMR. 02850000 * MESSAGES MUST FOLLOW THE LAST SSCSARAY ELEMENT USED FOR JOB 02900000 * STATUS. 02950000 * 03000000 SSCSARAY DS 0CL16 03050000 SSCSARBG EQU * 03100000 SSCSARID DS CL8 JOB IDENTIFIER 03150000 SSCSFLG1 DS B FLAGS SET BY SUBSYSTEM 03200000 SSCSJACT EQU X'80' JOB IS CURRENTLY ACTIVE (EXECUTING 03250000 * AFTER BEING GIVEN CONTROL BY THE 03300000 * INITIATOR) 03350000 SSCSEXCQ EQU X'40' JOB IS WAITING FOR EXECUTION (ON A 03400000 * PRE-EXECUTION QUEUE) 03450000 SSCSOUTQ EQU X'20' JOB IS ON OUTPUT QUEUE 03500000 SSCSHOLD EQU X'10' JOB IS HELD IN ITS CURRENT QUEUE 03550000 SSCSSECL EQU X'08' JOB HAS A SECOND LEVEL MESSAGE 03600000 SSCSNJEA EQU X'04' JOB ACTIVE IN NJE @AZ59113 03650000 * EQU X'03' RESERVED FLAGS 03700000 SSCSUJOB DS CL1 JOBNAME CHARACTER RETURNED 03750000 * BY SUBSYSTEM FOR USERID AS JOBNAME 03800000 SSCSRSV2 DS CL2 RESERVED 03850000 SSCSMPTR DS A POINTER TO MESSAGE RETURNED IN ARRAY 03900000 * 03950000 * THE SECOND LEVEL MESSAGE AREA IS MAPPED BY A MULTI-LEVEL PUTLINE 04000000 * OUTPUT LINE DESCRIPTOR (OLD). THE FIRST 9 BYTES OF THE FIRST OR 04050000 * ONLY MESSAGE SEGMENT ARE RESERVED FOR THE INSERTION OF A MESSAGE 04100000 * ID BY THE CALLER. ONE TO 62 BYTES OF MESSAGE TEXT MAY BE PROVIDED 04150000 * BY THE SUBSYSTEM. A MAPPING OF THE OLD FORMAT NEEDED FOLLOWS. 04200000 * 04250000 * SSCSMPTR -> ONE TSO PUTLINE OUTPUT LINE DESCRIPTOR (OLD) 04300000 * +0 0 (NO OTHER OLD) 04350000 * +4 NUMBER OF MESSAGE SEGMENTS 04400000 * +8 PTR TO FIRST MESSAGE SEGMENT 04450000 * +. PTR TO NTH MESSAGE SEGMENT 04500000 * ........ MESSAGE SEGMENT FORMAT...... 04550000 * +0 TOTAL LENGTH OF MSG SEGMENT (INCLUDING THIS FIELD) 04600000 * +2 0 IF FIRST SEGMENT, OR OFFSET FOR INSERT IN FIRST 04650000 * +4 10 BLANKS FOR MSG ID (ONLY IN FIRST SEGMENT) 04700000 * +D MESSAGE TEXT (1-62 BYTES TOTAL FOR ALL SEGMENTS) 04750000 * 04800000 SSCSELSZ EQU *-SSCSARAY ARRAY ELEMENT SIZE 04850000 SSCSIZE EQU *-SSCSBGN CANCEL/STATUS EXTENSION LENGTH 04900000 SSOBLEN2 EQU SSOBHSIZ+SSCSIZE TOTAL SSOB LENGTH 04950000 MEND @ZA34144*/ 05000000 * %SSCSPLS:; /* @ZA34144*/ 05050000 * /* CANCEL/STATUS FUNCTION IDS (SSOBFUNC) */ 05100000 * DCL SSOBCANC FIXED(15) CONSTANT(02); /* FUNCTION ID TO CANCEL JOB */ 05150000 * DCL SSOBSTAT FIXED(15) CONSTANT(03); /* FUNCTION ID TO FIND THE 05200000 * STATUS OF A JOB */ 05250000 * /* */ 05300000 * /* CANCEL/STATUS RETURN CODES (SSOBRETN) */ 05350000 * /* */ 05400000 * DCL SSCSRTOK FIXED(31) CONSTANT(0); /* CANCEL/STATUS COMPLETED */ 05450000 * DCL SSCSNOJB FIXED(31) CONSTANT(4); /* JOB NAME NOT FOUND */ 05500000 * DCL SSCSBADI FIXED(31) CONSTANT(8); /* INVALID JOBNAME/JOB ID 05550000 * COMBINATION */ 05600000 * DCL SSCSNCAN FIXED(31) CONSTANT(12); /* JOB NOT CANCELLED - 05650000 * DUPLICATE JOBNAMES AND 05700000 * NO JOB ID GIVEN */ 05750000 * DCL SSCSMALL FIXED(31) CONSTANT(16); /* STATUS ARRAY TOO SMALL */ 05800000 * DCL SSCSOUTP FIXED(31) CONSTANT(20); /* JOB NOT CANCELLED - 05850000 * JOB ON OUTPUT QUEUE */ 05900000 * DCL SSCSYNTX FIXED(31) CONSTANT(24); /* JOBID WITH INVALID SYNTAX 05950000 * FOR SUBSYSTEM YM06023*/ 06000000 * DCL SSCSICAN FIXED(31) CONSTANT(28); /* INVALID CANCEL REQUEST - 06050000 * CANNOT CANCEL AN ACTIVE TSO 06100000 * USER OR STARTED TASK / 06150000 * TSO USERS MAY NOT CANCEL 06200000 * THE ABOVE JOBS UNLESS THEY 06250000 * ARE ON AN OUTPUT QUEUE 06300000 * YM06036*/ 06350000 * /* S S C S */ 06400000 * DECLARE 06450000 * 1 SSCS SSOBCS, /* CANCEL/STATUS FUNCTION 06500000 * DEPENDENT SECTION */ 06550000 * 2 SSCSLEN FIXED(15),/* LENGTH OF SSCS */ 06600000 * 2 SSCSFLGS BIT(8), /* USER SELECTION FLAGS */ 06650000 * 3 SSCSUSID BIT(1), /* USERID IS IN JOBNAME FIELD */ 06700000 * 3 SSCSCOUT BIT(1), /* CANCEL THE JOBS OUTPUT Y02886*/ 06750000 * 3 * BIT(6), /* RESERVED FLAGS */ 06800000 * 2 SSCSULEN PTR(8), /* USERID LENGTH */ 06850000 * 2 SSCSJOBN CHAR(8), /* JOB NAME */ 06900000 * 2 SSCSJOBI CHAR(8), /* JOB ID OR BLANKS */ 06950000 * 2 SSCSDIMP FIXED(15),/* SET BY CALLER TO INDICATE 07000000 * SIZE OF ARRAY AVAIL. TO SUBSYS. 07050000 * TO STORE RESULTS IN */ 07100000 * 2 SSCSDIMR FIXED(15),/* SET BY SUBSYSTEM TO INDICATE 07150000 * IF NOT ENOUGH AVAILABLE */ 07200000 */********************************************************************/ 07250000 */* */ 07300000 */* SSCSARAY MAPS AN ELEMENT OF AN ARRAY GOTTEN BY THE CALLER FOR */ 07350000 */* THE SUBSYSTEM TO RETURN RESULTS IN. IF MORE THAN ONE ELEMENT */ 07400000 */* EXISTS, ADDRESSABILITY TO THIS ARRAY MUST BE UPDATED BY THE */ 07450000 */* ELEMENT SIZE (SSCSELSZ). THE TOTAL ARRAY SPACE USED FOR JOB */ 07500000 */* STATUS REPLIES FROM THE SUBSYSTEM(ARRAY ELEMENT SIZE IN BYTES */ 07550000 */* TIMES THE NUMBER OF ELEMENTS) MUST BE INDICATED IN SSCSDIMR. */ 07600000 */* MESSAGES MUST FOLLOW THE LAST SSCSARAY ELEMENT USED FOR JOB */ 07650000 */* STATUS. */ 07700000 */* */ 07750000 */********************************************************************/ 07800000 * 2 SSCSARAY (CSARAYSZ) CHAR(16) BDY (WORD), /* 1 OR MORE AREAS 07850000 * GOTTEN BY THE CALLER, FOR THE SUBSYSTEM 07900000 * TO RETURN RESULTS IN 07950000 * (USED FOR STATUS ONLY) */ 08000000 * 3 SSCSARID CHAR(8), /* JOB IDENTIFIER */ 08050000 * 3 SSCSFLG1 BIT(8), /* SET BY SUBSYSTEM */ 08100000 * 4 SSCSJACT BIT(1), /* JOB IS CURRENTLY ACTIVE 08150000 * (EXECUTING AFTER BEING GIVEN 08200000 * CONTROL BY THE INITIATOR) */ 08250000 * 4 SSCSEXCQ BIT(1), /* JOB IS WAITING FOR EXECUTION 08300000 * (ON A PRE-EXECUTION QUEUE) */ 08350000 * 4 SSCSOUTQ BIT(1), /* JOB IS ON OUTPUT QUEUE */ 08400000 * 4 SSCSHOLD BIT(1), /* JOB IS HELD IN ITS CURRENT 08450000 * QUEUE */ 08500000 * 4 SSCSSECL BIT(1), /* JOB HAS A 2ND LEVEL MSG */ 08550000 * 4 SSCSNJEA BIT(1), /* JOB ACTIVE IN NJE @AZ53114*/ 08600000 * 4 * BIT(2), /* RESERVED */ 08650000 * 3 SSCSUJOB CHAR(1), /* JOBNAME CHARACTER RETURNED 08700000 * BY SYBSYSTEM FOR USERID AS JOBNAME */ 08750000 * 3 * CHAR(2), /* RESERVED */ 08800000 * 3 SSCSMPTR PTR(31); /* POINTER TO MESSAGE RETURNED 08850000 * IN ARRAY */ 08900000 */********************************************************************/ 08950000 */* */ 09000000 */*THE SECOND LEVEL MESSAGE AREA IS MAPPED BY A MULTI-LEVEL PUTLINE */ 09050000 */*OUTPUT LINE DESCRIPTOR (OLD). THE FIRST 9 BYTES OF THE FIRST OR */ 09100000 */*ONLY MESSAGE SEGMENT ARE RESERVED FOR THE INSERTION OF A MESSAGE */ 09150000 */*ID BY THE CALLER. ONE TO 62 BYTES OF MESSAGE TEXT MAY BE PROVIDED*/ 09200000 */*BY THE SUBSYSTEM. A MAPPING OF THE OLD FORMAT NEEDED FOLLOWS. */ 09250000 */* */ 09300000 */* SSCSMPTR -> ONE TSO PUTLINE OUTPUT LINE DESCRIPTOR (OLD) */ 09350000 */* +0 0 (NO OTHER OLD) */ 09400000 */* +4 NUMBER OF MESSAGE SEGMENTS */ 09450000 */* +8 PTR TO FIRST MESSAGE SEGMENT */ 09500000 */* +. PTR TO NTH MESSAGE SEGMENT */ 09550000 */* ........ MESSAGE SEGMENT FORMAT...... */ 09600000 */* +0 TOTAL LENGTH OF MSG SEGMENT (INCLUDING THIS FIELD) */ 09650000 */* +2 0 IF FIRST SEGMENT, OR OFFSET FOR INSERT IN FIRST */ 09700000 */* +4 10 BLANKS FOR MSG ID (ONLY IN FIRST SEGMENT) */ 09750000 */* +D MESSAGE TEXT (1-62 BYTES TOTAL FOR ALL SEGMENTS) */ 09800000 */* */ 09850000 */********************************************************************/ 09900000