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 |