* %GOTO SSDDCMT;              /*                               @ZA34144 00050003
         MACRO                                                 @ZA34144 00100003
         IEFSSDD                                                        00150003
.*/ %SSDDCMT:;                /*                             @ZA34144*/ 00200003
*/********************************************************************/ 00250003
*/*  MACRO NAME =       IEFSSDD                              @ZA34144*/ 00300003
*/*  DESCRIPTIVE NAME = CHANGE DDNAME JES3 EXIT              @ZA34144*/ 00350003
*/*  STATUS =           SPLITOUT FROM IEFJSSOB               @ZA34144*/ 00400003
*/*  ACCESS METHOD =    INVOKED VIA IEFJSSOB MACRO           @ZA34144*/ 00450003
*/*  COPYRIGHT =        NONE                                 @ZA34144*/ 00500003
*/********************************************************************/ 00550003
* %GOTO SSDDPLS;              /*                               @ZA34144 00600003
*                                                                       00700003
SSOBDDCD EQU   26         CHANGE DDNAME FUNCTION ID(SSOBFUNC)  @Y02BPSD 00750003
*                                                                       00800003
*    CHANGE DDNAME RETURN CODES (SSOBRETN)                              00850003
*                                                                       00900003
*      NO CHANGE DDNAME RETURN CODES CURRENTLY DEFINED                  00950003
*                                                                       01000003
         ORG   SSOBGN             SSDD START                   @Y02BPSD 01050003
SSDDBGN  EQU   *                  CHANGE DDNAME BEGINNING      @Y02BPSD 01100003
SSDDLEN  DC    AL2(SSDDSIZE)      CHANGE DDNAME EXTENSION      @Y02BPSD 01150003
*                                 LENGTH                       @Y02BPSD 01200003
SSDDRSV0 DS    H                  RESERVED                     @Y02BPSD 01250003
SSDDNUMB DS    F                  NUMBER OF CHANGED DDNAMES    @Y02BPSD 01300003
SSDDNPTR DS    A                  POINTER TO DDNAME INFO       @Y02BPSD 01350003
SSDDRSV1 DS    F                  RESERVED                     @Y02BPSD 01400003
*                                                                       01450003
SSDDSIZE EQU   *-SSDDBGN          EXTENSION LENGTH             @Y02BPSD 01500003
SSOBLN13 EQU   SSOBHSIZ+SSDDSIZE  TOTAL SSOB LENGTH            @Y02BPSD 01550003
         MEND                                                @ZA34144*/ 01600003
* %SSDDPLS:;                                 /*              @ZA34144*/ 01630003
*    /*    FUNCTION IDS (SSOBFUNC)                                   */ 01700003
*  DCL SSOBDDCD FIXED(15) CONSTANT(26); /* CHANGE DDNAME ID  @Y02BPSD*/ 01750003
*     /*                                                             */ 01800003
*     /*  CHANGE DDNAME RETURN CODES (SSOBRETN) -                    */ 01850003
* /*                                                                 */ 01900003
* /*    NO CHANGE DDNAME RETURN CODES CURRENTLY DEFINED              */ 01950003
* /*                                                                 */ 02000003
*   /*   S S D D                                                     */ 02050003
*  DCL                                                                  02100003
*  1     SSDD       SSOBDD,       /* BEGINNING CHANGE DDNAME            02150003
*                                    SSOB EXTENSION          @Y02BPSD*/ 02200003
*    2     SSDDLEN  FIXED(15),    /* LENGTH OF SSDD          @Y02BPSD*/ 02250003
*    2     SSDDRSV0 FIXED(15),    /* RESERVED                @Y02BPSD*/ 02300003
*    2     SSDDNUMB FIXED(31),    /* NUMBER OF CHANGED DDNAMES          02350003
*                                                            @Y02BPSD*/ 02400003
*    2     SSDDNPTR PTR(31),      /* PTR TO DDNAME INFO      @Y02BPSD*/ 02450003
*    2     SSDDRSV1 FIXED(31);    /* RESERVED                @Y02BPSD*/ 02500003