* %GOTO DFPLS1; /* BILINGUAL MAPPING 00600002 MACRO 01200002 IKJEFFDF &DFDSECT=NO,&DFDSEC2=NO 01800000 .*A-000000-999999 Y02993 02400002 .*C-REL. 4 UPDATE CHANGES FOR LENGTH OF POSSIBLE VALUES @Z40NQKQ 02450000 .*C-IDNUM AND ALTERNATE NAME FOR IDNUM @Z40NQKQ 02500000 .*C-TWO BUFFERS FOR EXTRACTING MESSAGES @Z40GQKU 02550000 .*C198000 @ZA61225 02600000 AGO .DFBAL01 **SKIP PLS MACRO STATEMENT ** */ 03000002 *%DFPLS1: ; /* BAL/PLS HEADER 03600002 .DFBAL01 ANOP */ 04200002 */********************************************************************/ 04800002 */* */ 05400002 */* *** IKJEFFDF *** LEVEL=06/19/75 OS/VS2 RELEASE 4.0 */ 06000000 */* @Z40NQKJ*/ 06050000 */* DESCRIPTION - BILINGUAL MAPPING MACRO FOR IKJEFF18 PARAMETER */ 07200002 */* LIST (DYNAMIC ALLOCATION SVC99 FAILURES OR */ 07800002 */* DAIR FAILURES) */ 08400002 */* */ 09000002 */* FUNCTION - THE PARAMETER LIST IS THE INTERFACE */ 09600002 */* TO IKJEFF18 FROM CALLER WITH AN ERROR RETURN */ 10200002 */* FROM SVC99 OR DAIR */ 10800002 */* */ 11400002 */* REGISTER 1 CONTAINS THE ADDRESS OF DFPARMS */ 12000002 */* REGISTER 15 WILL CONTAIN IKJEFF18'S RETURN CODE */ 12600002 */* TO THE CALLER (0 IF MESSAGE(S) */ 13200002 */* ISSUED SUCCESSFULLY) */ 13800002 */* */ 14400002 */* METHOD OF ACCESS */ 15000002 */* PL/S - %DFTYPE='BDY(WORD)'- - - IF DON'T WANT BASED */ 15600002 */* (THIS IS THE DEFAULT) */ 16200002 */* %DFTYPE2='BASED(DFBUFP)' IF WANT TO HAVE @Z40GQKU*/ 16250000 */* BASED (THIS IS THE@Z40GQKU*/ 16300000 */* DEFAULT) @Z40GQKU*/ 16350000 */* %INCLUDE SYSLIB(IKJEFFDF) */ 17400002 */* */ 18000002 */* BAL - DFDSECT=YES IF DON'T WANT TO GET CORE */ 18600002 */* THEN CODE LA REG,MYDFCORE *CALLER AREA */ 19200002 */* USING DFDSECTD,REG @ZA61225*/ 19800000 */* DFDSECT=NO IS THE DEFAULT. */ 20400002 */* DFDSEC2=YES IF DON'T WANT TO GET CORE @Z40GQKU*/ 20450000 */* THEN CODE LA REG,MYDFCORE @Z40GQKU*/ 20500000 */* *CALLER AREA @Z40GQKU*/ 20550000 */* USING DFDSECT2,REG @Z40GQKU*/ 20600000 */* DFDSEC2=NO THIS IS THE DEFAULT @Z40GQKU*/ 20650000 */* */ 21000002 */* IKJEFFDF */ 21300002 */* */ 21600002 */* NOTES - IKJEFF18 WILL INDEX INTO THE S99RB FOR SVC 99 */ 22200002 */* ERRORS AND THE DAIR PARAMETER BLOCK FOR DAIR */ 22800002 */* ERRORS TO OBTAIN DSNAME, DDNAME, VOLSER,ETC, */ 23400002 */* INFORMATION WHICH MAY BE INSERTED INTO THE */ 24000002 */* OUTPUT MESSAGE */ 24600002 */* */ 25200002 */* F.E.'S - MICROFICHE LISTING IKJEFFDF */ 25800002 */* */ 26400002 */********************************************************************/ 27000002 * %GOTO DFPLS2; /* BAL ONLY FOLLOWS 28200002 .* SET UP DSECT CARD IF DFDSECT-YES ON MACRO 28800002 AIF ('&DFDSECT' EQ 'NO').DFBAL1 29400002 DFDSECTD DSECT 30000002 .DFBAL1 ANOP **MACRO STATEMENT** 30600002 DS 0F 31200002 DFPARMS EQU * 31800002 DFS99RBP DS A *ADDRESS OF THE FAILING SVC 99 32400000 * REQUEST BLOCK FOR SVC 99 ERRORS 33000002 DFDAPLP EQU DFS99RBP *ADDRESS OF THE FAILING DAIR 33600000 * PARAMETER LIST FOR DAIR ERRORS 34200002 DFRCP DS A *ADDRESS OF A FOUR BYTE STORAGE 34800000 * AREA CONTAINING THE SVC 99 OR 35400002 * THE DAIR REGISTER 15 RETURN CODE 36000002 DFJEFF02 DS A *ADDRESS OF A FOUR BYTE AREA 36600000 * WHICH CONTAINS EITHER THE ENTRY 37200002 * POINT ADDRESS OF IKJEFF02 37800002 * (MESSAGE WRITER FOR IKJEFF18) OR 38400002 * ZEROES IF ENTRY ADDRESS IS 39000002 * UNKNOWN 39600002 DFIDP DS A *ADDRESS OF A TWO BYTE AREA 40200000 * CONTAINING A CALLER IDENTIFIER 40800000 * NUMBER DESCRIBED BELOW @Z40GQKU 41400000 DFCPPLP DS A *ADDRESS OF THE CPPL - THIS IS 42000000 * NEEDED ONLY WHEN IKJEFF18 IS 46200002 * CALLED WITH AN SVC 99 ERROR 46800002 DFBUFP DS A *ADDRESS OF DFBUFS IF DFBUFSW OR 47400000 * DFBUFS2 ON @Z40GQKU 47450000 DFLEN EQU *-DFPARMS 48600002 ********************************************************************** 49200002 * POSSIBLE VALUES FOR THE CALLER IDENTIFIER POINTED TO BY DFIDP 49800002 ********************************************************************** 50400002 * 51000002 DFSVC99 EQU 50 GENERAL CALLER WITH AN SVC 99 51600002 * ERROR 51900002 DFFREE EQU 51 FREE COMMAND WITH AN SVC 99 52200002 * ERROR 52500002 DFDAIR EQU 1 GENERAL CALLER WITH A DAIR ERROR 52800002 * 52880002 DFWTP EQU X'80' THE HIGH ORDER BIT ON IN THE 52960002 * CALLER IDENTIFIER INDICATES 53040002 * A WRITE TO PROGRAMMER IS 53120002 * NEEDED INSTEAD OF THE DEFAULT 53200002 * PUTLINE 53280002 DFBUFSW EQU X'40' ON IF CALLER WANTS @Z40GQKU 53284000 * MESSAGE TEXT RETURNED IN@Z40GQKU 53288000 * BUFFERS INSTEAD OF @Z40GQKU 53292000 * DEFAULT PUTLINE @Z40GQKU 53296000 DFBUFS2 EQU X'20' ON IF WANT DFBUFSW @Z40GQKU 53300000 * FUNCTION PLUS PUTLINE @Z40GQKU 53304000 * (OR WTP) @Z40GQKU 53308000 */***********************************************************@Z40GQKU*/ 53312000 */* MAP OF CALLER-SUPPLIED BUFFERS POINTED TO BY DFBUFP @Z40GQKU*/ 53316000 */***********************************************************@Z40GQKU*/ 53320000 .* SET UP DSECT CARD IF DFDSEC2-YES ON MACRO @Z40GQKU 53324000 AIF ('&DFDSEC2' EQ 'NO').DFBAL2 @Z40GQKU 53328000 DFDSECT2 DSECT @Z40GQKU 53332000 .DFBAL2 ANOP **MACRO STATEMENT** @Z40GQKU 53336000 DFBUFS DS 0F (NEED NOT INITIALIZE) @Z40GQKU 53340000 DFBUF1 EQU * @Z40GQKU 53344000 DFBUFL1 DS FL2 LENGTH OF AREA USED IN @Z40GQKU 53348000 * DFBUF1 (INCLUDES DFBUFL1@Z40GQKU 53352000 * AND DFBUFO2 FIELDS) @Z40GQKU 53356000 DFBUFO1 DS FL2 OFFSET IS ZERO ON RETURN@Z40GQKU 53360000 DFBUFT1 DS CL251 TEXT OF FIRST LEVEL @Z40GQKU 53364000 * MESSAGE @Z40GQKU 53368000 DFBUF2 DS 0H @Z40GQKU 53372000 DFBUFL2 DS FL2 LENGTH (INCLUDES LLOO @Z40GQKU 53376000 * FIELDS) @Z40GQKU 53380000 DFBUFO2 DS FL2 OFFSET @Z40GQKU 53384000 DFBUFT2 DS CL251 TEXT OF SECOND LEVEL @Z40GQKU 53388000 * MESSAGE @Z40GQKU 53392000 DFLEN2 EQU *-DFBUFS LENGTH OF BUFFER PARMS @Z40GQKU 53396000 ********************************************************************** 53400002 * END OF IKJEFFDF MAPPING MACRO 54000002 ********************************************************************** 54600002 MEND , */ 55200002 *%DFPLS2: ; 55800002 *%IF DFTYPE='' %THEN 56400002 *%DFTYPE='BDY(WORD)'; 57000002 * DCL 1 DFPARMS DFTYPE, /* PARAMETER LIST TO IKJEFF18 */ 57600002 * 2 DFS99RBP PTR(31), /* ADDRESS OF THE FAILING SVC 99 58200002 * REQUEST BLOCK FOR SVC 99 58800002 * ERRORS */ 59400002 * 3 DFDAPLP PTR(31), /* ADDRESS OF THE FAILING DAIR 60000002 * PARAMETER LIST FOR DAIR 60600002 * ERRORS */ 61200002 * 2 DFRCP PTR(31), /* ADDRESS OF A FOUR BYTE 61800002 * STORAGE AREA CONTAINING THE 62400002 * SVC 99 OR THE DAIR REGISTER 63000002 * 15 RETURN CODE */ 63600002 * 2 DFJEFF02 PTR(31), /* ADDRESS OF A FOUR BYTE 64200002 * STORAGE AREA WHICH CONTAINS 64800002 * EITHER THE ENTRY POINT 65400002 * ADDRESS OF IKJEFF02 (MESSAGE 66000002 * WRITER FOR IKJEFF18) OR 66600002 * ZEROES IF ENTRY ADDRESS 67200002 * UNKNOWN */ 67800002 * 2 DFIDP PTR(31), /* ADDR OF DFID FIELD @Z40GQKU*/ 68400000 * 2 DFCPPLP PTR(31), /* ADDRESS OF THE CPPL - THIS 69000000 * IS NEEDED ONLY WHEN IKJEFF18 75000002 * IS CALLED WITH AN SVC 99 75600002 * ERROR */ 76200002 * 2 DFBUFP PTR(31); /* ADDRESS OF DFBUFS FIELD 76250000 * IF DFBUFSW OR DFBUFS2 76300000 * ON @Z40GQKU*/ 76350000 * 76800002 * /* IKJEFFDF - RETURN CODE, MESSAGE WRITER ENTRY AND */ 77400002 * /* CALLER IDENTIFIER POINTED TO BY DFPARMS */ 78000002 * 78300002 * DCL DFRC FIXED(31) BASED(DFRCP); /* RETURN CODE FROM SVC 99 78600002 * OR DAIR */ 79200002 * DCL DFMSGWTP PTR(31) BASED(DFJEFF02); /* ENTRY POINT ADDRESS OF 79800002 * IKJEFF02 OR ZEROES */ 80400002 * /* MAP OF THE CALLER IDENTIFIER AREA POINTED TO BY DFIDP */ 80700002 * DCL 1 DFID FIXED(15) BASED(DFIDP), /* CALLER IDENTIFIER */ 81000002 * 2 * BIT(8), /* FLAG AREA */ 81600002 * 3 DFWTP BIT(1), /* ON IF THE CALLER WANTS A 82200002 * WRITE TO PROGRAMMER INSTEAD 82800002 * OF A DEFAULT PUTLINE */ 83400002 * 3 DFBUFSW BIT(1), /* ON IF THE CALLER WANTS@Z40GQKU 83450000 * MESSAGE TEXT RETURNED @Z40GQKU 83500000 * IN BUFFERS INSTEAD OF @Z40GQKU 83550000 * A DEFAULT PUTLINE @Z40GQKU*/ 83600000 * 3 DFBUFS2 BIT(1), /* ON IF WANT DFBUFSW @Z40GQKU 83650000 * FUNCTION PLUS PUTLINE @Z40GQKU 83700000 * (OR WTP) @Z40GQKU*/ 83750000 * 3 * BIT(5), /* RESERVED - MUST BE ZERO */ 84000000 * 2 IDNUM FIXED(8), /* CALLER IDENTIFIER NUMBER 84050000 * (VALUES DESCRIBED BELOW) */ 84100000 * 3 DFIDNUM FIXED(8); /* ALTERNATE NAME 84600000 * FOR IDNUM @Z40NQKQ*/ 84650000 * /* POSSIBLE VALUES FOR IDNUM */ 85200002 * DCL DFSVC99 FIXED(8) CONSTANT(50); /* GENERAL CALLER WITH AN 85800000 * SVC 99 ERROR @Z40NQKQ*/ 85830000 * DCL DFFREE FIXED(8) CONSTANT(51); /* FREE COMMAND WITH AN 85860000 * SVC 99 ERROR @Z40NQKQ*/ 85890000 * DCL DFDAIR FIXED(8) CONSTANT(1); /* GENERAL CALLER WITH A 85920000 * DAIR ERROR @Z40NQKQ*/ 85950000 *%IF DFTYPE2='' %THEN /* @Z40GQKU*/ 85980000 *%DFTYPE2='BASED(DFBUFP)'; /* @Z40GQKU*/ 86010000 * /* MAP OF CALLER-SUPPLIED BUFFERS @Z40GQKU*/ 86040000 * DCL 1 DFBUFS DFTYPE2, /* (NEED NOT INITIALIZE) @Z40GQKU*/ 86070000 * 2 DFBUF1, /* FIRST EXTRACT BUFFER @Z40GQKU*/ 86100000 * 3 DFBUFL1 FIXED(15), /* LENGTH OF AREA USED IN@Z40GQKU 86130000 * DFBUF1 (INCLUDES @Z40GQKU 86160000 * DFBUFL1 AND DFBUFO1 @Z40GQKU 86190000 * LENGTHS) @Z40GQKU*/ 86220000 * 3 DFBUFO1 FIXED(15), /* OFFSET IS ZERO ON @Z40GQKU 86250000 * RETURN @Z40GQKU*/ 86400000 * 3 DFBUFT1 CHAR(251), /* TEXT OF FIRST LEVEL @Z40GQKU 86450000 * MESSAGE @Z40GQKU*/ 86500000 * 2 * CHAR(1), /* ALIGNMENT FACTOR @Z40GQKU*/ 86550000 * 2 DFBUF2 BDY(HWORD), /* SECOND EXTRACT BUFFER @Z40GQKU*/ 86600000 * 3 DFBUFL2 FIXED(15), /* LENGTH (INCLUDES LLOO @Z40GQKU 86650000 * FIELDS) @Z40GQKU*/ 86700000 * 3 DFBUFO2 FIXED(15), /* OFFSET @Z40GQKU*/ 86750000 * 3 DFBUFT2 CHAR(251); /* TEXT OF SECOND LEVEL @Z40GQKU 86800000 * MESSAGE @Z40GQKU*/ 86850000 */********************************************************************/ 89400002 */* END OF IKJEFFDF MAPPING MACRO */ 90000002 */********************************************************************/ 90600002