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

**Defined in:** [[george:source:MACROS_RJDG|MACROS RJDG]]

**Used in:** 

<code - DATECON2.mac.txt>
 3G*5 ...[??? DATECON2 SECT CENT FGN   DOC   
 3G*# ...[MACRO TO PUT CURRENT DATE IN %A
 3G*H ...#MAC  DATECON2  
 3G*Q ...      LDX   0  FDATE
 3G*^ ...      ACCSTO   0,0,%A   
 3GB8 ...      LDX   0  FDATE+1  
 3GBC ...      ACCSTO   0,1,%A   
 3GBL ...#NOR
</code>