*        %GOTO PLSUSSP;                 /*                              01000010
         MACRO                                                          02000010
         TUSSPD                                                         03000010
.*A000000-999999                                               @Y17XAXF 04000010
*                                                                       05000010
*        USS->FSS POSITIONAL PARAMETER ENTRY DSECT                      06000010
*                                                                       07000010
IEDUSSP  DSECT                                                          08000010
USSPFLAG DS    BL1 .                    FLAG BYTE                       09000010
USSPPFLG DS    BL1 .                    POSITIONAL FLAG BYTE            10000010
*        EQU   X'80' .                   RESERVED                       11000010
USSPREQ  EQU   X'40' .                   REQUIRED PARAMETER             12000010
USSPNOIN EQU   X'20' .                   NO INPUT NECESSARY FOR         13000010
*                                        POSITIONAL PARMETER            14000010
USSPINS  EQU   X'10' .                   INSERT LENGTH AS FIRST BYTE    15000010
*USSPDATA      X'08'-X'01' .             DATA CHARACTERISTICS           16000010
USSPCHAR EQU   X'01' .                    CHARACTER DATA                17000010
*                                          (PAD RIGHT WITH C' ')        18000010
USSPBIN  EQU   X'02' .                    BINARY DATA                   19000010
*                                          (PAD RIGHT WITH B'0')        20000010
USSPBYTE DS    XL1 .                    BYTE DISPLACEMENT OF            21000010
*                                        COMMAND FIELD                  22000010
USSPBIT  DS    XL1 .                    BIT DISPLACEMENT, WITHIN        23000010
*                                        BYTE, OF COMMAND FIELD         24000010
USSPLEN  DS    AL2 .                    BIT LENGTH OF COMMAND FIELD     25000010
*                                                              @PI06015 25500010
USSPLN   EQU   *-IEDUSSP                LENGTH OF ENTRY                 26000010
         MEND  */                                                       27000010
*%PLSUSSP:;                                                             28000010
*/*                                                                  */ 29000010
*/*      USS->FSS POSITIONAL PARAMETER ENTRY DSECT                   */ 30000010
*/*                                                                  */ 31000010
* DECLARE                                                               32000010
* 1 IEDUSSP  BASED(USSPB),                                              33000010
*  2 USSPFLAG BIT(8),                   /* FLAG BYTE                 */ 34000010
*    3 USSPTYPE BIT(3),                 /* ENTRY TYPE = PARAMETER    */ 35000010
*    3 USSPFMT BIT(1),                  /* IEDQFM USAGE FLAG         */ 36000010
*  2 USSPPFLG BIT(8),                   /* POSITIONAL FLAG BYTE      */ 37000010
*   3 *        BIT(1),                  /*  RESERVED                 */ 38000010
*   3 USSPREQ  BIT(1),                  /*  REQUIRED PARAMETER       */ 39000010
*   3 USSPNOIN BIT(1),                  /*  NO INPUT NECESSARY FOR      40000010
*                                           POSITIONAL PARMETER      */ 41000010
*   3 USSPINS  BIT(1),                  /*  INSERT LENGTH AS FIRST      42000010
*                                           BYTE                     */ 43000010
*   3 USSPDATA BIT(4),                  /*  DATA CHARACTERISTICS     */ 44000010
*  2 USSPBYTE FIXED(8),                 /* BYTE DISPLACEMENT OF         45000010
*                                          COMMAND FIELD             */ 46000010
*  2 USSPBIT  FIXED(8),                 /* BIT DISPLACEMENT, WITHIN     47000010
*                                          BYTE, OF COMMAND FIELD    */ 48000010
*  2 USSPLEN  FIXED(16) BDY(BYTE);      /* BIT LENGTH OF COMMAND FLD    49000010
*                                                            @PI06015*/ 49500010
*%USSPLN='LENGTH(IEDUSSP)';             /* LENGTH OF ENTRY           */ 50000010
* DECLARE                                                               51000010
* USSPCHAR BIT(4) CONSTANT('0001'B);    /* CHARACTER DATA               52000010
*                                           (PAD RIGHT WITH C' ')    */ 53000010
* DECLARE                                                               54000010
* USSPBIN  BIT(4) CONSTANT('0010'B);    /* BINARY DATA                  55000010
*                                           (PAD RIGHT WITH B'0')    */ 56000010