Chinaunix首页 | 论坛 | 博客
  • 博客访问: 49678
  • 博文数量: 10
  • 博客积分: 557
  • 博客等级: 下士
  • 技术积分: 250
  • 用 户 组: 普通用户
  • 注册时间: 2010-11-25 20:13
文章分类

全部博文(10)

文章存档

2011年(9)

2010年(1)

分类:

2011-07-20 10:22:58

 

CA不会把屏幕上(DSPF)输入的各字段的值传到RPG中,即在RPG中,DSPF的各字段的值都用‘ 0 或者*OFF表示。即所谓的CA不传值。

CF则会把DSPF中输入的各字段的值传回到PRG中,RPG可以使用用户输入的实际值。即所谓的CF传值。

例:

DSPF:

 

Code:

AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions+++++++++

********** Beginning of data ****************************

A                                      DSPSIZ(24 80 *DS3)

A                                      CA03(03 'EXIT')  

A*                                     CF03(03 'EXIT')  

A          R FMT                                        

A                                  6 10'ID:'            

A             ID            8A  I  6 17                 

A                                  8 10'NAME:'          

A             NAME         10A  O  8 19                 

A                                 10 10'F3 - EXIT'      

 

显示如下:

 

 

 

RPG:

.....FFilenameIPEAF........L..I........Device+......KExit++En

*************** Beginning of data ***************************

     FCFCA    CF  E                    WORKSTN              

     C                     EXFMTFMT                         

     C                     MOVELID        NAME             

     C                     SETON                     LR     

     C                     RETRN                            

                                     

如果在DSPF中定义CF03的话,那么RPG中,ID =’ANDY’ ,NAME=’ANDY’

如果在DSPF中定义CA03的话,那么RPG中,ID= ‘ ‘ , NAME =’ ‘

阅读(1995) | 评论(0) | 转发(4) |
给主人留下些什么吧!~~