2012年7月10日开始学习RPGLE编程。
一般来说,当我们去接触一门程序语言的时候,第一个练习都会写一个“hello world”程序,然而我的第一个RPGLE程序却不是!
佳姐的PPT对于RPGLE程序做了一个简短的介绍,熟悉RPG语言规范表,数据类型与定义,C表中数据的使用,之后,让我们试着去写一个RPGLE程序。
之前AS400学习接近尾声的时候,红姐给我们演示了一个访问PF文件和在DSPF文件之间传递至的值的RPGLE程序。
佳姐想让我们将之前学习的东西结合起来练习,所以让我们模仿红姐演示的程序去自己写一个。
因为才接触RPGLE编程,很多东西都不了解,于是大家试着去编写,可结果是,大家都没有头绪。
我想了一个简单的程序,与之前学习的PF结合起来;
给程序一个参数,通过此参数去查找物理文件里面是否包含此数据,如果包含,那么将其更新,否则添加一条数据。
程序写的有点死,不过也算是迈出了第一步。代码如下:
FMBEPF002 UF A E K DISK COMMIT DV_DEPTNO S 3S 0 C *ENTRY PLIST C PARM V_DEPTNO C*下面是主程序 C EXSR @MAIN C EXSR @EXIT C*--------------- C* @MAIN 主处理 C*--------------- C @MAIN BEGSR C*定位数据 C V_DEPTNO CHAIN DEPT C IF %FOUND(MBEPF002) C EVAL DNAME='customer' C EVAL LOC='chengdu' C UPDATE DEPT C ELSE C EVAL DEPTNO=V_DEPTNO C EVAL DNAME='nameXXX' C EVAL LOC='XXX' C WRITE DEPT C ENDIF C ENDSR C*--------------- C* @EXIT 结束程序 C*--------------- C @EXIT BEGSR C EVAL *INLR= '1' C RETURN C ENDSR