Re: Controlling the date separater in the RPG program

[Brian Parkins <goodprophet.bp@xxxxxxxxx>]

The *EUR format only allows '.' as the separator character. (In fact 
none of the 4-digit year formats - *ISO, *EUR, *USA or *JIS - allow any 
choice of separator. Only the 2-digit formats allow this.)

Curly brackets mean a value is optional - if not specified, a default 
will be applied.

EXAMPLE:
**Free

Dcl-S CharVar1 Char(10) Inz('05.05.2025'); //European format date string
Dcl-S CharVar2 Char(8);
Dcl-S CharVar3 Char(8);

Dcl-S DateVar Date(*JIS);

Dcl-S UserId Char(10) Inz(*User);

  DateVar = %Date(CharVar1:*Eur.);  // No choice of separator - but 
code '.' if you wish
  Dsply DateVar UserID;

  CharVar2 = %Char(DateVar:*DMY-);  // Use any of '/-.,&'
  Dsply CharVar2 UserID;

  CharVar3 = %Char(DateVar:*YMD);   // Defaults to '/'
  Dsply CharVar3 UserID;

  *InLR = *ON;
  Return;

HTH,
Brian.

On 05/05/2025 14:56, Dave wrote:
> Its scandalous I know, but I've managed to get through my whole career
> without understanding the curly brackets in the doc :DATFMT(fmt{separator})
> %date in my program in *eur format will give me '.' as separators. I want
> '/'. Nowhere can I find a simple example of the above keyword with a
> separator.
>
> Please help.
> Thank you