* %GOTO SSUSCMT; /* @ZA34144 00050003 MACRO @ZA34144 00100003 IEFSSUS 00150003 .*/ %SSUSCMT:; /* @ZA34144*/ 00200003 */********************************************************************/ 00250003 */* MACRO NAME = IEFSSUS @ZA34144*/ 00300003 */* DESCRIPTIVE NAME = REMOTE DESTINATION VALIDITY CHECK @ZA34144*/ 00350003 */* STATUS = SPLITOUT FROM IEFJSSOB @ZA34144*/ 00400003 */* ACCESS METHOD = INVOKED VIA IEFJSSOB MACRO @ZA34144*/ 00450003 */* COPYRIGHT = NONE @ZA34144*/ 00500003 */********************************************************************/ 00550003 * %GOTO SSUSPLS; /* @ZA34144 00600003 * 00700003 SSOBUSER EQU 11 REMOTE DEST FUNCTION ID (SSOBFUNC) 00750003 * 00800003 * REMOTE DESTINATION VALIDITY CHECK RETURN CODES (SSOBRETN) 00850003 * 00900003 SSUSRTOK EQU 0 VALID REQUEST 00950003 SSUSNOUS EQU 4 INVALID DESTINATION 01000003 SSUSINCP EQU 8 SUBSYSTEM COULD NOT COMPLETE THE 01050003 * VALIDITY CHECK 01100003 * 01150003 ORG SSOBGN 01200003 SSUSBGN EQU * 01250003 SSUSLEN DC AL2(SSUSIZE) REMOTE DESTINATION EXTENSION LENGTH 01300003 SSUSRESV DS H RESERVED 01350003 SSUSRSV1 DS F RESERVED 01400003 SSUSUSER DS CL8 REMOTE DESTINATION TO BE VERIFIED 01450003 * 01500003 SSUSIZE EQU *-SSUSBGN REMOTE DESTINATION EXTENSION LENGTH 01550003 SSOBLEN8 EQU SSOBHSIZ+SSUSIZE TOTAL SSOB LENGTH 01600003 MEND @ZA34144*/ 01650003 * %SSUSPLS:; /* @ZA34144*/ 01680003 * DCL SSOBUSER FIXED(15) CONSTANT(11); /* REMOTE DESTINATION 01750003 * FUNCTION ID (SSOBFUNC) */ 01800003 * /* */ 01850003 * /* REMOTE DESTINATION VALIDITY CHECK RETURN CODES (SSOBRETN) */ 01900003 * /* */ 01950003 * DCL SSUSRTOK FIXED(31) CONSTANT(0); /* VALID REQUEST */ 02000003 * DCL SSUSNOUS FIXED(31) CONSTANT(4); /* INVALID DESTINATION */ 02050003 * DCL SSUSINCP FIXED(31) CONSTANT(8); /* SUBSYSTEM COULD NOT 02100003 * COMPLETE THE VALIDITY CHECK */ 02150003 * /* S S U S */ 02200003 *DECLARE 02250003 * 1 SSUS SSOBUS, 02300003 * 2 SSUSLEN FIXED(15),/* LENGH OF SSUS */ 02350003 * 2 * FIXED(15),/* RESERVED */ 02400003 * 2 * FIXED(31),/* RESERVED */ 02450003 * 2 SSUSUSER CHAR(8); /* REMOTE DEST TO BE VERIFIED */ 02500003