F*---------------------------------------------------------------*
F* PROGRAM NAME
: AA2R02
*
F* PROGRAM DESCRIPTION:
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx *
F*
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx *
F*
xxxxxxx.
*
F* CREATED BY
:
*
F* CREATE DATE
: xx/xx/xxxx
*
F*---------------------------------------------------------------*
F* MODIFICATIONS:
*
F*---------------------------------------------------------------*
F* MODIFIED BY
:
*
F* MODIFY DATE
:
*
F* MODIFICATION
:
*
F*---------------------------------------------------------------*
F*
F*
F* Description
FAA2PF UF E
DISK
F*
D TX
C
'.TXT'
D LOCATION S
5 0
D
C*---------------------------------------------------------------*
C* MAINLINE
*
C*---------------------------------------------------------------*
C*
C
EXSR $SR001
C
MOVE *ON
*INLR
C
RETURN
C
C*---------------------------------------------------------------*
C* STRIP .TXT FROM DOCUMENT NAME
*
C*---------------------------------------------------------------*
C $SR001
BEGSR
C 1
SETLL AA2PF
C
READ AA2PF
30
C
C
DOW *IN30 = *OFF
C TX
SCAN DOCNAM
LOCATION
C
EVAL DOCTYP = %SUBST(DOCNAM:1:LOCATION-1)
C
UPDATE DOCDTL
C
READ AA2PF
30
C
ENDDO
C
ENDSR
C
C*---------------------------------------------------------------*
C* INITIAL SETUP
*
C*---------------------------------------------------------------*
C *INZSR
BEGSR
C
C
ENDSR
C