FILEMOVE [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: FILEMOVE)}}
====== FILEMOVE ======
(GIN Macro)

**Defined in:** [[george:source:RING-MACROS|RING-MACROS]]

**Used in:** [[george:source:ADDICT865|ADDICT865]], [[george:source:BACKMAP864|BACKMAP864]], [[george:source:BMCNTRL866|BMCNTRL866]], [[george:source:BMOUTPUT867|BMOUTPUT867]], [[george:source:COPYA867|COPYA867]], [[george:source:COPYB867|COPYB867]], [[george:source:CREALEX864|CREALEX864]], [[george:source:EDIT867|EDIT867]], [[george:source:EDITET7|EDITET7]], [[george:source:EDITMFO867|EDITMFO867]], [[george:source:INCCHECK860|INCCHECK860]], [[george:source:IPBLISTC867|IPBLISTC867]], [[george:source:IPBLISTD867|IPBLISTD867]], [[george:source:JOBLIST867|JOBLIST867]], [[george:source:LISTINIT867|LISTINIT867]], [[george:source:LISTLOOP867|LISTLOOP867]], [[george:source:LISTPREP865|LISTPREP865]], [[george:source:LOGANAL864|LOGANAL864]], [[george:source:PCTLISTA867|PCTLISTA867]], [[george:source:PERFCHAP866|PERFCHAP866]], [[george:source:RENGAGE851|RENGAGE851]], [[george:source:RESTEND850|RESTEND850]], [[george:source:SAVEFILE860|SAVEFILE860]]

<code - FILEMOVE.mac.txt>
 FM94 ...[??? FILEMOVE SECT FILE FGN 20 DOC  
 FMDW    #   
 FMYG    # THIS MACROS MOVES A FILE FROM ONE LEVEL TO ANOTHER IN A GIVEN ACTIVITY
 FND6    #   
 FNXQ    #MAC           FILEMOVE 
 FPCB    #ACC  %C
 FPX2    #SKI
 FQBL    (   
 FQW=          SMO      FX2  
 FR*W          STO   %A ACOMMUNE3
 FRTG    )   
 FS*6          LDN   0  %A   
 FSSQ          SMO      FX2  
 FT#B          STO   0  ACOMMUNE1
 FTS2          LDN   0  %B   
 FW?L          SMO      FX2  
 FWR=          STO   0  ACOMMUNE2
 FX=W    #SKI  %C
 FXQG    (   
 FY=6    #ACC  %C
 FYPQ    (   
 F^9B          LDX   0  %C   
 F^P2          SMO      FX2  
 G28L          STO   0  ACOMMUNE3
 G2N=    )   
 G37W    )   
 G3MG    #SKI  %C
 G476    #SKI
 G4LQ    (   
 G56B          SMO      FX2  
 G5L2          STOZ     ACOMMUNE3
 G65L    )   
 G6K=          DOWN     CHANFILE,3   
 G74W    #NOR
</code>