Routine: AZHKDELF

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This Routine disallows/allows DELETE ACCESS" Line Location: AZHKDELF+4
Function Call: READ	Prompt: "Enter the Global Number " Formatting: ! Timeout: DTIME Variable: GN Line Location: RDL+0
Function Call: WRITE	Prompt: !!,"GLOBAL DOES NOT EXIST, TRY AGAIN",$C(7) Line Location: RDL+1
Function Call: WRITE	Prompt: !!,"Enter 1 to DISALLOW, 0 to ALLOW DELETE ACCESS " Line Location: RD1+0
Function Call: WRITE	Prompt: !!,"You now have DELETE ACCESS for GLOBAL "_GN Line Location: RDSET0+2
Function Call: WRITE	Prompt: !!,"You DO NOT have DELETE ACCESS for GLOBAL "_GN Line Location: RDSET1+1
Function Call: WRITE	Prompt: !!,"REMEMBER TO RESET THE DELETE ACCESS",$C(7) Line Location: EOJ+0
Function Call: WRITE	Prompt: !!,"Do you want to change another entry?" Line Location: AGAIN+1
Function Call: WRITE	Prompt: !!,$C(7),"INVALID ENTRY",!! Line Location: ERROR+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(	RDL+1, RDSET0+1, RDSET1

Name	Field # of Occurrence
DTIME	AZHKDELF+3*, RDL, RD1+1, AGAIN+2
GN	AZHKDELF+2, RDL, RDL+1, RDSET0+1, RDSET0+2, RDSET1, RDSET1+1, KILL!
OF	AZHKDELF+2, RD1+1, RD1+2, KILL!
YN	AZHKDELF+2, AGAIN+2, AGAIN+3, KILL!