Documentos
Recuperar fecha y hora actuales utilizando un CL
|
 |
 |
|
PGM
DCL &TIME *CHAR 16
DCL &ERR *CHAR 4 VALUE(X'00000000')
CALL QWCCVTDT PARM('*CURRENT' XX '*YMD' &TIME &ERR)
SNDPGMMSG &TIME
ENDPGM
25-03-2002
|
|
| ¿Buscas trabajo ? | | Inscríbete en nuestra lista laboral y recibirás las ofertas de trabajo en tu buzón de correo electrónico. | | |
¿Tienes algún truco que quieras compartir con todos
los profesionales de Recursos iSeries AS400?.
Envianoslo y si resulta seleccionado
te enviaremos un vale de Amazon por valor de 50$.
Todos los trucos y documentos recibidos serán publicados.
|
|