Conference ilbbak::ibi_focus

215.0. "A6 Format date question/problem" by PEKING::MCSHANEG (Alas poor Yorik..I knew him well) Fri May 19 1989 08:56

	Note also entered in SHIRE::FOCUS
        ---------------------------------
    
    	Help!!! How can I do this.....
        
    	I have a field which is a date but not held in any type of date 
    	format that FOCUS will recognise, eg DEC or FOCUS internal
    	date format. Just yymmdd.
    
    	I have managed to get FOCUS to see this as a date by doing the 
    	following in the .MAS :
    
    	FIELDNAME=DTE,   ALIAS=DATE_1,    USAGE=I6,    ACTUAL=A6,$
    	DEFINE YEAR/A2 = EDIT(DTE,'99$$$$');$
    	DEFINE MNTH/A2 = EDIT(DTE,'$$99$$');$
    	DEFINE DAY/A2  = EDIT(DTE,'$$$$99');$
    	DEFINE FIELD1/A6 = DAY || MNTH || YEAR;$
    	DEFINE FIELD2/I6DMY = EDIT(FIELD1);$
    
        This results in..
    
    	Original string   =    "890515" 
    	Field2            =    15/05/89
    
        But...
    
        Fields contained in data file...
    
    	890428
    	890428
    	890428
    	890428
    	890509
    	890510

      TABLE FILE DATABASE
      PRINT FIELD2
      IF FIELD2 GT '270489'
      END
    		
      This .FEX will only find the first 4 records as above and not
      the last two. It works ok if I search for a specific date but
      not when the search involves spanning months.
    
      Any help would be appreciated.
    
    
    				Gary @ WLC