Routine: IB20P481

Information

IB20P481 ;ALB/RDK - IB*2.0*481; UNSUPPORTED GLOBAL READS ; 4/2/13 8:55am

Name	Comments	DBIA/ICR reference
EN	;
NULL64	;NULL OUT VALUES FOR FIELD #64 IN FILE #399
DELDD	;DELETE FIELD #64 FROM FILE #399 IN DATA DICTIONARY
RECOMP	;RECOMPILE CROSS REFERENCE ROUTINES
START	;PROCEDURE START MESSAGE
FINISH	;PROCEDURE COMPLETE MESSAGE

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,">>> Setting all values of field (#64) in file (#399) to null. <<<",!,">>> This may take a while, depending on how many bills are in <<<" Line Location: NULL64+1
Function Call: WRITE	Prompt: !,">>> the Bill/Claims file. Please be patient. <<<" Line Location: NULL64+2
Function Call: WRITE	Prompt: !!,">>> All values for field (#64) have been set to null. <<<" Line Location: NULL64+4
Function Call: WRITE	Prompt: !!,">>> Deleting field (#64) from file (#399) in Data Dictionary. <<<" Line Location: DELDD+1
Function Call: WRITE	Prompt: !!,">>> Deletion from Data Dictionary complete. <<<" Line Location: DELDD+4
Function Call: WRITE	Prompt: !!,">>> Recompiling cross reference routines for BILL/CLAIMS file. <<<" Line Location: RECOMP+1
Function Call: WRITE	Prompt: ! Line Location: RECOMP+2
Function Call: WRITE	Prompt: !," File "_N_" ",! Line Location: RECOMP+2
Function Call: WRITE	Prompt: !!,">>> Recompile complete. <<<" Line Location: RECOMP+3
Function Call: WRITE	Prompt: !!,"* Procedure initiating. *" Line Location: START+1
Function Call: WRITE	Prompt: !!,"* Procedure complete. *" Line Location: FINISH+1