{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: COOR1Y)}}
====== COOR1Y ======
(GIN Macro)

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

**Used in:** [[george:source:CHARGESC867|CHARGESC867]], [[george:source:CIMOP867|CIMOP867]], [[george:source:CIOUT8|CIOUT8]], [[george:source:NETOFLNE867|NETOFLNE867]], [[george:source:SCAN865|SCAN865]]

<code - COOR1Y.mac.txt>
 6#X# ...[??? COOR1Y SECT CENT FGN 32 DOC
 6*LQ    #MAC  COOR1Y                       [SAME AS COOR1 WITHOUT ACCUM. DUMPING
 6B6B    #SKI  %A
 6BL2          FON      %A   
 6C5L          CALL  0  (COOR1Y) 
 6CK=    #NOR
</code>