*DECK SMKEY 
          IDENT  SMKEY
          TITLE  SMKEY -  GATHER PARAMETERS ABOUT A SORT KEY
          COMMENT  GATHER PARAMETERS ABOUT A SORT KEY 
          SPACE  4
**        SMKEY -  GATHER PARAMETERS ABOUT A SORT KEY 
* 
*     CALLING SEQUENCE- 
*         CALL SMKEY(<BYTEPOS>, <BITPOS>, <NBYTES>, <NBITS>, <TYPE>,
*                                                     <COLSEQ>, <ORDER>)
* 
*     GIVEN-
*         A1 = ADDRESS OF ACTUAL PARAMETER LIST.
* 
*     DOES- 
*         SETS NPARMS = NUMBER OF PARAMETERS. 
*         CALLS S$KEY(NPARMS, <BYTEPOS>, <BITPOS>, <NBYTES>, <NBITS>, 
*                                             <TYPE>, <COLSEQ>, <ORDER>)
  
  
          ENTRY  SMKEY
 SMKEY    SUBR
          CALL   S$CPARM     COUNT PARAMETERS, SET A1 = APLIST
          CALL   S$KEY (NPARMS, <BYTEPOS>, <BITPOS>, <NBYTES>, <NBITS>, 
                                              <TYPE>, <COLSEQ>, <ORDER>)
          EXIT
  
  
          END 
