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 |
