jmlei的专栏---IBM, AS400, RPGLE, CLLE, Delphi, ASP...

runmqras 命令用于将故障诊断信息从机器收集到单个归档中。您可以使用此命令来收集有关应用程序或 IBM MQ 故障的信息，可能用于在报告问题时提交到 IBM。使用 runmqras 命令将 IBM® MQ 故障诊断信息 (MustGather 数据) 一起收集到单个归档中，例如，提交给 IBM 支持人员。

JobsData areas。

调用QUSRJOBI，显示当前Job Number（RPGIV例子）

Sample programs demonstrating use of the MQI (C and COBOL) on IBM i The techniques demonstrated by the sample programs for IBM® MQ on IBM i systems.

但是转换是有要求的，第一种转换的前提是转到的CCSID的类型中要包含转换前的CCSID类型中要转换的字符，比如，如果从CCSID1381(S-CHGBPC-DATA)类型的简体中文的PC编码中的一个中文字符"中"字到其他CCSID编码转换到的编码起码要求这个CCSID编码的字符集中包含同样的"中"字。CCSID是一个涉及消息转换的字符集。通道在建立 的时候会有一个握手过程，双方会交换各自通道定义上的MAXMSGL，最后协商出通道使用的最大消息长度，一般会取双方定义中较小的那一个。复位完成后，启动通道。

MaxChannels和MaxActiveChannels分别代表队列管理器允许配置的通道的最大个数和允许同时运行的通道的个数，MaxChannels的缺省值是100，MaxActiveChannels的缺省值与MaxChannels相同。如果您的并发通道连接个数超过了100，您需要修改这两个参数。amqsbcg和 amqsbcgc 可以详细查阅队列中现有的消息属性及内容而不将其取出，执行完后队列深度不变。示，执行完后队列深度应该为0，如果强行中断该程序，比如用ctrl＋C强行退出。

SummaryStepsENDDOENDDORCVFENDDOENDPGM。

https://www.ibm.com/docs/zh/ibm-mq/8.0.0?topic=explorer-mq-tutorials

并 install comtypes package。

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

GitHUB-Python-AS400 Interface。

GitHUB - AS400。

QCMDEXC存储过程存储在QSYS2中(实际的程序对象是QSYS2/QCMDEXC1)，它的功能与QSYS中熟悉的同名程序大同小异，但存储过程专门用于通过SQL调用。如果IBM被设置为允许这样做，那么可以在SQL中使用CALL调用QCMDEXC存储过程。通过pyodbc包连接到DB2数据库。

https://github.com/ibmdb/python-ibmdb

【代码】FTP(file transfer protocol) in AS400。

【代码】User profiles in as400 are used to identify users to the systems and verify authorities on the syste。

【代码】A data area in AS400 is an object used to store the shared data of different jobs running on the sys。

【代码】Data queue in as400 is used for making asynchronous communication between the two jobs。

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)

AR(*FCFC)

CSR   /CHKCHN       BEGSR                                                            C*                                                                                   C                   EVAL     

Fdspfile CF E WORKSTN F INFDS(DSPFDS) Fpfile IF E K DISK F

url: http://bbs.chinaunix.net/forum.php?mod=viewthread&tid=1710943账户超过设置日期比如90账户没有登录系统自动disable账户，最先是通过ANZPRFACT命令配置的，安全期间也可以直接通过JOBSCDE配置，配置需要操作用户有*ALLOBJ, *SECADM, and *JOBCTL特别权限，jobscde参数如下   

按Esc键可以调出 Attention Program，可通过以下方法1) CL命令：Set Attention Program (SETATNPGM)  影响当前job2) User ProfileAttention program  . . . . . . . . . . . . :   QUSCMDLN    Library  . . .

AS/400 技 术 手 册  url: http://man.chinaunix.net/unix/IBM/as400/index.htm

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

Url: http://bbs.chinaunix.net/forum.php?mod=viewthread&tid=533052  Member Type CHGSEUC CLP CHGSEUCLR CMD CHGSEUD DSPF CHGSEUR RPG  CHGSEUC CLP0001.00

#chkpwdfm.dspf A DSPSIZ(27 132 *DS4) A CHGINPDFT A***********************************************************

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

R TRG01R T01F 10 TEXT('text') T02F 4 0 TEXT('num')TRG01F@.txt REF(TRG01F)

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

url: http://itknowledgeexchange.techtarget.com/itanswers/day-of-week/

Sub loaddata_Click() Dim Con As New ADODB.Connection

为了增强系统、应用的安全性，治理员经常需要了解有无用户删除特定的文件。

DSPJRN OUTFILE

FRCDTA Displays a record format without waiting for the next operation.  url: http://bbs.chinaunix.net/forum.php?mod=viewthread&tid=442476 前阵子看到一段DSPF的代码,用FRCDTA(强制数据)键字做等待屏幕,现在整理拿

SST方面的资料http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/y4459026.pdf

RPGLE error Message

 D xxOK 1A INZ(N) D CHNSTR 50A INZ( ) D CHNe 1A INZ(X0E) D CHNf 1A INZ(X0F

 P00279 (Printing Chinese on Box label)Printer & CA Setting 1.       配置打印驱动.A) 正确安装 Zebra 888-TT 驱动。(本步骤不详解)B) 安装Generic / Text Only打印机驱动，选择Zebra 888-TT的端口，推荐LPT1。