RPGLE - Convert Date - free forma

 RPGLE  - Convert Date - free forma

V5R2
  /free
    numDate = %int(%char(date : *eur0);  //  ddmmyyyy
    numTS = %dec(%char(timestamp : *iso0) : 20 : 0);   //yyyymmddhhmmssuuuuuu
                /End Free
 


  V5R1

   H bnddir('QC2LE')  
   D atoll           pr            20i 0 extproc('atoll')  
   D  string                         *   value options(*string)
  
   /free
   numDate = atoll(%char(date : *eur0));
                 /End Free