Routine: VALMW3

Information

VALMW3 ; ALB/MJK - Create transport routines for LM;03:39 PM 16 Dec 1992

Source file <VALMW3.m>

Name	Comments	DBIA/ICR reference
EN	; -- exporter main entry point
ENQ
DUZ()	; -- check duz and duz(0)
OS()	; -- get os #
NS()	; -- ask for namespace
NS1
NSQ
ROU(VALMNS)	; -- ask for export routine name
ROU1
ROUQ
MAX()	; -- ask for max size of routines
MAX1
MAXQ
ADHOC(X)	; -- pick any namespace
L
LQ
BLD	; -- build utility
Q3
SET(X)	; -- set line utility
QUOTE(X)	; -- add double quotes
FILE(VALMROU)	; -- file routines
SAVE(VALMROU,VALMNUM,VALMLN,VALMDATE)	; -- save to routine

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?20,"* List Template Export Utility *" Line Location: EN+4
Function Call: WRITE	Prompt: !!!,">>> Exporting LIST TEMPLATES with namespace '"_VALMNS_"'." Line Location: EN+10
Function Call: WRITE	Prompt: !!,">>> Enter the Name of the Package (2-4 characters): " Line Location: NS1+1
Function Call: READ	Variable: X Timeout: $S($D(DTIME):DTIME,1:60) Line Location: NS1+2
Function Call: WRITE	Prompt: ! Line Location: ROU1+1
Function Call: WRITE	Prompt: !!,"I am going to create a series of '",VALMROU,"*' routines." Line Location: ROU1+4
Function Call: WRITE	Prompt: *7,!,"but '"_VALMROU_"' is ALREADY ON FILE!" Line Location: ROU1+5
Function Call: WRITE	Prompt: !,"Is that OK" Line Location: ROU1+6
Function Call: WRITE	Prompt: !!,">>> MAXIMUM ROUTINE SIZE(BYTES): ",^DD("ROU"),"// " Line Location: MAX1+1
Function Call: READ	Variable: Y Timeout: $S($D(DTIME):DTIME,1:60) Line Location: MAX1+2
Function Call: WRITE	Prompt: !!,"Package "_X_" not found" Line Location: L+0
Function Call: WRITE	Prompt: !,"Please enter the package namespace you wish to export: " Line Location: L+1
Function Call: WRITE	Prompt: !,"Namespace too long" Line Location: L+4
Function Call: WRITE	Prompt: "." Line Location: SET+1
Function Call: WRITE	Prompt: !,X_" has been filed..." Line Location: SAVE+5

FileNo	Call Tags
^DIC(9.4 - [#9.4]	Classic Fileman Calls