Routine: IVMBULK2

Information

IVMBULK2 ;ALB/KCL - IVM/ENROLLMENT Extract Utilities; 23-SEP-1997

Name	Comments	DBIA/ICR reference
GET(IVMARRY)	; -- ; Description: Used to obtain a record from the IVM Extract Management file into the local IVMARRY array.
GETQ
STORE(IVMARRY)	; -- ; Description: Used to store the processing information for the ; execution of the initial extract in the IVM Extract Management file.
STOREQ
INIT(IVMARRY)	; -- ; Description: Used to initilized IVM Extract Management record in the local IVMARRY array.
INITQ
PATH(IVMARRY)	; -- ; Description: Ask user for for valid host file directory.
PATHQ
GETCONST(IVMARRY)	; -- ; Description: Places enrollment extract constants into the local IVMARRY array.
CONSTQ
INQUIRE(ROOT,IEN)	; -- ; Description: Display data from file entry.
LOCK(IEN)	; -- ; Description: This lock is used to prevent another process from editing ; IVM Extract Management record.
UNLOCK(IEN)	; -- ; Description: Used to release a lock created by $$LOCK. ; Input: ; IEN - Internal entry number of IVM EXTRACT MANAGEMENT file

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?15,"* * * * * I M P O R T A N T * * * * *" Line Location: PATH+15
Function Call: WRITE	Prompt: !,?5,"The host files created by this job will be placed in the" Line Location: PATH+16
Function Call: WRITE	Prompt: !,?5,"current working directory. A directory other than the" Line Location: PATH+17
Function Call: WRITE	Prompt: !,?5,"current working directory may also be selected." Line Location: PATH+18
Function Call: WRITE	Prompt: !!,?5,"Please check the following to ensure the extract runs correctly." Line Location: PATH+19
Function Call: WRITE	Prompt: !!,?10,"1) The directory you have chosen the extract to run in" Line Location: PATH+20
Function Call: WRITE	Prompt: !,?13,"is a valid directory." Line Location: PATH+21
Function Call: WRITE	Prompt: !!,?10,"2) In order for TaskMan to have access to the directory, the" Line Location: PATH+22
Function Call: WRITE	Prompt: !,?13,"WORLD file protection must be 'RW' (Read and Write). For" Line Location: PATH+23
Function Call: WRITE	Prompt: !,?13,"NT/OpenM systems, ensure that the directory is not read only.",! Line Location: PATH+24