*DECK S$FETCH 
          IDENT  S$FETCH
          TITLE  S$FETCH -  FETCH A VALUE FROM A FIT
          COMMENT  FETCH A VALUE FROM A FIT 
          SPACE  4
**        S$FETCH -  FETCH A VALUE FROM A FIT 
* 
*     CALLING SEQUENCE- 
*         S$FETCH(ADDRFIT, "NAME", VALUE);
* 
*     GIVEN-
*         ADDRFIT = VARIABLE CONTAINING ADDRESS OF FIT. 
*         "NAME" = NAME OF FIT FIELD.  MUST BE ONE OF:  
*                "FL", "MRL", "RT", "MNR" 
*         VALUE = INTEGER VARIABLE. 
* 
*     DOES- 
*         SETS VALUE = VALUE FROM FIT FIELD NAMED "NAME"
*          FROM FIT WHOSE ADDRESS IS IN ADDRFIT.
  
  
          ENTRY  S$FETCH
 S$FETCH  SUBR
          SB1    1
          SA2    X1          ADDRESS OF FIT 
  
          FETCH  X2,OC,X6 
         *USES   AX5,X7 
          IFTHEN X6=0        IF OC = NEVER-OPENED,
            SX6    A1        SAVE A1
            SA6    SAVEA1 
            SETFIT X2        ACCESS FILE CONTROL STATEMENT
            SA1    SAVEA1 
            SA1    X1 
            ENDIF.
  
          SA2    X1          RESTORE X2=FIT ADDRESS 
          SA3    A1+1        ADDRESS OF NAME
          SA3    X3          X3 = NAME
  
          SA4    =10HFL 
          IX0    X3-X4
          IFTHEN X0=0        IF NAME IS FL, 
            FETCH  X2,FL,X6 
           *USES   AX5,X7 
            ENDIF.
  
          SA4    =10HMRL
          IX0    X3-X4
          IFTHEN X0=0        IF NAME IS MRL,
            FETCH  X2,MRL,X6
           *USES   AX5,X7 
            ENDIF.
  
          SA4    =10HRT 
          IX0    X3-X4
          IFTHEN X0=0        IF NAME IS RT
            FETCH  X2,RT,X6 
           *USES   AX5,X7 
            ENDIF.
  
          SA4    =10HMNR
          IX0    X3-X4
          IFTHEN X0=0        IF NAME IS MNR,
            FETCH  X2,MNR,X6
           *USES   AX5,X7 
            ENDIF.
  
          SA4    A1+2        ADDRESS OF VALUE 
          SA6    X4          VALUE := FIELD FROM FIT
  
          EXIT
  
  
 SAVEA1   BSS    1
  
  
          END 
