Routine: EEOIPOS2

Information

EEOIPOS2 ;HISC/JWR - POST INIT CLEANUP ;02/08/93 11:15

Name	Comments	DBIA/ICR reference
TEST	;Loop through DA's for file 785 for conversion
SET	;Global sets for new and rearranged fields
STRIP	;Breaks doun City, State, Zip, and assigns value to Case No field
KILL	;Kills some obsolete fields and files, Reindexes certain fields in 785
OPT
IN1	;Converts Investigator fields to the new multiple format
PRE	;Makes type of investigator determination
BASIS	;Converts basis to new multiple format
SETB
BA	;Enters converted Basis into file 785
DIE
IS	;Enters converted Issue codes into file 785
TYPE

Name	Line Occurrences
Function Call: WRITE	Prompt: "." Line Location: TEST+2
Function Call: WRITE	Prompt: !!,"DELETING OBSOLETE AND DUPLICATED FIELDS FROM FILE 785 " Line Location: KILL+1
Function Call: WRITE	Prompt: "." Line Location: KILL+2
Function Call: WRITE	Prompt: !,"DELETING OBSOLETE FILES " Line Location: KILL+3
Function Call: WRITE	Prompt: !," ",FI Line Location: KILL+4
Function Call: WRITE	Prompt: !!!!,"RE-INDEXING 'C','D',& 'E' CROSS REFERENCES (FILE #785)" Line Location: KILL+6
Function Call: WRITE	Prompt: !!,"PLACING OBSOLETE OPTIONS OUT OF ORDER" Line Location: OPT+0
Function Call: WRITE	Prompt: !! Line Location: OPT+4
Function Call: WRITE	Prompt: !!!," * INITIALIZATION COMPLETE *",!!!," Remember to Task the EEO TASKED BULLETIN option to run nightly...",!!!!! Line Location: OPT+5