Focal Point
[CLOSED] Quickest Way to convert alpha date to YYMD

This topic can be found at:
https://forums.informationbuilders.com/eve/forums/a/tpc/f/7971057331/m/5197076526

October 31, 2012, 03:13 PM
WFLurker
[CLOSED] Quickest Way to convert alpha date to YYMD
what is the quickest way to convert DDMTRYY to YYMD

06APR1990 is in Alpha 9 format

Example
06APR1990 to 1990/04/06 ??

This message has been edited. Last edited by: Kerry,


WF 8105M
- Portal, Dashboard
- Rcaster, Data Migrator
- Windows 2012 Client Server
- Dev/App Studio 8105
- Data: SQL, Oracle, Neteeza,MVS
November 01, 2012, 06:14 AM
Alan B
If this field is in a non-FOCUS file, look up DATEPATTERN.
    FIELDNAME=DATE, ALIAS=DATE, USAGE=YYMD, ACTUAL=A9, 
    DATEPATTERN='[DD][MON][YYYY]',$

converts '06APR1990' to 1990/04/06.


Alan.
WF 7.705/8.007
November 01, 2012, 05:54 PM
Edward Wolfgram
 
DEFINE FILE CAR                                                        
OLDDATE/A9 WITH COUNTRY = '06APR1990' ;                                
AMON/A3 = EDIT(OLDDATE,'$$999') ;                                      
IMON/A2 = DECODE AMON(                                                 
  JAN 01 FEB 02 MAR 03 APR 04 MAY 05 JUN 06 JUL 07 AUG 08 SEP 09 OCT 10
  NOV 11 DEC 12);                                                      
ADATE/A8YYMD = EDIT(OLDDATE,'$$$$$9999') | IMON | EDIT(OLDDATE,'99') ; 
NEWDATE/YYMD = ADATE ;                                                 
END                                                                    
-RUN                                                                   
TABLE FILE CAR                                                         
PRINT OLDDATE NEWDATE                                                  
IF RECORDLIMIT EQ 1                                                    
END                                                                    
-RUN


This code will be completely compiled on the mainframe since 7.6, and also on all other platforms starting with 7.7.04.


IBI Development