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

**Defined in:** [[george:source:MACROS_DTP|MACROS DTP]]

**Used in:** 

<code - REPMACL.mac.txt>
 #4F=    [??? REPMACL SECT DIAG FGN 555 DOC  
 #4FG    #MAC  REPMACL                      [M.C.D. MANN 
 #4FQ    [   
 #4G2    [   
 #4G=    [     ************* 
 #4GG    [     *  REPMACL  * 
 #4GQ    [     ************* 
 #4H2    [   
 #4H=    [   
 #4HG    #UNS  AMACDEVSYS                   [MACRO HANDLING ENHANCEMENT  
 #4HQ    (   
 #4J2    #SKI  ADTP<1$1  
 #4J=    (   
 #4JG    !     NOT ALLOWED IN THIS CONTEXT  [REPMACL NOT ALLOWED EXTERNALLY  
 #4JQ    #EXI
 #4K2    )   
 #4K5    #STR  :,%A                         [IF USER-NAME NOT SPECIFIED: 
 #4K8    (   
 #4K?          LOSEMACR %A                  [FORGET THE EXISTING DEFINITION  
 #4KB    #SKI  ADTPFH
 #4KF    #GEO  REPMACL  ,%A,FH              [ASSIGN THE MACRO FILE ON *FH1   
 #4KJ    #SKI  ADTPFH<1$1
 #4KM    #GEO  REPMACL  ,%A                 [OR ON *CR1 AS APPROPRIATE   
 #4KQ    )   
 #4KW    #STR  :,%A                         [IF USER-NAME IS SPECIFIED:  
 #4L2    #SKI
 #4L7    (   
 #4L#          LOSEMACR %B                  [FORGET THE EXISTING DEFINITION  
 #4LG    #SKI  ADTPFH
 #4LQ    #GEO  REPMACL  %A,%B,FH            [ASSIGN THE MACRO FILE ON *FH1   
 #4M2    #SKI  ADTPFH<1$1
 #4M8    #GEO  REPMACL  %A,%B               [OR ON *CR1 AS APPROPRIATE   
 #4MB    )   
 #4MJ          USEFILE                      [COMPILE THE NEW DEFINITION  
 #4MQ    #SKI  ADTPFH<1$1
 #4N2    #GEO  RL *CR1   
 #4N=    #PAG
 #4NG    #EXI
 #4NQ    )   
 #4P2    ! "REPMACL" MACRO NOT YET AVAILABLE [PRE- MACRO HANDLING ENHANCEMENT
 #4P=    #NOR
</code>