Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1269352
  • 博文数量: 287
  • 博客积分: 11000
  • 博客等级: 上将
  • 技术积分: 3833
  • 用 户 组: 普通用户
  • 注册时间: 2007-08-16 08:43
文章分类
文章存档

2013年(15)

2012年(17)

2011年(17)

2010年(135)

2009年(85)

2008年(18)

分类: 系统运维

2009-10-25 16:50:14

RPGIV编程技巧(6)RPGIV判断输入参数NULL值
 
可以在RPGIV程序中设置一个null值的常量:
 
D PARM_NULL         C           CONST(-1)
 
如果输入参数Parm_A,Parm_B,不管是什么类型的输入参数,则
 
/free
  if (Parm_A = PARM_NULL or
       Parm_B = PARM_NULL);
       //error_msg
      ......
      return;
  endif;
  ......
/end-free
阅读(1143) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~