¿ 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
Crear pantallas de ayuda 
Este ejemplo nos muestra como crear una pantalla de ayuda para una aplicación.
Está compuesto por dos definiciones de pantalla, la primera que define la pantalla de la aplicación y en la cual se asigna el mandato 01 como mandato de ayuda y la segunda que describe la pantalla de ayuda.

 

                
A DSPSIZ(24 80 *DS3) A PRINT A ALTHELP(CA01) A CA03(03 'Salir') A CA12(12 'Pantalla Anterior') A R P1 A HELP A H HLPRCD(HELP) A HLPARA(01 001 24 080) A 1 2'NOMBRE PGM' A COLOR(RED) A 1 14USER A COLOR(BLU) A 1 29'Descripción del Programa' A COLOR(WHT) A 1 72DATE A EDTCDE(Y) A COLOR(BLU) A 2 2SYSNAME A COLOR(BLU) A 2 31'(Petición de Datos)' A COLOR(RED) A 2 72TIME A COLOR(BLU) A 3 2' - A - A ' A DSPATR(UL) A COLOR(BLU) A 5 2'Teclee elecciones, pulse Intro.' A COLOR(BLU) A 6 35'Desde' A COLOR(WHT) A 7 2'Campo. . . . . . . . . . . . . .' A WSADD 6Y 0B 7 35TEXT('Agencia Desde') A EDTCDE(3) A CHECK(RB) A CHECK(FE) A 30 ERRMSG('La Agencia tiene que ser ma- A yor que cero.' 30) A 32 ERRMSG('Agencia Hasta mayor que Age- A ncia Desde' 32) A 23 2'F1=Ayuda' A COLOR(BLU) A 23 13'F3=Salir' A COLOR(BLU) A R HELP A 1 2'NOMBRE PGM' A COLOR(RED) A 1 14USER A COLOR(BLU) A 1 29'Descripci¢n del Programa' A COLOR(WHT) A 1 72DATE A EDTCDE(Y) A COLOR(BLU) A 2 2SYSNAME A COLOR(BLU) A 2 31'(Petici¢n de Datos)' A COLOR(RED) A 2 72TIME A COLOR(BLU) A 2 16'AYUDA' A COLOR(WHT) A 4 3'Esta es la pantalla de ayuda' A 24 2'Pulse' A COLOR(WHT) A 24 8'INTRO' A COLOR(RED) A 24 14'para salir de la ayuda' A COLOR(WHT)

Este documento ha sido extraído de la respuesta de JMP en nuestro foro
Puedes ver los fuentes en formato texto aquí
26-07-2002

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