*COMDECK GETWSA 
CONTROL EJECT;
#----------------------------------------------------------------------#
#                                                                      #
#     G E T W S A                                                      #
#                                                                      #
#   THIS PROC HOPES THAT *AFIT* IS A FIT WITH *MRL* PROPERLY SET. IT   #
# IS ASSUMED THAT *AFIT* BELONGS TO A LOCAL SCRATCH FILE, IT IS CON-   #
# TAINED IN AN LFNLIST ENTRY. A WORKING STORAGE AREA (WSA) IS ALLOCATED#
# BASED ON MRL, AND THE FWA IS STORED IN L$WSA (IN THE LFNLIST ENTRY). #
# THE FWA IS ALSO STORED IN THE *WSA* FIELD OF THE FIT. IF MRL WAS ZERO#
# UPON ENTRY TO THIS PROC, A DEFAULT OF 2222B (1170D) IS USED (IT IS   #
# EASILY RECOGNIZED IN THE FIT).                                       #
  
      PROC GETWSA(AFIT);
      BEGIN 
      ARRAY AFIT; 
*CALL AFIT
  
  
      IF AFITMRL EQ 0              # IF NO KNOWN MRL, SET DEFAULT      #
      THEN
        BEGIN 
        AFITMRL = O"2222";         # EASILY RECOGNIZED + FAIRLY LARGE  #
        END 
  
      P< LFNINFO> = LOC(AFIT) - L$FITOFFSET;  # LOCATE LFNLIST ENTRY   #
      L$WSA = CMM$ALF(((AFITMRL + 9) / 10), FIXED$LWA, 0);
      AFITWSA = L$WSA;             # STORE THE FWA IN THE FIT, TOO     #
      RETURN; 
      END 
