REWRITE [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: REWRITE)}}
====== REWRITE ======
(GIN Macro)

**Defined in:** [[george:source:ACCESSMACROS|ACCESSMACROS]]

**Used in:** [[george:source:ALLOCATE867|ALLOCATE867]], [[george:source:ANTIC867|ANTIC867]], [[george:source:ARCHIVE867|ARCHIVE867]], [[george:source:ARCHIVNW83|ARCHIVNW83]], [[george:source:BACKMASS860|BACKMASS860]], [[george:source:BMFIXIT864|BMFIXIT864]], [[george:source:BMJLIST864|BMJLIST864]], [[george:source:BMOUTPUT867|BMOUTPUT867]], [[george:source:BSPRUNE867|BSPRUNE867]], [[george:source:CANCRVX864|CANCRVX864]], [[george:source:CHTAB|CHTAB]], [[george:source:CLOSEAB863|CLOSEAB863]], [[george:source:CLOSEMT867|CLOSEMT867]], [[george:source:CLOSFREZ867|CLOSFREZ867]], [[george:source:COMPOST867|COMPOST867]], [[george:source:COPYFILA867|COPYFILA867]], [[george:source:DEAD867|DEAD867]], [[george:source:DICTJOB82|DICTJOB82]], [[george:source:DSCNCT867|DSCNCT867]], [[george:source:DTREST860|DTREST860]], [[george:source:DTSUBSS867|DTSUBSS867]], [[george:source:DTWRONG867|DTWRONG867]], [[george:source:ERASE867|ERASE867]], [[george:source:ERASEA867|ERASEA867]], [[george:source:FHOBJDIR860|FHOBJDIR860]], [[george:source:FHOBJIND860|FHOBJIND860]], [[george:source:FILESECU83|FILESECU83]], [[george:source:FREEZE864|FREEZE864]], [[george:source:INCEND865|INCEND865]], [[george:source:INCEOT865|INCEOT865]], [[george:source:INCOBS867|INCOBS867]], [[george:source:INCWRITE865|INCWRITE865]], [[george:source:INKS|INKS]], [[george:source:JOBLIST867|JOBLIST867]], [[george:source:JSASCAN867|JSASCAN867]], [[george:source:JWELLONE867|JWELLONE867]], [[george:source:LIBLOAD867|LIBLOAD867]], [[george:source:LIBMANY867|LIBMANY867]], [[george:source:LIBQUERY|LIBQUERY]], [[george:source:LIBREQC867|LIBREQC867]], [[george:source:LIBREQCA867|LIBREQCA867]], [[george:source:LIBSEC867|LIBSEC867]], [[george:source:LOGCOM864|LOGCOM864]], [[george:source:NAMEPRIV|NAMEPRIV]], [[george:source:NEWOWN865|NEWOWN865]], [[george:source:NEWPASSW867|NEWPASSW867]], [[george:source:NEWPW867|NEWPW867]], [[george:source:OPENEND865|OPENEND865]], [[george:source:OPENREL865|OPENREL865]], [[george:source:ORELEMPT70|ORELEMPT70]], [[george:source:ORELEND860|ORELEND860]], [[george:source:ORELMAIN867|ORELMAIN867]], [[george:source:PRIVLEG84|PRIVLEG84]], [[george:source:RENAMAG864|RENAMAG864]], [[george:source:RENAMEMT867|RENAMEMT867]], [[george:source:RETRIEVE864|RETRIEVE864]], [[george:source:RETURNIT867|RETURNIT867]], [[george:source:REWRITE864|REWRITE864]], [[george:source:SCHDJOBA867|SCHDJOBA867]], [[george:source:SCHEDENX860|SCHEDENX860]], [[george:source:TRAPGO864|TRAPGO864]], [[george:source:USERDIR842|USERDIR842]], [[george:source:USERSTRM867|USERSTRM867]], [[george:source:WORKFILE860|WORKFILE860]]

<code - REWRITE.mac.txt>
 4?FJ ...[??? REWRITE SECT FILE FGN 19 DOC   
 4?PB    #MAC  REWRITE   
 4#92    #STR  %A
 4#NL    #SKI
 4*8=          DOWN  REWRITE,33  
 4*MW    #STR  %A
 4B7G    (   
 4BM6          LDCT  0  %A   
 4C6Q          SMO      FX2  
 4CLB          STO   0  ACOMMUNE7
 4D62          DOWN     REWRITE,3
 4DKL    )   
 4F5=    #NOR
</code>