第一个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语言!

你可能感兴趣的:(编程,c,语言,disk)