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

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

**Used in:** [[george:source:BMXEMS83|BMXEMS83]], [[george:source:CHTAB|CHTAB]], [[george:source:GIVEA867|GIVEA867]], [[george:source:INKS|INKS]], [[george:source:IPBLISTA867|IPBLISTA867]], [[george:source:LISTDIRF867|LISTDIRF867]], [[george:source:LISTINIT867|LISTINIT867]], [[george:source:LISTINTC865|LISTINTC865]], [[george:source:LISTSTAR867|LISTSTAR867]], [[george:source:MONOLITH864|MONOLITH864]], [[george:source:OPER864|OPER864]], [[george:source:PCTLISTA867|PCTLISTA867]], [[george:source:QPRINT867|QPRINT867]], [[george:source:SETJD867|SETJD867]], [[george:source:SETPF867|SETPF867]], [[george:source:SETPRAMA867|SETPRAMA867]], [[george:source:SETUPARA867|SETUPARA867]]

<code - DATECON.mac.txt>
 38S8 ...[??? DATECON SECT CENT FGN 7 DOC
 3942    [ MACRO FOR BINARY TO CHARACTER DATE CONVERSION 
 39HL    #MAC  DATECON   
 3=3=    #STR  EDATE,%A  
 3=GW    (   
 3?2G          LDX   0  %A                  [VERSION IF NOT TODAYS DATE WANTED   
 3?G6          SMO      FX2  
 3?^Q          STO   0  EXEC1
 3#FB          DOWN     DATECON,1
 3#^2    )   
 3*DL    #STR  EDATE,%A  
 3*Y=    #SKI
 3BCW    (   
 3BXG          LDX   1  FX1                 [VERSION IF TODAYS DATE WANTED   
 3CC6          LDX   2  FX2  
 3CWQ          LDX   0  FDATE
 3DBB          STO   0  ACOMMUNE1(2) 
 3DW2          LDX   0  FDATE+1  
 3F*L          STO   0  ACOMMUNE2(2) 
 3FT=    )   
 3G#W    #NOR
</code>