Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1061820
  • 博文数量: 106
  • 博客积分: 9093
  • 博客等级: 中将
  • 技术积分: 2770
  • 用 户 组: 普通用户
  • 注册时间: 2006-06-01 17:22
文章分类

全部博文(106)

文章存档

2014年(1)

2012年(29)

2011年(32)

2010年(20)

2008年(24)

分类:

2011-07-26 17:05:38

上面的博文讲的是panel,怎么用那。
下面就是一个简单的rexx调用panel的例子。
不废话看代码
/* REXX                                                              */
/*********************************************************************/
/*                           MAIN ROUTINE                            */
/*********************************************************************/
ADDRESS TSO
KEYNUM = 0
NOMORE = ''
DO UNTIL (NOMORE = 'Y')
  CALL DISPLAY_PANEL
END
EXIT
/*********************************************************************/
/* DISPLAY PANEL                                                     */
/*********************************************************************/
DISPLAY_PANEL:
 
  ADDRESS ISPEXEC
  /* panel location */
  panel_pds = 'REXX.EXEC'
  "LIBDEF ISPPLIB DATASET ID("panel_pds") STACK"
 
  /* clear panel's variable */
  DBname   = ''
  ARVdate  = ''
  TBLname1 = ''
  TBLname2 = ''
  TBLname3 = ''
  TBLname4 = ''
  TBLname5 = ''
  TBLname6 = ''
 
  /* put value into panel */
  "VPUT (INFO) SHARED"
 
  /* display panel */
  "CONTROL DISPLAY REFRESH"
  "DISPLAY PANEL(p@30610)"
 
  /* when you press F3 */
  IF KEYNUM = 'PF03'  THEN DO
     NOMORE = 'Y'
     EXIT 8
  END
 
  /* get value from panel */
  "VGET (DBname ARVdate TBLname1 TBLname2 TBLname3 ,
         TBLname4 TBLname5 TBLname6) SHARED"
  DBname   = STRIP(DBname  ,b)
  ARVdate  = STRIP(ARVdate ,b)
  TBLname1 = STRIP(TBLname1,b)
  TBLname2 = STRIP(TBLname2,b)
  TBLname3 = STRIP(TBLname3,b)
  TBLname4 = STRIP(TBLname4,b)
  TBLname5 = STRIP(TBLname5,b)
  TBLname6 = STRIP(TBLname6,b)
 
  RETURN

这只是个框架,还是个半成品。呵呵。
panel(p@30610)在上篇博文中有写。
阅读(1761) | 评论(0) | 转发(1) |
给主人留下些什么吧!~~