Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  All
Print Page as PDF
Routine: ZCMSLD1

Package: Uncategorized

Routine: ZCMSLD1


Information

ZCMSLD1 ;CMB/MEB; 20 Dec 95 14:26; Load all files from a CMS save set

Source Information

Source file <ZCMSLD1.m>

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Generic Interface System 1 INHSYSE  

Entry Points

Name Comments DBIA/ICR reference
BAR
FU
DD
DE
BU
OE(X) ;Translate a file name to an option element
FILE
ST
EOF
TE(X,DK) ;Translate a file name to a template element
PT
TT
RTN ;
RD(X,DK) ;Translate a data element to a file element
FE(X) ;Translate a file name to a file element
INIT ;Init some needed values
GAL
FN(ENAME,ZCMSDEL) ;LOAD ONE ELEMENT WITHOUT BEING PROMPTED
EN ;THIS IS AN ENTRY POINT TO LOAD ONE ELEMENT WITHOUT BEING PROMPTED
PROMPT ;PROMPT FOR ELEMENT TO LOAD
CA
ENK ;THIS IS AN ENTRY POINT TO LOAD ONE ELEMENT WITHOUT BEING PROMPTED
IT
LDINIT
CS
Q
HLP
KP ;Load one element and keep VMS file.
LOAD1
SE
OP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"ENTER ELEMENT NAME AS IT APPEARS IN THE CMS LIBRARY."
  • Line Location: HLP+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ENK+7
Function Call: WRITE
  • Prompt: !!,"THE VMS FILE FOR THE ELEMENT YOU ENTERED IS NOT IN YOUR CURRENT DIRECTORY."
  • Line Location: ENK+7
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,"THE VMS FILE FOR THE ELEMENT YOU ENTERED IS NOT IN YOUR CURRENT DIRECTORY."
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: N_$J("",10-$L(N))
  • Line Location: RTN+5
Function Call: WRITE
  • Prompt: !,B1_ZCMSCNT("RTN")_B0_" Routines Loaded.",!,"The stamp global has been updated to reflect this load."
  • Line Location: RTN+10
Function Call: WRITE
  • Prompt: !,"LOAD STARTED: "_ZCMSSTRT
  • Line Location: RTN+12
Function Call: WRITE
  • Prompt: !,"LOAD FINISHED: "_ZCMSEND
  • Line Location: RTN+13
Function Call: WRITE
  • Prompt: !,B1_ZCMSCNT("DE")_B0_" DATA ELEMENTS LOADED.",!,"The stamp global has been updated to reflect this load."
  • Line Location: DE+7
Function Call: WRITE
  • Prompt: !,"LOAD STARTED: "_ZCMSSTRT
  • Line Location: DE+9
Function Call: WRITE
  • Prompt: !,"LOAD FINISHED: "_ZCMSEND
  • Line Location: DE+10
Function Call: WRITE
  • Prompt: !,B1_ZCMSCNT(FI)_B0_" ELEMENTS LOADED.",!,"The stamp global has been updated to reflect this load."
  • Line Location: LOAD1+6
Function Call: WRITE
  • Prompt: !,"LOAD STARTED: "_ZCMSSTRT
  • Line Location: LOAD1+8
Function Call: WRITE
  • Prompt: !,"LOAD FINISHED: "_ZCMSEND
  • Line Location: LOAD1+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: LDINIT+7
Function Call: WRITE
  • Prompt: !,$P(ENAME,"]",2)," The VMS file does not contain a complete element.",!
  • Line Location: EOF+0
Function Call: WRITE
  • Prompt: $ZE
  • Line Location: EOF+1
Function Call: WRITE
  • Prompt: !!,"I do not know how to load an element with an extension ",B1,".",ETYP,B0,!!,"Please contact the CMS Dudes for help.",!
  • Line Location: FN+8
Function Call: WRITE
  • Prompt: !
  • Line Location: FN+9
Function Call: WRITE
  • Prompt: !!,"File "_ENAME_" not found..."
  • Line Location: FN+9
Function Call: WRITE
  • Prompt: !!,"ENTER ELEMENT NAME AS IT APPEARS IN THE CMS LIBRARY."
  • Line Location: HLP+0
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  All