使用RPGLE获取IBM i (OS/400)系统信息

本示例代码演示了如何使用RPGLE编程语言获取IBM i系统的一些基本信息，例如操作系统版本、处理器类型、内存容量和磁盘空间等。该代码使用了system API和QSYSINC成员库。通过该示例代码，用户可以了解如何在IBM i上进行系统管理和监控。

DCL &OS400VER *CHAR 10 /*定义操作系统版本字符串*/
     DCL &PROC_TYP *CHAR 10 /*定义处理器类型字符串*/
     DCL &TOT_MEM *DEC (15 0) /*定义内存容量变量*/
     DCL &AVAIL_MEM *DEC (15 0) /*定义可用内存变量*/
     DCL &TOT_DISK *DEC (15 0) /*定义磁盘总容量变量*/
     DCL &AVAIL_DISK *DEC (15 0) /*定义可用磁盘容量变量*/

     CALL QSYS2.QCMDEXC ('RTVCFGSYS CFGD(OPERATINGSYSTEMVERSION)' +
                        ' RTNVAR(&OS400VER)', 100)
     CALL QSYS2.QCMDEXC ('RTVCFGSYS CFGD(PROCESSORTYPE)' +
                        ' RTNVAR(&PROC_TYP)', 100)
     CALL QSYS2.QCMDEXC ('RTVMBRD FILE(QSYS/QIXMSPC) FLD((XM$TMT)' +
                        ' (XM$MPS)) NBRCURRCD(1) RTNVAR(&TOT_MEM &AVAIL_MEM)',
                        100)
     CALL QSYS2.QCMDEXC ('RTVDSKINF DEV(*SYSBAS) TYPE(*TOTAL)' +
                        ' RTNVAR(&TOT_DISK)', 100)
     CALL QSYS2.QCMDEXC ('RTVDSKINF DEV(*SYSBAS) TYPE(*FREE)' +
                        ' RTNVAR(&AVAIL_DISK)', 100)

     /*打印获取的系统信息*/
     DSPSYSINF OSVER(&OS400VER) PROC(&PROC_TYP) TOTMEM(&TOT_MEM) +
               USRMEM(&AVAIL_MEM) TOTDSK(&TOT_DISK) FREDISK(&AVAIL_DISK)

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