*DECK SMFILE
          IDENT  SMFILE 
          TITLE  SMFILE -  GATHER PARAMETERS ABOUT A FILE 
          COMMENT  GATHER PARAMETERS ABOUT A FILE 
          SPACE  4
**        SMFILE -  GATHER PARAMETERS ABOUT A FILE
* 
*     CALLING SEQUENCE- 
*         CALL SMFILE(<SMO>, <TYPE>, <LGN>, <ACTION>) 
* 
*     GIVEN-
*         A1 = ADDRESS OF ACTUAL PARAMETER LIST.
* 
*     DOES- 
*         SETS NPARMS = NUMBER OF PARAMETERS. 
*         CALLS S$FILE(NPARMS, <SMO>, <TYPE>, <LFN>, <ACTION>). 
  
  
          ENTRY  SMFILE 
 SMFILE   SUBR
          CALL   S$CPARM     COUNT PARAMETERS, SET A1 = APLIST
          CALL   S$FILE (NPARMS, <SMO>, <TYPE>, <LFN>, <ACTION>)
          EXIT
  
  
          END 
