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 |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call  | 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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call  | All