Я показываю sfl экран в своей программе rpg, в одном поле WPROV, я использую F4=Help, если пользователь набирает F4, программа показывает sfl окно справки, но программа стирает старый и главный экран, и я могу только см. экран справки sfl. Как вывести на экран главный экран и экран справки окна sfl? другое дело я проверяю поля на экране в своей программе rpg, если есть ошибка я включаю *IN71, *IN72, но я не вижу сообщение об ошибке на моем экране, почему?
Вот главный экран:
A*%%EC
A DSPSIZ(24 80 *DS3)
A R W1
A*%%TS SD 20130821 124511 ALCRUZ REL-V7R1M0 5770-WDS
A TEXT('ventana para ver detalles')
A CF03(03 'salir')
A CF05(05 'ACTUALIZAR')
A CF04(04 'AYUDA')
A CF06(06 'PROCEDER')
A CF12(12 'CANCELAR')
A KEEP
A BLINK
A ALARM
A OVERLAY
A WINDOW(2 2 18 75 *NORSTCSR)
A WDWBORDER((*DSPATR HI RI) (*CHAR '.-
A ..:::.:'))
A RMVWDW
A USRRSTDSP
A 1 22'ACME, S.A. de C.V.'
A DSPATR(HI)
A DSPATR(RI)
A 16 2'F3=Salir'
A DSPATR(HI)
A 1 63DATE
A EDTCDE(Y)
A 2 63TIME
A 1 2USER
A PGMA 10A O 2 2
A 16 39'F5=Actualizar'
A COLOR(WHT)
A 16 57'F12=Cancelar'
A COLOR(WHT)
A 2 19'Generación de Ventas Proveedores F-
A .F.S.'
A 7 26'No. de proveedor (F4).:'
A 10 26'Fecha Inicial(AAAAMMDD)'
A 13 26'Fecha Final..(AAAAMMDD)'
A WFI 8Y 0B 10 51EDTWRD(' / / ')
A COLOR(YLW)
A 72 ERRMSG('** Error en Fecha Inicial *-
A *' 72)
A WFF 8Y 0B 13 51EDTWRD(' / / ')
A COLOR(YLW)
A 73 ERRMSG('** Error en Fecha Final **'-
A 73)
A WNOMBP 30A O 8 26
A 16 13'F4=Ayuda'
A COLOR(WHT)
A WPROV 4A B 7 51COLOR(YLW)
A 71 ERRMSG('ERROR ESTE PROVEEDOR NO EXI-
A STE' 71)
A 16 24'F6=Proceder'
A COLOR(WHT)
И экран окна sfl:
A*%%EC
A DSPSIZ(24 80 *DS3)
A R SWCCHK03 SFL
A*%%TS SD 20130819 102201 ALCRUZ REL-V7R1M0 5770-WDS
A S0AVAL 1Y 0H SFLCHCCTL
A S0OPTN 20A O 6 1
A R SWCCHK04 SFLCTL(SWCCHK03)
A*%%TS SD 20130819 104010 ALCRUZ REL-V7R1M0 5770-WDS
A SFLSIZ(0006)
A SFLPAG(0005)
A WINDOW(*DFT 13 32)
A OVERLAY
A 27 SFLDSP
A N28 SFLDSPCTL
A 28 SFLCLR
A 29 SFLEND
A CF12(12)
A SFLSNGCHC(*RSTCSR *AUTOSLT)
A*
A SFLRRN 4S 0H SFLRCDNBR(CURSOR)
A 1 10'PANTALLA DE AYUDA'
A COLOR(YLW)
A 4 1'Selecciona rengón,oprimiendo la'
A COLOR(WHT)
A CHOICE 20A O 3 1COLOR(BLU)
A 5 1'Barra espaciadora, F12= Salir'
A COLOR(WHT)
