AS400/COBOL上subfile的问题

milanfeng

主界面main-menu是个DSPF,内有几个 Format:

Format 1 : main-menu 上显示的输入项
Format 2 : subfile
Format 3 : subfile-control
Format 4 : Footer

流程如下：
1.运行该程序进入main-menu.
2.选择main-menu 上的选项后，按下F5进入subfile的界面显示结果。
3.按下F12后，返回main-menu.

注：subfile 只用做显示。

问题是：
运行该程序后，按顺序跑1、2、3步是成功的。接着在main-menu
上重复第2步时，程序退出，而且是直接退出至用户登陆界面（就是进入
AS400前的输入用户名和密码的界面）。

请高手指教，谢谢。

milanfeng

先顶一下

milanfeng

有人会吗

nego

第二次写subfile的时候subfile-control里面 SFLSCROLL 和      
SFLRCDNBR(CURSOR) 没有重新设定吧

milanfeng

楼上的，SFLSCROLL该设多少？



A          R TESTMS                    SFL              
A            AA        6  0O  7  2                 
A            BB        2  0O  7 10                 
A            CC       20   O  7 20                 
A            DD       20   O  7 43                 
A            EE        6  2O  7 65                 
A          R TESTMC                    SFLCTL(TESTMS)         
A                                      ROLLDOWN(82 'ROLL DOWN')
A                                      OVERLAY                 
A                                      PROTECT                 
A                                      SFLSIZ(13)              
A                                      SFLPAG(12)              
A  83                                  SFLDSP                  
A  84                                  SFLDSPCTL               
A  85                                  SFLCLR                  
A  99                                  SFLEND(*MORE)           
A            WDPOS          4S 0H      SFLRCDNBR  
A            CURPAG         5S 0H      SFLSCROLL

jskyzz

单步调试一下 应该是 write subfile的时候出问题

milanfeng

jskyzz,

已单步调试过，确如你所说，是write subfile 时出的错，具体语句如下：
Write Subfile Screen-Record From TESTMS-O
      Format Is 'TESTMS'                  
        Indic is Indic-Area               

由于程序是直接退出至用户登陆的界面，因此当我重新登陆后已没法找到原来的job log，失去进一步追查的依据．所以，我想请问，在写subfile之前还需要设置写什么？

注：
程序里已通过 DISP 文件里的control format对subfile进行了清空：
set subfile_clear_on To True.
Write Screen-Record From TESTMC-O FORMAT IS 'TESTMC'  
      INDICATORS ARE INDIC-AREA .                     
set subfile_clear_off To True.

而且，
对于指示器 SFLDSP 和　SFLDSPCTL　我已设置为TRUE.

还有，
第一次显示subfile时并未出错．

fxf_china

WDPOS 必须 >0

jskyzz

同意楼上  这个能造成直接退到原始界面的情况

milanfeng

谢谢楼上的，经核查，已在显示subfile之前对WDPOS设置如下：
Move 1     To WDPOS     Of TESTMC-O  

我想应该不是WDPOS，但是哪个问题目前还调测不出来......