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

Package: Kernel

Routine: ZTMGRSET


Information

ZTMGRSET ;SF/RWF,PUG/TOAD - SET UP THE MGR ACCOUNT FOR THE SYSTEM ;02/13/2008

Source Information

Source file <ZTMGRSET.m>

Entry Points

Name Comments DBIA/ICR reference
A
DOIT
RELOAD ;Reload any patched routines
PATCH(PCNM) ;Post install Reload any patched routines
MES(T,B) ;Write message.
OS() ;Select the OS
B
OSNUM() ;Return the OS number
ALL
TM ;Taskman
FM ;Rename the FileMan routines
ETRAP ;Error Trap
OTHER
DEV
RUM ;Build the routines for Capacity Management (CM)
ZOSF(X) ;
1 ;;VAX DSM(V6), VAX DSM(V7)
2 ;;MSM-PC/PLUS, MSM for NT or UNIX
3 ;;Cache (VMS, NT, Linux), OpenM-NT
4 ;;
5 ;;
6 ;;
7 ;;GT.M (VMS)
8 ;;GT.M (Unix)
10 ;;NOT SUPPORTED
MOVE ; rename % routines
  • ICR #6212
    • Status: Active
    • Usage: Private
    COPY(FROM,TO) ;
    R() ; routine directory for GT.M
    DES
    GLOBALS ;Set node zero of file #3.05 & #3.07
    NAME ;Setup the static names for this system
    MGR
    PROD
    VOL

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"ZTMGRSET Version ",$P($T(+2),";",3)," Patch level ",$P($T(+2),";",5)
    • Line Location: A+0
    Function Call: WRITE
    • Prompt: !,"HELLO! I exist to assist you in correctly initializing the current account."
    • Line Location: A+1
    Function Call: WRITE
    • Prompt: $C(7),!!,"This is namespace or uci ",Y,".",!
    • Line Location: A+4
    Function Call: WRITE
    • Prompt: !,"OS type not selected. Exiting ZTMGRSET."
    • Line Location: A+7
    Function Call: WRITE
    • Prompt: !,"Need a Patch number to load."
    • Line Location: A+8
    Function Call: READ
    • Formatting: !!
    • Prompt: "Patch number to load: "
    • Variable: PCNM
    • Timeout: 120
    • Line Location: A+9
    Function Call: WRITE
    • Prompt: !
    • Condition for execution: B
    • Line Location: MES+3
    Function Call: WRITE
    • Prompt: !,T
    • Line Location: MES+3
    Function Call: WRITE
    • Prompt: !,"I think you are using ",X1
    • Line Location: B+1
    Function Call: WRITE
    • Prompt: !,"Which MUMPS system should I install?",!
    • Line Location: B+3
    Function Call: WRITE
    • Prompt: !,I," = ",$P($T(@I),";",3)
    • Line Location: B+4
    Function Call: WRITE
    • Prompt: !,"System: "
    • Line Location: B+5
    Function Call: WRITE
    • Prompt: ZTOS,"//"
    • Condition for execution: ZTOS
    • Line Location: B+5
    Function Call: READ
    • Variable: X
    • Timeout: 300
    • Line Location: B+6
    Function Call: WRITE
    • Prompt: !,"NOT A VALID CHOICE"
    • Line Location: B+7
    Function Call: WRITE
    • Prompt: !!,"Now to load routines common to all systems."
    • Line Location: ALL+0
    Function Call: WRITE
    • Prompt: !,"Installing ^%Z editor"
    • Line Location: ALL+5
    Function Call: WRITE
    • Prompt: !,"Setting ^%ZIS('C')"
    • Line Location: ALL+7
    Function Call: READ
    • Formatting: !
    • Prompt: "Want to rename the FileMan routines: No//"
    • Variable: X
    • Timeout: 600
    • Line Location: FM+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: ZOSF+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: ZOSF+1
    Function Call: WRITE
    • Prompt: !,"- Use autostart to do ZTMB don't resave as STUSER."
    • Line Location: 2+1
    Function Call: WRITE
    • Prompt: !!,"Now, I will check your % globals."
    • Line Location: GLOBALS+1
    Function Call: WRITE
    • Prompt: ".........."
    • Line Location: GLOBALS+2
    Function Call: READ
    • Variable: X
    • Timeout: $S($G(DTIME):DTIME,1:9999)
    • Line Location: MGR+0
    Function Call: WRITE
    • Prompt: !,"NAME OF MANAGER'S UCI,VOLUME SET: "_^%ZOSF("MGR")_"// "
    • Line Location: MGR+0
    Function Call: READ
    • Variable: X
    • Timeout: $S($G(DTIME):DTIME,1:9999)
    • Line Location: PROD+0
    Function Call: WRITE
    • Prompt: !,"PRODUCTION (SIGN-ON) UCI,VOLUME SET: "_^%ZOSF("PROD")_"// "
    • Line Location: PROD+0
    Function Call: READ
    • Variable: X
    • Timeout: $S($G(DTIME):DTIME,1:9999)
    • Line Location: VOL+0
    Function Call: WRITE
    • Prompt: "MUST BE 3 Upper case."
    • Line Location: VOL+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: VOL+1
    Info |  Source |  Entry Points |  Interaction Calls