Date opcode

[mksamy_99]

Hi,

What is the opcode used in either RPG and RPGLE
for conversion of date from one format to another format.

Thanks
Muthu

[jamief]

Re: Date opcode

Please follow this link for the detail answer(s)

http://www.code400.com/funwithdates.php

 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

[arrow483]

Re: Date opcode

But if both fields are "date data types", format doesn't really matter.


Eval DateMDY = DateISO

Works just fine.