AS400系统培训笔记

合集下载

AS400_初级培训

一.AS/400简介 (3)二.开发环境和开发工具介绍 (4)1．AS/400环境简介 (4)1.1三级存储结构 (4)1.2 如何建立库、文件和成员 (7)2、ILE简介 (8)3、AS/400开发工具介绍 (9)三.DDS介绍和实例说明 (10)1、AS/400的DDS常用类型介绍 (11)2、AS/400物理文件和逻辑文件介绍 (11)3、AS/400如何使用DDS来创建物理文件和逻辑文件 (11)4、AS/400如何使用DDS来创建显示文件 (16)四.RPG介绍和实例说明 (20)1、RPG的基本结构介绍 (20)2、F段介绍 (21)3、D段介绍 (23)3.1 单独变量的定义 (23)3.2 结构变量的定义 (24)3.3 常量的定义 (24)3.3 数组的定义 (24)4、C段介绍 (25)4.1 概念 (25)4.2 程序入口的定义 (27)4.3 程序的结束 (27)4.4 变量的赋值 (27)4.5 子过程的定义 (28)a）概述 (28)b）子过程的建立 (28)c）子过程的调用 (29)4.6 程序过程控制（判断、循环） (30)a) 判断 (30)b) 多重判断 (30)c) 循环 (30)4.7 数据文件的操作 (31)a) 文件相关操作 (31)b) 记录定位相关操作(游标) (31)c) 记录更新相关操作 (33)5、一个程序的实例及分析 (34)6、在RPG中嵌入SQL (48)五.CL程序的开发介绍 (48)1、CL 命令的介绍 (48)2、CL 程序 (49)3、CL 程序实例 (50)六.程序间的互相调用 (53)1、RPGIV之间的调用 (53)2、CLP与RPG之间的调用 (55)AS/400 初级培训讲义目的：希望通过短期培训，让有编程基础的技术人员，了解AS/400的一些基本概念和操作方式。

了解AS/400的代码编辑方式和基本概念一. AS/400简介AS/400是IBM于1988年推出的一种商用小型机，它是在 IBM System/32，System/34，System/36，System/38这个系列的基础上发展而来的。

AS400系统相关知识点(参考模板)

1、level identifier用于查看当前物理文件编译的时间与程序中的物理文件编译时间是否相同：①输入dspfd命令查看物理文件中记录格式的level identifier②输入dsppgmref命令查看程序中的物理文件的记录格式的level identifier③比较两个level identifier是否相同。

2、OVRBDF成员覆盖用于查看多成员的物理文件中某一个成员内容：①输入ovrdbf命令，输入物理文件名以及要查看的成员名注：dspfd查看物理文件中所有成员中的数据条数；若想在程序中调用多成员的物理文件中的某个成员，可以 callb #ovrmbr；其中#ovrmbr为cl程序。

可以通过登录用户名为YTCZY密码YTCZY进入系统，FCBATXPSRC\PFSMODSRC中查看#ovrmbr的源码。

3、DSPUSRPRF查询用户全名以及基本信息。

4、跑批相关物理文件pffwn8， pffwm8, pffdn2, pffmn4pffwm8物理文件中的错误信息码BCS8099为系统错误，要到假脱机中查看信息。

5、系统出现如CPF4326错误时，用WRKMSGD查看详细信息。

6、Shift+esc①按ctrl键查看可选命令；②输入3查看当前作业—>输入10查看作业日志信息③输入3查看当前作业—>输入14查看该界面数据用了哪些物理文件7、CHGPF修改物理文件参数。

8、使注释的文字变色Shift+F1—>PFSEUEXIT(user exit program)人降生于世，其实是一件了不得的大事，因为他的人生也会一同降世。

9、给物理文件加已有的日志STRJRNPF—>IMAGES参数填*BOTH10、利用日志恢复物理文件中删除的数据①WRKOBJ +物理文件名—>选择8查看该物理文件的日志② DSPJRN查看物理文件操作记录③RMVJRNCHG恢复删除的数据按F10—>添加参数：第一个是结束的记录序列号；第二个是开始的记录序列号。

RPG AS400程序员培训手册6

5 CL、CMD其实有关这一章，以及屏幕文件的，在网上已经有很多人写过了，想了想，还是说一下吧。

5.1 CL 程序5.1.1 基本认识简单的理解，CL 程序就是和RPG 相对应的，是控制语言（Control Language）。

类型为CLP、CLLE 的源代码编译出来的程序，都属于CL 程序。

可能还是不够直观，这么说吧，我们在交互式命令行上输入的命令，用程序的方式来执行，这个执行的程序，就是CL 程序。

学过UNIX 的会比较好懂，CL 程序有点类似于SHELL，不过SHELL 是可以直接执行的，而且不用编译；CL 程序需要编译，而且要用CALL 的方式来执行。

不过原理是接近的，都是在程序中直接调用命令行的语句。

所以说，CL 程序其实很好写，只要会输入命令，就可以写CL 程序了。

在编辑CL 程序时，也可以用“命令+ F4”的方式来写，不需要老老实实的整行输入。

CL 程序不像RPGLE 程序，在编写时，可以使用自由格式书写；一行的内容如果太长要，在最末尾处用“+”表示换行举个最简单的例子，比如说新建个名为FHS01CL 的CLP 源程序，代码如下：PGMWRKACTJOBENDPGM编译此程序，然后CALL 之，系统就会执行命令WRKACTJOB，查看当前的活动作业，效果与在交互式命令行下输入WRKACTJOB 是一样的。

当我们输入F12，退出WRKACTJOB 时，系统就会继续向下执行，发现是ENDPGM，表示程序结束了，于是判定执行完毕，退出至交互式画面。

5.1.2 CL 程序的常用语法及命令：一、程序的开始与结束：PGM PARM(&A &B) /* 开始CL 程序*/ENDPGM /* 结束CL 程序*/CL 程序，和RPGLE 程序一样，也可以有程序的入口参数，而且程序的入口参数都是可传递的（也就是输入的参数如果在程序中被修改过，那么原调用的程序中的相应参数也会进行变化。

不过CL 的入口参数只能为字符型，或数字型的单个字段，不能象RPGLE 程序中那么多样化（字段、结构、数组、指针）。

AS400程序员培训手册(中级)

1 简单说明 (3)2 程序代码行的编写 (3)2.1 最简单的RPGLE程序 (3)2.2 举例准备 (3)2.3 简单的程序流程 (4)2.4 常见的程序流程 (5)2.5 F行说明 (5)2.5.1 内容说明 (5)2.5.2 常用例子 (9)2.5.3 补充说明 (10)2.6 D行说明 (10)2.6.1 内容说明 (10)2.6.2 常用例子 (13)2.6.3 补充说明 (14)2.7 入口参数 (14)2.8 C行说明 (16)2.8.1 写在前面 (16)2.8.2 内容说明 (17)2.8.3 ILE操作码分类： (18)2.8.4 ILE操作码 (19)2.8.4.1 A--C (19)2.8.4.2 D--E (27)2.8.4.3 F--N (32)2.8.4.4 O--R (39)2.8.4.5 S--Z (43)3 和程序相关的数据库知识 (49)3.1 LF（逻辑文件） (49)3.1.1 逻辑文件概念 (49)3.1.2 逻辑文件对效率的影响 (51)3.2 MEMBER (51)3.3 游标 (52)3.3.1 游标的概念 (52)3.3.2 不同操作码对应的游标的处理 (52)3.3.3 “有且仅有”的游标 (53)3.3.4 LOV AL、HIV AL对应的游标操作 (53)3.4 事务处理 -- COMMIT (54)3.4.1 概念描述 (54)3.4.2 使用方法 (54)3.4.3 注意事项 (55)3.5 关于锁表的问题 LCKW (56)4 DEBUG调试以及常见出错信息 (56)4.1 写在前面 (56)4.2 常规用法 (57)4.2.1 程序编译 (57)4.2.2 执行DEBUG命令 (57)4.2.3 运行程序 (57)4.2.4 在DEBUG模式中进行调试 (58)4.2.5 跟踪被当前程序调用的程序 (58)4.2.6 一定要退出DEBUG模式 (59)4.2.7 补充 (59)4.3 跟踪批处理程序( From qingzhou) (60)4.4 常见的出错信息 (60)4.4.1 编译程序时的出错信息 (60)4.4.2 运行时的出错信息 (62)5 CL、CMD (62)5.1 CL程序 (62)5.1.1 基本认识 (62)5.1.2 CL程序的常用语法及命令： (63)5.1.3 不常用的语法 (65)5.2 CMD (66)6 屏幕文件及使用（整理中） (67)7 其它 (72)7.1 报表打印 (72)7.2 SA VF，备份与恢复 (77)7.3 菜单--MENU (78)7.4 几个命令 (78)7.5 关于代码风格的几点想法 (81)1简单说明内部交流、或可作培训使用。

AS400操作笔记

AS400主机操作一、快捷键：ctrl+insert复制shift+pagedown粘贴shift+F7左移动屏幕shift+F8右移动屏F9插入选中的SQL语句F4 sql语句选择where条件二、远程登录：22.5.121.21 登录号：yxyc-liuhaifeng 密码：123457三、登录：225.8 登录号：liuhaifeng_yx 密码: Lh1234 Ctrl进入系统四、选择1进入页面1. STRSQL 15. DSPMSGD 29. 导出柜台程序接口2. WRKOBJ 16. DSPOBJD 30. 导出中间业务程序接3. CIBMSG 17. DSPPGM 31. 导出卡业务程序接口4. STRDBG 18. DSPPGMREF 32. 测试工具主菜单5. CALL 19. DSPPFM 33. 强制签退柜员6. ENDDBG 20. DSPMOD 34. 执行指定菜单GO7. ROLLBACK 21. DSPRCDLCK 35. 数据查询菜单8. COMMIT 22. WRKOBJLCK 36. DSPFD9. OVRDBF 23. WRKACTJOB10. DLTOVR 24. WRKOUTQ11. EDTLIBL 25. WRKSPLF12. UPDDTA 26. 文件信息显示FD13. RUNQRY 27. 帐户柜员密码重置14. DSPDTAQ 28. 用户密码重置90. SIGNOFF1.STRSQL：进入后可输入查询语句3.CIBMSG：进入后可查询错误码的意思，如输入lnr02054.5.6：查看程序先4 strdebug后6 enddebug26：查看表字段名称32：可查看柜员及网点等信息五、主机数据库对应表Lnmll1贷款账户主文件Lnmla贷款账户主文件pmtxa交易说明表，可查出程序名Cmjra后台响应日志表cmj2a中间业务响应日志表pmtla柜员表ususa用户表Pmita科目表pmdta工作日期文件AB柜面操作一、登录：abc 中心受理柜员用户名：zhangqingyingbj1 密码：112233中心授权柜员用户名：anruibj1 密码：112233二、快捷键：F1 可切换AB及VT系统VT系统主要用于开户、账户存取转钱、账户信息查询明细、账户注销等。

RPG AS400程序员培训手册-19页精选文档

2.8.4.4 O--RON-ERROR (On-Error)没用过OPEN {(E)} (Open File for Processing) 打开文件Factory 1 Operation Factory 2 Result HI LO EQOPEN 文件名OPEN 后面的目标，必须是在当前程序中已声明的文件名（不是文件的记录格式名），而且在OPEN 操作之后，在程序结束之前之前，必须有对应的CLOSE 操作。

使用OPEN 操作，文件在声明时，必须使用USROPN 关键字（详见D 行说明）。

ORxx (Or) 逻辑判断—或Factory 1 Operation Factory 2 Result HI LO EQFLD01 IFGT FLD03FLD01 OREQ FLD02等价于IF FLD01>FLD03 OR FLD01=FLD02与IF、IFxx，AND、ANDxx 类似，RPGLE 的写法OR，比RPG 的写法ORxx 要灵活，而且可以用来表达一些复杂的逻辑关系。

有鉴于此，所以通常IF 语句中，我会以OR 为主，基本不用ORxx。

如果在编程序方面，公司/项目组无硬性要求，那我觉得还是少用ORxx 吧，总觉得这种写法的逻辑关系看起来不直接，尤其是有很复杂的AND,OR 时。

OTHER (Otherwise Select) 分支语句的判断与分支语句SELECT 一起使用，表示不符合上述所有条件时的操作，如下：Factory 1 Operation Factory 2 Result HI LO EQSELECTWHEN 条件判断1处理语句1WHEN 条件判断2处理语句2OTHER处理语句3ENDSL在这个例子中，当满足条件判断1 时，运行处理语句1，运行结束后跳至ENDSL 处；如果不满足条件判断1，则程序继续向下执行，判断是否满足条件判断2。

当满足条件判断2 时，运行处理语句2，跳至ENDSL；当不满足当不满足条件判断2 时，程序继续向下执下，当读到OTHER 操作码时，无条件运行处理语句3（即当程序当前不满足以上所以条件判断时，则执行OTHER 之后的语句。

AS400技术培训(12)-附录1_AS400系统命令

AS/400基本操作命令 AS/400基本操作命令
– 文件复制CPYF 文件复制CPYF
可以复制文件的一个成员。 FROMFILE、TOFILE指明源文件及目的文件。 FROMFILE、TOFILE指明源文件及目的文件。 FROMMBR、TOMBR指明源成员及目的成员。 FROMMBR、TOMBR指明源成员及目的成员。 MBROPT：复制方式。 MBROPT：复制方式。 CRTFILE：建立方式。如果文件已存在，则不会建 CRTFILE：建立方式。如果文件已存在，则不会建立。 FMTOPT：记录格式字段映射。如果两个文件的格 FMTOPT：记录格式字段映射。如果两个文件的格式不完成一致，则需要定义该参数。
删除用户时系统检查是不是有该用户为*OWNER的删除用户时系统检查是不是有该用户为*OWNER的目标，如果有，则一般情况不删除用户。可以选择*OWNDLTOPT的值确定是删除这些目标，可以选择*OWNDLTOPT的值确定是删除这些目标，还是将目标的*OWNER改为其他用户。然后删除该还是将目标的*OWNER改为其他用户。然后删除该用户。
AS/400基本操作命令 AS/400基本操作命令
数据区的操作命令：
– 建立数据区CRTDTAARA 建立数据区CRTDTAARA
建立数据区必须指定库。 TYPE；数据区的类型。 TYPE；数据区的类型。 LEN：数据区的长度。 LEN：数据区的长度。
– 删除数据区DLTDTAARA 删除数据区DLTDTAARA – 显示数据区的内容DSPDTAARA 显示数据区的内容DSPDTAARA
AS/400基本操作命令 AS/400基本操作命令
系统库列表的操作命令：
– 由于应用系统是双字节的，为了保证系统的运行正确，应该增加系统库QSYS2989到系统库行正确，应该增加系统库QSYS2989到系统库列表。 – 增加系统库列表CHGSYSLIBL（*ADD）增加系统库列表CHGSYSLIBL（ ADD） – 除去系统库列表CHGSYSLIBL（*REMOVE）除去系统库列表CHGSYSLIBL（ REMOVE）

IBM AS400培训教程和手册

12
磁带组使用者的名字，这一项一般不用进行修改 Check tape for active files . . . . . . . Y Y=Yes, N=No 这一项与格式化一盘磁带的意义相同，一般使用N，也就是NO的意思，表示不进行检查
13
第五章磁带什么时候该丢弃
每盘磁带都有一定的使用寿命，AS/400系统提供了一个磁带文卷寿命统计的监督程序，通过该程序可以确定某盘磁带是否已到使用寿命需要更换新磁带。操作步骤： 1、在命令行输入STRSST命令，进入System Service Tools菜单 2、选择1（Start a Service Tool） 3、在Start a Service Tool 3 Start Tool菜单上选择1（Product activity log ） 1 Product 4、在Product activity log 菜单上选择4（Work with tape/diskette lifetime Statistes） 5、在Select Media Option屏幕上在Removable media参数选择相应的介质类型
20
第八章提交作业
（1）在主菜单(Main)中选择3(General system tasks) （2）在General system tasks菜单中选择1（Jobs）（3）在Jobs菜单上键入选项7（Submit a job）（4）按执行键（Enter）出现Submit a job命令提示屏幕，或者键入命令SBMJOB，并按F4键。（5）在Command to run 5 Command run输入字段内键入在批作业中你要运行的命令。如果该作业是一个CL程序，则要键入程序名，如CALL PAYROLL。（6）如果需要可修改其它字段的缺省值，也可以不修改。

AS400学习笔记

AS/400】AS/400學習筆記八月 16, 2005 bangdoll留言Go to comments第一章 AS/400概論AS/400自77年6月以來已歷經九代變革IBM每隔一年均會推出新的機型及作業系統AS/400 High-Level Machine單一層次記憶體(Single Level Storage)虛擬記憶體(Virtual Storage)軟體簡介AS/400軟體可分為三大部份1.系統支援2.程式設計3.應用軟體系統支援：OS/4001.OS/400是AS/400機器的作業系統2.OS/400有選擇畫面(MENU)及控制語言(Control Language)指令，可提供使用者操作AS/400系統3.OS/400可同時執行多個交談式工作(Interactive job)，批次工作(Batch job)及同時發展其他應用程式4.OS/400有關連式資料庫系統，保全系統，通訊網路系統及各種備份/回復能力5.OS/400自動建立硬體系統環境6.OS/400提供IBM S/36與S/38之操作環境程式設計支援1.RPG/400(目前常用)2.COBOL/400(目前常用)3.C/4004.SQL/400(目前常用)5.Fortran/4006.AS/400 Basic7.AS/400 PL/I8.AS/400 Pascal9.RM/COBOL-85應用軟體支援軟體名稱：Application Development Tool Set/400(ADTS)主要功能：1.針對結構化語言開發環境提供程式編輯，線上即時偵錯功能2.提供螢幕畫面設計及報表格式設計輔助能力3.提供基本檔案維護及資料庫結構維護功能第二章終端機操作使用者界面畫面型態1.選擇畫面(Menu)2.鍵入畫面(Entry)3.列示畫面(List)4.說明畫面(Information)使用System Request畫面第三章 Object管理Object是在儲存體佔有空間的一個最小單位，系統根據其型態，有不同之操作方式，來執行其運作例如：FileLibraryProgramComandsQueuesUser ProfileJob DescriptionsDevice Descriptions……The AS/400 Object Description-Name-Library-Object type-Type attribute(PF,LF)-Owner(creator)-Public authorization-Change date/time-Date/Time last saved-Restore volume ID-Storage freed-Text description-SizeLibrary1.是一個目錄Directory，其中包含Object之相關資訊(型態及位置)，指向其相關之Object2.其儲存之Object並不需要在同一硬碟中3.所有Library都在QSYS Library內如何組織Library為了1.保全功用2.備份功用區分由1.應用程式2.使用者3.Object型態非限定名稱(Unqualified name)/限定名稱(Qualified Name)1.在指定Object時，均需給予名稱，此名稱包含兩個部份，即Library部份及Object部份2.非限定名稱僅用Object名稱來使用-PGMA3.限定名稱用法使用Library名稱及Object名稱-LIBA/PGMA第四章控制語言指令(CL Commands)控制語言所有系統功能均被單一之語言來控制1.由操作者來使用2.可組合為程式3.可交談式或批次使用列示主要指令群1.游標移至Command line 按F42.輸入go major尋找某種型態指令游標移至Command line 輸入go cmdfile指令提示游標移至Command line 輸入1.?DSPOBJD2.DSPOBJD 按F4? OR F4 : List若使用者想知道某個參數可輸入哪些值時，可將游標移至欲輸入欄位鍵入’?'再按執行鍵或是F4第五章訊息指令應用訊息：一種通訊之方式基本訊息佇列(Message Queue)通訊1.系統操作者(System Operator)訊息佇列2.使用者訊息佇列3.工作站訊息佇列4.一個訊息佇列(Message Queue)會自動建立當1.建立一個工作站2.建立一個使用者Profile5.系統操作者的訊息佇列是系統提供的6.使用者可隨時建立其他訊息佇列訊息佇列(Message Queue)模態有中斷(Break)，通知(Notify)，留置(Hold)1.訊息佇列(Message Queue)有個傳輸(Delivery)參數來說明訊息如何接收及使用者如何被通知：1.中斷(Break)-使用者作業被中斷，訊息顯示在畫面上2.通知(Notify)-使用者被通知，而訊息訊號燈亮且有聲響3.留置(Hold)-使用者不會被通知訊息2.所有訊息會儲存在訊息佇列(Message Queue)，除非是被刪除使用者及工作站訊息佇列(Queue)訊息永遠可以送至任何一個訊息佇列(Queue)，即使使用者或工作站在登出系統後基本訊息處理指令1.發送訊息 SNDMSGSNDBRKMSG2.察看訊息 DSPMSG訊息1.訊息本文最多可送512個字元給使用者訊息佇列，工作站訊息佇列，系統操作者佇列(System Operator Queue)或系統記錄日誌QHST2.TOUSR只能輸入一個值3.TOMSGQ最多可輸入50個值系統操作者訊息系統操作者訊息佇列內容包括：1.硬體裝置使用相關訊息2.使用者及系統活動相關訊息DSPMSG MSGQ(QSYSOPR)(*SYSOPR)第六章線上輔助說明1.輔助說明(Help)：F12.欄位說明(Field Help)：F13.訊息說明(Message Help)：F14.整體說明(Extended Help)：F2第七章系統開關系統開機(Starting the System)1.不參與式開機(Unattended IPL)：一般的開機 IPL:Inital Program Load2.參與式開機(Attended IPL)3.遠端開機(Remote IPL)4.自動開機(Automatic IPL’s)：大部分都是使用這一種方式開機-System Value-Operational Assistant4.AS/400一般來說一次的開機時間大約20mins~30mins系統關機1.使用PWRDWNSYS指令2.使用電源開關(Power Switch)3.使用緊急開關(Emergency Switch)4.使用Operation Assistant第八章工作管理之觀念工作型態(Types of jobs)1.交談式作業(Interqctive)：系統回應給每一個工作站上使用者需求的處理2.批次作業(Batch)：系統執行一組程式指令的處理3.周邊裝置線上同時作業(Spool)（Simultaneous Perpheral Operation On-Line）將慢速周邊裝置的輸出入資料先存放於快速周邊裝置(如硬碟)，然後才由CPU讀取、印表機將其列表，由於CPU不必和這些慢速裝置直接界面，所以提升了CPU操作速度第九章工作作業控制(Job Control)工作作業控制(Job Control)包括了交談式作業及批次作業；工作作業控制(Job Control)控制了在工作佇列(Job Queue)中的工作，及在輸出佇列(Output Queue)中的工作SBMJOB指令批次作業中的第一個步驟是將批次工作放置在工作佇列中排列，此作業使用的指令是SBMJOB工作佇列(Job Queue)WRKSBMJOB：允許使用者看到所有批次工作，不論此工作目前在工作佇列內，輸出佇列內或在執行中WRKUSRJOBWRKACTJOB：可查詢在各子系統下活動的工作狀態及一些系統工作(System job) 如何結束工作ENDJOBENDJOBABN第十章 Spool及印表控制啟動Spool作業Writer為一系統程式，可將報表由輸出佇列中取出而由印表機印出，欲啟動此程式可用指令STRPRTWTRWork with All Spooled Files指令WRKSPLF允許查詢目前使用者，或所有使用者產生的Spool Files查看Spool Files狀況指令WRKWTR管理AS/400上連接的印表機工作管理(Work Management)總論JOBQ—>BATCH(INTERACTIVE)—>OUTQ—>WRITER —>PRINTER WRKJOBQ —>WRKACTJOB—>WRKOUTQ(WRKSPLF)—>WRKWTR—>WRKCFGSTS*DEVAS400 Spool Converter ProSpool to PDF, HTML, TXT, CSV, XML Easy to use. Shareware version。

AS400系统相关知识点

可以通过登录用户名为YTCZY密码YTCZY进入系统，FCBATXPSRC\PFSMODSRC中查看#ovrmbr的源码。

3、DSPUSRPRF查询用户全名以及基本信息。

4、跑批相关物理文件pffwn8，pffwm8, pffdn2, pffmn4pffwm8物理文件中的错误信息码BCS8099为系统错误，要到假脱机中查看信息。

5、系统出现如CPF4326错误时，用WRKMSGD查看详细信息。

8、使注释的文字变色Shift+F1—>PFSEUEXIT(user exit program) 人降生于世，其实是一件了不得的大事，因为他的人生也会一同降世。

RPG AS400程序员培训手册9word资料20页

8 其它8.1 报表打印在这里，简单说一下报表。

其实据说RPG 设计之初，主要就是为了解决报表问题。

不过发展到现在，在我接触过的系统中，觉得报表在RPG 编程之中反而退居其次，大部分程序都是对数据库中磁盘文件（即PF 文件）的操作。

报表文件其实在某种意义上与普通的磁盘文件很类似，都是有记录格式（Record Format），都可以进行写操作（WRITE），RPGLE 的程序对它们的操作方式也比较雷同。

所不同的是普通的磁盘文件的数据是存储在数据库中，而报表文件WRITE 了之后，是以脱机文件（Spool File）的形式存在。

所以在一个库中，磁盘文件具有唯一性，即不能有同名的磁盘文件；而在同一个输出队列中，同名的报表文件（即生成的脱机文件），允许有多个。

要做一个全新的报表打印，大致上可以分为画报表文件（PRTF），与编写打印程序这两部分。

一、画报表文件（PRTF）1、新建立一个属性为PRTF的文件，然后使用19 进入报表编辑状态。

（即STRRLU）2、定义一个新的记录格式（Record Format）：DR + F18 + F10，注意看下方的功能键说明3、在一个记录格式之下，追加内容时，要在新的编辑行前加“CLC”，表示此行的内容，是属于上面记录格式的。

4、编辑行前加：DC：定义常量CF：使当前行的内容居中5、常用功能键：F13：标记 / 取消标记（光标所指的字段）。

多试一下就知道使用方法，可以将同一行的多个相连的字段标记成为一个块（对首尾两个字段操作F13 即可）。

高亮部分表示已被标记的块。

F14：将已标记的块COPY 到光标指定处。

（其实这个我用得不多）F15：将已标记的块MOVE 到光标指定处。

（这个用得不少）F16：删除已标记的块。

（这个用的频率也不少）F11：定义新变量F23：进入当前字段的功能菜单画面6、对新变量的定义，按F11 之后，见到画面如下：Edited length . . . . . . . . . . . . : 1Record format . . . . . . . . . . . . : RCD001Number of keywords . . . . . . . . . : 0Number of indicators . . . . . . . . : 0Type choices, press Enter.Field . . . . . . . . . . . . . . . . FLD001 NameOption indicators . . . . . . . . . . 01-99, N01-N99More indicators . . . . . . . . . . N Y=Yes, N=NoStarting line . . . . . . . . . . . . 1-255Starting position . . . . . . . . . . 6 1-255, +nnLength of data . . . . . . . . . . . 1 1-378, +nn, -nn翻页，还有：Data type . . . . . . . . . . . . . . 1 1=Character2=Zoned3=Floating point4=Open5=Graphic6=Date7=Time8=Time stampDecimal positions . . . . . . . . . . 0-31, +n, -nReference a field . . . . . . . . . . N Y=Yes, N=NoUse referenced values . . . . . . . Y Y=Yes, N=No可以采用直接定义长度、类型的方法，即在第1 页的最末尾，Length of data 处，填上字段长度；如果是字符型，就不需要再填其它内容；如果是数字型，在第2 页Decimal positions 处填上小数位数。

AS400学习篇（二）

AS400学习篇（二）
AS400操作命令：
操作含义
一、显示AS/400的磁盘容量和使用状况命令DSPSYSSTS 显示系统状态
二、显示用户简要表命令
DSPUSRPRF 查看用户情况
WRKUSRPRF 操作用户简要表
CRTUSRPRF 创建新用户
三、关机操作命令
GO POWER 关机
选择3、F16 直接关机
选择4、F16 关闭后重新启动
PWRDWNSYS *IMMED 立即关机
四、查找命令
GO CMD*** 查找命令
五、系统操作命令
shift +E sc+enter 使用系统请求菜单
call qcmd 使用命令显示行（显示先前使用过的命令）go assist 使用系统助手
go info 使用信息助手
六、查看信息命令
DSPMSG 当前信息
DSPMSG QSYSOPR 系统信息
七、控制操作命令
WRKLIND 控制线描述
WRKCTLD 控制器描述
WRKDEVD 控制设备描述WRKCFGSTS 配置设备状态
八、作业操作命令
SBMJOB + F4 提交批处理作业WRKACTJOB 激活显示作业
九、输出操作命令
WRKOUTQ 输出作业队列WRKSPLF 假脱机文件
十、打印机
GO PRINTER WRKDEVD PRT01 菜单
十一、备份和恢复：
RSTLIB 恢复库
RSTOBJ 恢复目标
SAVOBJ 备份目标
SAVLIB 备份库。

AS400程序员培训手册(中级)

65513不常用的语法6752cmd7471数组74711简述74712定义74713初始化75714使用方法75715补充初始化77724使用方法78725结构体中的数组79726定义时独立变量与结构体变量的区别79727不带occurs关键字的结构体定义8073按内部序号来读文件80731简述80732定义81733使用方法8174常驻内存命令setobjacc83741简述83742命令说明83743使用说明84744补充说明8475数据队列的使用84751数据队列的说明84752crtdtaq建立数据队列85753dltdtaq删除数据队列85754系统api867541qsnddtaq发送数据队列867542qrcvdtaq接收数据队列867543qclrdtaq清除数据队列877544qmhqrdqd检索数据队列8776使用系统api的入手方法87761调用说明87762关于usrspace88763一些可能常用的api其它
4.2
5
6 7
常规用法 .................................................................................................................57 4.2.1 程序编译 .........................................................................................................57 4.2.2 执行DEBUG命令 ...........................................................................................57 4.2.3 运行程序 .........................................................................................................57 4.2.4 在DEBUG模式中进行调试 ...........................................................................58 4.2.5 跟踪被当前程序调用的程序 .........................................................................58 4.2.6 一定要退出DEBUG模式 ...............................................................................59 4.2.7 补充 .................................................................................................................59 4.3 跟踪批处理程序( From qingzhou).........................................................................60 4.4 常见的出错信息 .....................................................................................................60 4.4.1 编译程序时的出错信息 .................................................................................60 4.4.2 运行时的出错信息 .........................................................................................62 CL、CMD ..............................................................................................................................62 5.1 CL程序....................................................................................................................62 5.1.1 基本认识 .........................................................................................................62 5.1.2 CL程序的常用语法及命令： ........................................................................63 5.1.3 不常用的语法 .................................................................................................65 5.2 CMD .......................................................................................................................66 屏幕文件及使用（整理中） .................................................................................................67 其它.........................................................................................................................................72 7.1 报表打印 .................................................................................................................72 7.2 SAVF，备份与恢复 ...............................................................................................77 7.3 菜单--MENU ..........................................................................................................78 7.4 几个命令 .................................................................................................................78 7.5 关于代码风格的几点想法 .....................................................................................81

AS400基础培训

AS400基础培训AS/400基础培训⽬录1AS/400体系结构介绍 (2)1.1AS/400性能概述 (2)1.2对象和对象管理 (2)1.3⼯作管理 (3)2AS/400的基本操作 (4)2.1菜单、⼊⼝、列表和信息 (4)2.2常⽤命令 (5)3ILE RPG/400编程⼊门 (6)3.1⽂件的创建和操作 (6)3.1.1物理⽂件 (6)3.1.2逻辑⽂件 (7)3.2ILE RPG程序编写 (7)3.2.1常⽤规范表 (7)3.2.2内部函数 (9)3.2.3表达式 (9)3.2.4操作码 (10)3.3模板学习 (11)3.4编程练习 (12)4SQL/400介绍 (12)1AS/400体系结构介绍1.1 AS/400性能概述集成性AS/400把数据库、通讯、安全性等功能集中在操作系统中，最⼤限度地实现了各功能之间的兼容性。

开放性⽀持SNA、TCP/IP协议，DB2/400可与⼤多数数据库系统实现互联。

可移植对SPEC1170的⽀持可达到95%，相当于⼀般UNIX操作系统。

兼容性所有应⽤可上下兼容。

可连接性哑终端（5250）、仿真终端（PC Communication、Client Access、GUI）可⽀付性可扩充性1.2 对象和对象管理基于对象AS/400中，MI由指令和对象组成。

也就是说，AS/400是基于对象（object-based）的系统，⽽不是⼀个⾯向对象（object-oriented）的系统。

在AS/400中，对象不具备集成性，也没有类和⼦类的概念。

在AS/400的定义中，系统上所有可存储和检索的东西，都叫做对象。

对象由描述这个对象的描述和它的值组成。

对象的描述包括：名称、类型、⼤⼩、建⽴⽇期、建⽴对象者提供的简单描述、以及存储对象的库的名称。

对象的要素⽬录名、对象名和对象类型唯⼀确定⼀个对象。

对象⽬录AS/400中的⽬录结构是单层的，因此对象的表达形式为“Library/Object”。

AS400培训资料(上)

AS400培训资料（上）AS400应用开发基础知识培训教材前言本教材提供给参与本次项目开发的项目成员，目的是使大家能够尽快地掌握基本的程序开发。

本次培训分两阶段，第一阶段讲解AS400的数据文件和基本的RPG编程内容共四章。

第二阶段讲解AS400的较为深入的内容以及交易程序的编写。

在教材中对于AS400的技术理论不作过多的讲解，主要围绕RPG编程使用的物理文件，逻辑文件，程序三块进行讲解。

结合我们在以前项目的培训的过程中学员反映的重点和难点，根据我们个人的理解，对一些概念进行了通俗化的描述。

在讲解过程中，将通过及时的交流和沟通，尽量的把大家都带入门由于时间短和水平有限，在教材中和讲解中难免有错漏，请大家见谅！教材编写组第一章物理文件的建立物理文件用于存放数据使用SEU进行编辑产生的MEMBER不是物理文件，而是物理文件的定义物理文件一般由MEMBER编译产生后，但它的存在不会依赖MEMBER 的存在源物理文件是特殊的物理文件，用于存放各类源代码的定义，在本章中若无特殊说明物理文件均指存放数据（RECORD）的物理文件（PF-DTA）物理文件的删除，必须在删除建立在该物理文件上的逻辑文件删除之后物理文件的数据，受已经建立的逻辑文件影响，如非重复关键字或非重复关键字组合（即这些关键字能够唯一确定一条记录）在RPG程序中因为效率的原因，一般不使用物理文件进行操作建立物理文件的准备建立 Library的操作CRTLIB + Library的名字直接按默认的配置生成或Create Library (CRTLIB)Type choices, press Enter.Library . . . . . . . . . . . . > SSS NameLibrary type . . . . . . . . . . *PROD *PROD, *TESTText 'description' . . . . . . . 这是一个用来测试的 LibraryBottoF3=Exit F4=Prompt F5=Refresh F10=Additional parameters F12=Cancel建立存放源程序的源物理文件建立源物理文件的方法Create Source Physical File (CRTSRCPF)Type choices, press Enter.File . . . . . . . . . . . . . . wjdsrc NameLibrary . . . . . . . . . . . sss Name, *CURLIBRecord length . . . . . . . . . 92 NumberMember, if desired . . . . . . . *NONE Name, *NONE, *FILEUser specified DBCS data . . . . *yes *NO, *YESText 'description' . . . . . . . 这是测试用的源文件BottoF3=Exit F4=Prompt F5=Refresh F10=Additional parameters F12=Cancel备注: User specified DBCS data 该项必须选择*yes,否则在建立的SRCPF中将不能使用汉字进入源物理文件（SRCPF）的方法STRPDM 3Specify Members to Work WithType choices, press Enter.File . . . . . . . . . . wjdsrc Name, F4 for listLibrary . . . . . . . . sss *LIBL, *CURLIB, nameMember:Name . . . . . . . . . *ALL *ALL, name, *generic*Type . . . . . . . . . *ALL *ALL, type, *generic*, *BLANK或使用WRKOBJPDM+F4或 WRKLIBPDM+F4或 WRKMBRPDM+F4在以上命令中若不使用F4则将使用最近一次使用的环境建立定义物理文件的（类型为PF）MEMBER使用F6键产生新的MemberStart Source Entry Utility (STRSEU)Type choices, press Enter.Source file . . . . . . . . . . > WJDSRC Name, *PRVLibrary . . . . . . . . . . . > SSS Name, *LIBL, *CURLIB, *PRV Source member . . . . . . . . . wjd tstpf Name, *PRV, *SELECTSource type . . . . . . . . . . pf Name, *SAME, BAS, BASP...Text 'description' . . . . . . . 这是测试用的ＰＦBottF3=Exit F4=Prompt F5=Refresh F12=Cancel F13=How to use this displayAS400的编辑器SEU的内容，常用的操作使用编辑器进行物理文件的结构定义执行后进入以下画面Columns . . . : 1 71 Edit SSS/WJDSRC 名称SEU==>行命令输入区 WJDTSTPFFMT PF ++++++RLen++TDpB......Functions+++++++++++++++++ 提示行*************** Beginning of data ************************************''''''''''''''''''''''''''''行号序号区域''' 内容输入区'''''''''''''''''''''''''''''''''''''''''''''''''****************** End of data ***************************************F3=Exit F4=Prompt F5=Refresh F9=Retrieve F10=Cursor F11=Toggle行命令区域常用的命令T 移到头部 B 移到尾部F+字符串(不必用引号) 查找字符串C + 要替换的字串+替换成的字串 (+A) 替换字符串(或全部替换)行号序号区域常用的命令I 插入一行 In 插入n行D 删除一行 Dn 删除n行DD 将两个DD之间的行删除.C 将本行进行拷贝,此命令必须与A或B配合使用CC 将两个CC之间的行进行拷贝,此命令必须与A或B配合使用M 将本行进行移动,此命令必须与A或B配合使用MM 将两个MM之间的行进行移动,此命令必须与A或B配合使用A –after 将拷贝或移动的行放到本行后面B—before 将拷贝或移动的行放到本行后面在本区域输入行号可以快速将编辑窗口移到所输的行(以该行作第一行)请大家在今后的练习中多加使用!!一个物理文件的DDSColumns . . . : 1 71 Edit SSS/WJDSRCSEU==> WJDTSTPFFMT PF ++++++RLen++TDpB......Functions+++++++++++++++++ *************** Beginning of data ************************************ 0001.00 A R WJDPF0001.01 A* 上行是说明记录的名称 PF0002.00 A PENUMB 3P 00002.01 A* 上行是将个人序号说明为３位长度的整数（小数长度为 0 ）0003.00 A COLHDG(' 个人序号 ')0004.00 A PENAME 10O0004.01 A* 上行将个人中文名说明为 10 个汉字长0005.00 A COLHDG(' 个人中文名 ')0006.00 A PEENNM 12A0006.01 A* 上行将个人英文名说明为 12 个字母长度0007.00 A COLHDG(' 个人英文名 ')0008.00 A PESARY 7P 20008.01 A* 上行将每日消费说明为 7 位长，其中小数位为 2 位长的数值0009.00 A COLHDG(' 每日消费 ')****************** End of data ***************************************F3=Exit F4=Prompt F5=Refresh F9=Retrieve F10=Cursor F11=ToggleCOLHDG用来在进行数据的显示DSPDBF（见P19）和UPDDTA（见P18）时作为域的说明，便于理解域的内容，若不使用COLHDG则这些内容为定义域时的域名，如个人序号将为 PENUMB注意: 在输入COLHDG的）时window的输入法可能不是处于中文状态！！！因此输入的）可能为中文的）造成错误（亮条)此时屏幕出现MEMBER 存盘ExitType choices, press Enter.Change/create member . . . . . . . Y Y=Yes, N=NoMember . . . . . . . . . . . . . WJDTSTPF Name, F4 for listFile . . . . . . . . . . . . . . WJDSRC Name, F4 for listLibrary . . . . . . . . . . . . SSS NameText . . . . . . . . . . . . . . 这是测试用的ＰＦResequence member . . . . . . . . Y Y=Yes, N=NoStart . . . . . . . . . . . . . 0001.00 0000.01-9999.99Increment . . . . . . . . . . . 01.00 00.01-99.99Print member . . . . . . . . . . . N Y=Yes, N=NoReturn to editing . . . . . . . . . N Y=Yes, N=NoGo to member list . . . . . . . . . N Y=Yes, N=No此时若想取消本次修改的内容则Change/create member选项改为N 存盘后产生Member wjdtstpfWork with Members Using PDM S105067File . . . . . . WJDSRCLibrary . . . . SSS Position to . . . . .Type options, press Enter.2=Edit 3=Copy 4=Delete 5=Display 6=Print 7=Rename8=Display description 9=Save 13=Change text 14=Compile 15=Create module. Opt Member Type TextWJDTSTPF PF 这是测试用的ＰＦBottoParameters or command===>F3=Exit F4=Prompt F5=Refresh F6=Create将定义物理文件的MEMBER编译产生物理文件PF的编译方法为了把数据文件和源文件分开先建立存放PF的Library使用命令CRTLIB SSSDTA方法一使用方法二直接在Member前的OPT中选择Work with Members Using PDM S105067File . . . . . . WJDSRCLibrary . . . . SSS Position to . . . . .Type options, press Enter.2=Edit 3=Copy 4=Delete 5=Display 6=Print 7=Rename8=Display description 9=Save 13=Change text 14=Compile 15=Create module. Opt Member Type Text14 WJDTSTPF PF 这是测试用的ＰＦBottoParameters or command===>F3=Exit F4=Prompt F5=Refresh F6=Create按下F4后出现CRTPF的画面Create Physical File (CRTPF)Type choices, press Enter.File . . . . . . . . . . . . . . > WJDTSTPF NameLibrary . . . . . . . . . . . > SSSDTA Name, *CURLIB Source file . . . . . . . . . . > WJDSRC NameLibrary . . . . . . . . . . . > SSS Name, *LIBL, *CURLIB Source member . . . . . . . . . > WJDTSTPF Name, *FILE Record length, if no DDS . . . . NumberGeneration severity level . . . 20 0-30Flagging severity level . . . . 0 0-30File type . . . . . . . . . . . *DATA *DATA, *SRC Member, if desired . . . . . . . *FILE Name, *FILE, *NONE User specified DBCS data . . . . *NO *NO, *YESText 'description' . . . . . . . *SRCMBRTXT。

AS400网络配置系统监测故障诊断培训

网络的配置输入命令DSPHDWRSC *CMN查找以太网口的资源名：cmn07上述示例中我们要对cmn07进行配置，cmn06已经存在并配置过了。

请记住此资源名，在下面的配置中我们会用到！输入命令crtlineth：回车后输入两个参数：线描述可以自己起，资源名就要用到上面查看到的cmn07。

上面两个参数填完后按功能键F10修改两个参数：line speed和duplex根据网络实际情况配置。

回车后出现更多的参数：F10下一页Link speed也要相应的更改。

然后执行。

提示线描述创建。

输入命令cfgtcp输入1 输入1回车输入ip地址、线描述、子网掩码回车提示TCP/IP interface added successfully 在命令行输入命令wrklind在test前输入8 输入1此地要注意看它的状态，如果是VARIED OFF就直接选1，如果是其他状态可以先输入2，等其状态变为V ARIED OFF后再输入1回车在命令行输入cfgtcp 输入1在新增加的ip地址前输入9 回车然后先按功能键F11、再按功能键F5，看到状态为Active测试网络配置输入命令wrklind在test前输入8 看到下图三个状态都是ACTIVE 在命令行输入ping回车后输入ip地址回车输入命令dspjoblog功能键F10 往上翻页可以看到刚才ping命令成功完成，说明网络已纪成功配置。

系统监测及故障诊断WRKJOB查看相应的JOBJOB LOG纪录JOB工作的日志，包括批作业和交互作业WRKACTJOB查看系统上当前活动的作业及单个作业占用CPU的资源WRKSYSSTS查看系统当前的状态，包括CPU的利用率，硬盘的总容量和使用率，内存页面的占有量、数据的繁忙程度，系统临时空间和永久空间的占有比率等HISTORY LOG系统的历史日志，可纪录系统上作业的初始运行时间、用户登陆400的时间等QSYSOPR系统操作员信息队列，主要纪录系统资源的状态和相关软件允许被使用的期限。

AS400系统培训笔记

AS400系统培训笔记一、sysid：system name二、升级微码和增加cpu是需要新的system password，换cpu时需要输入原来的system password。

3、p170面板：01：display启动方式。

02：设置启动方式。

03：启动。

04：测试报警灯。

11：选择设置值。

s:slow f:fast v=f(上次启动正常) v=s(上次启动失败)A：A区B：B区C：IBM实验用D：外部设备（磁带、光驱）N：normalM： manual三、常用巡检命令：1、wrkdevd *opt|*tap2、dsptap3、dspopt4、wrkshrpool：内存5、wrkhdwrsc type(*stg)：硬盘状态6、wrkhdwrsc type(*prc)：cpu和内存状态，7、wrkhdwrsc type(*cmn)：网卡状态8、wrksyssts9、wrkdsksts：硬盘（%busy一般不超过40%）10、dsplog F411、wrklicinf:查看版本号等12、cfgtcp13、pwrdwnsys:关闭系统三、系统知识1、AS：application system2、cfgtcp、wrkhdwrsc *cmn：配置网卡3、crtlineth4、AS400上不支持SNA5、strtcp：激活tcp6、AS/400的分层机构：application|os/400|slic|64-bit RISC。

(slic:systemlicense internal code)7、系统能登陆中进sst（strsst）看log，系统不能登陆进dst看log。

8、src：system ref code9、pal：product activity log10、打印系统配置：strsst-start a services tool-hardware services manager-f6=print configuration-退出sst-wrksplf （F4选择相应的项）11、dspmsg qsysopr12、黄灯不报警：cpu、内存、风扇没问题，机器可以正常工作。

AS400系统培训笔记

AS400_初级培训

AS400系统相关知识点(参考模板)

RPG AS400程序员培训手册6

AS400程序员培训手册(中级)

AS400操作笔记

RPG AS400程序员培训手册-19页精选文档

AS400技术培训(12)-附录1_AS400系统命令

IBM AS400培训教程和手册

AS400学习笔记

AS400系统相关知识点

RPG AS400程序员培训手册9word资料20页

AS400学习篇（二）

AS400程序员培训手册(中级)

AS400基础培训

AS400培训资料(上)

AS400网络配置 系统监测 故障诊断培训

AS400系统培训笔记

AS400网络配置系统监测故障诊断培训