*DECK PRSTFIP 
PROC PRSTFIP; 
# TITLE PRSTFIP - DO PRESETTING ON FIPXFR COMMON BLOCKS # 
  
      BEGIN 
  
# 
**    PRSTFIP - DO PRESETTING ON FIPXFR COMMON BLOCKS.
* 
*     PRSTFIP IS A DUMMY ROUTINE WITH NO EXECUTABLE CODE. 
*     IT IS USED TO DO THE PRESETTING OF THE FIPXFR COMMON BLOCKS.  A 
*     DUMMY CALL TO PRSTFIP IS MADE BY NETXFR.  THIS CAUSES THE LOADING 
*     OF PRSTFIP WHENEVER NETXFR IS LOADED AND THUS THE PRESETTING OF 
*     FIPXFR COMMON BLOCKS.  THE PRESETTING COULD NOT BE DONE WITHIN
*     NETXFR BECAUSE NETXFR USES COMMON BLOCKS USED BY THE FIP MODULES
*     AS WELL AS THE FIPXFR COMMON BLOCKS SO A LOADER ERROR WOULD OCCUR 
*     IF THAT WERE DONE.
* 
*     NO CALL TO PRSTFIP IS MADE
* 
*     ENTRY - NONE
  
*     EXIT  - NONE
* 
*     PROCESSING - NONE 
* 
# 
  
*CALL COMCBEGN
*CALL COMADEF 
      CONTROL PRESET; 
# 
*     INSERT CALLS HERE FOR THOSE COMMON DECKS WHICH CONTAIN COMMON 
*     BLOCKS THAT ARE USED EXCLUSIVELY BY THE FIPXFR MODULES. 
# 
*CALL COMACBX 
*CALL COMACST 
*CALL COMADFM 
*CALL COMAFET 
      END 
  
      TERM
