Hallo Dieter,

Wenn ihr das Datum direkt als Datums Feld übergebt konvertiert das System automatisch zwischen SQL und RPG.
Beispiel:
Code:
H DATFMT(*ISO)
D getDate         PR            10A
D _Date                           D

PgetDate          B                   export
D                 PI            10A
D _Date                           D

  return %Char (_Date);

PgetDate          E
Code:
create or replace function mylib.dateToChar(p_Date date)
returns char(10)
language rpgle
external name 'MYLIB/MYSRVPGM(GETDATE)'
parameter style general;
Aufruf:
Code:
values (mylib.dateToChar(current date) );
lg Andreas