Routine: DGYMBT

Information

DGYMBT ;ALB/REW - DGBT(392,B) X-REF CLEANUP - 12/9/94

Source file <DGYMBT.m>

Name	Comments	DBIA/ICR reference
EN	; remove corrupt pointers from B x-REF OF DGBT(392,
CLEAN	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Searching for corrupt 'B' cross-reference entries ...",! Line Location: EN+7
Function Call: WRITE	Prompt: !!,"Done." Line Location: EN+12
Function Call: WRITE	Prompt: !,?5,"Bad cross-reference: ^DGBT(392,""B"",",DGBT,",",DGBTIEN,")" Line Location: CLEAN+3