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

**Defined in:** [[george:source:MACROS_EWDAS|MACROS EWDAS]]

**Used in:** [[george:source:BRADSPLT867|BRADSPLT867]], [[george:source:CHINTEG867|CHINTEG867]], [[george:source:CLOSDEL867|CLOSDEL867]], [[george:source:CONTRACT866|CONTRACT866]], [[george:source:EXINTO867|EXINTO867]], [[george:source:FINDFS867|FINDFS867]], [[george:source:WRITEFIP867|WRITEFIP867]]

<code - CLOSEWR.mac.txt>
 #2RL    #   
 #3?=    [???                                CLOSEWR 
 #3QW    #                                   ******* 
 #4=G    #MAC  CLOSEWR   
 #4Q6    #   
 #59Q          LDX   0  %B   
 #5PB          STO   0  EBLOCK(3)
 #692    #STR  %C
 #6NL          LDCT  0  #600 
 #78=    #STR  %C
 #7MW    #SKI
 #87G          LDCT  0  #400 
 #8M6          STO   0  EWK(3)   
 #96Q    #STR  C,%A  
 #9LB    #SKI
 #=62          DOWN     TRANSFER,4   
 #=KL    #STR  W,%A  
 #?5=    #SKI
 #?JW          DOWN     TRANSFER,5   
 ##4G    #NOR
</code>