home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / 3x400 / clcadvfn.lzh / CPPSUP.TXT < prev   
Text File  |  1988-07-31  |  2KB  |  32 lines
  1. /*  **+-------------------------------------------------------------+  +
  2.     **│ SYSTEM......: Calculate Advanced Function                   │  +
  3.     **│ MODULE......: File read/write control                       │  +
  4.     **│ PROGRAM.....: CLCADVFCNF        -CALLED BY: CLCADVFCNC (CLP)│  +
  5.     **│ PROGRAMMER..: W.Allen          -SPECIFIED: W.Allen        │  +
  6.     **│ DATE........: 87/10/24          -MNT.REF..: *NONE           │  +
  7.     **│         +-------------------------------------+             │  +
  8.     **+---------│BASIC DESCRIPTION OF PROGRAM FUNCTION│-------------+  +
  9.     **│         +-------------------------------------+             │  +
  10.     **│  Does read a write support for the main command processing  │  +
  11.     **│  program.                                                   │  +
  12.     **│                                                             │  +
  13.     **│                                                             │  +
  14.     **│                     +-------+                               │  +
  15.     **+---------------------<UPDATES>-------------------------------+  +
  16.     **│ PROGRAMMER/DATE     │MNT.REF│ NOTE/NOTE REF I.D./CHGD MARKS │  +
  17.     **+---------------------+-------+-------------------------------+  +
  18.     **│                     │       │                               │  +
  19.     **│                     │       │                               │  +
  20.     **+---------------------+-------+-------------------------------+  */
  21.      FAFCTNPF IF  E                    DISK                      A
  22.      C           *ENTRY    PLIST
  23.      C                     PARM           OP      1
  24.      C                     PARM           ARGUMN
  25.      C                     PARM           RESULT
  26.      C           OP        IFEQ 'A'
  27.      C                     WRITEAFNC
  28.      C                     ELSE
  29.      C                     READ AFCTNPF                  99
  30.      C                     END
  31.      C                     SETON                     LR
  32.