*/*A000000-999999 @Z67SP00*/ 00000100 *%GOTO UXPPLS00; /* SKIP OVER ASSEMBLER VERSION 00000300 MACRO 00000600 HMASMUXP &UXPALL=Y,&UXPMAIN=N,&UXPRTN=N,&UXP001=N, @IR09435X00000900 &UXP002=N @IR09435 00001000 LCLC &UXPLALL 00001100 GBLB &UXPSW1 00001200 AIF ('&UXPMAIN' EQ 'Y').UXPLB00 00001300 AIF ('&UXPRTN' EQ 'Y').UXPLB00 00001500 AIF ('&UXP001' EQ 'Y').UXPLB00 00001800 AIF ('&UXP002' EQ 'Y').UXPLB00 @IR09435 00001900 &UXPLALL SETC 'Y' 00002100 AGO .UXPLB02 00002400 .UXPLB00 ANOP 00002500 &UXPLALL SETC 'N' 00002600 .UXPLB02 ANOP 00002700 AIF ('&UXPSW1' EQ '1').UXPLB01 00003000 &UXPSW1 SETB 1 00003300 *********************************************************************** 00003600 * * 00003900 * HMASMUXP - HMASMP USER EXIT INTERFACE PARAMETER MAPPING * 00004200 * * 00004500 *********************************************************************** 00004800 * * 00005100 * THIS MACRO MAPS THE PARAMETER LIST THAT HMASMP USES TO INTERFACE * 00005400 * WITH ALL ITS SUPPORTED USER EXITS. * 00005700 * THE MACRO IS DIVIDED UP INTO MULTIPLE DSECTS, ONE FOR THE * 00006000 * COMMON PARAMETER LIST, AND ONE FOR EACH USER EXIT WITH A * 00006300 * SPECIFIC PARAMETER FOR THAT EXIT. THE EXPANSION IS CONTROLLED * 00006600 * BY THE FOLLOWING PARAMETERS THAT MAY BE SET TO Y OR N * 00006900 * * 00007200 * ..NAME.. DEFAULT MEANING * 00007500 * UXPALL Y EXPANSION TO INCLUDE ALL DSECTS * 00007800 * UXPMAIN N EXPANSION TO INCLUDE MAIN SECTION * 00008100 * UXPRTN N EXPANSION TO INCLUDE RETURN CODES * 00008400 * UXP001 N EXPANSION TO INCLUDE EXIT 001 PARM * 00008700 * UXP002 N EXPANSION TO INCLUDE EXIT 002 PARM @IR09435* 00008800 * * 00009000 * ONLY THOSE RETURN CODES DEFINED WITHIN THIS MACRO WILL BE * 00009300 * ACCEPTED BY HMASMP. ANY OTHER CODE WILL RESULT IN AN ERROR. * 00009600 * * 00009900 * TO ESTABLISH ADDRESSIBILITY FOR ANY SECTION THE FOLLOWING * 00010200 * SHOULD BE DONE UPON ENTRY * 00010500 * * 00010800 * L REGA,0(REG1) LOAD ADDRESS OF HMASMUXP * 00011100 * USING HMASMUXP,REGA ADDRESSIBILITY FOR HMASMUXP * 00011400 * L REGB,UXPPRMAD LOAD ADDRESS OF PARM FOR SPECIFIC EXIT * 00011700 * USING UXNNNPRM,REGB ADDRESSIBILITY FOR SPECIFIC PARM FOR * 00012000 * THIS EXIT. NNN IS EXIT NUMBER * 00012300 * * 00012600 * THE LISTS POINTED TO BY UXPCTBAD AND UXPMODAD ARE INTENDED * 00012900 * FOR FUTURE USE TO POINT TO THE INTERNAL SMP CONTROL * 00013000 * BLOCKS AND SMP MODULES ACCESSIBLE BY THE USER. * 00013100 * AT PRESENT NO SUPPORT IS AVAILABLE AND THESE ADDRESSES * 00013200 * WILL BE SET TO ZERO. * 00013300 * * 00013400 * CHANGE_ACTIVITY = HMASMP RELEASE 04.10 @IR09435* 00013500 * * 00013600 * 04.00 - Z67SP00, INITIAL LEVEL OF SMP RELEASE 04 * 00013700 * 04.10 - IR09435, X37 RETRY USER EXIT SUPPORT @IR09435* 00013800 * * 00013900 *********************************************************************** 00014000 .UXPLB01 ANOP 00014100 AIF ('&UXPLALL' EQ 'Y').UXPMN00 00014200 AIF ('&UXPMAIN' NE 'Y').UXPMN99 00014300 .UXPMN00 ANOP 00014400 HMASMUXP DSECT 00014700 UXPUXNUM DS H USER EXIT NUMBER 00015000 DS CL2 RESERVED 00015300 UXPUXNAM DS CL8 USER EXIT LMOD NAME(IF AVAILABLE) 00015600 UXPUXAD DS F USER EXIT ADDRESS (IF AVAILABLE) 00015900 UXPFUNCT DS CL8 SMP FUNCTION IN PROCESS 00016200 UXPPRMAD DS F ADDRESS OF PARAMETER FOR SPECIFIC 00016500 * EXIT IDENTIFIED BY UXPUXNUM 00016800 UXPLOJAD DS F WORK AREA FOR COMMUNICATIONS FOR 00017100 * LIFE OF SMP JOB. AREA IS 00017400 * INITIALIZED TO ZERO BEFORE 00017700 * FIRST USER EXIT CALL AND THEN NOT 00018000 * MODIFIED AGAIN BY HMASMP. 00018300 UXPLOEAD DS F WORK AREA FOR COMMUNICATIONS FOR 00018600 * LIFE OF EXIT. AREA IS INITIALIZED 00018900 * TO ZERO BEFORE FIRST CALL AFTER 00019200 * EACH LOGICAL LOAD OF THE EXIT AND 00019500 * THEN NOT MODIFIED AGAIN BY HMASMP. 00019800 DS F RESERVED 00020100 DS F RESERVED 00020400 ********* END OF HMASMUXP MAPPING 00020700 .UXPMN99 ANOP 00021000 AIF ('&UXPLALL' EQ 'Y').UXPRC00 00021300 AIF ('&UXPRTN' NE 'Y').UXPRC99 00021600 .UXPRC00 ANOP 00021900 *********************************************************************** 00022200 * * 00022500 * RETURN CODE DEFINITIONS * 00022800 * * 00023100 *********************************************************************** 00023400 * * 00023700 * THESE RETURN CODES ARE ACCEPTABLE FROM ALL HMASMP EXITS * 00024000 * * 00024300 UXPGOOD EQU 0 EXIT PROCESSED NORMALLY 00024600 UXPTPTF EQU 8 TERMINATE SYSMOD IN PROCESS 00024900 UXPTFUNC EQU 12 TERMINATE FUNCTION IN PROCESS 00025200 UXPTSMP EQU 16 TERMINATE SMP 00025500 * THESE RETURN CODES ARE ACCEPTABLE FOR ONLY SPECIFIC EXITS 00025800 * SEE EACH EXIT FOR DEFINITION OF ADDITIONAL RETURN CODES 00026100 UXPADD EQU 20 ADD A RECORD 00026400 UXPDEL EQU 24 DELETE A RECORD 00026700 UXPRNC EQU 20 RETRY WITHOUT COMPRESSING @IR09435 00026800 ******** END OF UXP RETURN CODE DEFINITIONS 00026900 .UXPRC99 ANOP 00027000 AIF ('&UXPLALL' EQ 'Y').UXP0100 00027300 AIF ('&UXP001' NE 'Y').UXP0199 00027600 .UXP0100 ANOP 00027900 *********************************************************************** 00028200 * * 00028500 * HMASMP EXIT 001 - RECEIVE SMPPTFIN SCAN EXIT * 00028800 * * 00029100 * FUNCTION - RECEIVE TIME EXIT TO LOOK AT ALL SMPPTFIN * 00029400 * INPUT CARDS PRIOR TO PROCESSING BY HMASMP * 00029700 * RTN CODE - IN ADDITION TO STANDARD * 00030000 * UXPADD - RETURN TO USER EXIT AFTER PROCESSING * 00030300 * CURRENT RECORD. EXIT WILL PUT NEXT RECORD * 00030600 * INTO BUFFER. * 00030900 * UXPDEL - DO NOT PROCESS CURRENT RECORD. READ NEXT * 00031200 * RECORD AND RETURN TO EXIT. * 00031500 * NOTES - WHEN HMASMP HITS END OF FILE ON SMPPTFIN IT WILL SET * 00031800 * UX001RC TO UX001EOF AND CALL EXIT. THE EXIT MAY * 00032100 * ADD RECORDS AFTER END OF FILE BY SETTING THE * 00032400 * RETURN CODE TO UXPADD AND RETURNING. AT THE NEXT * 00032700 * ENTRY THE EXIT MAY START TO ADD RECORDS. * 00033000 * * 00033300 *********************************************************************** 00033600 UXPUX001 EQU 1 VALUE FOR UXPUXNUM TO IDENTIFY 00033900 * REQUEST FOR RECEIVE USER EXIT 00034200 UX001PRM DSECT 00034500 UX001RC DS CL1 CODE INDICATOR SET TO UX001EOF AT 00034800 * END OF FILE ELSE SET TO 0 00035100 UX001RCD DS CL80 SMPPTFIN RECORD 00035400 UX001EOF EQU 4 END OF FILE CODE FOR UX001RC 00035700 ********* END OF UXPUX001 MAPPING 00035900 .UXP0199 ANOP . . 00036300 AIF ('&UXPLALL' EQ 'Y').UXP0200 @IR09435 00036600 AIF ('&UXP002' NE 'Y').UXP0299 @IR09435 00036900 .UXP0200 ANOP 00037200 **************************************************************@IR09435* 00037500 * @IR09435* 00037800 * HMASMP EXIT 002 - RETRY USER EXIT @IR09435* 00038100 * @IR09435* 00038400 * FUNCTION - AFTER SMP HAS DETERMINED THAT A RETRY CAN @IR09435* 00038700 * BE ATTEMPTED (COMPRESS AND RE-INVOKE THE @IR09435* 00039000 * FAILING UTILITY), THE USER EXIT IS CALLED @IR09435* 00039300 * TO DETERMINE IF THE USER WISHES TO PER- @IR09435* 00039600 * FORM THE RETRY. @IR09435* 00039900 * RTN CODE - IN ADDITION TO STANDARD @IR09435* 00040200 * UXPRNC - PERFORM THE RETRY (RE-INVOKE THE @IR09435* 00040500 * FAILING UTILITY) WITHOUT FIRST @IR09435* 00040800 * COMPRESSING THE DATA SET. @IR09435* 00041100 * NOTE: THE STANDARD RETURN CODE OF UXPPTF @IR09435* 00041400 * IS INVALID FOR THE RETRY USER EXIT. @IR09435* 00041700 * @IR09435* 00042000 **************************************************************@IR09435* 00042300 UXPUX002 EQU 2 VALUE FOR UXPUXNUM TO @IR09435 00042600 * IDENTIFY REQUEST FOR @IR09435 00042900 * RETRY USER EXIT @IR09435 00043200 UX002PRM DSECT @IR09435 00043500 UX002DDN DS CL8 FAILING DDNAME @IR09435 00043800 UX002PGM DS CL8 FAILING UTILITY NAME @IR09435 00044100 UX002ACH DS XL3 ABEND CODE IN HEX (SAME @IR09435 00044400 * FORMAT AS SDWA FIELD @IR09435 00044700 * SDWACMPC) @IR09435 00045000 UX002RCH DS XL1 ABEND REASON CODE IN HEX @IR09435 00045300 UX002ACP DS CL3 ABEND CODE IN EBCDIC @IR09435 00045600 UX002RCP DS CL2 ABEND REASON CODE IN EBCDIC @IR09435 00045900 UX002LTH EQU *-UX002PRM LENGTH OF EXIT 002 PLIST @IR09435 00046200 ********* END OF UXPUX002 MAPPING @IR09435 00046500 .UXP0299 ANOP . . @IR09435 00046800 MEND END OF ASSEMBLER VERSION */ 00047100 *%UXPPLS00: ; 00047400 *@EJECT; /* */ 00048000 */********************************************************************/ 00050000 */* */ 00100000 */* HMASMUXP - PARAMETER LIST TO HMASMP USER EXIT ROUTINES */ 00150000 */* */ 00200000 */********************************************************************/ 00250000 */* */ 00300000 */* THIS MACRO IS USED BY HMASMP TO INTERFACE WITH THE SMP */ 00350000 */* INTERFACE ROUTINE TO THE USER EXITS AND FOR THE */ 00400000 */* INTERFACE ROUTINE TO CALL THE USER EXIT ROUTINE. */ 00450000 */* */ 00500000 */* THE LISTS POINTED TO BY UXPCTBAD AND UXPMODAD ARE INTENDED */ 00550000 */* FOR FUTURE USE TO POINT TO THE INTERNAL SMP CONTROL */ 00600000 */* BLOCKS AND SMP MODULES ACCESSIBLE BY THE USER. */ 00650000 */* AT PRESENT NO SUPPORT IS AVAILABLE AND THESE ADDRESSES */ 00700000 */* WILL BE SET TO ZERO. */ 00750000 */* */ 00800000 */* ONLY THOSE RETURN CODES DEFINED WITHIN THIS MACRO WILL BE */ 00850000 */* ACCEPTED BY HMASMP. IF ANY OTHER VALUES IS RETURNED */ 00900000 */* HMASMP WILL ISSUE AN ERROR MESSAGE AND TERMINATE THE */ 00950000 */* CURRENT FUNCTION. */ 01000000 */* */ 01050000 */* THE EXPANSION OF THIS MACRO IS CONTROLLED BY THE FOLLOWING */ 01100000 */* PLS MACRO VARIABLES. */ 01150000 */* */ 01200000 */* UXP_ALL - REQUEST FOR ALL PARMS FOR ALL USER EXIT ROUTINES */ 01250000 */* SET TO -YES- INDICATE ALL REQUEST. */ 01258000 */* THE EXPANSION WILL THEN INCLUDE ALL OF FOLLOWING */ 01266000 */* UXP_MAIN - REQUEST FOR MAIN MAPPING OF PARM TO ACTUAL */ 01274000 */* USER EXIT */ 01282000 */* UXP_RTN - REQUEST FOR EXPANSION OF VALID RETURN CODE */ 01290000 */* CONSTANTS. */ 01298000 */* UXP_001 - REQUEST FOR MAPPING OF PARM FOR RECEIVE EXIT */ 01306000 */* SET TO -YES- INDICATE REQUEST FOR ONLY THE */ 01324000 */* PARAMETER LIST AND VALUE DECLARE FOR THE */ 01327000 */* RECEIVE USER EXIT ( SMP EXIT 001 ) */ 01330000 */* UXP_002 - REQUEST FOR MAPPING OF PARM FOR RETRY @IR09435*/ 01330400 */* EXIT SET TO -YES- INDICATES REQUEST FOR @IR09435*/ 01330800 */* ONLY THE PARAMETER LIST AND VALUE @IR09435*/ 01331200 */* DECLARE FOR THE RETRY USER EXIT (SMP @IR09435*/ 01331600 */* EXIT 002) @IR09435*/ 01332000 */* */ 01333000 */* NOTE... - AT LEAST ONE OF THE ABOVE VARIABLES MUST */ 01333700 */* BE SET */ 01334400 */* */ 01335100 */* UXP_XXX_BASE - FOR EACH OF THE ABOVE SECTIONS THERE IS */ 01336000 */* AN ADDITIONAL VARIABLE TO CONTROL THE */ 01346000 */* ATTRIBUTES OF THE EXPANSION. XXX IS EQUAL TO */ 01356000 */* THE SECOND QUALIFIER OF THE ABOVE VARIABLES. */ 01366000 */* */ 01376000 */* CHANGE_ACTIVITY = HMASMP RELEASE 04.10 @IR09435*/ 01377600 */* */ 01379200 */* 04.00 - Z67SP00, INITIAL LEVEL OF SMP RELEASE 04 */ 01380800 */* 04.10 - IR09435, X37 RETRY USER EXIT SUPPORT @IR09435*/ 01382400 */* */ 01384000 */********************************************************************/ 01386000 *%IF UXP_MAIN_BASE='' /* */ 01396000 * %THEN /* */ 01426000 * %UXP_MAIN_BASE=UXP_ALL_BASE; /* */ 01456000 *%IF UXP_ALL='YES' /* IF REQUEST FOR ALL PARTS */ 01486000 * %THEN /* */ 01516000 * %GOTO UXPMN01; /* */ 01546000 *%IF UXP_MAIN='YES' /* IF REQUEST FOR MAIN SEGMENT */ 01576000 * %THEN /* */ 01606000 * %GOTO UXPMN01; /* */ 01636000 *%GOTO UXPMN99; /* */ 01666000 *%UXPMN01: ; /* */ 01696000 * DECLARE /* */ 01726000 * 1 HMASMUXP BDY(WORD) 01756000 * UXP_MAIN_BASE 01786000 * , /* */ 01850000 * 3 UXPUXNUM FIXED(15), /* USER EXIT IDENTIFICATION */ 01900000 * 3 * CHAR(2), /* UNUSED */ 01930000 * 3 UXPUXNAM CHAR(8), /* USER EXIT NAME */ 01960000 * 3 UXPUXAD PTR(31), /* USER EXIT ADDRESS */ 01990000 * 3 UXPFUNCT CHAR(8), /* SMP FUNCTION IN PROCESS */ 02020000 * 3 UXPPRMAD PTR(31), /* ADDR OF USER EXIT PARM LIST */ 02100000 * 3 UXPLOJAD PTR(31), /* FOR USE BY USER EXITS */ 02150000 * 3 UXPLOEAD PTR(31), /* FOR USE BY USER EXITS */ 02180000 * 3 UXPCTBAD PTR(31), /* ADDR OF SMP CONTROL BLOCKS */ 02250000 * 3 UXPMODAD PTR(31); /* ADDR OF SMP MODULES */ 02300000 *%UXPMN99: ; /* */ 02350000 *%IF UXP_ALL='YES' /* IF REQUEST FOR ALL PARTS */ 02350800 * %THEN /* */ 02351600 * %GOTO UXPRTN01; /* */ 02352400 *%IF UXP_RTN='YES' /* IF REQUEST FOR RETURN CODES */ 02353200 * %THEN /* */ 02354000 * %GOTO UXPRTN01; /* */ 02354800 *%GOTO UXPRTN99; /* */ 02355600 *%UXPRTN01: ; /* */ 02358000 */********************************************************************/ 02370000 */* */ 02372000 */* THESE ARE THE COMMON RETURN CODES THAT MAY BE RETURNED FROM */ 02374000 */* ANY OF THE HMASMP USER EXITS */ 02376000 */* */ 02378000 */********************************************************************/ 02380000 * 02382000 * DECLARE /* */ 02400000 * UXPGOOD CONSTANT(0), /* PROCESSING COMPLETED OK */ 02450000 * UXPTPTF CONSTANT(8), /* TERMINATE SYSMOD */ 02500000 * UXPTFUNC CONSTANT(12), /* TERMINATE FUNCTION */ 02550000 * UXPTSMP CONSTANT(16); /* TERMINATE SMP */ 02600000 * 02650000 */********************************************************************/ 02700000 */* */ 02750000 */* THESE RETURN CODES ARE ACCEPTABLE FOR ONLY SPECIFIC EXITS. */ 02800000 */* SEE EACH EXIT FOR THE DEFINITION OF ADDITIONAL RETURN CODES. */ 02850000 */* */ 02900000 */********************************************************************/ 02950000 * 03000000 * DECLARE /* */ 03050000 * UXPADD CONSTANT(20), /* ADD RCD AFTER CURRENT ONE */ 03100000 * UXPDEL CONSTANT(24), /* DELETE CURRENT RECORD */ 03150000 * UXPRNC CONSTANT(20); /* RETRY WITHOUT @IR09435*/ 03200000 * /* COMPRESSING @IR09435*/ 03250000 *%UXPRTN99: ; /* */ 03300000 *%IF UXP_001_BASE='' /* IF NO 001 BASE THEN USE ALL */ 03330000 * %THEN /* */ 03360000 * %UXP_001_BASE=UXP_ALL_BASE; /* */ 03390000 *%IF UXP_ALL='YES' /* IF TOTAL UXP LIST REQUESTED */ 03420000 * %THEN /* */ 03450000 * %GOTO UXP00101; /* */ 03480000 *%IF UXP_001='YES' /* IF EXIT 001 PARM REQUESTED */ 03510000 * %THEN /* */ 03540000 * %GOTO UXP00101; /* */ 03570000 *%GOTO UXP00199; /* */ 03600000 *%UXP00101: ; /* */ 03630000 *@EJECT; /* */ 03750000 */********************************************************************/ 03800000 */* */ 03850000 */* HMASMP EXIT 001 */ 03900000 */* */ 03950000 */* FUNCTION - RECEIVE TIME EXIT TO LOOK AT ALL SMPPTFIN */ 04000000 */* CONTROL CARDS PRIOR TO PROCESSING BY HMASMP. */ 04050000 */* RTN CODE - IN ADDITION TO STANDARD */ 04100000 */* UXPADD - RETURN TO USER EXIT AFTER PROCESSSING */ 04150000 */* CURRENT RECORD BUT BEFORE READING NEXT */ 04200000 */* RECORD. */ 04250000 */* USER EXIT WILL ADD A RECORD TO BUFFER */ 04300000 */* TO BE PROCESSED DURING SECOND CALL. */ 04350000 */* UXPDEL - DO NOT PROCESS CURRENT RECORD IN BUFFER. */ 04400000 */* READ NEXT RECORD AND RETURN TO EXIT. */ 04450000 */* NOTES - WHEN HMASMP HITS END OF FILE ON SMPPTFIN IT WILL */ 04500000 */* SET UX001RC TO UX001EOF AND CALL EXIT. THE EXIT */ 04550000 */* MAY CONTINUE TO ADD RECORDS AFTER END OF FILE BY */ 04600000 */* RETURNING CODE UXPADD IN REGISTER 15. WHEN A */ 04650000 */* RETURN CODE UXPGOOD IS RETURN SMP WILL CONTINUE */ 04700000 */* WITH NORMAL EOF PROCESSING. */ 04750000 */* */ 04800000 */********************************************************************/ 04850000 * 04900000 * DECLARE /* */ 04950000 * UXPUX001 FIXED(15) CONSTANT(1);/* RECEIVE USER EXIT - VALUE SET 05000000 * UXPUXNUM UPON ENTRY */ 05040000 * DECLARE /* */ 05080000 * 1 UX001PRM 05120000 * UXP_001_BASE 05160000 * , /* */ 05250000 * 3 UX001RC FIXED(8), /* SET TO UX001EOF AT END OF FILE*/ 05300000 * 3 UX001RCD CHAR(80); /* SMPPTFIN RECORD */ 05350000 * DECLARE /* */ 05400000 * UX001EOF FIXED(8) CONSTANT(4);/* TO INDICATE END OF FILE */ 05450000 *%UXP00199: ; /* */ 05500014 *%IF UXP_002_BASE='' /* IF NO 002 BASE THEN @IR09435*/ 05550000 * %THEN /* USE ALL @IR09435*/ 05600000 * %UXP_002_BASE=UXP_ALL_BASE; /* @IR09435*/ 05650000 *%IF UXP_ALL='YES' /* IF TOTAL UXP LIST @IR09435*/ 05700000 * %THEN /* REQUESTED @IR09435*/ 05750000 * %GOTO UXP00201; /* @IR09435*/ 05800000 *%IF UXP_002='YES' /* IF EXIT 002 PARM @IR09435*/ 05850000 * %THEN /* REQUESTED @IR09435*/ 05900000 * %GOTO UXP00201; /* @IR09435*/ 05950000 *%GOTO UXP00299; /* @IR09435*/ 06000000 *%UXP00201: ; /* @IR09435*/ 06050000 *@EJECT; /* @IR09435*/ 06100000 */***********************************************************@IR09435*/ 06150000 */* @IR09435*/ 06200000 */* HMASMP EXIT 002 - RETRY USER EXIT @IR09435*/ 06250000 */* @IR09435*/ 06300000 */* FUNCTION - AFTER SMP HAS DETERMINED THAT A RETRY CAN @IR09435*/ 06350000 */* BE ATTEMPTED (COMPRESS AND RE-INVOKE THE @IR09435*/ 06400000 */* FAILING UTILITY), THE USER EXIT IS CALLED @IR09435*/ 06450000 */* TO DETERMINE IF THE USER WISHES TO PER- @IR09435*/ 06500000 */* FORM THE RETRY. @IR09435*/ 06550000 */* RTN CODE - IN ADDITION TO STANDARD @IR09435*/ 06600000 */* UXPRNC - PERFORM THE RETRY (RE-INVOKE THE @IR09435*/ 06650000 */* FAILING UTILITY) WITHOUT FIRST @IR09435*/ 06700000 */* COMPRESSING THE DATA SET. @IR09435*/ 06750000 */* NOTE: THE STANDARD RETURN CODE OF UXPPTF @IR09435*/ 06800000 */* IS INVALID FOR THE RETRY USER EXIT. @IR09435*/ 06850000 */* @IR09435*/ 06900000 */***********************************************************@IR09435*/ 06950000 * 07000000 * DECLARE /* */ 07050000 * UXPUX002 FIXED(15) CONSTANT(2);/* RETRY USER EXIT - @IR09435*/ 07100000 * /* VALUE FOR UXPUXNUM TO @IR09435*/ 07150000 * /* IDENTIFY USER EXIT @IR09435*/ 07200000 * DECLARE /* @IR09435*/ 07250000 * 1 UX002PRM /* @IR09435*/ 07300000 * UXP_002_BASE 07350000 * , 07400000 * 3 UX002DDN CHAR(8), /* FAILING DDNAME @IR09435*/ 07450000 * 3 UX002PGM CHAR(8), /* FAILING UTILITY NAME @IR09435*/ 07500000 * 3 UX002ACH BIT(24), /* ABEND CODE IN HEX @IR09435*/ 07550000 * /* (SAME FORMAT AS SDWA @IR09435*/ 07600000 * /* FIELD SDWACMPC) @IR09435*/ 07650000 * 3 UX002RCH BIT(8), /* ABEND REASON CODE @IR09435*/ 07700000 * /* IN HEX @IR09435*/ 07750000 * 3 UX002ACP CHAR(3), /* ABEND CODE IN EBCDIC @IR09435*/ 07800000 * 3 UX002RCP CHAR(2); /* ABEND REASON CODE @IR09435*/ 07850000 * /* IN EBCDIC @IR09435*/ 07900000 * 07950000 * DECLARE /* @IR09435*/ 08000000 * UX002LTH FIXED(8) /* LENGTH OF EXIT 002 @IR09435*/ 08050000 * INIT(LENGTH(UX002PRM)); /* PLIST @IR09435*/ 08100000 *%UXP00299: ; /* @IR09435*/ 08150000