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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: MAGSDOFL

Package: Imaging

Routine: MAGSDOFL


Information

MAGSDOFL ;WOIFO/SF - DEX & AA Track Offline Images ; 01/31/13

Source Information

Source file <MAGSDOFL.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 (,HOME)^%ZIS  ^%ZISC  
VA FileMan 2 UPDATE^DIE  ^DIK  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Imaging 4 MAG JB OFFLINE  MAG UTIL BKONLJB  MAG UTIL JBOFFLN  MAG UTIL LSTOFLJB  

Entry Points

Name Comments DBIA/ICR reference
ENTRY ;Interactive entry here
LOOP ; main menu loop
AGAIN ;
SETUP ;
RETURN ;
OFFLINE(MAGIN) ;Set images offline
ASK1
LINE(OUT,LN,MAGPLAT) ;RPC - MAG UTIL JBOFFLN
; LN := Process the line from JB platter/media report
; MAGPLAT := platter name
; OUT := return the result
; e.g.: '0, Done'
; '-1, Error message'
FNAME(LN) ;Find img file name
ONLINE(MAGPLAT) ;Set images back online
ASK
HELP ;List offline platters
LISTP
LISTOFL(OUT) ;RPC - MAG UTIL LSTOFLJB ;LIST OFFLINE JB PLATTER(S) ;;*98
BKONL(OUT,MAGPLAT) ;RPC - MAG UTIL BKONLJB ;Put images back online (Insert Jukebox Platter)
GROUP ;Remove platters in group
ASK3
HELP1 ;Help for offline
HELP2 ;Help for OPTION prompt
HELP3 ;Help for GROUP platters TXT
TRIM(X) ;
ERROR ;Trap Errors Here
OPTIONS ; Offline Image Menu

External References

Name Field # of Occurrence
^%ZIS ASK1+11, ASK3+6, ASK3+14
HOME^%ZIS SETUP+2
^%ZISC ASK3+8, ASK3+26, ERROR+1
UPDATE^DIE ASK1+21, LINE+15, ASK3+24
^DIK ASK+11, BKONL+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Use the MAG JB OFFLINE menu option to run this application"
  • Line Location: ENTRY+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENTRY+3
Function Call: WRITE
  • Prompt: !!,$P($T(OPTIONS),";",3),!
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: !,?2,$J(N,2),?6,$P(X,";")
  • Line Location: LOOP+5
Function Call: READ
  • Prompt: " "
  • Variable: R
  • Timeout: DTIME
  • Line Location: AGAIN+1
Function Call: WRITE
  • Prompt: !!,?2,"OPTION: "
  • Line Location: AGAIN+1
Function Call: WRITE
  • Prompt: " ??? -- Invalid option. Try again."
  • Line Location: AGAIN+8
Function Call: WRITE
  • Prompt: !!,"Here goes nothing...",!
  • Line Location: ASK1+10
Function Call: READ
  • Variable: LN
  • Timeout: 5
  • Line Location: ASK1+12
Function Call: WRITE
  • Prompt: !,MAGPLAT
  • Line Location: ASK1+15
Function Call: WRITE
  • Prompt: "."
  • Line Location: ASK1+16
Function Call: WRITE
  • Prompt: !,"Done."
  • Line Location: ASK1+23
Function Call: WRITE
  • Prompt: " Platter not on file..."
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: "."
  • Line Location: ASK+12
Function Call: WRITE
  • Prompt: !,"Problem deleting entry# "_MAGENT
  • Line Location: ASK+13
Function Call: WRITE
  • Prompt: !,"Done."
  • Line Location: ASK+14
Function Call: WRITE
  • Prompt: !,"Do you want to see a list of all offline platters? "
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!,"Answer ""yes"" to see a list of platters currently marked offline"
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !,"Answer ""no"" to return",!
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !,MAGPLAT
  • Line Location: LISTP+2
Function Call: READ
  • Variable: MAGPLAT
  • Timeout: 30
  • Line Location: ASK3+7
Function Call: WRITE
  • Prompt: "|"
  • Line Location: ASK3+7
Function Call: WRITE
  • Prompt: !!,"Here goes nothing...",!,"50 per '.'",!
  • Line Location: ASK3+10
Function Call: WRITE
  • Prompt: !,PLAT
  • Line Location: ASK3+11
Function Call: WRITE
  • Prompt: !,"Sorry, ",PLAT," not found, try later.",!
  • Line Location: ASK3+14
Function Call: READ
  • Variable: LN
  • Timeout: 5
  • Line Location: ASK3+15
Function Call: WRITE
  • Prompt: !,MAGPLAT
  • Line Location: ASK3+18
Function Call: WRITE
  • Prompt: "."
  • Line Location: ASK3+19
Function Call: WRITE
  • Prompt: !,"Done (",CNT," platter(s), total files ",TOTAL," were marked offline.)",!
  • Line Location: ASK3+28
Function Call: WRITE
  • Prompt: !,"Enter the name of the file created by the jukebox media file report"
  • Line Location: HELP1+1
Function Call: WRITE
  • Prompt: !,"Select option 1 if you are marking DEX images offline"
  • Line Location: HELP2+1
Function Call: WRITE
  • Prompt: !,"Select option 2 if you are marking images online"
  • Line Location: HELP2+2
Function Call: WRITE
  • Prompt: !,"Select option 3 if you want the listing of off-line platter(s)"
  • Line Location: HELP2+3
Function Call: WRITE
  • Prompt: !,"Select option 4 if you are taking the group of platters off-line"
  • Line Location: HELP2+4
Function Call: WRITE
  • Prompt: !,"Select option 5 if you are marking Archive Appliance (AA) images offline"
  • Line Location: HELP2+5
Function Call: WRITE
  • Prompt: !,"Type ""^"" to quit"
  • Line Location: HELP2+6
Function Call: WRITE
  • Prompt: !,"Enter the full file name that is grouped by the jukebox media TXT file report",!
  • Line Location: HELP3+1
Function Call: WRITE
  • Prompt: !,"For example: you do 'DIR JB*.TXT /B /S > [USER]DIR.TXT' ,append '~end' at end of file",!
  • Line Location: HELP3+2
Function Call: WRITE
  • Prompt: !,"Then use [USER]DIR.TXT as source file",!
  • Line Location: HELP3+3
Routine Call
  • %ZIS
  • Line Location:
    • ASK1+11
    • ASK3+6
    • ASK3+14
Routine Call
  • %ZIS
  • Line Location:
    • SETUP+2
Routine Call
  • DIE
  • Line Location:
    • ASK1+21
    • LINE+15
    • ASK3+24

Used in RPC

RPC Name Call Tags
MAG UTIL BKONLJB BKONL
MAG UTIL JBOFFLN LINE
MAG UTIL LSTOFLJB LISTOFL

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^MAGQUEUE(2006.033 - [#2006.033] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("OS" SETUP+1
^%ZOSF("TRAP" ASK1+7, ASK3+5, ASK3+13
^MAGQUEUE(2006.033 - [#2006.033] ASK+6, ASK+9, LISTP+1, LISTOFL+2, BKONL+4, BKONL+6

Label References

Name Line Occurrences
$$FNAME ASK1+17, LINE+11, ASK3+20
$$TRIM ASK1+14, LINE+10, ASK3+17
@( AGAIN+4
AGAIN AGAIN+2, AGAIN+8
ASK ASK+3
ASK1 ASK1+3
ASK3 ASK3+2
HELP ASK+3, HELP+3
HELP1 ASK1+3
HELP2 AGAIN+2
HELP3 ASK3+2
LOOP AGAIN+3
OPTIONS LOOP+2
RETURN AGAIN+4
SETUP ENTRY+3, LOOP+1, RETURN+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS ASK1+6*, ASK3+4*, ASK3+12*
>> %ZIS("HFSMODE" ASK1+6*, ASK3+4*, ASK3+12*
>> %ZIS("HFSNAME" ASK1+6*, ASK3+4*, ASK3+12*
BOLD ENTRY+2~, SETUP+5*
CNT LISTOFL+1~, LISTOFL+2*, BKONL+1~, BKONL+6*, BKONL+8, GROUP+1~, ASK3+11*, ASK3+28
COUNT OFFLINE+1~, ASK1+9*, ASK1+13*, ASK1+16, GROUP+1~, ASK3+12*, ASK3+16*, ASK3+19
DA ASK+10*, BKONL+1~, BKONL+7*
DIK ASK+7*, BKONL+1~, BKONL+5*
DTIME AGAIN+1, RETURN+2, ASK1ASKASK3
DUZ ENTRY+1
I LOOP+3*, AGAIN+4*, TRIM+1~, TRIM+2*, TRIM+3, TRIM+4
IO ASK1+12, ASK3+7, ASK3+15
IO(0 ASK1+10, ASK1+15, ASK1+16, ASKASK+12, ASK+13, ASK+14, HELP+1, LISTP+2, ASK3+7
ASK3+10, ASK3+11, ASK3+18, ASK3+19, ASK3+28
IOF ENTRY+3, SETUP+1*
IOP ASK1+4~, ASK1+6*, GROUP+1~, ASK3+4*, ASK3+12*
J TRIM+1~, TRIM+3*, TRIM+4
LN ASK1+12*, ASK1+14*, ASK1+15, ASK1+17*, ASK1+19, LINE~, LINE+9, LINE+10*, LINE+11*, LINE+13
, FNAME~, FNAME+2, FNAME+3*, FNAME+5, FNAME+6*, FNAME+7, ASK3+15*, ASK3+17*, ASK3+18, ASK3+20*
ASK3+22
MAGENT ASK+4~, ASK+8*, ASK+9*, ASK+10, ASK+13, BKONL+5*, BKONL+6*, BKONL+7
MAGFDA ASK1+4~, GROUP+1~
MAGFDA( ASK1+19*, ASK1+20*, LINE+13*, LINE+14*, ASK3+22*, ASK3+23*
MAGFL ASK1+4~, ASK1+8*, ASK1+19, ASK1+20, LINE+7~, LINE+8*, LINE+13, LINE+14, GROUP+1~, ASK3+9*
ASK3+22, ASK3+23
MAGIEN ASK1+18!*, ASK1+19, ASK1+20, LINE+7~, LINE+12!*, LINE+13, LINE+14, GROUP+1~, ASK3+21!*, ASK3+22
ASK3+23
MAGIN OFFLINE~, ASK1ASK1+5*, ASK1+6, ASK3+3*, ASK3+4
MAGPLAT ASK1+15*, ASK1+20, LINE~, LINE+9, LINE+14, ONLINE~, ASKASK+5*, ASK+6, ASK+9
, LISTP*, LISTP+1*, LISTP+2, LISTOFL+1~*, LISTOFL+2*, BKONL~, BKONL+3, BKONL+4, BKONL+6, GROUP+1~
ASK3+7*, ASK3+18*, ASK3+23
MAGPLAT( ASK3+7*, ASK3+11
N ENTRY+2~, LOOP+3*, LOOP+5*, AGAIN+3, AGAIN+4*, AGAIN+6*, FNAME+3*
NORMAL ENTRY+2~, SETUP+4*
OUT LINE~, LISTOFL~, BKONL~
OUT( LISTOFL+2*
OUT(0 LINE+8*, LINE+9*, LINE+16*
OUT(1 LISTOFL+1*, BKONL+2*, BKONL+3*, BKONL+4*, BKONL+8*
PLAT GROUP+1~, ASK3+11*, ASK3+12, ASK3+14
POP GROUP+1~, ASK3+14
R ENTRY+2~, AGAIN+1*, AGAIN+2, AGAIN+3, AGAIN+4
TOTAL GROUP+1~, ASK3+16*, ASK3+28
U SETUP+3*
X LOOP+3*, LOOP+4, LOOP+5, AGAIN+4, AGAIN+5*, RETURN+2*, ASK1*, ASK1+1, ASK1+2, ASK1+3
ASK1+5, ASK1+7*, ASK*, ASK+1, ASK+2, ASK+3, ASK+5, HELP+1*, HELP+2, HELP+3
HELP+4, GROUP+1~, ASK3*, ASK3+1, ASK3+2, ASK3+3, ASK3+5*, ASK3+13*, TRIM~, TRIM+2
, TRIM+3, TRIM+4
XX FNAME+1~, FNAME+2, FNAME+3*
Y ASK+12, BKONL+1~, BKONL+8

Marked Items

Name Field # of Occurrence
$T(OPTIONS LOOP+2
$T(OPTIONS+I LOOP+3, AGAIN+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All