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
|
