Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ZIBZUCI

Package: IHS VA %Utilities

Routine: ZIBZUCI


Information

%ZUCI ; IHS/ADC/GTH - SWAP UCI BETWEEN VOLUME SETS FOR MSM-UNIX ; [ 10/29/2002 7:42 AM ]

Source Information

Source file <ZIBZUCI.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
Kernel 1 $$VERSION^%ZOSV  

Entry Points

Name Comments DBIA/ICR reference
EN ; ENTRY - Ask for [UCI,VOL]
VER
ED
SW
HLP
ZT ; Error trap for DSM.
EX ; EXIT
EXAMP
ASK ; Get new UCI name or number.

External References

Name Field # of Occurrence
$$VERSION^%ZOSV %ZUCI+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"SWITCH TO NEW UCI",!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,"You are now in ",$ZU(0)
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !!,"Enter new UCI: "
  • Line Location: ASK+5
Function Call: READ
  • Timeout: 45
  • Variable: %ZIB("%")
  • Line Location: ASK+8
Function Call: WRITE
  • Prompt: *7,"**Timeout**",!!,"You are still in ",$ZU(0)
  • Line Location: ASK+8
Function Call: WRITE
  • Prompt: *7," No action taken!",!!,"You are still in ",$ZU(0)
  • Line Location: ASK+9
Function Call: WRITE
  • Prompt: " ?? **Incorrect input**",*7
  • Line Location: ED+16
Function Call: WRITE
  • Prompt: !,%ZIB("DASHES")
  • Line Location: ED+17
Function Call: WRITE
  • Prompt: !,"Enter ""?"" to get help or"
  • Line Location: ED+18
Function Call: WRITE
  • Prompt: !,"Enter {UCI} {UCI:ROUTINE} {UCI,VOL} {UCI,VOL:ROUTINE}"
  • Line Location: ED+19
Function Call: WRITE
  • Prompt: !,%ZIB("DASHES")
  • Line Location: ED+20
Function Call: WRITE
  • Prompt: !,%ZIB("DASHES")
  • Line Location: HLP+2
Function Call: WRITE
  • Prompt: !,"UCIs and VOLume groups are identified by either a name or number."
  • Line Location: HLP+3
Function Call: WRITE
  • Prompt: !,"Use the name or number identification when selecting a UCI."
  • Line Location: HLP+4
Function Call: WRITE
  • Prompt: !!,"Enter ""??"" to get a list of UCIs and VOLume sets."
  • Line Location: HLP+5
Function Call: WRITE
  • Prompt: !," ""???"" to get examples."
  • Line Location: HLP+6
Function Call: WRITE
  • Prompt: !!,"Enter {UCI} {UCI,VOL} {UCI:ROUTINE} {UCI,VOL:ROUTINE}."
  • Line Location: HLP+7
Function Call: WRITE
  • Prompt: !,%ZIB("DASHES")
  • Line Location: HLP+8
Function Call: WRITE
  • Prompt: !!,"Select from any UCI,VOL from this list:"
  • Line Location: HLP+10
Function Call: WRITE
  • Prompt: !,%ZIB("DASHES")
  • Line Location: HLP+15
Function Call: WRITE
  • Prompt: !,"UCIs in Volume Group Number ",%ZIB("VOL NBR")," . . . Volume Group Name is ",$P($ZU(1,%ZIB("VOL NBR")),",",2),!
  • Line Location: HLP+16
Function Call: WRITE
  • Prompt: "UCI ",%ZIB("UCI,VOL","NBR")," is ",%ZIB("UCI,VOL","NAME")
  • Line Location: HLP+24
Function Call: WRITE
  • Prompt: $J("",25-($L(%ZIB("UCI,VOL","NBR"))+$L(%ZIB("UCI,VOL","NAME"))+8))
  • Line Location: HLP+25
Function Call: WRITE
  • Prompt: !,%ZIB("DASHES")
  • Line Location: HLP+26
Function Call: WRITE
  • Prompt: !!,"Examples for switching UCIs",?53,"NAME SYNTAX",?67,"NUMBER SYNTAX"
  • Line Location: EXAMP+2
Function Call: WRITE
  • Prompt: !,%ZIB("DASHES")
  • Line Location: EXAMP+3
Function Call: WRITE
  • Prompt: !," Switch to DEV on default volume group (0)",?55,"DEV",?72,"3"
  • Line Location: EXAMP+4
Function Call: WRITE
  • Prompt: !," Switch to DEV on the volume group AAA (1)",?55,"DEV,AAA",?72,"3,1"
  • Line Location: EXAMP+5
Function Call: WRITE
  • Prompt: !,%ZIB("DASHES")
  • Line Location: EXAMP+6
Function Call: WRITE
  • Prompt: !,"Examples of switching UCIs and running a routine"
  • Line Location: EXAMP+7
Function Call: WRITE
  • Prompt: ?55,"DEV:%SY",?72,"3:%SY"
  • Line Location: EXAMP+8
Function Call: WRITE
  • Prompt: !?55,"DEV,AAA:%SY",?72,"3,1:%SY"
  • Line Location: EXAMP+9
Function Call: WRITE
  • Prompt: !?55,"DEV:P^DI",?72,"3:P^DI"
  • Line Location: EXAMP+10
Function Call: WRITE
  • Prompt: !,%ZIB("DASHES")
  • Line Location: EXAMP+11
Function Call: WRITE
  • Prompt: !,"NOTE: Name,Number combinations for UCI,VOL syntax are mutually exclusive."
  • Line Location: EXAMP+12
Function Call: WRITE
  • Prompt: !,"If you select a UCI in a Volume Group greater than 0 -"
  • Line Location: EXAMP+13
Function Call: WRITE
  • Prompt: !,"Then you must enter the Volume Group Name or Number!"
  • Line Location: EXAMP+14
Function Call: WRITE
  • Prompt: !,%ZIB("DASHES")
  • Line Location: EXAMP+15
Function Call: WRITE
  • Prompt: !!,*7,"You have switched to ",$ZU(0)," {",%ZIB("UCI,VOL"),"}"
  • Line Location: SW+5
Function Call: WRITE
  • Prompt: !!,*7,"Sorry - ",%ZIB("NEW UCI"),",",%ZIB("NEW VOL")," does not exist!",!,"** NO ACTION TAKEN**!",!
  • Line Location: SW+7
Function Call: WRITE
  • Prompt: *7,!!,"Routine ",$P(%,"^",2)," is not in ",$ZU(0),"'s ",$S(%["%":"Library or MGR UCI ",1:""),"routine directory!!",!
  • Line Location: ZT+7
Function Call: WRITE
  • Prompt: *7,!!,"Label ",$P(%,"^")," is missing in routine ",$P(%,"^",2),"!!",!
  • Line Location: ZT+10

Label References

Name Line Occurrences
@( EX+9
ASK SW+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% VER+5*, EX+1!, EX+3*, EX+4*, EX+5, EX+6*, EX+9, ZT+7, ZT+8!, ZT+10
, ZT+11!
%ZIB EX+7!
%ZIB("%" ASK+8*, ASK+9, ED+3, ED+4, ED+5, ED+6, ED+7, ED+8, ED+9, ED+10
, ED+11, ED+12, ED+13, ED+14, ED+15, HLP+1, HLP+9, EXAMP+1, VER+2, VER+3
, EX+2, EX+3
%ZIB("ASK" ASK+1*, ASK+8*, ASK+9*, ED+2*, ED+21*, SW+6*
%ZIB("DASHES" EN+2*, ED+17, ED+20, HLP+2, HLP+8, HLP+15, HLP+26, EXAMP+3, EXAMP+6, EXAMP+11
, EXAMP+15
%ZIB("NEW UCI " , VER+2*, VER+5, VER+8, SW+1, SW+2, SW+7
%ZIB("NEW VOL " , VER+3*, VER+4, VER+5*, VER+6*, VER+8, SW+1, SW+2, SW+7
%ZIB("NO SYS" , HLP+11*, HLP+12, HLP+14*, ZT+4*
%ZIB("NO UCI" , HLP+17*, HLP+18, HLP+20*, ZT+5*
%ZIB("UCI NBR " , HLP+18*, HLP+20, HLP+21, HLP+22, HLP+23
%ZIB("UCI,VOL" HLP+21*, HLP+22*, HLP+24, HLP+25, SW+1*, SW+2*, SW+5
%ZIB("VERIFY UCI" , ASK+3*, ASK+10*, ED+22*, VER+1, ZT+3*
%ZIB("VOL NBR " , HLP+12*, HLP+14, HLP+16, HLP+20, HLP+21, HLP+22
%ZIB("ZT" ASK+2*, VER+8*, SW+7, ZT+2*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All