Routine: MAGSDOFL

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

Customize PDF page

Package: Imaging

Routine: MAGSDOFL

Information

Source Information

Entry Points

Interaction Calls

Used in RPC

FileMan Files Accessed Via FileMan Db Call

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