REPMACL

(GIN Macro)

Defined in: MACROS DTP

Used in:

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