MAGSFTCH ;WOIFO/JSL - IMAGE STORAGE COPY UTILITY PROGRAM ; July 01, 2010 1:06 PM
Source file <MAGSFTCH.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^MAG(2005 - [#2005] | FETCH+13, NEXT+1, NEXT+2, NEXT+3, NEXT+10, FETCH1+1, FETCH1+2, FETCH1+6, FETCH1+11, SETLOC+14 , SETLOC+15, SETLOC+19*, SETLOC+20*, SETLOC+28*, SETLOC4B+1*, SETJBL+2, SETJBL+3, SETJBL+6*, SETJBL+7*, SETJBL+10* , SETJBL+13*, FINDIEN+1, LOOP+1, MAGFIX93+7, MAGFIX93+10 |
^MAG(2005.2 - [#2005.2] | ALLCPY+5, ALLCPY+8, ALLCPY+9, ALLCPY+12, FULL+3, FULL+6, FULL+7, FULL+10, SETLOC+10, MAGFIX93+15 , DIRHASH+6 |
^MAG(2006.1 - [#2006.1] | FETCH+9, FETCH1+7, FETCH1+18, MAGFIX93+8, MAGFIX93+9, PRE0+2 |
Name | Line Occurrences |
---|---|
$$CHKDIR | ALLCPY+13, ALLCPY+14, FULL+11, FULL+12, MAGFIX93+16, MAGFIX93+19 |
$$CHKSRC | COPYCMD+1, MOVECMD+1 |
$$DIRHASH | MAGFIX93+16, MAGFIX93+19 |
$$FINDIEN | FETCH+13, FETCH+14 |
$$PRE0 | MAGFIX93+18 |
@( | ALLCPY+21, FULL+17 |
ALLCPY | FETCH1+16 |
COPYCMD | JR+1, JJ+1, RJ+2, RR+2 |
FETCH1 | NEXT+4 |
FULL | FETCH1+12, FETCH1+13, FETCH1+14, FETCH1+15 |
LOOP | LOOP+1, LOOP+4 |
MAGFIX93 | FETCH1+11 |
MOVECMD | RJ+1, RR+1 |
NEXT | NEXT+3, NEXT+10 |
SETJBL | SETLOC+12 |
SETLOC4B | SETLOC+22 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ABS | CHKSRC+2~*, CHKSRC+3*, CHKSRC+4*, CHKSRC+5*, CHKSRC+6*, CHKSRC+7 |
BIG | CHKSRC+2~*, CHKSRC+3*, CHKSRC+4*, CHKSRC+5*, CHKSRC+6*, CHKSRC+7 |
BTMOUT | FETCH+7~, FETCH+9*, NEXT+7, NEXT+8 |
CMD | FETCH+6~, COPYCMD+1*, COPYCMD+2*, COPYCMD+3*, COPYCMD+4*, COPYCMD+5*, COPYCMD+6, MOVECMD+1*, MOVECMD+2*, MOVECMD+3* , MOVECMD+4*, MOVECMD+5*, MOVECMD+6, MAGFIX93+5~ |
CNT | FETCH+6~, NEXT+2* |
DA | MAGFIX93+5~, MAGFIX93+27* |
DATE | FETCH~, FETCH+10*, FETCH+11*, FETCH+13, FETCH+14, NEXT+5, FETCH1+3 |
DIE | MAGFIX93+5~, MAGFIX93+27* |
DIR | CHKDIR~, CHKDIR+1*, CHKDIR+2 |
DR | MAGFIX93+5~, MAGFIX93+27* |
DT1 | FETCH+6~, NEXT+5, FETCH1+2*, FETCH1+3, FINDIEN~, LOOP+2 |
DT2 | FETCH+6~, FETCH+10*, FETCH+11*, FETCH+14, NEXT+5, FETCH1+3 |
DTOUT | FETCH+6~ |
DUZ | MAGFIX93+28 |
DUZ(2 | FETCH+9 |
ENDIM | FETCH+6~, FETCH+10*, FETCH+14*, NEXT+2, NEXT+4, NEXT+5, FETCH1+4 |
EXT | FETCH+6~, FETCH1+10*, COPYCMD+4, MOVECMD+4, MAGFIX93+5~, MAGFIX93+17*, MAGFIX93+23, MAGFIX93+27 |
EXT1 | MAGFIX93+5~, MAGFIX93+23*, MAGFIX93+24, MAGFIX93+25 |
FILE | FETCH+6~, FETCH1+10*, FETCH1+11*, ALLCPY+16, FULL+13, COPYCMD+2, COPYCMD+3, COPYCMD+4, COPYCMD+5, MOVECMD+2 , MOVECMD+3, MOVECMD+4, MOVECMD+5 |
FILENAME | DIRHASH~, DIRHASH+10 |
FN | DIRHASH+5~, DIRHASH+10*, DIRHASH+11, DIRHASH+12 |
FNAME | FETCH+6~, NEXT+5, FETCH1+10*, FETCH1+11*, ALLCPY+13, ALLCPY+14, FULL+11, FULL+12 |
FRMLOC | FETCH+6~, NEXT+5, FETCH1+8*, FETCH1+11, FETCH1+12, FETCH1+13, FETCH1+14, FETCH1+15, FETCH1+17, FULL+2 , FULL+4, FULL+16 |
FROM | FETCH+6~, ALLCPY+13*, ALLCPY+16, FULL+11*, FULL+13, COPYCMD+2, COPYCMD+3, COPYCMD+4, COPYCMD+5, MOVECMD+2 , MOVECMD+3, MOVECMD+4, MOVECMD+5 |
HASH | DIRHASH+5~, DIRHASH+11*, DIRHASH+12*, DIRHASH+13*, DIRHASH+15*, DIRHASH+16 |
HASHFLAG | DIRHASH+5~, DIRHASH+6*, DIRHASH+7 |
I | DIRHASH+5~, DIRHASH+12* |
IEN | MAGFIX93~, MAGFIX93+7, MAGFIX93+10, MAGFIX93+18, MAGFIX93+27, MAGFIX93+28, PRE0~, PRE0+3 |
IEN1 | FETCH+6~ |
IEN2 | FETCH+6~ |
IM | FETCH+6~, FETCH+10*, FETCH+13*, NEXT+1, NEXT+2*, NEXT+3*, NEXT+4, NEXT+5, NEXT+8, NEXT+10* , NEXT+11, FETCH1+1, FETCH1+2, FETCH1+3*, FETCH1+4, FETCH1+6, FETCH1+11, SETLOC~, SETLOC+8, SETLOC+14 , SETLOC+15, SETLOC+19, SETLOC+20, SETLOC+28, SETLOC4B+1, SETJBL+2, SETJBL+3, SETJBL+6, SETJBL+7, SETJBL+10 , SETJBL+13 |
IN | FETCH+6~, FINDIEN+1*, LOOP+1*, LOOP+2*, LOOP+3*, LOOP+4, LOOP+5 |
IN1 | FETCH+6~, FINDIEN+1*, LOOP+2, LOOP+3*, LOOP+4 |
IN2 | FETCH+6~, FINDIEN+1*, LOOP+1, LOOP+2*, LOOP+3, LOOP+4 |
J | PRE0+1~, PRE0+3* |
JBLOC | FETCH+6~, ALLCPY+12*, ALLCPY+16, FULL+10*, FULL+13, COPYCMD+2, COPYCMD+3, COPYCMD+4, COPYCMD+5, MOVECMD+2 , MOVECMD+3, MOVECMD+4, MOVECMD+5 |
L | CHKDIR+1~* |
LNO | FETCH+6~, FETCH+8*, NEXT+5, FETCH1+5*, ALLCPY+1*, ALLCPY+17*, ALLCPY+18*, FULL+1*, FULL+14*, FULL+15* , COPYCMD+2*, COPYCMD+3*, COPYCMD+4*, COPYCMD+5*, MOVECMD+2*, MOVECMD+3*, MOVECMD+4*, MOVECMD+5*, MAGFIX93+9*, MAGFIX93+21* , MAGFIX93+22*, MAGFIX93+25* |
LOC | FETCH+6~, ALLCPY+5*, ALLCPY+7, ALLCPY+12, FULL+3*, FULL+5, FULL+10, MAGFIX93+5~, MAGFIX93+15*, MAGFIX93+20 , MAGFIX93+21, MAGFIX93+22, MAGFIX93+25 |
LOCN | FETCH+6~, ALLCPY+2*, ALLCPY+4*, ALLCPY+5, ALLCPY+6, ALLCPY+8, ALLCPY+13, FULL+2*, FULL+3, FULL+4 , FULL+6, FULL+11, CHKSRC+3, CHKSRC+4, CHKSRC+5, CHKSRC+6, MAGFIX93+5~, MAGFIX93+13*, MAGFIX93+15, MAGFIX93+16 , MAGFIX93+19 |
LOCN( | ALLCPY+2*, ALLCPY+4 |
LOCN(0 | ALLCPY+3 |
LOGTIME | FETCH+7~, FETCH+9*, NEXT+7 |
M | FETCH+7~ |
MAGIEN | FETCH~, FETCH+10, NEXT+8, FETCH1+19, ALLCPY+3, COPYCMD+6, MOVECMD+6 |
MKDIR | ALLCPY+1~, ALLCPY+15, ALLCPY+19* |
MOVOLD | FETCH+7~, NEXT+5, FETCH1+8*, RJ+1, RR+1 |
NDIR | MAGFIX93+5~, MAGFIX93+19*, MAGFIX93+21, MAGFIX93+22, MAGFIX93+25 |
NETLOC | FETCH~, FETCH1+8, FETCH1+16 |
NETLOCN | DIRHASH~, DIRHASH+6 |
NFNAME | MAGFIX93+5~, MAGFIX93+18*, MAGFIX93+19, MAGFIX93+25, MAGFIX93+27, MAGFIX93+28 |
NO | ALLCPY+1~, ALLCPY+17*, FULL+1~, FULL+14*, MAGFIX93+5~, MAGFIX93+21*, PRE0+1~, PRE0+3*, PRE0+4 |
NTLOC | FETCH+7~, SETLOC~, SETLOC+7, SETLOC+9, SETLOC+10, SETLOC+11, SETLOC+13, SETLOC+17, SETLOC+18, SETLOC+20 , SETLOC+22, SETLOC+23, SETLOC+25, SETLOC+26, SETLOC+29, SETLOC+30, SETLOC4B+1, SETJBL+1, SETJBL+5, SETJBL+7 , SETJBL+9, SETJBL+13 |
NWNAME | MAGFIX93+5~, MAGFIX93+9*, MAGFIX93+18, PRE0+2*, PRE0+3 |
ODIR | MAGFIX93+5~, MAGFIX93+16*, MAGFIX93+20, MAGFIX93+25 |
OFNAME | MAGFIX93+5~, MAGFIX93+12*, MAGFIX93+16, MAGFIX93+20, MAGFIX93+25, MAGFIX93+28 |
OK | FETCH+7~, FETCH+8*, NEXT+5, NEXT+7, NEXT+10, FETCH1+17*, JR+2*, JJ+2*, RJ+1*, RJ+3* , RR+1*, RR+3*, SETLOC+5~, SETLOC+6*, SETLOC+17*, SETLOC+18*, SETLOC+19, SETLOC+20, SETLOC+23*, SETLOC+25* , SETLOC+26*, SETLOC+28, SETLOC+29, SETLOC4B+1, SETJBL+5*, SETJBL+6, SETJBL+7, SETJBL+9*, SETJBL+10, SETJBL+13 |
OUT | FETCH~, FETCH+8!, FETCH1+11, SETLOC~, SETLOC+6!, MAGFIX93~ |
OUT( | ALLCPY+17*, ALLCPY+18*, FULL+14*, FULL+15*, COPYCMD+2*, COPYCMD+3*, COPYCMD+4*, COPYCMD+5*, MOVECMD+2*, MOVECMD+3* , MOVECMD+4*, MOVECMD+5*, MAGFIX93+21*, MAGFIX93+22*, MAGFIX93+25* |
OUT(" " | ALLCPY+1, FULL+1 |
OUT(1 | FETCH+8*, NEXT+5*, NEXT+6, NEXT+8*, NEXT+11*, FETCH1+4*, FETCH1+9*, FETCH1+17*, FETCH1+19*, ALLCPY+3* , ALLCPY+10*, FULL+8*, COPYCMD+6*, MOVECMD+6*, SETLOC+6*, SETLOC+8*, SETLOC+9*, SETLOC+11*, SETLOC+13*, SETLOC+14* , SETLOC+19*, SETLOC+20*, SETLOC+28*, SETLOC+29*, SETLOC4B+1*, SETJBL+1*, SETJBL+2*, SETJBL+6*, SETJBL+7*, SETJBL+10* , SETJBL+13* |
OUT(2 | NEXT+10!, FETCH1+17*, ALLCPY+1, ALLCPY+16*, FULL+1, FULL+13*, MAGFIX93+20* |
PLACE | FETCH+7~, FETCH1+7*, FETCH1+18, ALLCPY+8, FULL+6, MAGFIX93+8*, MAGFIX93+9, PRE0+2 |
PS | FETCH+7~, ALLCPY+2* |
RDLOC | FETCH+7~, ALLCPY+12*, ALLCPY+17, ALLCPY+18, FULL+10*, FULL+14, FULL+15, COPYCMD+2, COPYCMD+3, COPYCMD+4 , COPYCMD+5, MOVECMD+2, MOVECMD+3, MOVECMD+4, MOVECMD+5 |
SITE | FETCH+7~, FETCH1+6*, FETCH1+7, MAGFIX93+5~, MAGFIX93+7*, MAGFIX93+8 |
SRC | COPYCMD+1~*, COPYCMD+2, COPYCMD+3, COPYCMD+4, COPYCMD+5, MOVECMD+1~*, MOVECMD+2, MOVECMD+3, MOVECMD+4, MOVECMD+5 , SETLOC+5~, SETLOC+7*, SETLOC+16, SETLOC+17, SETLOC+18, SETLOC+20, SETJBL+4, SETJBL+5, SETJBL+7, SETJBL+12 |
START | FETCH+7~ |
STOP | FETCH+7~ |
STYP | FETCH+7~, NEXT+5, ALLCPY+7*, ALLCPY+11*, ALLCPY+21, FULL+5*, FULL+9*, FULL+17, COPYCMD+1, MOVECMD+1 , CHKSRC~, CHKSRC+3, CHKSRC+4, CHKSRC+5, CHKSRC+6 |
TGA | CHKSRC+2~*, CHKSRC+3*, CHKSRC+4*, CHKSRC+5*, CHKSRC+6*, CHKSRC+7 |
TLOC | FETCH+7~, ALLCPY+9*, ALLCPY+10, FULL+7*, FULL+8, FULL+9 |
TO | FETCH+7~, ALLCPY+14*, ALLCPY+17, ALLCPY+18, FULL+12*, FULL+14, FULL+15, COPYCMD+2, COPYCMD+3, COPYCMD+4 , COPYCMD+5, MOVECMD+2, MOVECMD+3, MOVECMD+4, MOVECMD+5 |
TP | FETCH+7~ |
TXT | CHKSRC+2~*, CHKSRC+3*, CHKSRC+4*, CHKSRC+5*, CHKSRC+6*, CHKSRC+7 |
U | FETCH+8*, FETCH+9, NEXT+2, NEXT+4, NEXT+5, FETCH1+2, FETCH1+6, FETCH1+10, FETCH1+11, FETCH1+12 , FETCH1+13, FETCH1+14, FETCH1+15, FETCH1+17, FETCH1+18, ALLCPY+2, ALLCPY+6, ALLCPY+7, ALLCPY+8, ALLCPY+10 , ALLCPY+12, FULL+2, FULL+4, FULL+5, FULL+6, FULL+8, FULL+9, FULL+10, FULL+16, COPYCMD+2 , COPYCMD+3, COPYCMD+4, COPYCMD+5, MOVECMD+2, MOVECMD+3, MOVECMD+4, MOVECMD+5, CHKSRC+3, CHKSRC+4, CHKSRC+5 , CHKSRC+6, CHKSRC+7, SETLOC+6*, SETLOC+10, SETLOC+11, SETLOC+12, SETLOC+13, SETLOC+17, SETLOC+18, SETLOC+20 , SETLOC+23, SETLOC+25, SETLOC+26, SETLOC+29, SETJBL+5, SETJBL+7, SETJBL+9, SETJBL+12, MAGFIX93+6*, MAGFIX93+7 , MAGFIX93+9, MAGFIX93+11, MAGFIX93+13, MAGFIX93+15 |
WRTLOC | FETCH+7~, NEXT+5, FETCH1+8*, FETCH1+9, FETCH1+18*, FETCH1+19, ALLCPY+9, ALLCPY+12, ALLCPY+14, FULL+7 , FULL+10, FULL+12 |
WZIP | FETCH+7~, FETCH1+8* |
X | FETCH+7~, SETLOC+5~, SETLOC+10*, SETLOC+11, SETLOC+12, SETLOC+13, SETLOC+14*, SETLOC+17, SETLOC+18, SETLOC+25 , SETLOC+26, SETLOC+29, SETJBL+2*, SETJBL+5, SETJBL+9, MAGFIX93+5~, MAGFIX93+10*, MAGFIX93+11, MAGFIX93+13 |
X0 | FETCH+7~, NEXT+1*, NEXT+2*, NEXT+4, FETCH1+10, FETCH1+11*, FETCH1+12, FETCH1+13, FETCH1+14, FETCH1+17 , ALLCPY+2, ALLCPY+6, FULL+2, FULL+4, COPYCMD+1, MOVECMD+1, CHKSRC~, CHKSRC+3, CHKSRC+4, CHKSRC+5 , CHKSRC+6 |
X1 | FETCH+7~, ALLCPY+1~, ALLCPY+17*, FULL+1~, FULL+14*, MAGFIX93+5~, MAGFIX93+21* |
X2 | FETCH+7~, FETCH1+2* |
XBIG | FETCH+7~, NEXT+5, FETCH1+1*, FETCH1+15, ALLCPY+2, FULL+4, FULL+16*, COPYCMD+1, MOVECMD+1, CHKSRC~ , CHKSRC+3, CHKSRC+4, CHKSRC+5, CHKSRC+6, SETLOC+5~, SETLOC+15*, SETLOC+20, SETLOC+30, SETJBL+3*, SETJBL+7 , SETJBL+11, SETJBL+12, MAGFIX93+24 |
>> XWBTIME | FETCH+9 |
Y | FETCH+7~, SETLOC+5~, SETLOC+14*, SETLOC+17*, SETLOC+18*, SETLOC+19, SETLOC+23*, SETLOC+25*, SETLOC+26*, SETLOC+28 , SETJBL+2*, SETJBL+5*, SETJBL+6, SETJBL+9*, SETJBL+10, LOOP+1*, LOOP+2, MAGFIX93+5~, MAGFIX93+11*, MAGFIX93+12 , MAGFIX93+17 |