MAGSFTCH ;WOIFO/JSL - IMAGE STORAGE COPY UTILITY PROGRAM ; July 01, 2010 1:06 PM
Source file <MAGSFTCH.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
FETCH(OUT,MAGIEN,DATE,NETLOC) | ;RPC = MAG STORAGE FETCH
|
|
NEXT | ;IEN range in reverse order, find matched IEN to fetch/copy
|
|
FETCH1 | ;Find the image file from share
|
|
ALLCPY | ;copy ALL set image files to JB
|
|
FULL | ;copy all images full set
|
|
STYP | ;; COPY image - JB->RAID (e.g.:Fetching JB)
|
|
JR | ;JB to RAID
|
|
JJ | ;JB to JB
|
|
RJ | ;RAID to JB
|
|
RR | ;RAID to RAID
|
|
COPYCMD | ;create each copy cmd line for GUI (called by FETCH1/JR/JJ/RJ/RR)
|
|
MOVECMD | ;create each Move cmd line for GUI
|
|
CHKSRC(STYP,X0,XBIG) | ;check if source files exist for copy
|
|
SETLOC(OUT,IM,NTLOC) | ;RPC = MAG STORAGE FETCH SET
|
|
SETLOC4B | ;BIG file RAID
|
|
SETJBL | ;SET JB location
|
|
FINDIEN(DT1) | ; Find last IEN mark(IN) to process on DT1
|
|
LOOP | ;check image saved date
|
|
MAGFIX93(OUT,IEN) | ;API - MAG UTIL FIX9.3, fix 9.3 10.3 file format (call by FETCH1)
|
|
PRE0(IEN) | ;pre '0' for 14 characters => Namespace_nnnnnnnn_ien'
|
|
CHKDIR(DIR) | ; chk "\\"
|
|
DIRHASH(FILENAME,NETLOCN) | ; determine the hierarchical file directory hash
; Input Variables: ; FILENAME -- the name of the file, with or without the extension ; NETLOCN --- the network location file internal entry number ; Return Value: the hierarchical file directory hash |
RPC Name | Call Tags |
---|---|
MAG STORAGE FETCH | FETCH |
MAG STORAGE FETCH SET | SETLOC |
FileNo | Call Tags |
---|---|
^MAG(2005 - [#2005] | Classic Fileman Calls |