*        %GOTO PLSUSSV;                 /*                              00001010
         MACRO                                                          00002010
         TUSSVD                                                         00003010
.*A000000-999999                                               @Y17XAXF 00004010
*                                                                       00005010
*        USS->FSS VERB ENTRY DSECT                                      00006010
*                                                                       00007010
IEDUSSV  DSECT                                                          00008010
USSVFLAG DS    BL1 .                    FLAG BYTE                       00009010
USSVADDR DS    AL4 .                    NEXT VERB ADDR OR ZERO          00010010
USSVKADD DS    AL4 .                    ADDR TO FIRST KEYWORD ENTRY     00011010
*                                        IN THIS VERB OR 0              00012010
USSVSSCP DS    CL3 .                    SSCP COMMAND ID                 00013010
*                                        X'010681' - INIT SELF          00014010
*                                        X'010683' - TERM SELF          00015010
USSVADD  DS    XL1 .                    NUMBER OF ZERO BYTES TO ADD TO  00015310
*                                        COMMAND               @PI06031 00015610
USSVDEL  DS    XL1 .                    DELIMITER REQUESTED             00016010
USSVDLEN DS    XL1 .                    LENGTH OF USER DATA             00017010
USSVDISP DS    XL1 .                    DISPLACEMENT TO USER DATA       00018010
USSVLEN  DS    AL1 .                    VERB LENGTH (1-8 CHARS)         00019010
USSVERB  EQU   *                        VERB CHAR STRING                00020010
         MEND  */                                                       00021010
*%PLSUSSV: ;                                                            00022010
*/*                                                                  */ 00023010
*/*      USS->FSS VERB ENTRY DSECT                                   */ 00024010
*/*                                                                  */ 00025010
* DECLARE                                                               00026010
* 1 IEDUSSV  BASED(USSVB),                                              00027010
*  2 USSVFLAG BIT(8),                   /* FLAG BYTE                 */ 00028010
*    3 USSVTYPE BIT(3),                 /* ENTRY TYPE = VERB         */ 00029010
*    3 USSVFMT BIT(1),                  /* IEDQFM USAGE FLAG         */ 00030010
*  2 USSVADDR PTR(31) BDY(BYTE),        /* NEXT VERB ADDR OR ZERO    */ 00031010
*  2 USSVKADD PTR(31) BDY(BYTE),        /* ADDR TO FIRST KEYWORD ENTRY  00032010
*                                          IN THIS VERB OR 0         */ 00033010
*  2 USSVSSCP CHAR(3),                  /* SSCP COMMAND ID              00034010
*                                          X'010681' - INIT SELF        00035010
*                                          X'010683' - TERM SELF     */ 00036010
*  2 USSVADD  FIXED(8),                 /* NUMBER OF ZERO BYTES TO ADD  00036310
*                                          TO THE COMMAND    @PI06031*/ 00036610
*  2 USSVDEL  CHAR(1),                  /* DELIMITER REQUESTED       */ 00037010
*  2 USSVDLEN FIXED(8),                 /* LENGTH OF USER DATA       */ 00038010
*  2 USSVDISP FIXED(8),                 /* DISPLACEMENT TO USER DATA */ 00039010
*  2 USSVLEN  FIXED(8),                 /* VERB LENGTH (1-8 CHARS)   */ 00040010
*  2 USSVERB  CHAR(*);                  /* VERB CHAR STRING          */ 00041010