*        %GOTO PLSFSS;                  /*                              00000110
         MACRO                                                          00000210
         TFSSD                                                          00000310
.*A000000-999999                                               @Y17XAXF 00000410
*                                                                       00000510
*        FSS->USS TABLE ENTRY DSECT                                     00000610
*                                                                       00000710
IEDFSS   DSECT                                                          00000810
FSSMSGID DS    AL1 .                    MSG ID                          00000910
FSSADDR  DS    AL4 .                    ADDR TO NEXT MSG                00001010
FSSLEN   DS    AL1 .                    MESSAGE LENGTH                  00001110
FSSMSG   DS    0C                       START OF MESSAGE                00001210
*        FSS TABLE TYPE                                                 00001310
FSSTYPE  EQU   C'2' .                   FSS MESSAGE TYPE                00001410
         MEND  */                                                       00001510
*%PLSFSS:;                                                              00001610
*/*                                                                  */ 00001710
*/*      FSS->USS TABLE ENTRY DSECT                                  */ 00001810
*/*                                                                  */ 00001910
* DECLARE                                                               00002010
* 1 IEDFSS BASED(FSSB),                                                 00002110
*  2 FSSMSGID FIXED(8),                 /* MSG ID                    */ 00002210
*  2 FSSADDR  PTR(31) BDY(BYTE),        /* ADDR TO NEXT MSG          */ 00002310
*  2 FSSLEN   FIXED(8),                 /* LENGTH OF MESSAGE         */ 00002410
*  2 FSSMSG   CHAR(*);                  /* START OF MESSAGE          */ 00002510
*/*                                                                  */ 00002610
*/*      FSS TABLE TYPE                                              */ 00002710
*/*                                                                  */ 00002810
* DCL FSSTYPE  BIT(8) CONSTANT('F2'X);  /* FSS MESSAGE TYPE          */ 00002910