Documentos
Recuperar datos de pantalla con un CL |
 |
 |
|
El objetivo de este ejemplo es mostrar como podemos
recuperar los datos de una pantalla desde un CL.
- He creado una pantalla llamada PROVES y el formato
FORMAT1
- En esta pantalla hay un campo de entrada llamado
CAMP01
- en el CL de ejemplo quiero que si el usuario pone
un 1 en el campo CAMP01 el programa finalice. En cambio
si el usuario introduce cualquier otro valor en CAMP01,
el CL envía un mensaje a la pantalla que lo
ejecuto.
PGM
/* DECLARAMOS EL FICHERO DE PANTALLA Y SU FORMATO */
DCLF FILE(PROVES) RCDFMT(FORMAT1)
/* DECLARAMOS LA VARIABLE QUE CONTENDRÁ EL NOMBRE DE LA PANTALLA */
DCL &JOB *CHAR 10
/* RECUPERAMOS EL NOMBRE DE LA PANTALLA QUE EJECUTA EL TRABAJO */
RTVJOBA JOB(&JOB)
SIGO: SNDRCVF RCDFMT(FORMAT1)
/* SI EL CAMPO CAMP01 CONTIENTE 1 NO HACEMOS NADA */
IF COND(&CAMP01 *EQ '1') THEN(RETURN)
/* SI EL CAMPO CAMP01 NO CONTIENTE 1 ENVIAMOS MENSAJE */
SNDBRKMSG MSG('El trabajo fue enviado a proceso espere +
mensaje de Finalizacion') TOMSGQ(&JOB)
ENDPGM
27-01-2003
|
|
| ¿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.
|
|
