%editc whit %subdt dosen't work

[Thunder]

I need to extract the day of a timestamp and convert into alfa, i can't use the %char because of zero suppress.

eval alfa = %editc(%subdt(timestamp:*d):'X' )
it retuns '00'
using %char insted of %editc code, retuns ' 5'

what's wrong?

[paolinosal]

Hi Thunder,

You see 00 because the result of %Editc is '0000005', so you see only the first two byte...

probably there are better solutions, but you can try this:

**free                                                                      
Dcl-s Day Char(2);                                                          

  Evalr Day =  '0' + %Char(%Subdt(%Timestamp() :*D));                      
  Dsply Day;                                                                
  Evalr Day =  '0' + %Char(%Subdt(z'2019-01-31-15.30.10.000000' :*D));      
  Dsply Day;                                                                
  *Inlr = *On;

[Thunder]

I think this is better
Eval Day = %subst( %editc (%dec (%time(wzdthr) ) : 'X' ) :5:2)

At lease it works :P!

[Brian Rusch]

Or you could go with the original expression, just change the Eval to an EvalR:

EvalR alfa = %editc(%subdt(timestamp:*d):'X' )

[Thunder]

That return '00'

[Brian Rusch]

I just tested it and it returns '05'. Are you sure you changed the Eval opcode to an EvalR (eval right)?

[Thunder]

You right, it works!

[CRinger400]

EvalR Day2a = %Char(%Date(%Timestamp()):*ISO);

Ringer

[Barbara Morris]

To get %SUBDT to only return 2 digits for *D, try adding :2 to %SUBDT:

eval alfa = %editc(%subdt(timestamp : *d [COLOR=#FF0000][B]: 2[/B][/COLOR]) : 'X' )

The ability to control the length of the %SUBDT result was added in 7.2.

http://www.ibm.com/support/knowledgecenter/ssw_ibm_i_72/rzasd/bbsubd.htm

Also note the fourth parameter for %SUBDT, allowing decimal places for *SECONDS. See the last part of the example.

[Thunder]

Thanks you all !