Routine: ENAR1

Information

ENAR1 ;(WIRMFO)/JED-ARCHIVE MODULE ;4.22.97

Source file <ENAR1.m>

Name	Comments	DBIA/ICR reference
G	;GATHER RECORDS
G2
A	;ARCHIVE & VERIFY RECORDS
D	;DELETE ARCHIVE GLOBAL
D1
D11
D2
R	;RECALL ARCHIVE INFORMATION
R1
SID	;SELECT ARCHIVE ID
GS	;GLOBAL STATUS
AD	;ARCHIVE DATA INFO
AD1
AD2
AD3
UP	;UPDATE ARCHIVAL TRANSACTIONS
UP2
MSG
OUT
MSG1

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"Records gathering complete" Line Location: G2+0
Function Call: WRITE	Prompt: !,"Bad news, Your archive global is not as expected" Line Location: A+1
Function Call: WRITE	Prompt: !!,*7,"verify completed" Line Location: A+3
Function Call: WRITE	Prompt: !!,"Your archive global has been deleted already" Line Location: D+2
Function Call: WRITE	Prompt: !!,*7,"Archive global deleted" Line Location: D11+2
Function Call: WRITE	Prompt: !,"There is data in your ",ENFN," file." Line Location: R+3
Function Call: WRITE	Prompt: !!,"Recall completed" Line Location: R+5
Function Call: WRITE	Prompt: !,"Before recalling more records, you must first delete existing data from",!,"your ",ENFN," file." Line Location: R1+0
Function Call: WRITE	Prompt: !!,"There is existing data ready for transport or review" Line Location: AD+1
Function Call: WRITE	Prompt: !,"Do you want to see the Archive ID information " Line Location: AD1+0
Function Call: WRITE	Prompt: @IOF,!!,*7,"Process terminated: ",ENERR Line Location: MSG+0
Function Call: READ	Variable: ENR Timeout: DTIME Line Location: MSG1+0
Function Call: WRITE	Prompt: !,"<cr> to continue" Line Location: MSG1+0

FileNo	Call Tags
^ENG(6919 - [#6919]	Classic Fileman Calls