Table of Contents

FSETABL

Table Of Contents

  • [00006] COMPILE THE *COMFTAB* COMMON BLOCK.

Source Code

FSETABL.txt 
  1. PROC FSETABL;
  2.   BEGIN
  3.  
  4.  
  5. #
  6. ***       FSETABL - COMPILE THE *COMFTAB* COMMON BLOCK.
  7. *
  8. *         FSETABL IS THE ONLY COMPILATION IN SINGLE THAT USES
  9. *         CONTROL PRESET WITH THE COMFTAB COMMON BLOCK.  IN THE MULTI-
  10. *         USER SUBSYSTEM, THE SMFEX MONITOR WILL DO THIS JOB.
  11. #
  12.  
  13.   DEF LISTCON #1#;
  14.  
  15. CONTROL PRESET;              # UNIVERSL DECLARES #
  16.  
  17. *IFCALL SINGLE,COMFSGL
  18. *IFCALL ONLY,COMFONL
  19. *IFCALL MULTI,COMFMLT
  20. *CALL COMFFSE
  21.  
  22.  
  23. *CALL COMFTAB
  24.  
  25.  
  26.   END TERM