Routine: DDWC

Information

DDWC ;SFISC/MKO-CHANGE (REPLACE) ;02:24 PM 14 Aug 2002

Source file <DDWC.m>

Name	Comments	DBIA/ICR reference
CHG	;Change
PROC	;Main procedure
OPT	;Prompt for and process option
F	;Find next
R	;Replace
RS(DDWE)	;Change selected text
A	;Change all
TOOLONG
AEND
REP(DDWND,DDWFIND,DDWCHG,DDWX,DDWE)	;String replacement of DDWND
E	;Edit Find
Q	;Quit option
H	;Help
CERR	;The Change options are disabled
MSG(DDWX)	;
FLUSH	;Flush read buffer
UC(X)	;Return uppercase of X
MIN(X,Y)	;
CUP(Y,X)	;Pos cursor
POS(R,C,F)	;Pos cursor based on char pos C

Name	Line Occurrences
Function Call: WRITE	Prompt: $P(DDGLVID,DDGLDEL,6) Line Location: OPT+1
Function Call: WRITE	Prompt: " "_$C(8) Line Location: OPT+3
Function Call: READ	Variable: DDWOPT#1 Timeout: DTIME Line Location: OPT+4
Function Call: WRITE	Prompt: $C(7) Line Location: OPT+9
Function Call: WRITE	Prompt: $P(DDGLVID,DDGLDEL,10)_" " Line Location: OPT+10
Function Call: WRITE	Prompt: $P(DDGLCLR,DDGLDEL)_$E(DDWN,1+DDWOFS,IOM+DDWOFS) Line Location: RS+10
Function Call: WRITE	Prompt: $P(DDGLCLR,DDGLDEL)_$E(DDWL(DDWI),1+DDWOFS,IOM+DDWOFS) Line Location: TOOLONG+3
Function Call: WRITE	Prompt: $P(DDGLCLR,DDGLDEL)_$G(DDWX) Line Location: MSG+1
Function Call: WRITE	Prompt: $P(DDGLCLR,DDGLDEL) Line Location: MSG+2
Function Call: READ	Variable: *DDWX Timeout: 0 Line Location: FLUSH+1