¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
System i5 iSeries AS400 Recursos. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Noticias tecnológicas
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

Comentarios de usuarios

Nombre:
Mail:
Comentario:
 

Subir a la parte superior de la web

 

NUESTRA COMUNIDAD EN
ÚNETE Y.... ¡¡ PARTICIPA !!
Dossiers técnicos iSeries y AS400
- Seguridad
- Alta disponibilidad.
Nuestros links favoritos
- Tendencias tecnologías de la información
Expertos en tecnologías de la información, nos dan su punto de vista sobre las tendencias actuales y futuras
- Los últimos anuncios sobre hardware-software para iSeries AS400 realizados por IBM
- Freeware y shareware para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- Los manuales y links más interesantes del iSeries AS400

  Links patrocinados
  •  
  •  

[ Soy nuevo |   Profesionales |   AS qué |   Empresas |    Foros |   Recomiéndanos |    Productos ]
 
Recursos iSeries AS400. Es una web de: PUBLICACIONES HELP400, S.L. CIF:B-60-202827 Gran Vía de les Corts Catalanes, núm. 715, Entresuelo – 3ª - Barcelona - Tel.+34.932.310.049