F*****************************************************************
F* PROGRAM NAME
: AAR01
*
F* PROGRAM DESCRIPTION: Prompt for source file
move to folder *
F* CREATED BY
:
*
F*
*
F* CREATE DATE
:
*
F*****************************************************************
F* MODIFICATIONS:
*
F*****************************************************************
F* MODIFIED BY
:
*
F* MODIFY DATE
:
*
F* MODIFICATION
:
*
F*****************************************************************
F*
FAAADF CF E
WORKSTN
F* Report prompt
F*
D*****************************************************************
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*---------------------------------------------------------------*
C $SR001
BEGSR
C
EXFMT SCREEN1
C
IF *IN03 = *ON
C
EVAL FFILE = 'NONE '
C
ENDIF
C
ENDSR