第一个RPGLE程序

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

在完成了这个简单的程序后，慢慢了解RPGLE语言！