F*---------------------------------------------------------------*
     F*  PROGRAM NAME       : AA2R01                                  *
     F*  PROGRAM DESCRIPTION:                                         *
     F*  CREATED BY         :                                         *
     F*                                                               *
     F*  CREATE DATE        :                                         *
     F*---------------------------------------------------------------*
     F*  MODIFICATIONS:                                               *
     F*---------------------------------------------------------------*
     F*  MODIFIED BY        :                                         *
     F*  MODIFY DATE        :                                         *
     F*  MODIFICATION       :                                         *
     F*---------------------------------------------------------------*
     F*
     FAA2DF     CF   E             WORKSTN
     F* Report prompt
     F*
     C*---------------------------------------------------------------*
     C* MAINLINE                                                      *
     C*---------------------------------------------------------------*
     C*
     C     *ENTRY        PLIST
     C                   PARM                    FFILE            10
     C                   PARM                    FLIB             10
     C                   PARM                    TFOLD            10
     C                   PARM                    TEXT             75
     C
     C                   EXSR      $SR001
     C                   MOVE      *ON           *INLR
     C                   RETURN
     C
     C*---------------------------------------------------------------*
     C* PROMPT FOR INPUT PARAMETERS
     C*---------------------------------------------------------------*
     C     $SR001        BEGSR
     C                   EXFMT     SCREEN1
     C                   IF        *IN03 = *ON
     C                   EVAL      FFILE = 'NONE      '
     C                   ENDIF
     C                   ENDSR