Documentos
Recuperar dia de la semana con un CL
|
 |
 |
PGM
/* Declaramos la variable DIA que contendrá el valor del
día de la semana */
DCL VAR(&DIA) TYPE(*CHAR) LEN(4)
/* Recuperamos el valor del sistema QDAYOFWEEK */
RTVSYSVAL SYSVAL(QDAYOFWEEK) RTNVAR(&DIA)
/* Llamamos a nuestro programa y ya le pasamos el día de la
semana que es hoy */
CALL PGM(PROGRAMA1) PARM(&DIA)
ENDPGM
|
|
| ¿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.
|
|
