*        %GOTO PLSUSSK;                 /*                              00100010
         MACRO                                                          00200010
         TUSSKD                                                         00300010
.*A0000000-999999                                              @Y17XAXF 00400010
*                                                                       00500010
*        USS->FSS KEYWORD ENTRY DSECT                                   00600010
*                                                                       00700010
IEDUSSK  DSECT                                                          00800010
USSKFLAG DS    BL1 .                    FLAG BYTE                       00900010
USSKADDR DS    AL4 .                    NEXT KEYWORD ADDR               01000010
USSKLEN  DS    AL1 .                    KEYWORD LENGTH(1-8 CHARS)       01100010
USSKEY   EQU   *                        KEYWORD                         01200010
         MEND  */                                                       01300010
*%PLSUSSK:;                                                             01400010
*/*                                                                  */ 01500010
*/*      USS->FSS KEYWORD ENTRY DSECT                                */ 01600010
*/*                                                                  */ 01700010
* DECLARE                                                               01800010
* 1 IEDUSSK  BASED(USSKB),                                              01900010
*  2 USSKFLAG BIT(8),                   /* FLAG BYTE                 */ 02000010
*    3 USSKTYPE BIT(3),                 /* ENTRY TYPE = KEYWORD      */ 02100010
*    3 USSKFMT BIT(1),                  /* IEDQFM USAGE FLAG         */ 02200010
*  2 USSKADDR PTR(31) BDY(BYTE),        /* NEXT KEYWORD ADDR         */ 02300010
*  2 USSKLEN  FIXED(8),                 /* KEYWORD LENGTH(1-8 CHARS) */ 02400010
*  2 USSKEY   CHAR(*);                  /* KEYWORD                   */ 02500010