AS400/RPGLE/CL
关注
分享
扫一扫
文章平均质量分 61
JmLei
IBM AS400/RPGLE/CLLE & Delphi & Python
Email: David_XH#126.com
展开
-
Python 链接 Pcomm
并 install comtypes package。原创 2025-01-03 17:13:09 · 284 阅读 · 0 评论 -
GitHUB-AS400 Data Queue Monitor
AS400 Data Queue MonitorMonitor data queues ('DTAQ') on 5250 green screen.This utility was written so that I could monitor DTAQ size. If you work in an environment where the interprocess communication between jobs is via DTAQ, you'd probably had experience转载 2025-01-03 13:50:46 · 37 阅读 · 0 评论 -
GitHUB-Python-AS400 Interface
GitHUB-Python-AS400 Interface。转载 2025-01-03 13:45:09 · 38 阅读 · 0 评论 -
GitHUB - AS400
GitHUB - AS400。转载 2025-01-03 13:10:59 · 45 阅读 · 0 评论 -
python中建立连接以连接as400
QCMDEXC存储过程存储在QSYS2中(实际的程序对象是QSYS2/QCMDEXC1)，它的功能与QSYS中熟悉的同名程序大同小异，但存储过程专门用于通过SQL调用。如果IBM被设置为允许这样做，那么可以在SQL中使用CALL调用QCMDEXC存储过程。通过pyodbc包连接到DB2数据库。原创 2024-12-12 18:11:21 · 275 阅读 · 0 评论 -
Python 连接 as400/db2的方法
https://github.com/ibmdb/python-ibmdb转载 2024-12-12 17:37:18 · 41 阅读 · 0 评论 -
FTP(file transfer protocol) in AS400
【代码】FTP(file transfer protocol) in AS400。转载 2024-10-19 14:22:16 · 94 阅读 · 0 评论 -
User profiles in as400 are used to identify users to the systems and verify authorities on the syste
【代码】User profiles in as400 are used to identify users to the systems and verify authorities on the syste。转载 2024-10-19 14:12:31 · 60 阅读 · 0 评论 -
A data area in AS400 is an object used to store the shared data of different jobs running on the sys
【代码】A data area in AS400 is an object used to store the shared data of different jobs running on the sys。转载 2024-10-19 14:04:19 · 43 阅读 · 0 评论 -
Data queue in as400 is used for making asynchronous communication between the two jobs
【代码】Data queue in as400 is used for making asynchronous communication between the two jobs。转载 2024-10-19 13:57:11 · 37 阅读 · 0 评论 -
从AS400调用PC程序
1)STRPCCMDSTRPCO PCTA(*NO)STRPCCMD PCCMD(CALC)2)RUNRMTCMDRUNRMTCMD + CMD('C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\EXCEL.EXE') + RMTLOCNAME('192.168.1.6' *IP) + RMTUSER(user) RMTPWD(userpassword)转载 2024-10-19 13:46:57 · 49 阅读 · 0 评论 -
AS400 download Spool file to PDF
AR(*FCFC)转载 2024-10-15 19:21:59 · 56 阅读 · 0 评论 -
Attention Program
按Esc键可以调出 Attention Program，可通过以下方法1) CL命令：Set Attention Program (SETATNPGM) 影响当前job2) User ProfileAttention program . . . . . . . . . . . . : QUSCMDLN Library . . .原创 2014-03-13 21:03:57 · 704 阅读 · 0 评论 -
AS/400 技 术 手 册 CU网友原创
AS/400 技 术 手 册 url: http://man.chinaunix.net/unix/IBM/as400/index.htm转载 2013-11-18 23:09:31 · 1275 阅读 · 0 评论 -
SEU扩展命令
Url: http://bbs.chinaunix.net/forum.php?mod=viewthread&tid=1485886SC = Session Copy 复制当前行到内存空间SCC = Session Copy Block复制两个SCC之间的一段到内存空间SA = Session After将内存里用SC/SCC复制的源代码粘贴到SA标记的行后面SB转载 2013-10-30 19:58:14 · 3828 阅读 · 0 评论 -
一个更改SEU颜色的程序
Url: http://bbs.chinaunix.net/forum.php?mod=viewthread&tid=533052 Member Type CHGSEUC CLP CHGSEUCLR CMD CHGSEUD DSPF CHGSEUR RPG CHGSEUC CLP0001.00转载 2013-10-30 19:56:58 · 1308 阅读 · 0 评论 -
FRCDTA 用键字FRCDTA制作等待屏幕(DSPF技巧)
FRCDTA Displays a record format without waiting for the next operation. url: http://bbs.chinaunix.net/forum.php?mod=viewthread&tid=442476 前阵子看到一段DSPF的代码,用FRCDTA(强制数据)键字做等待屏幕,现在整理拿转载 2013-10-20 18:55:47 · 1203 阅读 · 0 评论 -
命令STRSST启动系统服务工具(System Service Tools)
SST方面的资料http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/y4459026.pdf转载 2013-10-17 20:50:57 · 1372 阅读 · 0 评论 -
check record lock
use dsprcdlck or wrkobjlck orrpg code Ffile01 UF E K DISK USROPN F COMMIT F转载 2013-10-15 19:34:57 · 926 阅读 · 0 评论 -
RPG ILE Day of Week
url: http://itknowledgeexchange.techtarget.com/itanswers/day-of-week/转载 2015-10-16 17:35:23 · 592 阅读 · 0 评论 -
WRKRPYLE-自动回复询问类消息(Inquiry Message)
原文：http://bbs.chinaunix.net/forum.php?mod=viewthread&tid=216871 AS/400系统开发工具及开发语言很多，有许多技术性的东西并不是我们能经常碰到的，但这些东西在一些实际应用中很有用处。本人在几年AS/400系统上的开发中，也有一些经验。有些东西如果不把其形成文字，过一段时间后，本人都会很快忘掉，比如我现在要写两年前的经验就很费劲转载 2013-10-15 19:31:23 · 1185 阅读 · 0 评论 -
账户超过设置日期比如90账户没有登录系统自动disable账户
url: http://bbs.chinaunix.net/forum.php?mod=viewthread&tid=1710943账户超过设置日期比如90账户没有登录系统自动disable账户，最先是通过ANZPRFACT命令配置的，安全期间也可以直接通过JOBSCDE配置，配置需要操作用户有*ALLOBJ, *SECADM, and *JOBCTL特别权限，jobscde参数如下转载 2014-03-24 20:14:31 · 966 阅读 · 0 评论 -
File Exception Handler
Fdspfile CF E WORKSTN F INFDS(DSPFDS) Fpfile IF E K DISK F转载 2015-04-29 10:56:18 · 777 阅读 · 0 评论 -
AS400 RPG使用条码打印机(Zebra888-TT)打印中文标签-2
图片01 操作系统WinXP 简体中文, Client Access (简体中文)打印机Zebra888-TT (LPT 端口) 备注:USB端口不能打印其他软件NoSpool FileND8S2ZBrem原创 2008-11-07 17:16:00 · 2161 阅读 · 0 评论 -
Journal 转为 PF
DSPJRN OUTFILE原创 2016-04-22 17:01:57 · 934 阅读 · 0 评论 -
AS400如何检查谁删除了文件
为了增强系统、应用的安全性，治理员经常需要了解有无用户删除特定的文件。转载 2016-05-04 16:06:01 · 1440 阅读 · 0 评论 -
VBA AdoDb Load Data from AS400
Sub loaddata_Click() Dim Con As New ADODB.Connection原创 2016-02-02 09:49:06 · 909 阅读 · 0 评论 -
download as400 data to excel
XLODBC1DRIVER={Symbiator AS/400 Optimized};UID=as400user;pwd=as400pwd;Database=datalib;Server=192.168.0.9;APPCRtr=10;IPAdr=192.168.0.9;CdPg=937;Pkg=1,1,/;Lang=;SDK=0;RdOy=0;CmtLvl=0;MdNm=QSERVER;N转载 2015-05-05 17:03:16 · 1445 阅读 · 1 评论 -
AS400 Trigger
R TRG01R T01F 10 TEXT('text') T02F 4 0 TEXT('num')TRG01F@.txt REF(TRG01F)原创 2015-07-25 16:31:06 · 1449 阅读 · 0 评论 -
【AS400系列】通过程序例子说明检查AS400用户密码的API-QSYGETPH
url: http://blog.chinaunix.net/uid-29091520-id-3883026.htmlAPI参考：http://publib.boulder.ibm.com/iseries/v5r1/ic2924/index.htm?info/apis/QSYGETPH.htm源码 http://blog.chinaunix.net/blog/downLoad/fi转载 2015-06-12 10:57:14 · 1645 阅读 · 0 评论 -
【AS400系列】通过程序例子说明检查AS400用户密码的API-QSYGETPH
#chkpwdfm.dspf A DSPSIZ(27 132 *DS4) A CHGINPDFT A***********************************************************原创 2015-06-17 20:13:51 · 1782 阅读 · 0 评论 -
WRKDBF
Please view http://www.wrkdbf.com/ What is WRKDBF?WRKDBF ("Work with Database File") isa powerful, yet easy to use iSeries (AS/400) Database Editor designed to allow you to easily display and转载 2013-09-05 20:03:52 · 707 阅读 · 0 评论 -
Open Source iSeries Tools (JCRCMDS)
Please view http://www.jcrcmds.com/转载 2013-09-05 20:01:59 · 612 阅读 · 0 评论 -
AS400 RPGLE 检测字段中是否含有中文
D xxOK 1A INZ(N) D CHNSTR 50A INZ( ) D CHNe 1A INZ(X0E) D CHNf 1A INZ(X0F原创 2009-04-27 09:53:00 · 2226 阅读 · 0 评论 -
AS400 RPGLE 条码打印机(Zebra888-TT)打印中文标签 方法 2
P00279 (Printing Chinese on Box label)Printer & CA Setting 1. 配置打印驱动.A) 正确安装 Zebra 888-TT 驱动。(本步骤不详解)B) 安装Generic / Text Only打印机驱动，选择Zebra 888-TT的端口，推荐LPT1。原创 2009-04-27 09:47:00 · 2783 阅读 · 0 评论 -
AS400 RPGLE Color Source Code
***CL*** START: PGM PARM(&IN01)/**/ DCL VAR(&IN01) TYPE(*CHAR) LEN(10)/**/ MONMSG MSGID(CPF0000 RPG0000)/**/ CHECK: IF CON原创 2009-04-21 08:58:00 · 1581 阅读 · 0 评论 -
AS400 Down Excel
RPGLEC*=======================================C* /DOWDTA01= Download data based C*=======================================CSR /DOWDTA01 BEGSRC* /free close(e) TMHR05501 ;原创 2009-03-11 10:49:00 · 2323 阅读 · 0 评论 -
在RPGLE中实现中文模糊查询
CSR /CHKCHN BEGSR C* C EVAL原创 2009-02-05 10:02:00 · 1972 阅读 · 0 评论 -
AS400 RPG使用条码打印机(Zebra888-TT)打印中文标签-1
***** CL BAR01C ***** START: PGM/* Last Update Date: 2008.11.03 */ MONMSG MSGID(CPF0000 RPG0000) CRTPF FILE(ZDAVI原创 2008-11-07 17:05:00 · 2448 阅读 · 0 评论 -
Example chaining to logical file to write/update data
C*=============================================== C* Chaining to a logical file, if record found C* then update quantities else write record. C*======================================转载 2008-10-16 16:37:00 · 689 阅读 · 0 评论