Data Structure

[dcutaia]

Variable
S1DATE 8Y 0O 6 50EDTCDE(Y) = 03012012
MMDDYYYY

I want to convert this to numeric 8P, 0 = 20120312
YYYYMMDD

What is the best method to convert?

DAC

[tomholden]

Re: Data Structure

use %DATE() bifs

[venky2903]

Re: Data Structure

%char(%Date(%char(WorkDate8):*ISO0):*EUR0)

[jamief]

Re: Data Structure

d displaydate     s              8                                               
d Isodate         s               D                                              
d Mydate          s              8  0 inz(20120312)                              
d reply           s              1                                               
d usadate         s              8  0                                            
                                                                                 
 /free                                                                           
              *inlr = *on;                                                       
              test(de) *iso  Mydate;                                             
              if not%error;                                                      
               Isodate = %date(Mydate:*iso);                                     
               usadate = %dec(Isodate:*usa);                                     
                                                                                 
               displaydate = %editc(usadate:'X');                                
               dsply displaydate reply;                                          
                                                                                 
              endif;                                                             
 /end-free