RPG中程序入口参数的判断

0024.00 C*                                                                  

0025.00 C     *ENTRY        PLIST                                           

0026.00 C                   PARM                    P_ENV             1     

0027.00 C                   PARM                    PCURMO            2     

0028.00 C                   PARM                    PEXCMO            2     

0029.00 C                   PARM                    P_WHS             3     

0030.00 C*IF DON'T HAVE 4 PARMS, RETURN                                     

0031.00 C                   IF        %PARMS< 4                             

0032.00 C     'PARM ERROR'  DSPLY                                           

0033.00 C                   EVAL      *INLR='1'                             

0034.00 C                   RETURN                                          

0035.00 C                   ENDIF                                           

有两种方式,根据实际需要选择:

1.使用%PARMS, 直接或许传入参数的个数, 这里check的是参数的总个数

2.使用%ADDR(PARM1), Get Address of Variable 如果%ADDR(PARM1)=*NULL 则说明参数PARM1没有值