请教怎么用RPG和DSPF在以有的视窗上创建一个新的小的视窗？

kylekai

请教怎么用RPG和DSPF在以有的视窗上创建一个新的小的视窗？例如在原有的窗口中按F4选择后，跳出一个新的小的视窗，在新的跳出的视窗上的显示要选择的数据。怎么用RPG和DSPF创建一个可以规定大小的视窗。求助高人呐！！！

stick522

A*****************************************************************
     A                                      PRINT(QPRINT)
     A                                      CHGINPDFT(CS UL)
     A                                      CF05(05 'DO')
     A                                      CF12(12 'PREVIOUS')
     A*===============================================================*
     A          R DSPW                      TEXT('WINDOW')
     A*===============================================================*
     A                                      OVERLAY
     A                                      WINDOW(&WDPSX &WDPSY 12 45)
     A                                      WDWBORDER((*DSPATR RI) +
     A                                      (*CHAR '********'))
     A            WDPSX          3S 0P      TEXT('X-POS')
     A            WDPSY          3S 0P      TEXT('Y-POS')
     A*----------------------------------------------------------------
     A          R DSPF01                    TEXT('FIRST DISPLAY')
     A*----------------------------------------------------------------
     A                                      OVERLAY
     A                                      WINDOW(DSPW)
     A**
     A*****       F#DEVC        10A  O  1 02TEXT('TERMINAL-ID')
     A            F#TITL        36O  O  1 05
     A                                      DSPATR(RI HI)
     A*****                             1 23'SAMPLE D-3'
     A*****       F#PEXU         8Y 0O  1 35TEXT('DATE')
     A*****                                 EDTWRD('    /  /  ')
     A*****                             2 35TIME TEXT('TIME')
     A*****       F#UPRC         8A  O  2 02TEXT('USER-ID')
     A**
     A            F#DAT1        40O  O  3 03
     A            F#DAT2        40O  O  5 03
     A            F#DAT3        40O  O  7 03
     A            F#DAT4        40O  O 09 03
     A                                 11  3'F5O'
     A                                 11 10'F12REVIOUS'
     A*****                             8 18'Y / N :'
     A*****       F#ANS1         1A  B  8 28
     A**31                                  DSPATR(RI PC)
     A****        F#MSG         44O  O 11 02TEXT('MESSAGE') DSPATR(HI)
     A**
     A*==============================================================*
     A*           DUMME
     A*==============================================================*
     A          R DUMME                     ASSUME
     A                                  1  8' '
     A                                      DSPATR(ND)

这个是一个confirm程序的dspf，如果你要做成数据选择的，差不多，windows中间的显示添加一个subfile就可以了

[ 本帖最后由 stick522 于 2006-12-21 15:51 编辑 ]

kylekai

非常感谢~~~不懂我在请教你stick522，谢谢！

kylekai

前辈是在哪个windows中间添加啊？？？

stick522

如果你要改成数据显示，当然是把windows作为sfl control record，然后定义一个sfl作为数据显示

kylekai

谢谢~~~那如果我要"call LYR755"这个程式,并让这个LYR755的内容在这个小画面中显示,那应该怎么写啊?假设一个RPG程式叫"LYR755".

stick522

没这个功能

kylekai

谢谢了~~~知道了~~~