Routine: DGYMFIL2

Information

DGYMFIL2 ;ALB/MLI - Set File Access Codes for MAS files ; October 20, 1994

Name	Comments	DBIA/ICR reference
PRINT	; generate listing of existing vs recommended file access
WRITE(X)	; write out the access codes in columns
HEADER	; print header for comparison report
LOAD	; load files into TMP global
FILES	; list of file numbers and names for MAS files w/recommended access

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$S(CUR=REC:" ",1:"*"),+X Line Location: PRINT+9
Function Call: WRITE	Prompt: ?8,$E(X,1,30) Line Location: PRINT+9
Function Call: WRITE	Prompt: ?8,$E(X,1,30) Line Location: PRINT+9
Function Call: WRITE	Prompt: ! Line Location: PRINT+10
Function Call: WRITE	Prompt: ?43,"Currently meets recommended levels" Line Location: PRINT+11
Function Call: WRITE	Prompt: !,BRKLINE Line Location: PRINT+13
Function Call: WRITE	Prompt: ?43,$P(X,"^",1),?51,$P(X,"^",2),?57,$P(X,"^",3),?65,$P(X,"^",4),?75,$P(X,"^",5) Line Location: WRITE+4
Function Call: WRITE	Prompt: @IOF,!?29,"MAS File Access Report",?70,"PAGE: ",$J(PAGE,2) Line Location: HEADER+4
Function Call: WRITE	Prompt: !!," File",?8,"File",?54,"File Access Type" Line Location: HEADER+5
Function Call: WRITE	Prompt: !," Number",?8,"Name",?43,"DD",?49,"Read",?55,"Write",?63,"Delete",?73,"Laygo" Line Location: HEADER+6
Function Call: WRITE	Prompt: !,LINE Line Location: HEADER+7