在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中使用RPGLE编写Shell脚本
使用RPGLE编写脚本可以简化日常操作,提高工作效率,本示例代码演示了如何用RPGLE编写一个简单的Shell脚本。/****************************************
IBM i 7.1及以上
RPGLE
2023-04-03 16:03
在IBM i (OS/400)中使用RPGLE编写REST 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)中使用RPGLE编写TCP 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)中使用RPGLE编写Web服务
本代码示例演示如何在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)上使用RPGLE编写WebSocket服务器
本示例展示了如何使用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)上使用RPGLE编写CRUD操作
本示例展示了如何在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
如何使用RPGLE在IBM i上编写和读取CSV文件
本示例展示了如何在IBM i上使用RPGLE编写和读取CSV文件,包括打开CSV文件、读取CSV文件并将内容放入数据结构中、关闭CSV文件。这个示例可以被广泛用于处理数据导入或导出的场景。FCSV_
IBM i 7.3
RPGLE
2023-03-18 02:22