在IBM i中使用RPGLE编写Shell脚本

作者:佚名 上传时间:2023-04-03 运行软件:RPGLE 软件版本:IBM i 7.1及以上 版权申诉

使用RPGLE编写脚本可以简化日常操作,提高工作效率,本示例代码演示了如何用RPGLE编写一个简单的Shell脚本。

/******************************************************/
     /* RPGLE Shell脚本示例                                */
     /******************************************************/
      ctl-opt dftactgrp(*no) actgrp('MYACTGRP');

      /*
      * 打印系统时间
      */
      dcl-proc print_time;
        dcl-s sys_time char(8);
        dcl-s job_date char(6);

        sys_time = %time();
        job_date = %date();

        dsply ('系统时间: ' + sys_time + ' 日期: ' + job_date);

      end-proc;

      /*
      * 执行命令
      */
      dcl-proc run_command;
        dcl-s cmd char(256);
        dcl-s status int(10);

        cmd = 'CHGUSRPRF USRPRF(USER1) STATUS(*ENABLED)';
        status = QCMDEXC(%trim(cmd): %len(%trim(cmd)));

        if status <> 0;
          dsply '执行命令失败!';
        else;
          dsply '执行命令成功!';
        endif;

      end-proc;

      /*
      * 调用print_time和run_command
      */
      dcl-proc main;

        print_time();
        run_command();

      end-proc.

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

用户评论
相关推荐
IBM i使RPGLEShell
使用RPGLE编写脚本可以简化日常操作,提高工作效率,本示例代码演示了如何用RPGLE编写一个简单的Shell脚本。/****************************************
IBM i 7.1及以上
RPGLE
2023-04-03 16:03
IBM i (OS/400)使RPGLEREST API
使用RPGLE编写REST API是在IBM i (OS/400)平台上构建现代化应用程序的首选方法之一。本示例代码演示了如何使用RPGLE编写REST API,并使用JSON格式进行数据交互。通过这
IBM i 7.3
ILE-RPG
2023-05-13 06:18
IBM i (OS/400)上使RPGLE程序
本文是关于如何在IBM i (OS/400)上使用RPGLE编写程序的指南。下面将介绍IBM i (OS/400) RPGLE编程、程序调试技巧、程序优化方法,并提供示例代码及代码释义。最后会对本文内
IBM i 7.3 TR3
IBM
2023-03-20 22:09
IBM i (OS/400)上使Python
IBM i PythonPython是一种高级编程语言,它可以在IBM i上使用。它是一种易于学习的语言,可以简化任务,自动化过程,并提高生产力。安装Python需要在IBM i操作系统上安装Ope
7.4
IBM i
2023-03-16 07:11
IBM i(OS/400)使RPGLETCP Socket客户端
本示例展示了如何在IBM i系统中使用RPGLE编写一个TCP Socket客户端程序,通过连接远程服务器并发送/接收数据。dcl-s socket integer inz(0);dcl-s so
IBM i 7.3
IBM Rational Developer for i
2023-05-22 23:48
如何IBM i(OS/400)使RPGLEWeb服务
本代码示例演示如何在IBM i(OS/400)上使用RPGLE编写Web服务。使用IBM HTTP Server作为Web服务器,将请求发送到RPG程序,使用CGIDEV2库处理数据并返回响应。该代码
IBM I V6R1
RPGLE,C/C++编译器,CGIDEV2库。
2023-03-23 02:48
IBM i (OS/400)上使RPGLEWebSocket服务器
本示例展示了如何使用RPGLE在IBM i (OS/400)上编写WebSocket服务器,以及如何与客户端进行通信。// 监听端口exec SQL call qp2zlisten('12345'
IBM i 7.4
RPGLE
2023-04-04 00:38
如何IBM i (OS/400)上使RPGLECRUD操作
本示例展示了如何在IBM i上使用RPGLE编写简单的CRUD操作(创建、读取、更新、删除)。我们将演示如何使用SQL语句和DB2数据库进行数据操作,包括如何连接数据库、执行基本的SQL查询和更新操作
IBM i 7.3
RPGLE
2023-03-24 15:21
如何使 RPGLE IBM i(AS/400)的子程序
本示例代码演示了如何使用 RPGLE 在 IBM i(AS/400)中编写子程序,可以通过调用主程序和传递参数来执行子程序。H DFTACTGRP(*NO) BNDDIR('QC2LE')
IBM i 7.4
RPG IV
2023-04-24 23:42
如何使RPGLEIBM i和读取CSV文件
本示例展示了如何在IBM i上使用RPGLE编写和读取CSV文件,包括打开CSV文件、读取CSV文件并将内容放入数据结构中、关闭CSV文件。这个示例可以被广泛用于处理数据导入或导出的场景。FCSV_
IBM i 7.3
RPGLE
2023-03-18 02:22