这是我的屏幕的dds:
<pre>
<code>
A DSPSIZ(27 132 *DS4)
A R ASSUME
A ASSUME
A OVERLAY
A 1 3' '
A R SFLSEL SFL
A SFLNXTCHG
A SEL 1A B 4 2VALUES(' ' '1')
A 43 DSPATR(ND)
A 43 DSPATR(PR)
A FLDFET 8Y 0O 4 5EDTWRD(' / / ')
A FLDUSE 10A O 4 37
A FLDHOR 6Y 0O 4 28EDTWRD(' : : ')
A FLDFEC 8Y 0O 4 17EDTWRD(' / / ')
A FLDPER 20A H
A R CTRSEL SFLCTL(SFLSEL)
A CF03(03 'Salir')
A KEEP
A OVERLAY
A SFLCSRRRN(&RRN)
A 80 SFLDSP
A 81 SFLDSPCTL
A 82 SFLINZ
A 83 SFLCLR
A 40 SFLEND(*MORE)
A SFLSIZ(9999)
A SFLPAG(0008)
A WINDOW(*DFT 13 50)
A WDWBORDER((*COLOR BLU))
A WDWTITLE((*TEXT 'Intro = Continuar -
A F3 = Salir') *CENTER *BOTTOM)
A WDWTITLE((*TEXT 'CONSULTAR REVISION-
A ES PASADAS') *CENTER)
A NBR 4S 0H SFLRCDNBR(CURSOR)
A RRN 5S 0H
A 1 2'Op. 1=Seleccionar'
A COLOR(BLU)
A 2 2'Op Fecha Trab Fecha Gen Hora -
A Usuario '
A 3 2'==================================-
A =============='
A COLOR(WHT)
A MSGERR 30A O 1 20COLOR(RED)
</code>
</pre>
但是对于任何razon总是删除te背景屏幕,我需要显示选择但不删除前屏幕。 我尝试了几种方法来保持控制,ASSUME,OVERLAY,PUTOVR,RSTDSP * YES,没有任何效果,请帮助我。
答案 0 :(得分:1)
您可以验证是否使用RSTDSP(* YES)编译了后台屏幕。如果没有,请尝试使用CHGDSPF命令设置属性。
答案 1 :(得分:1)
问题是您需要单独记录使用OVERLAY
和ASSUME
。您不必显示此记录或完全引用它,它只需要在显示文件中。
例如:
0017.70 A*--------------------------------------------------------------*
0017.80 A . . . . . . R BLKLN24
0018.00 A . . . . . . . . . . . . . . . . . . ASSUME
0018.10 A . . . . . . . . . . . . . . . . . . OVERLAY
应该有用。