Routine: XTVRCRES

Information

XTVRCRES ;ISC-SF/JLI - RESTORE ROUTINE BACK TO SELECTED VERSION - BE SAVED UNDER ANOTHER NAME ;8/24/93 14:53

Source file <XTVRCRES.m>

Name	Comments	DBIA/ICR reference
EN	;
A	;S X=XTROU,XCNP=0,DIF="^TMP($J,0," X ^%ZOSF("LOAD")
EXIT	;

Name	Line Occurrences
Function Call: READ	Formatting: ! Prompt: "Save RESTORED ROUTINE as: " Variable: X Timeout: DTIME Line Location: EN+3
Function Call: WRITE	Prompt: $C(7)," ??",! Line Location: EN+3
Function Call: WRITE	Prompt: !?5,$C(7),"Must be a routine name not currently in use.",!! Line Location: EN+4
Function Call: WRITE	Prompt: !!,K Line Location: A+7
Function Call: WRITE	Prompt: !,^TMP($J,"I",P,0) Line Location: A+7

FileNo	Call Tags
^XTV(8991 - [#8991]	Classic Fileman Calls