Routine: ZWR1MOD

Entry Points

Name	Comments	DBIA/ICR reference
RCC(NA)	;Replace control chars in NA with $C( ). Returns encoded string.
CCC(S)	;test if S Contains a Control Character or $C(255).
CGV(V)	;Convert Global Value.
ASKLC
SKIP	;;^CacheTemp;^ROUTINE;^mtemp;^mtemp0;^mtemp1;^oddCOM;^oddDEF;^oddMAC;^oddMAP;^oddPROC;^rINC;^rOBJ;^%utility;^%UTILITY;^TMP;^XUTL;^UTILITY;
ASK
WALK(G)	;walk through global G, convert subscripts and values as necessary, dump out

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"DUMPS GLOBALS IN ZWR FORMAT",!! Line Location: ZWR1MOD+12
Function Call: WRITE	Prompt: "N" Line Location: ASKLC+1
Function Call: WRITE	Prompt: !,"Cache specific globals may contain lower case letters.",! Line Location: ASKLC+3
Function Call: WRITE	Prompt: "You may choose to exclude them if you are exporting the globals ",! Line Location: ASKLC+4
Function Call: WRITE	Prompt: "to use with another M implementation such as GT.M." Line Location: ASKLC+5
Function Call: WRITE	Prompt: " Answer Y, N or ?" Line Location: ASKLC+6
Function Call: WRITE	Prompt: "Enter a comment to save with the file. ",! Line Location: ASK+1
Function Call: WRITE	Prompt: GN_" "_"Skipped",! Line Location: ASK+10
Function Call: WRITE	Prompt: COM,! Line Location: ASK+19
Function Call: WRITE	Prompt: "Cache "_$TR($ZD(H,2)," ","-")_" "_$ZT($P(H,",",2))_" SEARCH FOR:"_SVAL,! Line Location: ASK+20
Function Call: WRITE	Prompt: !,"Done.",! Line Location: ASK+26
Function Call: WRITE	Prompt: NAME_"=",!,VAL,! Line Location: WALK+6
Function Call: WRITE	Prompt: NAME_"=",!,VAL,! Line Location: WALK+15