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

【代码】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)

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

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

use dsprcdlck  or wrkobjlck orrpg code Ffile01 UF E K DISK USROPN F COMMIT F

原文：http://bbs.chinaunix.net/forum.php?mod=viewthread&tid=216871 AS/400系统开发工具及开发语言很多，有许多技术性的东西并不是我们能经常碰到的，但这些东西在一些实际应用中很有用处。本人在几年AS/400系统上的开发中，也有一些经验。有些东西如果不把其形成文字，过一段时间后，本人都会很快忘掉，比如我现在要写两年前的经验就很费劲

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

Please view http://www.jcrcmds.com/

原理将打印机代码写入数据文件，下载此数据文件到PC，格式为TEXT文件，用BAT方式转换乱码部分字符，再打印新TEXT文件。操作系统WinXP 简体中文, Client Access (简体中文)打印机Z6M300dpi(PLUS)Spool File~XA~cw9,B:m

原文: http://bbs.chinaunix.net/viewthread.php?tid=604308&extra=page%3D3%26amp%3Bfilter%3Ddigest 1、先通过DSPPGMREF创建交叉引用文件，例如本地ERP系统的LIB：R21AMLBE。DSPPGMREF PGM(R21AMLBE/*ALL) OUTPUT(*OUTFILE) OUTFILE(

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

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

DSPJRN OUTFILE

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

Sub loaddata_Click() Dim Con As New ADODB.Connection

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

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

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

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

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

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参数如下   

原文：http://www-900.ibm.com/cn/support/viewdoc/detail?DocId=1322083000004 如何使用FTP在PC和AS/400之间传输包含中文的文件?        环境产品: FTP,平台: i

原文: http://qlcc.blog.163.com/blog/static/4493977320078123141545/如何在应用程序中调用文件中指定的成员，DB2/400提供了OVRDBF命令。 by qingzhou使用OVRDBF命令可以指定文件中特定成员。

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

***CL***   START: PGM PARM(&IN01)/**/ DCL VAR(&IN01) TYPE(*CHAR) LEN(10)/**/ MONMSG MSGID(CPF0000 RPG0000)/**/ CHECK: IF CON

 RPGLEC*=======================================C* /DOWDTA01= Download data based C*=======================================CSR /DOWDTA01 BEGSRC* /free close(e) TMHR05501 ;

CSR   /CHKCHN       BEGSR                                                            C*                                                                                   C                   EVAL     

 图片01 操作系统WinXP 简体中文, Client Access (简体中文)打印机Zebra888-TT (LPT 端口)    备注:USB端口不能打印其他软件NoSpool FileND8S2ZBrem

 ***** CL BAR01C ***** START:      PGM/* Last Update Date: 2008.11.03                                               */             MONMSG     MSGID(CPF0000 RPG0000)             CRTPF      FILE(ZDAVI

      C*===============================================     C* Chaining to a logical file, if record found     C* then update quantities else write record.     C*======================================

 ****CSO038C.txt**** START:      PGM        PARM(&FROMLIB &TOLIB)/**/             DCL        VAR(&FROMLIB) TYPE(*CHAR) LEN(10)             DCL        VAR(&TOLIB) TYPE(*CHAR) LEN(10)             DCL 

 ****多选A            AASTS1         1Y 0H       A            AASTS2         1Y 0H       A            AASTS3         1Y 0H       A            DSP001        10A  P       A            DSP002       

 ****H00031C**** START:      PGM/**/             MONMSG     MSGID(CPF0000 RPG0000)/**/             CHGLIBL    LIBL(PPRGDEV PDTASRC PDTAL1 PPRGSRC POBJSRC +                          QGPL QRPG QTEMP)/**