PGM
DCL VAR(&DATE) TYPE(*CHAR) LEN(6)
DCL VAR(&TIME) TYPE(*CHAR) LEN(6)
RTVSYSVAL SYSVAL(QDATE) RTNVAR(&DATE)
CVTDAT DATE(&DATE) TOVAR(&DATE) FROMFMT(*SYSVAL) +
TOFMT(*JOB) TOSEP(*NONE)
RTVSYSVAL SYSVAL(QTIME) RTNVAR(&TIME)
SNDPGMMSG MSGID(CPF9897) MSGF(QCPFMSG) MSGDTA('Il est +
:' *BCAT %SST(&TIME 1 2) *CAT 'h' *CAT +
%SST(&TIME 3 2) *CAT 'm' *CAT %SST(&TIME +
5 2) *BCAT 'nous sommes le :' *BCAT +
%SST(&DATE 1 2) *CAT '/' *CAT %SST(&DATE +
3 2) *CAT '/' *CAT %SST(&DATE 5 2)) +
MSGTYPE(*COMP)
ENDPGM
| 
| 
