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*---------------