* %GOTO SSSOCMT; /* @ZA34144 00050003 MACRO @ZA34144 00100003 IEFSSSO 00150003 .*/ %SSSOCMT:; /* @ZA34144*/ 00200003 */********************************************************************/ 00250003 */* MACRO NAME = IEFSSSO @ZA34144*/ 00300003 */* DESCRIPTIVE NAME = PROCESS SYSOUT DATA SETS @ZA34144*/ 00350003 */* STATUS = SPLITOUT FROM IEFJSSOB @ZA34144*/ 00400003 */* ACCESS METHOD = INVOKED VIA IEFJSSOB MACRO @ZA34144*/ 00450003 */* COPYRIGHT = NONE @ZA34144*/ 00500003 */********************************************************************/ 00550003 * %GOTO SSSOPLS; /* @ZA34144 00600003 SSOBSOUT EQU 1 SYSOUT FUNCTION ID (SSOBFUNC) 00700003 * 00750003 * PROCESS SYSOUT DATA SETS RETURN CODES (SSOBRETN) 00800003 * 00850003 SSSORTOK EQU 0 EVERYTHING IS OK 00900003 SSSOEODS EQU 4 NO MORE DATA SETS TO SELECT 00950003 SSSONJOB EQU 8 JOB NOT FOUND 01000003 SSSOINVA EQU 12 INVALID SEARCH ARGUMENTS 01050003 SSSOUNAV EQU 16 UNABLE TO PROCESS NOW 01100003 SSSODUPJ EQU 20 DUPLICATE JOBNAMES 01150003 SSSOINVJ EQU 24 INVALID JOBNAME/JOBID COMBINATION 01200003 SSSOIDST EQU 28 INVALID DESTINATION SPECIFIED 01250003 * 01300003 ORG SSOBGN 01350003 SSSOBGN EQU * 01400003 SSSOLEN DC AL2(SSSOSIZE) SYSOUT EXTENSION LENGTH 01450003 SSSOUFLG DS B USER SELECTION OPTIONS CLASS 01500003 * ROUTING AND DISPOSITION FLAGS 01550003 SSSOSETC EQU X'80' USE SSSOCLAS AS DISPOSITION 01600003 SSSODELC EQU X'40' DELETE SELECTED DATA SET 01650003 SSSOROUT EQU X'20' REROUTE SELECTED DATA SET TO 01700003 * DESTINATION IN SSSODEST 01750003 SSSOHOLD EQU X'10' HOLD ALL SELECTED DATA SETS 01800003 SSSORLSE EQU X'08' RELEASE ALL SELECTED DATA SETS 01850003 * EQU X'07' RESERVED FLAGS 01900003 SSSORESV DS X RESERVED 01950003 SSSOFLG1 DS B DATA SET SELECTION CONTROL FLAGS 02000003 SSSOHLD EQU X'80' SELECTION SHOULD INCLUDE HELD 02050003 * SYSOUT DATA SETS 02100003 SSSOSCLS EQU X'40' USE CLASS 02150003 SSSODST EQU X'20' USE REMOTE DESTINATION 02200003 SSSOSJBN EQU X'10' USE JOB NAME 02250003 SSSOSJBI EQU X'08' USE JOB ID 02300003 SSSOSPGM EQU X'04' USE USER WRITER PROGRAM NAME 02350003 SSSOSFRM EQU X'02' USE FORM NUMBER 02400003 SSSORSV2 EQU X'01' RESERVED 02450003 * 02500003 SSSOFLG2 DS B CURRENT DATA SET DISPOSITION FLAGS 02550003 SSSOCTRL EQU X'80' 1 - PROCESSING COMPLETED 02600003 * 0 - RETURN DATA SET NAME 02650003 SSSOCHKP EQU X'40' USE SSSORBA TO CHECKPOINT RBA 02700003 * OF CURRENT DATA SET IN CLASS 02750003 SSSORSV3 EQU X'3F' RESERVED FLAGS 02800003 SSSOCOPY DS H NUMBER OF COPIES 02850003 SSSOJOBN DS CL8 JOB NAME 02900003 SSSOJOBI DS CL8 JOB ID 02950003 SSSOCLAS DS CL1 NAME OF DESTINATION CLASS SPECIFIED 03000003 * VIA THE NEWCLASS PARAMETER 03050003 SSSORSV5 DS CL3 RESERVED 03100003 SSSODEST DS CL8 REMOTE DESTINATION SPECIFIED 03150003 * VIA THE DEST PARAMETER 03200003 SSSOPGMN DS CL8 USER WRITER NAME 03250003 SSSORBA DS CL8 RBA OF SYSOUT DATA SET 03300003 SSSODSN DS CL44 SYSOUT DATA SET NAME 03350003 SSSOFORM DS CL4 FORM NUMBER 03400003 * 03450003 * SSSOCLSL WILL CONTAIN 1-8 CLASSES WHEN USED FOR REROUTING OR DELETE 03500003 * FUNCTIONS AND WILL CONTAIN ONLY ONE CLASS WHEN USED FOR PRINTING. 03550003 * 03600003 SSSOCLSL DS CL8 CLASS SELECTION LIST FOR 03650003 * DATA SET SELECTION 03700003 SSSOWTRC DS A A POINTER TO A COMMUNICATION YM02726 03750003 * AREA FOR THE USER WRITTEN YM02726 03800003 * WRITER YM02726 03850003 SSSODSID DS CL8 DATA SET ID TO PLACE SYSOUT @Z30OPSD 03900003 * ON EXTERNAL DEVICES @Z30OPSD 03950003 * 04000003 SSSOSIZE EQU *-SSSOBGN SYSOUT EXTENSION LENGTH 04050003 SSOBLEN1 EQU SSOBHSIZ+SSSOSIZE SSOB LENGTH=HEADER + SYSOUT EXTENSION 04100003 MEND @ZA34144*/ 04150003 * %SSSOPLS:; /* @ZA34144*/ 04180003 * DCL SSOBSOUT FIXED(15) CONSTANT(01); /* FUNCTION ID (SSOBFUNC) */ 04250003 * /* */ 04300003 * /* PROCESS SYSOUT DATA SETS RETURN CODES (SSOBRETN) */ 04350003 * /* */ 04400003 * DCL SSSORTOK FIXED(31) CONSTANT(0); /* EVERYTHING IS OK */ 04450003 * DCL SSSOEODS FIXED(31) CONSTANT(4); /*NO MORE DATA SETS TO SELECT*/ 04500003 * DCL SSSONJOB FIXED(31) CONSTANT(8); /* JOB NOT FOUND */ 04550003 * DCL SSSOINVA FIXED(31) CONSTANT(12);/* INVALID SEARCH ARGUMENTS */ 04600003 * DCL SSSOUNAV FIXED(31) CONSTANT(16);/* UNABLE TO PROCESS NOW */ 04650003 * DCL SSSODUPJ FIXED(31) CONSTANT(20);/* DUPLICATE JOBNAMES */ 04700003 * DCL SSSOINVJ FIXED(31) CONSTANT(24);/* INVALID JOBNAME/JOBID 04750003 * COMBINATION */ 04800003 * DCL SSSOIDST FIXED(31) CONSTANT(28); /* INVALID DESTINATION 04850003 * SPECIFIED */ 04900003 * /* S S S O */ 04950003 * DECLARE 05000003 * 1 SSSO SSOBSO, 05050003 * 2 SSSOLEN FIXED(15),/* LENGTH OF SSSO */ 05100003 * 2 SSSOUFLG BIT(8), /* USER SELECTION OPTIONS CLASS 05150003 * ROUTING AND DISPOSITION FLAGS */ 05200003 * 3 SSSOSETC BIT(1), /* USE SSSOCLAS AS DISPOSITION */ 05250003 * 3 SSSODELC BIT(1), /* DELETE SELECTED DATA SET */ 05300003 * 3 SSSOROUT BIT(1), /* REROUTE SELECTED DATA SET 05350003 * TO DESTINATION IN SSSODEST */ 05400003 * 3 SSSOHOLD BIT(1), /* HOLD ALL SELECTED DATA SETS */ 05450003 * 3 SSSORLSE BIT(1), /* RELEASE ALL SELECTED DATA SETS*/ 05500003 * 3 * BIT(3), /* RESERVED FLAGS */ 05550003 * 2 * PTR(8), /* RESERVED */ 05600003 * 2 SSSOFLG1 BIT(8), /* FLAGS TO CONTROL SELECTION 05650003 * OF DATA SETS */ 05700003 * 3 SSSOSHLD BIT(1), /* SELECTION SHOULD INCLUDE -HELD- 05750003 * SYSOUT DATA SETS */ 05800003 * 3 SSSOSCLS BIT(1), /* USE CLASS */ 05850003 * 3 SSSOSDST BIT(1), /* USE REMOTE USERID */ 05900003 * 3 SSSOSJBN BIT(1), /* USE JOB NAME */ 05950003 * 3 SSSOSJBI BIT(1), /* USE JOB ID */ 06000003 * 3 SSSOSPGM BIT(1), /* USE USER WRITER PROGRAM NAME */ 06050003 * 3 SSSOSFRM BIT(1), /* USE FORM NUMBER */ 06100003 * 3 * BIT(1), /* RESERVED */ 06150003 * 2 SSSOFLG2 BIT(8), /* FLAGS INDICATING DISPOSITION 06200003 * OF CURRENT DATA SET */ 06250003 * 3 SSSOCTRL BIT(1), /* 1 - PROCESSING COMPLETED 06300003 * 0 - RETURN DATA SET NAME */ 06350003 * 3 SSSOCHKP BIT(1), /* USE SSSORBA TO CHECKPOINT RBA 06400003 * OF CURRENT DATA SET IN CLASS */ 06450003 * 3 * BIT(6), /* RESERVED */ 06500003 * 2 SSSOCOPY FIXED(15),/* NUMBER OF COPIES */ 06550003 * 2 SSSOJOBN CHAR(8), /* JOB NAME */ 06600003 * 2 SSSOJOBI CHAR(8), /* JOB ID */ 06650003 * 2 SSSOCLAS CHAR(1), /* NAME OF DEST CLASS SPECIFIED 06700003 * VIA THE NEWCLASS PARAMETER */ 06750003 * 2 * CHAR(3), /* RESERVED */ 06800003 * 2 SSSODEST CHAR(8), /* REMOTE DESTINATION SPECIFIED 06850003 * VIA THE DEST PARAMETER */ 06900003 * 2 SSSOPGMN CHAR(8), /* USER WRITER NAME */ 06950003 * 2 SSSORBA CHAR(8), /* RBA OF SYSOUT DATA SET */ 07000003 * 2 SSSODSN CHAR(44), /* SYSOUT DATA SET NAME */ 07050003 * 2 SSSOFORM CHAR(4), /* FORM NUMBER */ 07100003 * /* SSSOCLSL WILL CONTAIN 1-8 CLASSES WHEN USED FOR REROUTING OR */ 07150003 * /* DELETE FUNCTIONS AND WILL CONTAIN ONLY ONE CLASS WHEN USED */ 07200003 * /* FOR PRINTING. */ 07250003 * 2 SSSOCLSL CHAR(8), /* CLASS SELECTION LIST FOR 07300003 * DATA SET SELECTION */ 07350003 * 2 SSSOWTRC PTR(31), /* POINTER TO COMMUNICATION 07400003 * AREA FOR THE USER 07450003 * WRITTEN WRITER YM02726*/ 07500003 * 2 SSSODSID CHAR(8); /* DATA SET ID TO PLACE SYSOUT 07550003 * ON EXTERNAL DEVICES @Z30OPSD*/ 07600003