如何使用 RPGLE 编写 IBM i（AS/400）中的子程序

本示例代码演示了如何使用 RPGLE 在 IBM i（AS/400）中编写子程序，可以通过调用主程序和传递参数来执行子程序。

H DFTACTGRP(*NO) BNDDIR('QC2LE')
      D Subprogram1...
      D                 PR
      D parm1                            10I 0
      D parm2                            10I 0
      D parm3                            10I 0

      C                   EVAL      parm1 = parm1 + 2
      C                   EVAL      parm2 = parm2 + 5
      C                   EVAL      parm3 = parm3 + 7

      C                   RETURN

      P MainProgram    B
      D MainProgram    PI
      D var1                            10I 0
      D var2                            10I 0
      D var3                            10I 0

      C                   CALL      Subprogram1(var1: var2: var3)

      C     var1          DSPLY
      C     var2          DSPLY
      C     var3          DSPLY

      C                   EVAL      *INLR = *ON
      P MainProgram    E

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com