*COMDECK SETDISFRO
#----------------------------------------------------------------------#
#                                                                      #
#     S E T D I S F R O M                                              #
#                                                                      #
# THIS PROC SETS UP THE $DISPLAY FROM* FET.                            #
#----------------------------------------------------------------------#
      PROC SETDISFROM(RC);
      BEGIN 
                                                                         CTL30
      ITEM RC I;                   # RETURN CODE                       #
  
      P<FIT> = FROMKEYINFIT;
      P<LFNINFO> = P<FIT> - L$FITOFFSET;
      IF L$WSA EQ 0                # IF NO WSA ASSIGNED                #
      THEN
        BEGIN 
        GETWSA(FIT);               # ASSIGN A WSA                      #
        END 
  
                                                                         CTL30
      FITES = 0;                   #ZERO OUT ERROR STATUS FIELD.       # CTL30
      FITBBH = TRUE;               # ALLOCATE BUFFERS BELOW HHA        #
      OPENM (FIT, $INPUT$, $R$, RA0);                                   000200
      IF FITES NQ 0                #ERROR IN OPENING FILE--ISSUE DIAG  # CTL30
      THEN                         #AND TURN DESPASS OFF AND RETURN    # CTL30
        BEGIN                                                            CTL30
        DIAG (819, FITES, FITLFNC);  # DIAGNOSE CRM ERROR ON OPEN      #
        RC = 1;                    # INDICATE AN ERROR                 #
        RETURN; 
        END 
  
      IF DESPASS                   # IF *FROM*                         #
      THEN
        BEGIN 
        CURRENTSOURC = FITWSA;
        END 
  
      RC = 0;                      # SUCCESSFUL OPEN                   #
      RETURN; 
      END 
