/*   **+-------------------------------------------------------------+  +
     ** SYSTEM......: Calculate Advanced Function                     +
     ** MODULE......: File read/write control                         +
     ** PROGRAM.....: CLCADVFCNF        -CALLED BY: CLCADVFCNC (CLP)  +
     ** PROGRAMMER..: W.Allen          -SPECIFIED: W.Allen          +
     ** DATE........: 87/10/24          -MNT.REF..: *NONE             +
     **         +-------------------------------------+               +
     **+---------BASIC DESCRIPTION OF PROGRAM FUNCTION-------------+  +
     **         +-------------------------------------+               +
     **  Does read a write support for the main command processing    +
     **  program.                                                     +
     **                                                               +
     **                                                               +
     **                     +-------+                                 +
     **+---------------------<UPDATES>-------------------------------+  +
     ** PROGRAMMER/DATE     MNT.REF NOTE/NOTE REF I.D./CHGD MARKS   +
     **+---------------------+-------+-------------------------------+  +
     **                                                             +
     **                                                             +
     **+---------------------+-------+-------------------------------+  */
     FAFCTNPF IF  E                    DISK                      A
     C           *ENTRY    PLIST
     C                     PARM           OP      1
     C                     PARM           ARGUMN
     C                     PARM           RESULT
     C           OP        IFEQ 'A'
     C                     WRITEAFNC
     C                     ELSE
     C                     READ AFCTNPF                  99
     C                     END
     C                     SETON                     LR
