*COMDECK XSFN 
          IDENT  XSFN 
          ENTRY  XSFN 
          SYSCOM B1 
          TITLE  XSFN - SPACE FILL NAME.
          COMMENT SPACE FILL NAME.
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
 XSFN     SPACE  4,10 
***       XSFN - SPACE FILL NAME. 
* 
*         HOLLERITH = XSFN (NAME) 
* 
*         XX = XSFN(NAME);       (*SYMPL* CALL) 
* 
*         ENTRY  NAME, AN ITEM CONTAINING THE NAME, LEFT JUSTIFIED, 
*                      ZERO FILLED. 
* 
*         EXIT   XX, A CHAR. ITEM TO CONTAIN DISPLAY CODE ON EXIT.
* 
*         USES   X - 1. 
*                A - 1. 
*                B - 1. 
* 
*         CALLS  SFN. 
  
  
 XSFN     SUBR               ENTRY/EXIT 
          SB1    1
          SA1    X1+
          RJ     =XSFN=      SPACE FILL NAME
          EQ     XSFNX       RETURN, RESULT IN X6 
  
          END 
