*COMDECK  RSN 
          TITLE  RSN  -  RECOGNIZE SPECIAL NAME 
**        RSN  -  RECOGNIZE SPECIAL NAME
* 
*         CALLED BY BCH WHEN IT ENCOUNTERS A SPECIAL
*         NAME IN THE PROCEDURE HEADER. 
*         THE SPECIAL NAMES ARE   #DATA   AND   #FILE 
*         THE STRING UPON ENTRY SHOULD BE NULL AND THE
*         SEPARATOR  #
* 
*         ENTRY 
* 
*         EXIT   X1  = SPECIAL NAME CONVERTED 
*                X5  = NUMBER OF CHARACTERS 
*                X3  = 0, IF O.K. ELSE ERROR MESSAGE CODE 
* 
*         SAVES  B4 
  
 RSN      BSSZ   1           ENTRY/EXIT 
          SX6    B4 
          SA6    RSNTMP      SAVE PREVIOUS SEP. 
          RJ     BHP
  
          SA5    ANSSTR 
          SA4    =0LDATA
          SA1    =0LFILE
          SA2    RSNTMP 
          MX3    0           EXIT CODE= OK
          BX4    X4-X5
          BX1    X1-X5
          SB4    X2          RESTORE B4 
          ZR     X4,RSN1     IF DATA
          ZR     X1,RSN2     IF FILE
 OSNOS    IFEQ   HOST,NOS 
          SA1    =0LPRIMARY 
          BX4    X1-X5
          ZR     X4,RSN3     IF PRIMARY 
  
 OSNOS    ENDIF 
          SX3    MSG236      SPECIAL NAME NOT RECOGNIZED
          JP     RSN         EXIT 
  
 RSN1     BSS 
          SA1    DATAFIL
          SX5    7           NUMBER OF CHARACTERS IN NAME 
          JP     RSN         EXIT 
  
 RSN2     BSS 
          SA1    SNFNAM 
          SA5    SNFNML 
          JP     RSN
  
 OSNOS    IFEQ   HOST,NOS 
 RSN3     BSS    0
          SA1    RSNFET8
          BX6    X1 
          SA6    PFILE+8     SETUP FET+8
  
          GETFNT PFILE       GET PRIMARY FILE NAME
  
          SA1    PRIMARY     FIND LENGTH OF NAME IF IT EXISTS 
          SB1    1
          MX6    -6 
          SB2    B0 
          SB3    7           MAX LENGTH 
          BX2    X1 
  
 RSN10    BSS    0
          LX2    6
          BX0    -X6*X2 
          ZR     X0,RSN15    END OF NAME FOUND
  
          SB2    B2+B1
          SB3    B3-B1
          LT     B0,B3,RSN10 NEXT CHARACTER OF NAME 
  
 RSN15    BSS    0
          SX5    B2 
          JP     RSN         RETURN 
  
  
 RSNFET8  VFD    12/1,6/,18/1000B,6/6,18/PRIMARY
 PRIMARY  BSS    3           PARAMETER BLOCK FOR GETFNT MACRO 
 OSNOS    ENDIF 
 RSNTMP   BSS    1
