关于如何实现在DSPF中一次处理多个用户选项

SAXONBABY

大家好：
    上次发贴，刚发出去就找到了处理灵感，看来这儿是我的福地。:wink:
    当然还是要感谢大家细心的回帖，感谢这个论坛，让我们有这么好的技术交流平台。
   
    先阐述一下我的问题：
    目前开发一个程序，用DSPF实现客户信息的列表，并对其进行一些处理。
    但现在想实现同时对多个客户的处理，就是说：比如选项11为移动，希望能实现在n条数据前输入11，执行后可以将这n条数据都移动。
    问题：
    目前我只能实现每次选一个客户进行操作，试了一些方法都没有成功，不知大家做过这方面的程序吗？还请大家多指教。
   
    我用循环依次处理多个请求，并在循环结束后，根据处理结果给客户显示了全部的请求处理结果，:wink:，速度很快，谢谢大家指点 。

[ 本帖最后由 SAXONBABY 于 2009-12-3 20:04 编辑 ]

franliu

你可以学pdm中f13=repeat的功能，将subfile全部读出来，在填上你要的option,不就成了？
如下图：




                           Work with Members Using PDM                 EAPASD02
                                                                                
File  . . . . . .   QRPGSRC                                                   
   Library . . . .     ASSETGP612           Position to  . . . . .              
                                                                                
Type options, press Enter.                                                     
  2=Edit         3=Copy  4=Delete 5=Display       6=Print     7=Rename         
  8=Display description  9=Save  13=Change text  14=Compile  15=Create module...
                                                                                
Opt  Member      Type        Text                                             
      ACP105D     RPG         UACP105D-Vendor Master Listing                    
      ACP210D     RPG         ACP210D-Aged Payables Prompt Editor               
      ACP230D     RPG         UACP230D-Invoice Listing                          
      ACP500B     RPG         ACP500B-Audit Trail for ACP500                    
      ACP500D2    RPG         ACP500D2-ACP500 Header Validation Panel           
      ACP500D3    RPG         ACP500D3-Purchase Order Matching                  
      ACP500D4    RPG         ACP500D4-AP Invoice Entry Distribution            
      ACP500D5    RPG         ACP500D5-Invoice Entry Tax Correction            
                                                                        More...
Parameters or command                                                         
===>                                                                           
F11=Display names and types                F12=Cancel         F13=Repeat      
F14=Display date        F15=Sort date      F23=More options   F24=More keys

seouldeng

如何查看F13的源程序？

franliu

ibm pdm的源程序当然不会公开给你啦，不过这个功能很容易实现的。

就是从头到尾读遍每一个subfile纪录，发现一行有人打入某个option,如11，就把11添入后面的行，再更新后面的行就可以了。

下次subfile重新显示后你就可以看到一列  11 啦。
再按enter键，程序就依次处理 n  个记录的请求啦。

insmile

就是批量处理，很容易实现的

seouldeng

这个我做过，比如直接按F5选择所有OPTION，我只是好奇系统的F13是怎么来的而已，实现原理是否和我们的做法一样，呵呵。这个简单的东西还是会做的，:wink: :wink: :wink: :wink:

huangxkst

可以将读出需要处理的记录,然后写一个sbmjob自动处理..