*        %GOTO PLSUSSD;                 /*                              00050010
         MACRO                                                          00100010
         TUSSDD                                                         00150010
.*A000000-999999                                               @Y17XAXF 00200010
*                                                                       00250010
*        USS->FSS VALUE ENTRY DSECT                                     00300010
*                                                                       00350010
IEDUSSD  DSECT                                                          00400010
USSDFLAG DS    BL1 .                    FLAG BYTE                       00450010
USSDVLEN DS    XL1 .                    LENGTH OF VALUE NAME OR         00500010
*                                        ZERO IF USER DATA TO BE        00550010
*                                        PROVIDED                       00600010
USSDRLEN DS    XL1 .                    LENGTH OF REPLACEMENT OR        00650010
*                                        DEFAULT DATA                   00700010
*                                        (IF ZERO USED USER'S           00750010
*                                         INPUT)                        00800010
USSDVAL  EQU   *                        VALUE NAME OR NULL              00850010
USSDREP  EQU   *                        REPLACEMENT OR DEFAULT DATA     00900010
         MEND  */                                                       00950010
*%PLSUSSD:;                                                             01000010
*/*                                                                  */ 01050010
*/*      USS->FSS VALUE ENTRY DSECT                                  */ 01100010
*/*                                                                  */ 01150010
* DECLARE                                                               01200010
* 1 IEDUSSD BASED(USSDB),                                               01250010
*  2 USSDFLAG BIT(8),                   /* FLAG BYTE                 */ 01300010
*    3 USSDTYPE BIT(3),                 /* ENTRY TYPE = VALUE ENTRY  */ 01350010
*    3 USSDFMT BIT(1),                  /* IEDQFM USAGE FLAG         */ 01400010
*  2 USSDVLEN FIXED(8),                 /* LENGTH OF VALUE NAME OR      01450010
*                                          ZERO IF USER DATA TO BE      01500010
*                                          PROVIDED                  */ 01550010
*  2 USSDRLEN FIXED(8),                 /* LENGTH OF REPLACEMENT OR     01600010
*                                          DEFAULT DATA                 01650010
*                                          (IF ZERO USED USER'S         01700010
*                                           INPUT)                   */ 01750010
*  2 USSDVAL  CHAR(*);                  /* VALUE NAME OR NULL        */ 01800010
* DECLARE                                                               01850010
*   USSDREP  CHAR(*) DEFINED(USSDVAL); /* REPLACEMENT OR DEFAULT        01900010
*                                          DATA                      */ 01950010