* %GOTO GFPLS1; /* BILINGUAL MAPPING 00050002 MACRO 00100002 IKJEFFGF &GFDSECT=NO 00150002 .*A-000000-999999 @Y02064 00200002 AGO .GFBAL01 ** SKIP PLS MACRO STATEMENT ** */ 00250002 *%GFPLS1: ; /* BAL/PLS HEADER 00300002 .GFBAL01 ANOP */ 00350002 */********************************************************************/ 00450002 */* */ 00500002 */* *** IKJEFFGF *** LEVEL=02/01/74 OS/VS2 RELEASE 02.0 */ 00550002 */* */ 00600002 */* DESCRIPTION - BILINGUAL MAPPING MACRO FOR GENERAL FAILURE */ 00650002 */* PARAMETER LIST (VSAMFAIL AND OTHER FAILURES) */ 00700002 */* */ 00750002 */* FUNCTION - THE PARAMETER LIST IS THE INTERFACE TO IKJEFF19 */ 00800002 */* FROM CALLER WITH A FAILURE SPECIFIED IN THE */ 00850002 */* GFCALLID PARAMETER. IKJEFF19 WILL ISSUE AN */ 00950002 */* APPROPRIATE FAILURE MESSAGE. */ 00970002 */* */ 01000002 */* REGISTER 1 -> POINTER -> GFPARMS = INPUT PARMLIST */ 01050002 */* REGISTER 15 WILL CONTAIN IKJEFF19'S RETURN CODE */ 01200002 */* (0 IF O.K., 80 IF PARAMETER ERROR, OR PUTLINE R.C.)*/ 01350002 */* */ 01370002 */* METHOD OF ACCESS */ 01400002 */* PL/S - %GFTYPE='BDY(WORD)' - - - IF DON'T WANT BASED */ 01450002 */* (THIS IS THE DEFAULT) */ 01500002 */* %INCLUDE SYSLIB(IKJEFFGF) */ 01600002 */* */ 01650002 */* BAL - <> */ 01700002 */* GFDSECT=YES IF DON'T WANT TO GET CORE, */ 01750002 */* THEN CODE -- LA REG,MYGFCORE *CALLER AREA* */ 01800002 */* USING GFDSECTD,REG */ 01850002 */* GFDSECT=NO IS THE DEFAULT. */ 01900002 */* */ 02000002 */* F.E.'S - MICROFICHE LISTING = IKJEFFGF */ 02350002 */* */ 02400002 */********************************************************************/ 02450002 * 02500002 * %GOTO GFPLS2; /* BAL ONLY FOLLOWS 02550002 .* SET UP DSECT CARD IF GFDSECT=YES ON MACRO 02600002 AIF ('&GFDSECT' EQ 'NO').GFBAL1 **MACRO STATEMENT** 02650002 GFDSECTD DSECT 02700002 .GFBAL1 ANOP **MACRO STATEMENT** 02750002 DS 0F 02800002 GFPARMS EQU * .<> 02850002 GFCBPTR DC A(0) .REQUIRED FOR VSAM ERROR (POINTER TO ACB IF 03100002 * . ID FOR OPEN OR CLOSE, OTHERWISE TO RPL). 03200002 * .REQUIRED FOR SSREQ ERROR (POINTER TO SSOB). 03300002 * .UNUSED FOR OTHER IDS 03320002 GFRCODE DC A(0) .ERROR CODE (FROM REG.15) OR ABEND CODE 03350002 GF02PTR DC A(0) .ADDRESS OF IKJEFF02 MESSAGE ISSUER ROUTINE 03450002 * . OR ZERO (IF IKJEFF19 MUST LOAD IKJEFF02) 03500002 GFCALLID DC H'0' .ID FOR FAILURE (VALUES FOLLOW) 03550002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 03650002 GFCHECK EQU 1 .VALUE FOR VSAM CHECK MACRO ERROR 03700002 GFCLOSE EQU 2 .VALUE FOR VSAM CLOSE MACRO ERROR 03750002 GFENDREQ EQU 3 .VALUE FOR VSAM ENDREQ MACRO ERROR 03800002 GFERASE EQU 4 .VALUE FOR VSAM ERASE MACRO ERROR 03850002 GFGET EQU 5 .VALUE FOR VSAM GET MACRO ERROR 03900002 GFOPEN EQU 6 .VALUE FOR VSAM OPEN MACRO ERROR 03950002 GFPOINT EQU 7 .VALUE FOR VSAM POINT MACRO ERROR 04000002 GFPUT EQU 8 .VALUE FOR VSAM PUT MACRO ERROR 04050002 GFPARSE EQU 21 .VALUE FOR PARSE SERVICE ROUTINE ERROR 04100002 GFPUTL EQU 22 .VALUE FOR PUTLINE SERVICE ROUTINE ERROR 04120002 GFABEND EQU 31 .VALUE MEANS ISSUE ABEND MESSAGE 04200002 GFSSREQ EQU 32 .VALUE FOR SUBSYSTEM INTERFACE REQUEST ERROR 04300002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 04450002 GFBITS DC B'0' .SWITCHES FOR SPECIAL PROCESSING 04500002 GFKEYN08 EQU X'80' .ON IF CALLER NOT IN KEY 0 OR 8 (TELLS 04550002 * . IKJEFF19 NEED MODESET BEFORE LOOK AT CPPL 04600002 * . OR ISSUE PUTLINE SECOND LEVEL MESSAGE) 04650002 GFSUBSYS EQU X'40' .ON FOR VSAM IF USED VS2 VSAM/JOB ENTRY 04700002 * . SUBSYSTEM INTERFACE (FOR SYSOUT AND SYSIN 04750002 * . - SYNADAF INFORMATION MAY NOT BE GIVEN) 04800002 GFWTPSW EQU X'20' .ON IF ISSUE FAILURE MESSAGE(S) AS WRITE TO 04850002 * . PROGRAMMER, RATHER THAN DEFAULT OF PUTLINE 04900002 GFRESV1 DC XL1'0' .***RESERVED*** (UNUSED FIELDS MUST BE ZERO) 05000002 GFCPPLP DC A(0) .POINTER TO TMP'S CPPL CONTROL BLOCK IF WANT 05050002 * . TSO PUTLINE OR WANT TSO COMMAND/SUBCOMMAND 05100002 * . NAME INSERTED IN THE FAILURE MESSAGE 05150002 GFECBP DC A(0) .OPTIONAL POINTER TO ECB FOR PUTLINE 05200002 GFDSNLEN DC H'0' .LENGTH OF DATA SET NAME - CALLER MAY 05300002 * . SUPPLY DSNAME WHEN HAVE VSAM FAILURE. 05350002 * . DEFAULT IS DDNAME INSERT (ACB -> TIOT). 05370002 GFPGMNL DC H'0' .LENGTH OF PROGRAM NAME INSERT FOR FAILURE 05400002 * . MESSAGE. REQUIRED IF GFCPPLP=0, OTHERWISE 05450002 * . OPTIONAL (COMMAND NAME IS THE DEFAULT). 05500002 GFDSNP DC A(0) .POINTER TO DATA SET NAME (SEE GFDSNLEN) 05550002 GFPGMNP DC A(0) .POINTER TO PROGRAM NAME (SEE GFPGMNL) 05600002 GFRESV2 DC A(0) .***RESERVED*** 05650002 GFRESV3 DC A(0) .***RESERVED*** 05700002 GFEND EQU * .USE TO COMPUTE LENGTH 05750002 GFLENGF EQU GFEND-GFPARMS .LENGTH OF PARMLIST TO IKJEFF19 05800002 *********************************************************************** 05850002 MEND , */ 06000002 *%GFPLS2: ; 06050002 *%IF GFTYPE='' %THEN 06100002 *%GFTYPE='BDY(WORD)'; 06150002 * 06200002 * DCL 1 GFPARMS GFTYPE, /* <> */ 06250002 * 2 GFCBPTR PTR(31), /* REQUIRED FOR VSAM ERRORS (POINTER TO 06350002 * ACB IF ID FOR OPEN OR CLOSE, 06500002 * OTHERWISE TO RPL). 06540002 * REQUIRED FOR SSREQ ERROR (PTR TO 06580002 * SSOB). 06620002 * UNUSED FOR OTHER IDS. */ 06660002 * 2 GFRCODE FIXED(31), /* ERROR CODE (FROM REG.15) 06700002 * OR ABEND CODE */ 06750002 * 2 GF02PTR PTR(31), /* ADDRESS OF IKJEFF02 MESSAGE ISSUER 06800002 * ROUTINE OR ZERO (IF IKJEFF19 MUST 06850002 * LOAD IKJEFF02) */ 06900002 * 2 GFCALLID FIXED(15), /* ID FOR CALLER'S FAILURE (SEE 06950002 * CONSTANTS FOR POSSIBLE VALUES) */ 07050002 * 2 GFBITS BIT(8), /* SWITCHES FOR SPECIAL PROCESSING */ 07100002 * 3 GFKEYN08 BIT(1), /* ON IF CALLER NOT IN KEY 0 OR 8 07150002 * (TELLS IKJEFF19 NEED MODESET BEFORE 07200002 * LOOK AT CPPL OR ISSUE PUTLINE WITH 07250002 * SECOND LEVEL MESSAGE) */ 07300002 * 3 GFSUBSYS BIT(1), /* ON FOR VSAM IF USED VS2 VSAM/JOB ENTRY07350002 * SUBSYSTEM INTERFACE (FOR SYSOUT 07400002 * AND SYSIN, NO SYNADAF INFO GIVEN)*/ 07450002 * 3 GFWTPSW BIT(1), /* ON IF ISSUE MESSAGE(S) 07500002 * AS WRITE TO PROGRAMMER, RATHER 07550002 * THAN DEFAULT OF PUTLINE */ 07600002 * 3 * BIT(5), /* ***RESERVED*** (MUST ZERO ALL UNUSED 07650002 * FIELDS) */ 07670002 * 2 * PTR(8), /* ***RESERVED*** */ 07700002 * 2 GFCPPLP PTR(31), /* POINTER TO TMP'S CPPL CONTROL BLOCK 07750002 * IF WILL ISSUE TSO PUTLINE OR INSERT 07800002 * TSO COMMAND/SUBCOMMAND NAME IN THE 07850002 * MESSAGE */ 07900002 * 2 GFECBP PTR(31), /* OPTIONAL POINTER TO ECB FOR PUTLINE*/ 07950002 * 2 GFDSNLEN FIXED(15), /* LENGTH OF DATA SET NAME - CALLER MAY 08050002 * SUPPLY DSNAME FOR VSAM ID. DEFAULT 08100002 * IS DDNAME INSERT (ACB -> TIOT). */ 08120002 * 2 GFPGMNL FIXED(15), /* LENGTH OF PROGRAM NAME FOR INSERT 08150002 * INTO FAILURE MESSAGE. REQUIRED 08200002 * IF GFCPPLP=0, OTHERWISE OPTIONAL 08250002 * (COMMAND NAME IS THE DEFAULT). */ 08300002 * 2 GFDSNP PTR(31), /* POINTER TO DSNAME (SEE GFDSNLEN) */ 08350002 * 2 GFPGMNP PTR(31), /* PTR TO PROGRAM NAME (SEE GFPGMNL) */ 08450002 * 2 * PTR(31), /* ***RESERVED*** */ 08550002 * 2 * PTR(31); /* ***RESERVED*** */ 08600002 */********************************************************************/ 08650002 */* POSSIBLE VALUES FOR GFCALLID */ 08700002 */********************************************************************/ 08750002 * DCL GFCHECK FIXED(15) CONSTANT(1); /* VSAM CHECK MACRO ERROR */ 08800002 * DCL GFCLOSE FIXED(15) CONSTANT(2); /* VSAM CLOSE MACRO ERROR */ 08850002 * DCL GFENDREQ FIXED(15) CONSTANT(3); /* VSAM ENDREQ MACRO ERROR */ 08900002 * DCL GFERASE FIXED(15) CONSTANT(4); /* VSAM ERASE MACRO ERROR */ 08950002 * DCL GFGET FIXED(15) CONSTANT(5); /* VSAM GET MACRO ERROR */ 09000002 * DCL GFOPEN FIXED(15) CONSTANT(6); /* VSAM OPEN MACRO ERROR */ 09050002 * DCL GFPOINT FIXED(15) CONSTANT(7); /* VSAM POINT MACRO ERROR */ 09100002 * DCL GFPUT FIXED(15) CONSTANT(8); /* VSAM PUT MACRO ERROR */ 09150002 * DCL GFPARSE FIXED(15) CONSTANT(21); /* TSO PARSE SERVICE ROUTINE 09180002 * ERROR */ 09190002 * DCL GFPUTL FIXED(15) CONSTANT(22); /* TSO PUTLINE SERVICE ROUTINE 09200002 * ERROR */ 09210002 * DCL GFABEND FIXED(15) CONSTANT(31);/* ISSUE ABEND MESSAGE */ 09250002 * DCL GFSSREQ FIXED(15) CONSTANT(32);/* SUBSYSTEM INTERFACE REQUEST 09350002 * ERROR */ 09400002 */********************************************************************/ 09500002 */* END OF IKJEFFGF MAPPING MACRO */ 09550002 */********************************************************************/ 09600002