AS400数据上传400--2
AS400基本操作及常用命令
目录1AS/400基本操作 (4)1.1屏幕显示 (4)1.1.1菜单 (4)1.1.2输入 (5)1.1.3列表 (6)1.1.4帮助 (7)1.2命令 (7)1.2.1命令语法 (8)1.2.2命令提示 (8)1.3信息 (9)1.4GUI接口-操作导航器 (11)2AS/400常用命令 (11)2.1CL 命令的作用 (11)2.2CL 命令的分类 (12)2.3系统菜单 (13)2.4基本操作命令汇编 (13)2.4.1CALL (15)2.4.2CHGJOB (15)2.4.3CHGUSRPRF (15)2.4.4CPYF (16)2.4.5CRTCBLPGM (16)2.4.6CRTCLPGM (16)2.4.7CRTDSPF (16)2.4.8CRTJRNRCV (16)2.4.9CRTPF (19)2.4.10CRTPRTF (19)2.4.11CRTRPGPGM (19)2.4.12CRTSRCPF (19)2.4.13DSPMSG QSYSOPR (19)2.4.14DSPJOBLOG (19)2.4.15DSPLOG (19)2.4.16DSPPTF (19)2.4.17DSPTAP (19)2.4.18ENDWTR (20)2.4.19GO LICPGM (20)2.4.20GO POWER (20)2.4.21INZTAP (20)2.4.22PWRDWNSYS (20)2.4.23RSTOBJ (20)2.4.24RSTLIB (20)2.4.25SAVOBJ (20)2.4.26SAVLIB (20)2.4.27SMBJOB (21)2.4.28SNDBRKMSG (21)2.4.29STRSBS (21)2.4.30STRDFU (21)2.4.31STRPDM (21)2.4.32STRPRTWTR (21)2.4.33STRRLU (21)2.4.34STRSDA (21)2.4.35STRSEU (21)2.4.36STRSQL (22)2.4.37WRKACTJOB (22)2.4.38WRKCFGSTS (22)2.4.39WRKHDWPRD (22)2.4.40WRKHDWSRC (22)2.4.41WRKJOBQ (23)2.4.42WRKJOBSCDE (23)2.4.43WRKLIBPDM (23)2.4.44WRKMBRPDM (23)2.4.45WRKMSGD (23)2.4.46WRKOBJLCK (23)2.4.47WRKOBJPDM (23)2.4.48WRKOUTQ (23)2.4.49WRKPRB (23)2.4.50WRKSBMJOB (24)2.4.51WRKSBS (24)2.4.52WRKSBSD (24)2.4.53WRKSPLF (24)2.4.54WRKSYSSTS (24)2.4.55WRKUSRPRF (24)2.4.56WRKWTR (24)1AS/400基本操作AS/400用户接口满足各种用户的需求，无论他们是新用户、数据管理人员、系统管理员、或程序员。
AS400培训课程2（DDS,MENU,MSGF介绍）
AS400培训课程2（DDS,MENU,MSGF介绍）AS400培训课程2 (DDS,MENU,MSGF介绍)(海外事业部)拟稿: 杨群涛日期: 2008/7/22目录四、DDS (4)1、概况 (4)用途 (4)分类 (4)辅助工具 (4)2、数据文件和索引文件定义 (4)文本格式 (4)示例: (6)3、显示文件及实例讲解 (8)使用工具SDA快速建立显示文件 (8)文本格式说明 (12)显示文件的使用: (12)显示文件的Subfile子文件介绍 (13)4、打印文件实例讲解 (15)概况 (15)source文本格式: (15)使用RLU工具处理打印文件 (17)使用 (23)5、ICFF介绍 (24)五、MENU (25)组成 (25)Source (25)示例 (25)工具及使用 (26)菜单属性 (29)命令行 (29)DSPKEY (29)六、MSGF (29)系统msgf (29)所有用户msgf (30)列表系统当前可用的msgf (30)Msgf的建立 (30)Msgf的维护 (30)使用 (35)其他messgae相关 (38)Reply List设置自动应答列表 (38)七、数据文件属性和关系以及程序依赖信息 (42)文件描述 (42)字段描述 (45)数据文件关系 (46)程序依赖信息 (47)系统文件的格式的使用 (56)四、DDS1、概况用途数据结构定义分类PF,LF, DSPF PRTF, ICFF（Intersystem Communications Function File）文件类型命令物理文件CRTPF逻辑文件CRTLE显示文件CRTDSPF打印机文件CRTPRTFICF文件CRTICFF辅助工具STRSDA （Screen Design Aid）STRRLU （Report Layout Utility）2、数据文件和索引文件定义文本格式0001.00:顺序号和格式类型在DDS中是可选的。
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 有关编译的问题............................................................. 错误！未定义书签。
3.1.3 逻辑文件对效率的影响 (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 其它 (67)7.1 报表打印 (72)7.2 SA VF，备份与恢复 (77)7.3 菜单--MENU (78)7.4 开发时常用的命令 (78)7.5 一点想法 (81)1简单说明内部交流、或可作培训使用。
AS400基本操作及常用命令
目录未找到目录项。
1AS/400基本操作AS/400用户接口满足各种用户的需求，无论他们是新用户、数据管理人员、系统管理员、或程序员。
用户可以灵活的使用OS/400提供的多种方法，对系统进行操作。
如果用户并不了解显示屏幕或如何启动任务，通过AS/400帮助功能，在任何屏幕上都可使用帮助。
帮助的信息包括整个屏幕的信息到现实屏幕上个别项目的信息。
AS/400系统还提供相应国家语言，支持用户以其所在国家的语言作为与系统的接口。
1.1屏幕显示AS/400系统提供一些不同的显示屏幕作为其用户接口的一部分。
组成用户接口的显示屏幕类型有：菜单（MENU）输入（ENTRY）列表（LIST）帮助（HELP）登录画面用于用户注册：使用用户名和口令Sign OnSystem . . . . . ：S101766GSubsystem . . . . ：QINTERDisplay . . . . . ：PC5250User . . . . . . . . . . . . . . USERPassword . . . . . . . . . . . .USERProgram/procedure . . . . . . . .Menu . . . . . . . . . . . . . .Current library . . . . . . . . .进入系统后,首先会看到的显示屏幕就是菜单1.1.1菜单用户可以使用菜单选择他们想执行的任务，而不需使用系统命令，如图：MAIN AS/400 Main Menu菜单名System：S101766G Select one of the following：1. User tasks2. Office tasks3. General system tasks4. Files, libraries, and folders 菜单选项5. Programming6. Communications7. Define or change the system8. Problem handling9. Display a menu90. Sign offSelection or command===> 命令行F3=Exit F4=Prompt F9=Retrieve F12=Cancel F13=Information AssistantF23=Set initial menu 功能键提示Type option number or command. 状态条使用菜单之间的导航器，可以不用知道系统命令，也可以完成相应的操作。
AS400服务器日常维护操作手册
AS400服务器日常操作手册1、IPL 设置(服务器启动设置)1)版面设置为：01 B N V=F第一部分表示目前状态，01表示显示状态， 02表示修改状态；第二部分B 表示起机资源为硬盘区，D 表示从光驱启动系统；第三部分N 表示自动启动， M 表示手动启动；第四部分 V=F 表示快速启动， S 表示慢速启动（为了在启动时对系统部件进行全面检测）2)控制版面操作：在正常启动状态时：01 B N V=F在手动起机状态时：01 B M V=F在安装操作系统时：01 D M V=F光盘启动操作系统时：01 D M V=F3）关机命令：PWRDWNSYS *IMMEDGo power 3 44)非正常状态下手动关机：版面设置由01 B m V=F 改为 02 B M V=F 再改为 01 B M V=F 按电源钮，这时出现 0？，确定后即可关机。
再次启动时再改回自动模式。
2、基本CL命令：1)显示 AS/400 的磁盘容量和使用状况：DSPSYSSTS “显示系统状态”➢显示用户简要表：DSPUSRPRF 察看用户情况➢操作用户简要表： WRKUSRPRF➢创建用户： CRTUSRPRF2)关机：GO POWER，选择3，F16 (shift+F4)直接关机；选择4，F16 关机后重启动。
立即关机命令：PWRDWNSYS *IMMED➢如果不知道如何正确拼写一d➢查找命令 GO CMD*** （*为相关命令中的字符）在输入命令的参数时，有两种方法可以获得帮助提示信息：➢在命令名前加一个问号，如？DSPOBJD➢在输入命令名后按下F4键，如 DSPOBJD（F4）3)处理信息命令➢更改信息通知命令：CHGMSGQ可以自己制定消息发到哪个消息队列中➢打印消息队列中的信息命令：DSPMSG MSGQ（消息队列名称） OUTPUT（*PRINT）➢将信息发给所有在线用户命令：SNDMSG TOUSR（*ALLACT）注：所有当前在线用户都会收到该消息，用户切换到他自己的消息队列中即可看到该消息。
AS400应用技巧
应用技巧此AS400应用技巧资料仅供您参考使用, 请您于使用前测试,如何于 SQL 中指定 Physical file mult-member ?...有二种方式 :1. 使用 call procedure 方式, 呼叫系统程序 QCMDEXC , 并使用 OVRDBF 指令,call Qcmdexc('OVRDBF FILE(QTXTSRC) TOFILE(XXXXXX/QTXTSRC) MBR(TNT0001051) OVRSCOPE(*JOB)',000000074.00000)2.使用 SQL command : Create AliasCreate Alias CODE/COST97 for CODE/QTXTSRC(COST97)1.一个好用的数据库维护工具, 可直接维护单笔资料, 也可以使用 Hexadecimal(十六进制)模式进行资料为护, 此工具不支持中文, 但有 Source 可自行修改划面 DDS 属性为 "O" type,及修改程序有关该划面字段部份即可支持中文.来自 /mc/code99.cfm的数据库维护工具 WRKDBF: All Work and No Pay2. 想让你的程序 source 或批注于编辑时加上色彩吗 ? 如果使用 IBM Client Access 联机程序就可以直接于 SEU 中随意设定颜色, 可整行或片段指定颜色....1. 利用 Client Access 的 Keyboard setup 即可设定, 将 as400color.txt 存至你的硬盘并更名为 as400color.kmp,2. 在 Client Access 中选 menu bar "Assist" -> "Keyboard setup" -> "User defined" -> 指定键盘设定文件 as400color.kmp -> 确定.即完成设定. 可使用 W(白),R(红),Y(黄),P(紫),G(绿),B(蓝) 字母 + CTRL(正常) 或ALT(反白) 键组合, 例如在 SEU 中设定为插入(insert)模式, 使用 CTRL + "W" , 其后面的字会变白色, 若 ALT + "W", 其后面的字会变白色且反白, 其余 R, Y, P, G, B 亦是亦可下载 RPG Alive 2000 试用版 30 天, 须与 Client Access 搭配使用.3.于 RPG 中如何将字符转为数字 ? .IDS001 DSI 1 2 X2I B 1 20B2C MOVE X'A0' X1 1C Z-ADD*ZERO B2C MOVE X1 X2在这例子中 X1 = 16 进位 'A0' , 相当于 10 进位 160, 利用数据结构 DS001 定义同一位置, 但不同属性(一为文字 X2, 一为二进制数 B2 ), 将 X1 搬至 X2 右侧, 即可得 B2 =160. 这个技巧在做字符转换时很好用, RPG 并不提供字符值直接加减(但 C 语言可以),所以须透过转换, 希望未来 RPGIV 能提供 BIF 函数 %Hex 用于直接取用字符值4. 教你简化报表储存的指令, 系统没有提供指令,但有现成系统程序可用, USER 自己DIY,简单ㄡ..Step 1.CRTPF FILE(SPLFTEST) RCDLEN(4083) MAXMBRS(*NOMAX) TEXT('SAVE SPOOLED FILE FOR GETSPLF & PUTSPLF USED')Step2. Create GETSPLF 指令,(储存报表资料于档案(SPLFTEST)中)将 Command source copy to AS/400 , CRTCMD CMD(GETSPLF) PGM(QSPGETF)GETSPLF: CMD PROMPT('Get Spooled File')PARM KWD(FILE) TYPE(*NAME) LEN(10) RTNVAL(*NO) +RSTD(*NO) MIN(1) MAX(1) FILE(*IN) + FULL(*NO) EXPR(*YES) PASSATR(*NO) + PROMPT('Spooled file') PARM KWD(TOFILE) TYPE(Q1) RTNVAL(*NO) MIN(1) +MAX(1) FILE(*OUT) PROMPT('To data base file') PARM KWD(JOB) TYPE(Q2) RTNVAL(*NO) DFT(*) +SNGVAL((*)) MIN(0) MAX(1) FILE(*NO) + PROMPT('Job name') PARM KWD(SPLNBR) TYPE(*INT2) RTNVAL(*NO) +RSTD(*NO) DFT(*ONLY) RANGE(1 1999) + SPCVAL((*ONLY 0) (*LAST -1)) EXPR(*YES) + 5.V3R7 以后 RPGIV 有内建函数 %EDITC 用来处理数字转成文字输出格式, 此内建函数 %EDITC与报表数字输出格式 DDS 定义相同, 但 V3R2 无此内建函数, 可透过Edit Code API 来达到内建函数 %EDITC 用来处理数字转成文字输出格式的功能.数字转成文字格式输出样本 Summary of Edit Codes .....Convert Edit Code (QECCVTEC) API --- 转换指定之 Edit Code 为输出样本Edit (QECEDT) API -- 利用Edit Code 输出样本产生格式化数字转成文字输出数字格式转换程序范例 -- EDTCODR参数如下:C EDTCODR plistC parm SrcVar 欲转换之数字性文字C parm SrcVarCls '*ZONED'C parm EdtCode 数字格式C parm CurId 金钱符号C parm SrcVarPrc 数字性文字位数 C parm SrcDecPos 小数点位数C parm RcvVar 格式化数字输出测试数字格式转换程序范例 -- EDTCDETSTR将二范例程序上传至 AS/400 & Compiled EDTCODR, EDTCDETSTR, 执行 EDTCDETSTR.6.如何利用 TCP/IP FTP 从 AS/400 下载中文资料或从 PC 上传中文资料至 AS/400 ?....利用 TCP/IP FTP 作数据传输非常方便, 以下是范例:PC FTP to AS/400 to get DBCS data to PCClient ServerPC -----> AS/400 于 PC DOS 命令列下 FTP command7. 工具 : PRTRCDINF (Print record information) 打印档案字段格式 ......1. Copy PRTRCDINF to QCMDSRC2. Copy RCDINFC1P to QCLSRC3. Copy RCDINFR1P to QRPGSRC4. Copy RCDINFP1 to QDDSSRC5. Compile RCDINFP1, RCDINFR1P, RCDINFC1P6. CRTCMD CMD(PRTRCDINF) PGM(RCDINFC1)8.如何从 AS/400 激活 PC windows 应用软件或从 PC 激活 AS/400 应用软件? ..Windows 95,98, NT 上需有 REXECD (remote executing)Daemon 程序, 用于接收外界指令, 在 AS/400 使用指令 RUMRMTCMD ,只定 PC 应用软件完整路径, 例如:"C:\Program Files\Microsoft Office\Office\EXCEL.EXE"RUNRMTCMD +CMD('C:\PROGRAM FILES\MICROSOFTOFFICE\OFFICE\EXCEL.EXE') +RMTLOCNAME('145.59.1.78' *IP) +RMTUSER(user) RMTPWD(userpassword)同样的, 也可以从 PC 激活 AS/400 程序, PC 上有 REXEC.EXE 程序, 在 AS/400 上需激活Remote exection server: STRTCPSVR SERVER(*REXEC)REXEC xxx.xxx.xxx.xxx -l QSYSOPR +WRKACTJOB>C:\data\actjob.txtxxx.xxx.xxx.xxx : AS/400 IP address; -l is 小写 L , for usernamePC动作AS/400REXECD<------AS/400 传送 PC command to daemon programRUNRMTCMDREXECPC 传送 AS/400 command to AS/400 REXEC Server------>STRTCPSVR *REXECREXECD utility 可从 http:\\\download.htm 下载9. 清除报表工具 CLNUSRSPL (Cleanup User Spooled Files), 可指定多个使用者的报表于某日前之报表删除或集中归档, 指令范例 : ..CLNUSRSPL USRID(AA BB) OPTION(*INCLUDE) DELETEDATE(072499) ACTION(*DELETE) 清除使用者 AA 及 BB 于 1999 年 7 月 24 日(含24 日) 以前的所有报表CLNUSRSPL USRID(AA BB) OPTION(*OMIT) DELETEDATE(072499) ACTION(*DELETE)除使用者 AA 及 BB 报表不清除, 清除整个系统其它使用者于 1999 年 7 月 24 日(含24 日) 以前的所有报表CLNUSRSPL USRID(AA BB) OPTION(*INCLUDE) DELETEDATE(072499) ACTION(*ARCHIVE) + ARCHIVE(OUTQ)若指定 ACTION(*ARCHIVE) 及 ARCHIVE(OUTQ), 则将报表归档至 OUTQ10. OPNQRYF 之筛选条件内建函数 %WLDCRD, 可以使用 (Field *EQ %WLDCRD("*#*") 挑选Field 中含有字符"#" 的数据, 但若要挑Field 中不含有字符"#" 的资料(Field *NE %WLDCRD("*#*"), 系统却响应 %WLDCRD 参数错误,要如何解决 ?....%WLDCRD 内建函数仅应用于 *EQ 运算子,而无法使用于 *NE,所以须使用 *NOT 做逻辑运算挑选 Field 中含有字符 "#" 的数据 *EQ :OPNQRYF File(FileA) QRYSLT('Field *EQ %WLDCRD("*#*")')挑Field 中不含有字符 "#" 的数据 *NE:OPNQRYF File(FileA) QRYSLT('*NOT (Field *EQ %WLDCRD("*#*"))')11.要如何于 RPG/400 中计算某日为星期几 ?.....RPG/400 并不支持日期函数, 但可使用 ILE RPG/400 中 ILE CEE API CEEDAYS, CEEDYWK 来计算Convert Date to Lilian Format (CEEDAYS) API将文字型态日期转换为流水日数(以1582/10/15为基准日即 1, 1582/10/16 为 2....,依此累计至 9999/12/31)文字型态日期格式可为 MM/DD/YY, MMDDYY,MM/DD/YYYY, MMDDYYYY等.Calculate Day of Week from Lilian Date (CEEDYWK) API以 CEEDAYS 传回之流水日数为参数, 计算星期几,若传回 1-> 星期日, 2->星期一,..., 7->星期六此范例以系统日测试, 你可使用任何介于1582/10/15-- 999/12/31之日期测试 :H*Debug(*yes)D DateMDY S D datfmt(*mdy)D DateAlpha S 8 InzC CallB(D) 'CEEDAYS'C parm inputdateC parm 'MMDDYYYY' datefmtC parm DaysC Days DSPLY*C *MDY Move DateMDY Date6n 6 0C Date6n DSPLY*C Move Date6n Date6c 6C Date6c DSPLYC CallB(D) 'CEEDAYS'C parm Date6cC parm 'MMDDYY' datefmtC parm DaysC Days DSPLYC CallB 'CEEDYWK'C parm DaysC parm DayOfweekNC 'DayOfWeek' DSPLYC DayOfweekN DSPLY* For the day of week, 1 indicates Sunday, 2 indicates Monday, ..* 7 indicates Saturday.C Eval *InLR = *On12.要如何于SQL/400 同一资料文件(table)中找重复(Duplicated record) 的资料 ?...SELECT ALL *FROM file T01WHERE 1 < (SELECT count(*)FROM file T02WHERE T01.field = T02.field AND T01.field2 = T02.field2)ORDER BY T01.field asc, T01.field2 asc上述语法会传回二字段相同的重复 (Duplicated record) 资料13.System Request 的选项可以修改吗 ? 例如选项 3 DSPJOB, 可改为 WRKJOB 吗 ?... System Request 画面是无法修改, 但是选项执行的指令在有条件下是可以修改的System Request 选项的指令是放在讯息文件,可输入指令 WRKMSGD CPX2313 , 按执行键CPX2313 讯息如下:First-level message text . . . . 'ENDRQS DSPJOB DSPMSG SNDMSGSIGNOFF DSPMSG DSCJOB DSPWSUSR ENDRDBRQS '于画面上输入 2 于 CPX2313 前之OPT字段 , 修改指令 DSPJOB 为 WRKJOB.要修改必须字数不得多于原指令字数,且指令起始位置要一致,例如 WRKJOB 的 W, 要与 DSPJOB 的 D 同一位置14.如何传参数至 Query/400 ? ......1. 于 Query/400 筛选资料画面,设定接收参数(冒号开头代表参数),2. The Select Records Panel3.4.5. Select Records6. Type comparisons, press Enter. Specify OR to start each newgroup.7. Tests: EQ, NE, LE, GE, LT, GT, RANGE, LIST, LIKE, IS, ISNOT...8.9. AND/OR Field Test Value (Field, Number,'Characters', or ...)10. GLCOMP EQ :COMPANY11. AND GLBRAN EQ :BRANCH12. AND GLACC EQ :ACCOUNT13.-----------------------------------------------------------------------14. 参数名称有大小写之分, 且须符合定义于 STRQMQRY 指令中的参数,15. 而且参数定义必须在其它非参数筛选条件之前, 例如 :16.但是系统负载较低时, 由于系统暂存区尚未填满, 数据库资料不一致的情况就较会发生, 除非将档案参数 FRCRATIO 定义暂存区储存几笔资料笔数,当笔数累计至此参数值时, 系统即将暂存区资料写入档案, 至于参数 FRC 值笔数数目需自行调配产生,若希望有任何修改立即更新档案, 可将 FRCRATIO 参数值设为 1, 但这会增加系统负载, 需小心设定. CHFPF FILE(filename) FRCRATIO(1)修改参数 FRCRATIO 后, 使用到此档案的相关程序均需重新 Compiled, 该参数值才会生效.16.当执行命令 CMPPFM 比对 Source 时, 会有执行错误讯息 ? ......)若 Source file 的参数 IGCDATA 是 *YES(即 Source file 允许输入中文资料)时, 而系统报表文件 QUEPRT 参数 IGCDATA 是 *NO时, 由于参数属性不一致才有错误讯息, 将系统报表文件 QUEPRT参数 IGCDATA 改为 *YES 即可.CHGPRTF QUEPRT IGCDATA(*YES)17. 因有某些应用软件会使用 QTEMP 储存暂时性资料, 为便于做系统维护 , 要如何在同一台 AS/400 系统上由一工作站传送命令至另一远程工作站由远程使用者确认执行 ?......1. 事先设定远程工作站讯息序列之中断讯息处理程序, 一旦接收到含有命令的中断讯息, 便将命令显示在画面上 , 由远程使用者确认执行CHGMSGQ MSGQ(workstation) PGM(Break-message-program)2. 中断讯息处理程序(Break-message-program)接收系统传来的三个参数 :3. PGM( +4. &MSGQ /* MESSAGE QUEUE NAME */ +5. &MSGQLIB /* MESSAGE QUEUE LIBRARY NAME */ +6. &MSGKEY /* MESSAGE KEY */ +7. )8.9. DCL &MSGKEY *CHAR 410. DCL &MSGQ *CHAR 1011. DCL &MSGQLIB *CHAR 1012. DCL &MSG *CHAR 51213. DCL &RCVMSGTYPE *CHAR 214. DCL &SENDER *CHAR 8015. .16. .17. ./* 截取讯息 */18. RCVMSG MSGQ( &MSGQLIB/&MSGQ ) +19. MSGKEY( &MSGKEY ) +20. MSG( &MSG ) +21. SENDER( &SENDER ) +22. RTNTYPE( &RCVMSGTYPE )23. .24. .25. ENDPGM26. 可将命令利用传递中断讯息至远程工作站讯息序列,SNDBRKMSG MSG(Command) WRKSTN(workstation)18.AS/400 讯息回复分那几类 ? 且回复顺序为何 ?....讯息回复的种类是设定于工作环境设定档(JOBD)参数 INQMSGRPY,该 JOBD 并被指定于使用者设定档中, 用以设定使用者如何回复讯息的方式参数 INQMSGRPY 值有 :1. *RQD : 显示所有讯息交由使用者回复(系统默认值)2. *DFT : 由系统依各讯息预设回复值直接回复3. *SYSRPYL : 由系统自动回复值序列中寻找符合之讯息编号回复值, 若找到则依设定值自动回复, 否则显示讯息交由使用者回复. 可使用 WRKRPYLE 设定自己喜好的自动回复值19.欲使用 AS/400 Folder 时, Windows 系统响应拒绝存取讯息, 要如何解决 ?......1. 由于 Folder 档案系统属于 DOS 档案系统, 所以Client 端不论使用 Windows3.1, 95, 98(即使 95,98 支持长档名) 均必须使用 DOS 档案系统的命名规则,即文件名 8位 + 附属档名 3 位. ==> abcdefgh.txt2. 下 command WRKFLR , AS/400 系统若显示 CPF4A86 "Internal system objectsare damaged." Folder function 无法正常运作 ==> 下 command RCLDLO DLO(*INT) 或AS/400 重新开机,系统会自动修复20. 数据库中若有不正常数字资料常常导致执行程序当掉, 要如何找出不正常数字资料 ?......利用 SQL/400 HEX 十六进制码函数和 TRANSLATE 函数即可找出不正常数字数据? 测试 Packed 型态不正常数字资料SELECT RRN(file-name), Field1, HEX(Field1) FROM file-nameWHERE(TRANSLATE(HEX(Field1), '##########@@@@@@', '0123456789ABCDEF') NOT LIKE '%@'ORTRANSLATE(HEX(Field1), '##########@@@@@@', '0123456789ABCDEF') LIKE '%@%@' )? 测试 Zoned 型态 (7,0) 不正常数字资料例如 Field2 值为 123 ==> 十六进制码 F0 F0 F0 F0 F1 F2 F3Field2 值为 -123 ==> 十六进制码 F0 F0 F0 F0 F1 F2 D3SELECT RRN(file-name), Field2, HEX(Field2) FROM file-nameWHERE(TRANSLATE(HEX(Field2), '##########@@@@@@', '0123456789ABCDEF')NOT LIKE '_#_#_#_#_#_#@#')21.要如何于 SQL/400 中取代某字段之子字符串 ?...例如 field1 为文字型态, 长度 10 位, 欲将前二位值为 'YY' ,以 'XX' 取代? Update filename Set field1= Concat('XX', Substr(field1,3,10)) Where substr(field1, 1, 2) = 'YY'ORUpdate filename Set field1= 'XX' Concat Substr(field1,3,10) Where substr(field1, 1, 2) = 'YY'22.要如何于 SQL/400 中显示十六进位码 ?.....? Select field1, HEX(field1) form file-name利用 HEX 函数, 即可显示十六进位码23.要如何于 SQL/400 中利用 RRN(指写入档案的次序) 处理资料 ?...? Select RRN(file-name), field1,field2 from file-name(显示档案资料次序)? Select RRN(file-name), field1,field2 from file-name Where RRN(file-name) > 10000(筛选 RRN > 1000 之资料)? Update file-name Set field1 = value Where RRN(file-name) > 10000 (更新 RRN > 1000 之 field1 资料)24.要如何于 SQL/400 中计算二日期间的天数 ?.....? 使用 DATE Function ,其传回值格式为 yyyymmdd 共 8 位的数字? SELECT digits(DATE('02/01/96') - DATE('01/01/95')) FROM ....传回值为 '00010100'; 其间天数为一年一个月? 使用 DAYS Function ,其传回值格式为共 10 位的数字? SELECT digits(DAYS('01/01/96') - DAYS('01/01/95')) FROM ....传回值为 '0000000365'; 其间天数 365 天? 欲做如上测试时请先产生一暂存盘 sqltempf ; 指定一数字字段长度 8 位整数, 并新增一笔资料于暂存盘 sqltempf; 即可以 sqltempf 取代上述 FROM 后之 '. . . .' ; 于 SQL/400 执行上述表达式, 可得到上25.要如何于 RPG IV 中呼叫 CL 指令 ? ......1. 宣告 QCMDEXEC API2. D RunCLCmd PR EXTPGM('QCMDEXEC')3. D CmdStr 512 CONST OPTIONS(*VARSIZE)D CmdLen 15 5 CONST4. 将指令组成字符串参数 WrkStr, 再使用 CALLP 呼叫 CL 指令5. C CALLP(E) RunCLCmd(%TRIM(WrkStr) : +C %LEN(%TRIM(WrkStr))26.要如何于 CL 程序中检查是否润年 ? ....? 于 CL 程序中使用数学运算太麻烦了, 告诉你一个更容易的方法, 指令CVTDAT 已经知道那一年是润年, 只要将 "0229" 与二位数字年合并成 'mmddyy' 的格式, 当成指令 CVTDAT 的 DATE 参数值, 如果指令 CVTDAT 传回错误讯息 "CPF0555 日期错误或日期格式错误" , 那表示此二位数字年非润年, 如果无传回错误讯息, 此二位数字年即润年.? PGM (&YEAR)? DCL &YEAR *CHAR 2? DCL &MDY *CHAR 6?? CHGVAR (&MDY) ('0229' *cat &YEAR)? CVTDAT DATE(&MDY) TOVAR(&MDY) FROMFMT(*MDY) TOFMT(*MDY) TOSEP(*NONE)? MONMSG CPF0555 EXEC(DO)? SNDMSG MSGID(CPF9898) MSGF(QCPFMSG) +? MSGDTA('YEAR' *BCAT &YEAR *BCAT 'is not leap year') +? MSGTYPE(*COMP)? RETURN? ENDDO? SNDMSG MSGID(CPF9898) MSGF(QCPFMSG) +? MSGDTA('YEAR' *BCAT &YEAR *BCAT 'is leap year') +? MSGTYPE(*COMP)ENDPGM27.你时常使用 Query/400 产生报表吗 ? Query/400 所产生的报表均以 " * * * END OF REPORT * * *" 结尾, 如果你不喜欢这个讯息, Query/400 使用讯息文件 QQRYMSG 的讯息代码 QRX1905 当成 Query/400 所产生的报表结尾讯息, 你能修改或移除讯息内容......1. CRTMSGF 建立一新讯息文件2. ADDMSGD 将讯息代码 QRX1905 及输入报表结尾讯息于参数 MSG 存入新讯息文件, 若不希望有报表结尾讯息出现于报表上, 指定 ' ' 于参数 MSG.3. 在执行 query 前下 OVRMSGF(Override message file) 指令, 指定使用前项新讯息文件4. 在执行 query 后下 DLTOVR(Delete Override) 指令, 回复使用系统预设讯息文件28. 在您安装 Client Access 于客户端的 PC 后, 使用者便能利用 Windows 95/98/NT 的网络芳邻内的 "AS/400 Network" 开启 AS/400 的 QSYS.LIB 档案系统, 如同 PC 的网络磁盘驱动器, 使用者可看到,搬移,删除所有 AS/400 的档案, 使用者可将AS/400 的档案搬移至 Windows 的资源回收桶, 而 AS/400 并不支持 Windows 资源回收桶的还原功能, 这是很危险的, 有方法可以防止吗 ? .....所以为了防止此种情事发生, 唯一的方式是不让使用者利用网络芳邻存取AS/400 的 QSYS.LIB 档案系统, Client Access Host Service 是利用 "QPWFSERVER" 授权清单, 授权那些使用者可透过 Windows 的网络芳邻存取AS/400 的 QSYS.LIB 档案系统, 此授权清单的系统默认值是 *PUBLIC(*USE), 你只要利用指令 EDTAUTL QPWFSERVER , 按执行键将出现如下画面, 将 User *PUBLIC 的授权由 *USE 改为 *EXCLUDE 即可限制一般使用者透过Windows 的网络芳邻存取AS/400 的 QSYS.LIB 档案系统, 但此方式并无法管制有 *ALLOBJ 特殊权限的使用者.Edit Authorization List Object . . . . . . . : QPWFSERVER Owner . . . . . . . : QSYSLibrary . . . . . : QSYS Primary group . . . : *NONEType changes to current authorities, press Enter.Object ListUser Authority MgtQSYS *ALL X*PUBLIC *USE /* 将 User *PUBLIC 的授权由 *USE 改为 *EXCLUDE*/BottomF3=Exit F5=Refresh F6=Add new usersF11=Display detail object authorities F12=Cancel F24=More keys29.每次开机后均须手动下指令 STRTCP , STRHOSTSVR 以激活 TCP/IP 及 CLient Accesshost service, 有无其它方法可设定开机后自动激活 TCP/IP 及 CLient Access hostservice ? ......1. DSPSYSVAL QSTRUPPGM 找系统激活后的执行程序2. RTVCLSRC 将上述系统激活后的执行程序返解译回原始程序3. 将下列指令加入该原始程序的后段SYS/STRTCP /* 激活 TCP/IP */ MONMSG MSGID(CPF0000)SYS/DLYJOB 300 /* 等待激活 TCP/IP 动作完成 */MONMSG MSGID(CPF0000)SYS/STRHOSTSVR SERVER(*ALL) /* 激活 Client Access Host Server */ MONMSG MSGID(CPF0000)4. Compiled 修改后的激活程序取代旧的激活程序; 下次开机后, 就不必再下指令激活 TCP/IP 及 HOST server.5. 于 V4R2 后 STRTCP 已会自动将 Client Access Host Server 激活, 便不须要于系统激活后的执行程序加入指令 SYS/STRHOSTSVR SERVER(*ALL)30.于 CLP 中所宣告的档案仅能从头到尾读一次, 要如何于 CLP 中重读档案 ? ......? 于 CLP 中使用 TFRCTL 指令;例如程序名称为 TESTC?/*********************************************************************/? /* TESTC: 测试TFRCTL 指令. */?/*********************************************************************/?· PGM ( &last_read )·· DCL &last_read *CHAR 1·· DCLF testpf /* 宣告你要使用的档案 */··· LOOP:· RCVF /* 读取档案资料 */· MONMSG cpf0864 EXEC( GOTO end_loop )·· /* 处理所读取的资料 */·SNDPGMMSG MSGID( cpf9898 ) +·MSGF( qcpfmsg ) +·MSGDTA( &testpf ) +·MSGTYPE( *STATUS ) +· TOPGMQ( *EXT )· DLYJOB 1·· GOTO loop·· END_LOOP:· /* 由 last_read 参数值 -- 'Y' 不重复读 ; 否则重复读; 用以防止程序进入无穷循环 */· IF ( &last_read *EQ 'Y' ) DO· GOTO end_pgm· ENDDO· ELSE DO· CHGVAR &last_read 'Y'· TFRCTL TESTC ( &last_read ) /* TFRCTL 重新执行 TESTC 程序 */· ENDDO·· END_PGM:· /* End-of-program processing goes here */·ENDPGM31. 要如何开放某些指令给使用者于指令行(command line)使用, 但又需限制使用者仅能使用被开放的指令 ?.....1. 设定使用者设定档(User profile) 之参数 LMTCPB(*YES) 限制使用者不得使用指令行2. CLP 范例如 1998/12/07 之FSTMNUCMD 工具开放某些指令给使用者使用, 但使用者无法使用指令行3. 若要用指令行(command line),又要限制开放几个指令, 范例如下4. /*=============================================================== */5. /* = 说明... REQUEST PROCESSOR =*/6. /*=============================================================== */7.8. PGM9.10. DCL &MSG *CHAR ( 3000 )11. DCL &MSGID *CHAR ( 7 )12. DCL &MSGDTA *CHAR ( 100 )13. DCL &MSGF *CHAR ( 10 )14. DCL &MSGFLIB *CHAR ( 10 )15. DCL &KEYVAR *CHAR ( 4 )16. DCL &RTNTYPE *CHAR ( 2 )17. DCL &REJECT *LGL18. DCL &ERRORSW *LGL19.20. MONMSG ( CPF0000 MCH0000 ) EXEC( GOTO ERROR)21. /* ---------------------------------------------------------------*/22. /* - 显示指令行画面 (QCMD) -*/23. /* ---------------------------------------------------------------*/24.25. RECEIVE:26.27. CHGVAR ( &ERRORSW ) ( '0' )28.29. RCVMSG PGMQ( *EXT ) +30. MSGTYPE( *RQS ) +31. RMV( *NO ) +32. KEYVAR( &KEYVAR ) +33. MSG( &MSG ) +34. RTNTYPE( &RTNTYPE )35. MONMSG ( CPF2415 ) EXEC( RETURN) /* 使用者按 F3 or F12, 退出程序 */36. /* ---------------------------------------------------------------*/37. /* - 使用者按 F4 键, 显示指令参数画面 -*/38. /* ---------------------------------------------------------------39. IF ( &RTNTYPE *EQ '10' ) +40.+41. CHGVAR &MSG ( '?' *CAT &MSG )42.43. CALL QCMDCHK ( &MSG 3000 )44. MONMSG ( CPF6801 ) EXEC( GOTO RECEIVE )45. /* ---------------------------------------------------------------*/46. /* - 将指令参数由小写转大写 -*/47. /* ---------------------------------------------------------------*/48.49. RMVMSG PGMQ( *EXT ) +50. MSGKEY( &KEYVAR ) +51. CLEAR( *BYKEY )52.1. SNDPGMMSG MSG( &MSG ) +2. TOPGMQ( *EXT ) +3. MSGTYPE( *RQS )4.5. RCVMSG PGMQ( *EXT ) +6. MSGTYPE( *RQS ) +7. RMV( *NO )8.9. /*--------------------------------------------------------------------- */10. /* - 插入你自己撰写的使用者指令授权程序并传回该使用者是否可执行输入指令- */11. /*--------------------------------------------------------------------- */12.13. CALL YOURPGM ( &MSG &REJECT )14.15. IF ( &REJECT ) GOTO RECEIVE16.17. /* ---------------------------------------------------------------*/18. /* - 执行指令 -*/19. /* ---------------------------------------------------------------*/20.21. CALL QCMDEXC +22. ( &MSG 3000 )23.24. GOTO RECEIVE25.26. /* ---------------------------------------------------------------*/27. /* - ERROR HANDLER -*/28. /* ---------------------------------------------------------------*/29.30. ERROR:31.32. IF ( &ERRORSW ) +33.+34. SNDPGMMSG MSGID( CPF9897 ) +35. MSGF( QCPFMSG ) +36. MSGDTA( 'AN UNEXPECTED ERROR OCCURED. SEE JOB LOG.' ) +37. MSGTYPE( *ESCAPE )38.39. CHGVAR &ERRORSW ( '1' )40. RCVMSG MSGTYPE( *EXCP )+41. MSGDTA( &MSGDTA ) +42. MSGID( &MSGID ) +43. MSGF( &MSGF ) +44. MSGFLIB( &MSGFLIB )45.46. SNDPGMMSG MSGID( &MSGID) +47. MSGF( &MSGFLIB/&MSGF ) +48. MSGDTA( &MSGDTA ) +49. TOPGMQ( *SAME ) +50. MSGTYPE( *DIAG )51.52. GOTO RECEIVE53.54. /* ---------------------------------------------------------------*/55. /* - END OF PROGRAM -*/56. /* ---------------------------------------------------------------*/ENDPGM32.如果你想知道 AS/400 最近一次的开机过程, 过程中有执行那些步骤及各步骤的执行时间, 你能执行程序Call QSYS/QWCCRTEC . 执行程序后会产生一份报表文件 QPSRVDMP , 报表上会列出AS/400 控制面板上在开机时所出现的参考码(source panel code), 及其执行时间. ..欲知各参考码(source panel code)意义, 请参考AS/400 Service Functions manual(SY44-5902), 此书是随 AS/400 硬件到货.33.由于使用者正使用主画面, 该使用者便锁住该画面对象, 程序人员便无法 compile 加入新选项的主画面以取代旧主画面 , 除了所有使用者退至SignOn 画面, 再 compile 主画面外, 有无其它方式不管使用者是否正在使用主画面, 而可以随时修改画面 ?...·下载 Fast Menu Command (FSTMNUCMD) Utility让你可随时加画面选项, 不再受限于使用者; 最多 20 个选项; 亦可于 CLP 中使用1. Compiled 画面 DDS : FSTMNUCMDD; CRTDSPF FILE(FSTMNUCMDD)2. Compiled 指令处理程序: FSTMNUCMDC; CRTCLPGM PGM(FSTMNUCMDC)3. Compiled 指令原始文件 : FSTMNUCMD; CRTCMD CMD(FSTMNUCMD) PGM(FSTMNUCMDC)4. 范例· Fast Menu Command (FSTMNUCMD) ·· Type choices, press Enter. ·· Menu Heading 'Text' . . . . . . > '1234567890' ·· Option Description 'Text' . . . > 'Work with system status' · + for more values > 'Work with active job' · Command to run . . . . . . . . . > 'WRKSYSSTS' · + for more values > 'WRKACTJOB' ·· F3=Exit F4=Prompt F5=Refresh F12=Cancel F13=How to usethis display· F24=More keys34. RTVSYSVAL 指令仅可传回 2 位数的年(如 97,98) , 要如何于 CLP 中取得 4 位数的年(如 1998)? .....·使用 System API QWCCVTDT· PGM· DCL &TODAY *DEC (8 0) /* TODAYS-DATE */· DCL &TODAYA *CHAR (8) /* TODAYS-DATE */· DCL &TIME *DEC (6 0) /* CURRENT-TIME */· DCL &TIMEA *CHAR (6) /* CURRENT-TIME */· DCL &NEWDTE17 *CHAR (17) /* STRING CONATAINING DATE &TIME */· /*传回格式 YYYYMMDDHHMMSSXXX XXXMEANS MINISEC*/·· CALL PGM(QWCCVTDT) PARM('*CURRENT ' ' ' +· '*YYMD ' &NEWDTE17X'00000000')·· CHGVAR VAR(&TODAY) VALUE(%SST(&NEWDTE17 1 8)) /*数字年月日 YYYYMMDD */· CHGVAR VAR(&TODAYA) VALUE(%SST(&NEWDTE17 1 8)) /*文字YYYYMMDD */· CHGVAR VAR(&TIME) VALUE(%SST(&NEWDTE17 9 6)) /*数字时分秒 HHMMSS */· CHGVAR VAR(&TIMEA) VALUE(%SST(&NEWDTE17 9 6)) /*文字HHMMSS */· SNDPGMMSG MSG(&TODAYA *BCAT &TIMEA) MSGTYPE(*COMP)ENDPFM35.如何于 RPG 程序中解决 Record locked 所引起执行程序中断的问题 ? .......1. 使用 OPcode(CHAIN,UPDATE) 的 Error Indicator;2. 使用 RPG File spec.中的参数 INFDS(File_information);且于Definition spec. 中定义 *Status code ("01128" : Record already locked.)3. 使用 RPG File spec.中指定参数 INFSR(File_Exeption/Error Subroutine)或于程序中加 *PSSR 子程序;Definition spec. 中定义 PSDS (Program Status Data Structure) position 209 to 213status code("01128" : Record already locked.); 程序不正常中断时, 系统会更新 PSDS ,并将控制权交给指定于 INFSR 的子程序 , 藉以解决程序中断的问题 ; 例如若遇到 Recordlocked 时便可传送讯息给锁住Record 的使用者请其 Released Record 或通知系统操作员处理;以下是程序片段仅供参考:4.5. FFile_name UF A E K Disk InfSr( *PSSR )6. .7. D PSDS SDS8. D Excp_data 91 170 /* Exception Data 错误讯息*/9. D File_info 209 24310. D Status_cde 209 213 /*Status code of last fileused 最后使用档案的状态码*/11. .12.C*-------------------------------------------------------------------*13. C* *PSSR: Error Subroutine for the procedure. *14.C*-------------------------------------------------------------------*15. C *PSSR BEGSR16. C IF Status_Cde = "01128"17. C* 撰写处理 Record locked 的程序.......18. .例如传送讯息给锁住 Record 的工作站或系统操作员19. C* 视程序设定传回值20. C* MOVE "*GETIN" ReturnPt *继续读取 Record *21. C* MOVE "*CANCL" ReturnPt *中断程序执行*22. C* MOVE " " ReturnPt *将控制权交由 ILE RPG/400 预设处理错误的程序23. C ELSE24. C* 撰写处理其它错误的程序.......25. .26. C ENDIF27. C ENDSR ReturnPt28. C* 须指定传回值于 OPcode ENDSR 的第二个参数欲知更详细资料请参考ILE RPG/400 Programmer's Guide Chapter 11. Handling Exceptions (有范例)ILE RPG/400 Refference Chapter 5. Exception/Error Data Structures and Subroutines (INFDS 及 INFSR 数据结构定义)36.如何检核 CL 指令语法(Command Syntax)符合 AS/400 的指令格式 ? ...........依不同状况有下列二种方法 :1. 于 CLP 中使用System API Check Command Syntax (QCMDCHK) API参数 1:指令字符串 Command string I/O;CHAR(*)参数 2:指令长度 Length of command string INPUT;PACKED(15,5)例如于 CLP 中PGMDCL &CMD *CHAR 512DCL &ERRMSG *CHAR 512MONMSG CPF0000 EXEC(GOTO ERROR)CHGVAR &CMD 'WRKSYSSTS'/* 亦可输入 "?WRKSYSSTS" 检查语法时系统会自动显示指令参数画面*//*问号开头会使系统显示指令参数画面 */Call QCMDCHK (&CMD 512) /* 检查语法 */Call QCMDEXC (&CMD 512) /* 执行指令 */RETURNERROR:RCVMSG MSGTYPE( *EXCP ) MSG( &ERRMSG )CHGVAR &ERRMSG ( 'ERROR:' > &ERRMSG )SNDPGMMSG MSG(&ERRMSG) MSGTYPE(*INFO)ENDPGM于 Command 中参数型态指定 *CMDSTR ,系统会自动检核该指令语法,但无法列出指令参数画面辅助供使用者,亦即使用者须自行输入所有参数;例如 "WRKCFGSTS *CTL CTLNAME";且指令不得以问号开头("?WRKSYSSTS"),问号开头会使系统显示指令参数画面;例如于 CMD 原始档中宣告/* CRTCMD CMD(RUNCMD) PGM(RUNCMDC) */CMD PROMPT('Command To Run')PARM KWD(CMD) TYPE(*CMDSTR) LEN(512) MIN(1) PROMPT('Command to run:')/* Processing PGM of RUNCMD command ; CRTCLPGM PGM(RUNCMDC) */PGM (&CMD)DCL &CMD *CHAR 512DCL &ERRMSG *CHAR 512MONMSG CPF0000 EXEC(GOTO ERROR)Call QCMDEXC (&CMD 512) /* 执行指令 */1. RETURNERROR:RCVMSG MSGTYPE( *EXCP ) MSG( &ERRMSG )CHGVAR &ERRMSG ( 'ERROR:' > &ERRMSG )SNDPGMMSG MSG(&ERRMSG) MSGTYPE(*INFO)ENDPGM37.如何指定 Interactive Job 于特定的子系统中执行 , 如将 DSP0101开头的数个工作站指定于 QPGMR 子系统中 ? ...1. 于子系统定义(Subsystem Descriiption)中指定该工作站名称(Workstation Name Entry)于指令输入ADDWSE 指令, 按PF4 输入工作站名称"DSP0101*" 及Subsystem Description name "QPGMR", 按执行键ADDWSE SBSD(QPGMR) WRKSTN(DSP0101*)2. 于程序中针对指定的工作站使用 TFRJOB 指令 , 能将 Interactive Job 从一子系统转至另一子系统TFRJOB JOBQ(job_queue)38.如何于 SQL 中将文字转成数字 ? ...........1. 将文字转成数字 ==> DECIMAL(string_field);(V4R2 以后才有此功能)有资料如下 :*...+....1....+....2....+....3....+....4....MAXWELL/SMART 000034932NOTOWN GASELECT DECIMAL(SUBSTR(Data,20,9)) FROM IMPORT ==> 传回值 34932.2. 将数字转成文字 ==> DIGITS(number_field) ; 此功能仅传回数字 , 并不包含正负号及小数点有资料如下 : CILUMNX 是四位整数二位小数且值为 -6.28DIGITS(COLUMNX) ===> 传回值 '000628'39.有些使用者同时于多台工作站 SignOn进入系统, 要送讯息给使用者 , 但无法确知其真正正在使用之工作站, 系统有传送中止画面讯息指令 SNDBRKMSG , 传送中止画面讯息至指定工作站 ; 但无法满足上述状况 , 有无其它工具传送中止画面讯息至同时使用多台工作站的使用者 ? .....要传送讯息至 "以相同的 USER ID 同时使用多台工作站的使用者" , 亦即以此USER ID SignOn进入系统的所有工作站多将收到讯息 , 不管使用者正在使用那一台工作站; 试试底下指令 , 能满足此需求CALL QEZSNDMG ==> 画面如下 :能指定讯息型态中止画面或要求使用者回复讯息 ; 输入讯息 ; 按 F10 传送Send a Message Type information below, then press F10 to send. Message needs reply . . . . . . N Y=Yes, N=No Interrupt user . . . . . . . . . N Y=Yes, N=NoMessage text . . . . . . . . . . Send to . . . . . . . . . . . . Name, F4 for listMore... F1=Help F3=Exit F10=Send F12=Cancel40. 如何取得由 Telnet 方式进入系统的 Client 端 IP address ?......利用 System API QDCRDEVD 取得 IP address ; 使用此范例程序时需输入工作站名称当参数 ,如 CALL RTVDEVIPC PARM('QPADEV0001') ; CL 程序范例如下PGM (&DEVICENAME)/******************************//* PARAMETERS *//******************************/DCL &DEVICENAME *CHAR 10DCL &IPADDRESS *CHAR 15/******************************//* PARAMETERS FOR QDCRDEVD *//******************************/DCL &RECEIVER *CHAR 892DCL &RCVRLENGTH *CHAR 4DCL &FORMATNAME *CHAR 8 'DEVD0600' /* THE FORMAT FOR DISPLAY DEVICES */DCL &ERRORCODE *CHAR 4 X'00000000' /* USE NORMAL ERROR HANDLING *//******************************//* SET LENGTH OF RECEIVER *//******************************/CHGVAR %BIN(&RCVRLENGTH) 892/******************************//* GET DEVICE INFO */。
AS400手册
AS400手册AS/400 用户手册IBM 信息系统服务部2002年11月目录AS/400基本操作指南一、手动启动AS/400二、AS/400关机三、系统作业的查看四、查看硬盘状态五、系统日志的查看AS/400基本故障诊断一、一般性故障二、系统故障灯亮AS/400数据备份一、备份对象(Object)或库(Library)二、全系统备份AS/400服务介绍附录一、手动启动AS/4001、选择机器启动模式AS/400启动(IPL)主要有两种方式：手动(Manual)或正常(Normal)，这两种方式的选择是通过控制面板来实现的。
对于有电子钥匙的机型，这一过程非常容易，在电子钥匙插入钥匙孔后，连续按方式选择键，模式指示灯会轮流点亮，只要让想选择的模式的指示灯亮就完成了手动/正常模式的转换。
对于没有电子钥匙的机型，模式的转换就需要使用控制面板的02功能，其操作步骤如下：A.正常情况下，控制面板会显示“01 B N”，这表示是正常模式B.按向上的数据显示按键一下，面板会显示“02”C.按执行键后，面板显示“02 B N”D.再按上或下的数据显示按键直到显示“02 B M”为止E.按一下执行键，面板显示“02”F.按向下的数据显示按键让面板显示“01”G.按一下执行键，这时面板会显示“01 B M”，这样就完成了从正常模式向手动模式的转换如果想再从手动模式向正常模式转换，只要在第D步时选择“02 B N”就行了。
2、AS/400手动启动过程AS/400的启动被称为初始程序装载，简称为IPL(Initial Program Load)。
正常模式的IPL很简单，在确认模式选择正确后，只需按一下启动键就行了。
而对于手动模式，在按下启动键到系统可用还需要在主控终端上回答一些问题，具体过程如下：第一个系统等待回答的菜单是IPL or Install the System，显示如下：1. Perform an IPL2. Install the operating system3. Use Dedicated Service Tools (DST)4. Perform automatic installation of the operating system5. Save Licensed Internal Code在确定不用做其它操作后，选择1(Perform an IPL)以启动AS/400登录画面出现后，用有安全保安官权限的用户登录，建议用QSECOFR用户。
AS400基本命令和操作
数据描述规范D DS通过文件的记录字段仅一次的说明，可定义多种访问路径，多个程序使用。
结构化查询语言SQL/400组成：（1）SQL运行支持程序（2）SQL预编译程序（3）SQL交互式接口（4）DB2 QUERYMANAGE R FOR AS/400，提供菜单、填空式提示的交互式接口，允许建立、增加、维护数据，和运行报表PDM（PROGRA MMING DEVELO PMENT MANAGE R）处理源代码、对象和库SEU（SOURCE ENTRYUTILIT Y）建立和编辑源文件成员S TRSEUSDA（SCREEN DESIGN AID）交互式设计、创建和维护应用屏幕RLU（REPORT LAYOUT UTILIT Y）交互式定义打印报表的格式分布DFU（DATA FILE UTILIT Y）快速定义、创建面向数据录入、查询或文件维护STRDFUQUERY/400获取外部描述数据库文件信息S TRQR YCL（CONTRO L LANGUA GE）调用AS/400的所有系统功能。
简化操作，控制工作流程，设置作业运行环境等AS/400三级存储结构库（LIBRAR Y）——数据库文件（F ILE）——成员（MEMBER）一级目录——二级目录——三级目录字段是用来描述某一属性的一组值；字段定义是对字段属性的说明记录是把一组字段放在一起命名，用来说明某一事物；记录格式是对记录中所有字段的简单说明以及对各字段排序的说明文件是已命名的一组记录，文件说明是对文件所有的记录格式和存取路径的说明，数据库文件分为数据文件和源文件，数据文件就是程序中使用的物理文件和逻辑文件。
物理文件（*FILE，PF-DTA）：在SQL中称做表（TABLE），含有系统实际存储的数据，每个物理文件只有一个固定长度的记录格式。
AS400命令
as400 所有命令AS/400 COMMAND FUNCTIONADDAJE Add Auto Start Job Entry ADDALRACNE Add Alert Action Entry ADDALRD Add Alert Description ADDALRSLTE Add Alert Selection Entry ADDASCJOB Add ASYNC JobADDAUTLE Add Authorization List Entry ADDBKP Add Break PointADDBNDDIRE Add Binding Directory Entry ADDBSCJOB Add BSC JobADDCFGLE Add Configuration List Entries ADDCMNE Add Communications Entry ADDCNNLE Add Connection List Entry ADDCOMSNMP Add Community for SNMP ADDDIRE Add Directory Entry ADDDIRSHD Add Directory Shadow System ADDDKTJOB Add Diskette Job ADDDLOAUT Add DLO Authority ADDDSKJOB Add Disk JobADDDSPJOB Add Display JobADDDSTLE Add Distribution List Entry ADDDSTQ Add Distribution Queue ADDDSTRTE Add Distribution Route ADDDSTSYSN Add Secondary System Nam e ADDDTADFN Add Data Definition ADDEMLCFGE Add configuration entry ADDEWCBCDE Add EWC Barcode Entry ADDEWCM Add Wireless Ctl Member ADDEWCPTCE Add EWC PTC Entry ADDEWLM Add Wireless Line Member ADDEXRJOB Add Exerciser Job ADDICFDEVE Add ICF Device Entry ADDIPSIFC Add IP over SNA Interface ADDIPSLOC Add IP over SNA Location ADDIPSRTE Add IP over SNA Route ADDJOBQE Add Job Queue Entry ADDJOBSCDE Add Job Schedule Entry ADDLANADPI Add LAN Adapter Information ADDLFM Add Logical File Member ADDLIBLE Add Library List Entry ADDLIBLE Add Library List EntryADDLNK Add LinkADDMEDBRM Add Media to BRM ADDMEDCBRM Add Media Contents using BRM ADDMEDIBRM Add Media Information to BRM ADDMLMBRM Add Media Library Media to BRM ADDMSGD Add Message Description ADDNCK Add NicknameADDNETJOB Add Network Job ADDNETTBLE Add Network Table Entry ADDNODLE Add Node List Entry ADDNWSSTGL Add Server Storage Link ADDOPTJOB Add Optical JobADDPCLT BLE Add Protocol Table Entry ADDPERJOB Add Peer JobADDPERSSN Add Peer SessionADDPFCST Add PF ConstraintADDPFM Add Physical File Member ADDPFRCOL Add Performance Collection ADDPFTRG Add Physical File Trigger ADDPFTRG Add Physical File Trigger ADDPFVLM Add Phy File Variable Len Mbr ADDPGM Add ProgramADDPJE Add Prestart Job Entry ADDPRBACNE Add Problem Action Entry ADDPRBSLTE Add Problem Selection Entry ADDPRTJOB Add Printer JobADDRDBDIRE Add RDB Directory Entry ADDREXBUF Add REXX BufferADDRMTSVR Add Remote Server ADDRPYLE Add Reply List EntryADDRT GE Add Routing EntryADDSCHIDXE Add Search Index Entry ADDSOCE Add Sphere of Control Entry ADDSRVT BLE Add Service Table Entry ADDTAPCT G Add Tape Cartridge ADDTAPFIL Add Tape FileADDTAPJOB Add Tape JobADDTCPHTE Add TCP/IP Host Table Entry ADDTCPIFC Add TCP/IP Interface ADDTCPPORT Add TCP/IP Port Restriction ADDTCPRSI Add TCP/IP Remote System ADDTCPRTE Add TCP/IP RouteADDT RC Add TraceADDWSE Add Work Station EntryALCOBJ Allocate ObjectALRLOGSTS Alert Log StatusANSLIN Answer LineANZ ACCGRP Analyze Process Access Group ANZBESTMDL Analyze BEST/1 Model ANZDBF Analyze Database Files ANZDBFKEY Analyze Database File Keys ANZLIBBRM Analyze Libraries using BRM ANZPFRDTA Analyze Performance Data ANZPGM Analyze ProgramsANZPRB ANAYLIZE PROBLEMANZQRY Analyze QueryANZUSROS3 Analyze Users of OS/400 V3R1 ANZUSROS6 Analyze Users of OS/400 V3R6 ANZUSRPC3 Analyze Users fo Client Access APPACISET Append ASCII Set APPASCSET Append ASYNC Set APPBSCSET Append BSC Set APPETHSET Append Ethernet Set APPEXRSET Append Exerciser Set APPIDLCSET Append IDLC Set APPISDNSET Append ISDN Set APPSDLCSET Append SDLC Set APPTRNSET Append Token-Ring SetAPPX25SET Append X.25 SetAPYPTF Apply Program Tem porary Fix (PTF) ASKQST Ask QuestionBCHJOB Batch JobCALL Call ProgramCALLPRC Call Bound ProcedureCD Change Current Directory CFGDSTSRV Configure Distribution Service CFGIPS Configure IP over SNACFGPM400 Configure PM/400CFGTCP Configure TCP/IPCFGTCPAPP Configure TCP/IP Applications CFGTCPFTP Configure TCP/IP FTP CFGTCPLPD Configure TCP/IP LPD CFGTCPSMTP Configure TCP/IP SMTP CFGTCPSNMP Configure TCP/IP SNMP CFGTCPTELN Configure TCP/IP TELNET CHDIR Change Current Directory CHGACGCDE Change Accounting Code CHGAJE Change Autostart Job EntryCHGALRACNE Change Alert Action Entry CHGALRD Change Alert Description CHGALRSLTE Change Alert Selection Entry CHGALRTBL Change Alert Table CHGASCJOB Change ASYNC JobCHGAUD Change Auditing ValueCHGAUT Change AuthorityCHGAUTLE Change Auth List Entry CHGBCKUP Change Backup Options CHGBSCJOB Change BSC JobCHGCFGL Change Configuration List CHGCFGLE Change Cfg List Entries CHGCLNUP Change Clean UpCHGCLNUP Change CleanupCHGCLS Change ClassCHGCLS Change ClassCHGCMD Change CommandCHGCMDDFT Change Command Default CHGCMNE Change Communications Entry CHGCNNL Change Connection List CHGCNNLE Change Connection List Entry CHGCOMSNMP Change Community for SNMP CHGCOSD Change Class-of-Service Desc CHGCRQD Change CRQ Description CHGCSI Change Comm Side Information CHGCSPPGM Change CSP/AE Program CHGCTLAPPC Change Ctl Desc (APPC) CHGCTLASC Change Ctl Desc (Async) CHGCTLBSC Change Ctl Desc (BSC) CHGCTLFNC Change Ctl Desc (Finance) CHGCTLHOST Change Ctl Desc (SNA Host) CHGCTLLWS Change Ctl Desc (Local WS) CHGCTLNET Change Ctl Desc (Network) CHGCTLRTL Change Ctl Desc (Retail) CHGCTLRWS Change Ctl Desc (Remote WS) CHGCTLTAP Change Ctl Desc (Tape) CHGCTLVWS Change Ctl Desc (Virtual WS) CHGCURDIR Change Current Directory CHGCURLIB Change Current Library CHGDBG Change DebugCHGDDMF Change DDM File CHGDEVAPPC Change Device Desc (APPC) CHGDEVASC Change Device Desc (Async) CHGDEVBSC Change Device Desc (BSC)CHGDEVDKT Change Device Desc (Diskette) CHGDEVDSP Change Device Desc (Display) CHGDEVFNC Change Device Desc (Finance) CHGDEVHOST Change Device Desc (SNA Host) CHGDEVINT R Change Device Desc (Intra) CHGDEVNET Change Device Desc (Network) CHGDEVPRT Change Device Desc (Printer) CHGDEVRTL Change Device Desc (Retail) CHGDEVSNPT Change Device Desc (SNPT) CHGDEVSNUF Change Device Desc (SNUF) CHGDEVTAP Change Device Desc (Tape) CHGDIRA Change Directory Attributes CHGDIRE Change Directory Entry CHGDIRSHD Change Directory Shadow System CHGDKTF Change Diskette File CHGDKTJOB Change Diskette Job CHGDLOAUD Change DLO Auditing Level CHGDLOAUT Change DLO Authority CHGDLOOWN Change DLO Owner CHGDLOPGP Change DLO Primary Group CHGDOCD Change Document Description CHGDSKJOB Change Disk JobCHGDSPF Change Display FileCHGDSPJOB Change Display JobCHGDSTA Change Distribution Attributes CHGDST D Change DistributionCHGDSTL Change Distribution List CHGDSTPWD Change DST Password CHGDSTQ Change Distribution Queue CHGDSTRTE Change Distribution Route CHGDTA CHANGE DATACHGDTA Change DataCHGDTAARA Change Data Area CHGDTAPAT Change Data Pattern CHGEMLCFGE Change configuration entry CHGEWCBCDE Change EWC Barcode Entry CHGEWCM Change Wireless Ctl Member CHGEWCPTCE Change EWC PTC Entry CHGEWLM Change Wireless Line Member CHGEXRJOB Change Exerciser Job CHGFCNARA Change Functional Area CHGFTPA Change FTP AttributesCHGFTR Change FilterCHGGPHFMT Change Graph Form atCHGGPHPKG Change Graph Package CHGGRPA Change Group Attributes CHGHLLPTR Change HLL Pointer CHGICFDEVE Change ICF Device Entry CHGICFF Change ICF FileCHGIPSIFC Change IP over SNA Interface CHGIPSLOC Change IP over SNA Location CHGIPSTOS Change IP over SNA TOS CHGJOB Change JobCHGJOBD Change Job Description CHGJOBQE Change Job Queue Entry CHGJOBSCDE Change Job Schedule Entry CHGJOBTYP Change Job TypeCHGJRN Change JournalCHGKBDMAP Change Keyboard Map CHGLANADPI Change LAN Adapter Information CHGLF Change Logical FileCHGLFM Change Logical File MemberCHGLIB Change LibraryCHGLIBL Change Library ListCHGLINASC Change Line Desc (Async) CHGLINBSC Change Line Desc (BSC) CHGLIND Change Line Description CHGLINDDI Change Line Desc (DDI) CHGLINETH Change Line Desc (Ethernet) CHGLINFAX Change Line Desc (Fax) CHGLINFR Change Line Desc (Fram e Relay) CHGLINIDLC Change Line Desc (IDLC) CHGLINNET Change Line Desc (Network) CHGLINSDLC Change Line Desc (SDLC) CHGLINTDLC Change Line Desc (TDLC) CHGLINTRN Change Line Desc (Token-Ring) CHGLINWLS Change Line Desc (Wireless) CHGLINX25 Change Line Desc (X.25) CHGLPDA Change LPD Attributes CHGMEDBRM Change Media in BRM CHGMNU Change MenuCHGMOD Change ModuleCHGMODD Change Mode Description CHGMSGD Change Message Description CHGMSGF Change Message FileCHGMSGQ Change Message QueueCHGNCK Change NicknameCHGNETA Change Network AttributesCHGNETJOB Change Network JobCHGNT BD Change NetBIOS Description CHGNWIFR Change Network Interface Desc CHGNWIISDN Change Network Interface Desc CHGNWSALS Change Network Server Alias CHGNWSD Change Network Server Desc CHGOBJAUD Change Object Auditing CHGOBJD Change Object Description CHGOBJOWN Change Object Owner CHGOBJPGP Change Object Prim ary Group CHGOPTJOB Change Optical JobCHGOUTQ Change Output QueueCHGOWN Change OwnerCHGPCOPRF Change PC Organizer Profile CHGPDGPRF Change PDG Profile CHGPERJOB Change Peer JobCHGPERSSN Change Peer SessionCHGPF Change Physical FileCHGPFCST Change PF ConstraintCHGPFM Change Physical File Member CHGPFRCOL Change Performance Collection CHGPGM Change ProgramCHGPGMVAR Change Program Variable CHGPGP Change Primary GroupCHGPJ Change Prestart JobCHGPJE Change Prestart Job EntryCHGPRB Change ProblemCHGPRBACNE Change Problem Action Entry CHGPRBSLTE Change Problem Selection Entry CHGPRF Change ProfileCHGPRTF Change Printer FileCHGPRTJOB Change Printer JobCHGPWD Change PasswordCHGPWRSCD Change Power On/Off Schedule CHGPWRSCDE Change Power Schedule Entry CHGQRYA Change Query Attributes CHGRCYAP Chg Recovery for Access Paths CHGRDBDIRE Change RDB Directory Entry CHGRPYLE Change Reply List EntryCHGRT GE Change Routing Entry CHGRTPRF Change Run Tim e ProfileCHGS36 Change S/36 ConfigurationCHGS36A Change S/36 Environment Attr CHGS36MSGL Change S/36 Message ListCHGS36PGMA Change S/36 Program Attributes CHGS36PRCA Change S/36 Proc Attributes CHGS36SRCA Change S/36 Source Attributes CHGSAVF Change Save FileCHGSBSD Change Subsystem Description CHGSCDBRM Change Job Scheduler CHGSCHIDX Change Search Index CHGSHRPOOL Change Sha red Storage Pool CHGSMTPA Change SMTP Attributes CHGSNMPA Change SNMP Attributes CHGSPLFA Change Spooled File Attributes CHGSRCPF Change Source Physical File CHGSRVPGM Change Service Program CHGSSNMAX Change Session Maximum CHGSYSDIRA Change System Dir Attributes CHGSYSLIBL Change System Library List CHGSYSVAL Change System Value CHGTAPCTG Change Tape Cartridge CHGTAPF Change Tape FileCHGTAPFIL Change Tape FileCHGTAPJOB Change Tape JobCHGTCPA Change TCP/IP Attributes CHGTCPHTE Change TCP/IP Host Table Entry CHGTCPIFC Change TCP/IP Interface CHGTCPRTE Change TCP/IP Route CHGTELNA Change TELNET Attributes CHGUSRAUD Change User Auditing CHGUSRPRF Change User Profile CHGUSRPRTI Change User Print Info CHGVAR Change VariableCHGVTMAP Change VT Keyboard Map CHGWSE Change Work Station Entry CHGWTR Change WriterCHKDKT Check DisketteCHKDLO Check Docum ent Library Object CHKIN Check In ObjectCHKOBJ Check ObjectCHKOBJITG Check Object IntegrityCHKOUT Check Out ObjectCHKPRDOPT Check Product OptionCHKPWD Check PasswordCHKRCDLCK Check Record LocksCHKTAP Check TapeCLNUPDEX Clean Up Device ExerciserCLOF Close FileCLRDKT Clear DisketteCLRJOBQ Clear Job QueueCLRLIB Clear LibraryCLRMSGQ Clear Message Queue CLROUTQ Clear Output QueueCLRPFM Clear Physical File Member CLRPOOL Clear PoolCLRPRF Clear ProfileCLRSAVF Clear Save FileCLRTRCDTA Clear Trace DataCMD Command DefinitionCMPJRNIMG Compare Journal Images CMPPFM Compare Physical File Member COMMIT CommitCOPY Copy ObjectCPROBJ Compress ObjectCPY Copy ObjectCPYCFGL Copy Configuration List CPYDOC Copy Docum entCPYDTAPAT Copy Data Pattern CPYEXRJOB Copy Exerciser Job CPYEXRSET Copy Exerciser SetCPYF Copy FileCPYFCNARA Copy Functional Area CPYFRMDIR Copy From Directory CPYFRMDKT Copy From Diskette CPYFRMPCD Copy From PC Docum ent CPYFRMQRYF Copy From Query File CPYFRMSTMF Copy From Stream File CPYFRMTAP Copy From Tape CPYGPHFMT Copy Graph Format CPYGPHPKG Copy Graph PackageCPYLIB Copy LibraryCPYMEDIBRM Copy Media Info for BRM CPYPERSSN Copy Peer Session CPYPFRDTA Copy Performance Data CPYPTF Copy Program Tem porary Fix (PTF) CPYRTPRF Copy Run Tim e Profile CPYSPLF Copy Spooled FileCPYSRCF Copy Source FileCPYTAPFIL Copy Tape FileCPYTODIR Copy To DirectoryCPYTODKT Copy To DisketteCPYTOPCD Copy To PC Docum ent CPYTOSTMF Copy To Stream File CPYTOTAP Copy To TapeCRTACIDEV Create ASCII Devices CRTACISET Create ASCII Set CRTALRTBL Create Alert Table CRTASCSET Create ASYNC Set CRTASCSRC Create ASYNC Source CRTASCTGT Create ASYNC Target CRTAUTL Create Authorization ListCRT BESTMDL Create BEST/1 ModelCRT BNDCBL Create Bound COBOL Program CRT BNDCL Create Bound CL ProgramCRT BNDDIR Create Binding DirectoryCRT BNDRPG Create Bound RPG Program CRT BSCSET Create BSC SetCRT BSCSRC Create BSC SourceCRT BSCTGT Create BSC Target CRTCBLMOD Create COBOL Module CRTCBLPGM Create COBOL Program CRTCFGL Create Configuration List CRTCLD Create C Locale Description CRTCLMOD Create CL Module CRTCLPGM CREATE CL PROGRAM CRTCLS CREATE CLASSCRTCMD Create CommandCRTCNNL Create Connection List CRTCOSD Create Class-of-Service Desc CRTCRQD Create CRQ Description CRTCSI Create Comm Side Information CRTCSPAPP Create CSP/AE Application Obj CRTCSPMSGF Create CSP/AE User Msg File CRTCTLAPPC Create Ctl Desc (APPC) CRTCTLASC Create Ctl Desc (Async) CRTCTLBSC Create Ctl Desc (BSC) CRTCTLFNC Create Ctl Desc (Finance) CRTCTLHOST Create Ctl Desc (SNA Host) CRTCTLLWS Create Ctl Desc (Local WS) CRTCTLNET Create Ctl Desc (Network) CRTCTLRTL Create Ctl Desc (Retail) CRTCTLRWS Create Ctl Desc (Remote WS) CRTCTLTAP Create Ctl Desc (Tape) CRTCTLVWS Create Ctl Desc (Virtual WS) CRT DDMF Create DDM FileCRT DEVAPPC Create Device Desc (APPC)CRT DEVASC Create Device Desc (Async)CRT DEVBSC Create Device Desc (BSC)CRT DEVD Create Device DescriptionCRT DEVDKT Create Device Desc (Diskette)CRT DEVDSP Create Device Desc (Display)CRT DEVFNC Create Device Desc (Finance)CRT DEVHOST Create Device Desc (SNA Host) CRT DEVINTR Create Device Desc (Intra)CRT DEVMLB Create Device Media LibraryCRT DEVNET Create Device Desc (Network)CRT DEVPRT Create Device Description (PRINTER) CRT DEVRTL Create Device Desc (Retail)CRT DEVSNPT Create Device Desc (SNPT)CRT DEVSNUF Create Device Desc (SNUF)CRT DEVTAP Create Device Desc (Tape)CRT DFUDSPF Create DFU Display FileCRT DIR Create DirectoryCRT DKTF Create Diskette FileCRT DOC Create DocumentCRT DSPF Create Display FileCRT DSTL Create Distribution ListCRTDTAARA Create Data AreaCRTDTADCT Create Data Dictionary CRTDTAPAT Create Data PatternCRTDTAQ Create Data QueueCRT DUPOBJ Create Duplicate ObjectCRTEDTD Create Edit DescriptionCRTETHSET Create Ethernet SetCRTETHSRC Create Ethernet Source CRTETHTGT Create Ethernet Target CRTEXRSET Create Exerciser SetCRTFCNARA Create Functional AreaCRTFLR Create FolderCRTFNT RSC Create Font Resource CRTFORMDF Create Form DefinitionCRTFTR Create FilterCRT GPHFMT Create Graph FormatCRT GPHPKG Create Graph Pac kageCRT GSS Create Graphics Sym bol Set CRTHSTDTA Create Historical DataCRTICFF Create ICF FileCRTIDLCSET Create IDLC SetCRTIDLCSRC Create IDLC SourceCRTIDLCTGT Create IDLC Target CRTISDNSET Create ISDN Set CRTISDNSRC Create ISDN Source CRTISDNT GT Create ISDN Target CRTJOBD Create Job DescriptionCRTJOBQ Create a Job QueueCRTJRN Create JournalCRTJRNRCV Create Journal ReceiverCRTLF Create Logical FileCRTLIB Create LibraryCRTLINASC Create Line Desc (Async) CRTLINBSC Create Line Desc (BSC) CRTLINDDI Create Line Desc (DDI) CRTLINETH Create Line Desc (Ethernet) CRTLINFAX Create Line Desc (Fax) CRTLINFR Create Line Desc (Fram e Relay) CRTLINIDLC Create Line Desc (IDLC) CRTLINNET Create Line Desc (Network) CRTLINSDLC Create Line Desc (SDLC) CRTLINT DLC Create Line Desc (TDLC) CRTLINT RN Create Line Desc (Token-Ring) CRTLINWLS Create Line Desc (Wireless) CRTLINX25 Create Line Desc (X.25) CRTMNU Create MenuCRTMODD Create Mode Description CRTMSGF Create Message File CRTMSGFMNU Create Menu from Msg Files CRTMSGQ Create Message Queue CRTNODL Create Node ListCRTNT BD Create NetBIOS Description CRTNWIFR Create Network Interface Desc CRTNWIISDN Create Network Interface Desc CRTNWSALS Create Network Server Alias CRTNWSD Create Network Server Desc CRTNWSSTG Create NWS Storage Space CRTOUTQ Create Output QueueCRTOVL Create OverlayCRTPAGDFN Create Page Definition CRTPAGSEG Create Page Segm ent CRTPDG Create Print Descriptor Group CRTPF Create Physical FileCRTPGM Create ProgramCRTPNLGRP Create Panel GroupCRTPRTF Create Printer FileCRTPTFPKG Create Program Tem porary Fix Package CRTQMFORM Create Query Managem ent Form CRTQMQRY Create Query Management QueryCRT RPGMOD Create RPG ModuleCRT RPGPGM Create RPG ProgramCRT RPTPGM Create Auto Report RPG Program CRTRTPRF Create Run Time ProfileCRTS36CBL Create S/36 COBOL ProgramCRTS36DSPF Create S/36 Display FileCRTS36MNU Create S/36 MenuCRTS36MSGF Create S/36 Message FileCRTS36RPG Create RPG II ProgramCRTS36RPGR Create Console Display FileCRTS36RPT Create S/36 RPG II Auto Report CRTSAVF Create Save FileCRTSBSD Create Subsystem Description CRTSCHIDX Create Search IndexCRTSDLCSET Create SDLC SetCRTSDLCSRC Create SDLC SourceCRTSDLCT GT Create SDLC TargetCRTSPADCT Create Spelling Aid Dictionary CRTSQLC Create SQL C ProgramCRTSQLCBL Create SQL COBOL Program CRTSQLCBLI Create SQL ILE COBOL Object CRTSQLCI Create SQL ILE C objectCRTSQLFTN Create SQL FORTRAN Program CRTSQLPKG Create SQL PackageCRTSQLPLI Create SQL PL/I Program CRTSQLRPG Create SQL RPG Program CRTSQLRPGI Create SQL ILE RPG Object CRTSRCPF Create Source Physical File CRTSRVPGM Create Service Program CRTTAPCGY Create Tape CategoryCRTTAPF Create Tape FileCRTTBL Create TableCRTTRNSET Create Token-Ring SetCRTTRNSRC Create Token-Ring SourceCRTTRNT GT Create Token-Ring Target CRTUSRPRF Create User ProfileCRTWSCST Create WSCSTCRTX25SET Create X.25 SetCRTX25SRC Create X.25 SourceCRTX25TGT Create X.25 TargetCVTCLSRC Convert CL SourceCVTDAT Convert DateCVTEDU Convert EducationCVTIPSIFC Convert IP Address CVTIPSLOC Convert Network ID / Location CVTPFRDTA Convert Performance Data CVTRPGSRC Convert RPG Source CVTTCPCL Convert TCP/IP CL Source CVTTOFLR Convert To FolderDATA DataDCL Declare CL VariableDCLF Declare FileDCPOBJ Decompress ObjectDEL Remove LinkDEP Dependent DefinitionDLCOBJ Deallocate ObjectDLT ALR Delete AlertDLTALRT BL Delete Alert Table DLTAPARDTA Delete APAR Data DLTAUTHLR Delete Authority Holder DLTAUTL Delete Authorization List DLTBESTMDL Delete BEST/1 m odel DLTBNDDIR Delete Binding Directory DLTCFGL Delete Configuration List DLTCLD Delete C Locale Description DLTCLS Delete ClassDLTCMD Delete CommandDLTCNNL Delete Connection List DLTCOSD Delete Class-of-Service Desc DLTCRQD Delete CRQ Description DLTCSI Delete Comm Side Information DLTCSPMAP Delete CSP/AE Map Group DLTCSPTBL Delete CSP/AE Table DLTCTLD Delete Controller Description DLTDEVD Delete Device Description DLTDEVMLB Delete Device Media Library DLTDFUPGM Delete DFU Program DLTDKTLBL Delete Diskette Label DLTDLO Delete Docum ent Library Object DLTDOCL Delete Docum ent ListDLTDST Delete DistributionDLTDSTL Delete Distribution List DLTDTAARA Delete Data Area DLTDTADCT Delete Data Dictionary DLTDTAPAT Delete Data PatternDLTDTAQ Delete Data QueueDLTEDT D Delete Edit Description DLTEXRJOB Delete Exerciser Job DLTEXRSET Delete Exerciser SetDLTF Delete FileDLTFCNARA Delete Functional Area DLTFNTRSC Delete Font Resource DLTFORMDF Delete Form Definition DLTFTR Delete FilterDLTGPHFMT Delete Graph Format DLTGPHPKG Delete Graph Package DLTGSS Delete Graphic Sym bol Set DLTHSTDTA Delete Historical Data DLTJOBD Delete Job DescriptionDLTJOBQ Delete Job QueueDLTJRN Delete JournalDLTJRNRCV Delete Journal ReceiverDLTLIB Delete LibraryDLTLIND Delete Line DescriptionDLTMNU Delete MenuDLTMOD Delete ModuleDLTMODD Delete Mode Description DLTMSGF Delete Message FileDLTMSGQ Delete Message QueueDLTNETF Delete Network FileDLTNODL Delete Node ListDLTNTBD Delete NetBIOS Descriptions DLTNWID Delete Network Interface Desc DLTNWSALS Delete Network Server Alias DLTNWSD Delete Network Server Desc DLTNWSSTG Delete NWS Storage Space DLTOUTQ Delete Output QueueDLTOVL Delete OverlayDLTOVR Delete OverrideDLTOVRDEVE Delete Override Pgm Dev Entry DLTPAGDFN Delete Page Definition DLTPAGSEG Delete Page Segm entDLTPDG Delete Print Descriptor Group DLTPERSSN Delete Peer Session DLTPFRDTA Delete Performance Data DLTPGM Delete ProgramDLTPNLGRP Delete Panel GroupDLTPRB Delete ProblemDLTPTF Delete Program Tem porary FixDLTQMFORM Delete Query Management Form DLTQMQRY Delete Query Management Query DLTQRY Delete QueryDLTRTPRF Delete Run Time Profile DLTSBSD Delete Subsystem Description DLTSCHIDX Delete Search IndexDLTSHF Delete BookshelfDLTSPADCT Delete Spelling Aid Dictionary DLTSPLF Delete Spooled FileDLTSQLPKG Delete SQL Package DLTSRVPGM Delete Service Program DLTTAPCGY Delete Tape Category DLTTAPFIL Delete Tape FileDLTTBL Delete TableDLTUSRIDX Delete User Index DLTUSRPRF Delete User ProfileDLTUSRQ Delete User QueueDLTUSRSPC Delete User Space DLTWSCST Delete WSCSTDLY JOB Delay JobDMP CLPGM Dump CL ProgramDMPDLO Dump Document Library Object DMPJOB Dump JobDMPJOBINT Dump Job InternalDMPOBJ Dump ObjectDMPSYSOBJ Dump System Object DMPTAP Dump TapeDMPTRC Dump TraceDO Do GroupDSCJOB Disconnect JobDSP ACC Display Access Code DSPACCAUT Display Access Code Authority DSPACCGRP Display Access Group DSPACTPJ Display Active Prestart Jobs DSPAPPNINF Display APPN Information DSPASPBRM Display ASP Information DSPAUT Display AuthorityDSPAUTHLR Display Authority Holder DSPAUTL Display Authorization List DSPAUTLDLO Display Authorization List DLO DSPAUTLOBJ Display Authorization List Obj DSPAUTUSR Display Authorized Users DSPBCKSTS Display Backup Status DSPBCKUP Display Backup OptionsDSPBCKUPL Display Backup ListDSPBKP Display Breakpoints DSPBKUBRM Display Backup Plan using BRM DSPBNDDIR Display Binding Directory DSPCFGL Display Configuration List DSPCHRRPT Display Chronological Report DSPCLS Display ClassDSPCMD Display CommandDSPCNNL Display Connection List DSPCNNSTS Display Connection Status DSPCOSD Display Class-of-Service Desc DSPCPCST Display CHKPND Constraint DSPCSI Display Comm Side Information DSPCSPOBJ Display CSP/AE Object DSPCTLD Display Controller Description DSPCURDIR Display Current Directory DSPDBG Display DebugDSPDBR Display Data Base Relations DSPDEVD Display Device Description DSPDEXPCMD Display Exerciser Commands DSPDIR Display DirectoryDSPDIRE Display Directory Entries DSPDKT Display DisketteDSPDLOAUD Display DLO Auditing Level DSPDLOAUT Display DLO Authority DSPDLONAM Display DLO NameDSPDOC Display Docum entDSPDSTL Display Distribution List DSPDSTSRV Display Distribution Services DSPDTA DISPLAY DATADSPDTAARA Display Data Area DSPDTADCT Display Data Dictionary DSPDTAPAT Display Data Pattern DSPDUPBRM Display Duplicate Media DSPEDTD Display Edit Description DSPERRDTA Display Error Data DSPEWCBCDE Display EWC Barcode Entry DSPEWCM Display Wireless Ctl Member DSPEWCPTCE Display EWC PTC Entry DSPEWLM Display Wireless Line Member DSPEXRJOB Display Exerciser JobDSPFD Display Physical File Description DSPFFD Display Field File Description DSPFLR Display FolderDSPFNT RSCA Display Font Resource Attr DSPHDWRPT Display Local Hardware Report DSPHDWRSC Display Hardware Resources DSPHFS Display Hierarchical File Sys. DSPHLPDOC Display Help Docum ent DSPHSTGPH Display Historical Graph DSPJOB Display JobDSPJOBD Display Job Description DSPJOBLOG Display Job LogDSPJRN Display JournalDSPJRNRCVA Display Journal Receiver Atr DSPKBDMAP Display Keyboard Map DSPLANADPP Display LAN Adapter Profile DSPLANSTS Display LAN Status DSPLCLHDW Display Local HardwareDSPLIB Display LibraryDSPLIBD Display Library Description DSPLIBL Display Library ListDSPLIND Display Line DescriptionDSPLNK Display Object LinksDSPLOG Display LogDSPLOGBRM Display Log for BRMDSPMGD Display Message Description DSPMNUA Display Menu AttributesDSPMOD Display ModuleDSPMODD Display Mode Description DSPMODSRC Display Module Source DSPMODSTS Display Mode StatusDSPMSG Display MessageDSPMSGD Display Message Description DSPNCK Display NicknameDSPNETA Display Network AttributeDSPNT BD Display NetBIOS Description DSPNWID Display Network Interface Desc DSPNWSALS Display Network Server Alias DSPNWSD Display Network Server Desc DSPNWSSSN Display Network Server Session DSPNWSSTC Display NWS Statistics DSPNWSSTG Display NWS Storage Space DSPNWSUSR Display Network Server Users DSPOBJAUT Display Object Authority DSPOBJD Display Object Description DSPOUTQ Display Output Queue DSPOUTQAUT Display Output Queue AuthorityDSPOVR Display OverrideDSPPDGPRF Display PDG Profile DSPPERSSN Display Peer SessionDSPPFM Display Physical File Member DSPPFRDTA Display Performance Data DSPPFRGPH Display Performance Graph DSPPGM Display ProgramDSPPGMADP Display Program Adopt DSPPGMREF Display Program References DSPPGMVAR Display Program Variable DSPPMACTJ PM/400 Active Jobs DSPPMDSKS PM/400 Disk Status DSPPMSYSS PM/400 System Status DSPPRB Display ProblemsDSPPTF Display Program Temporary Fix (PTF) DSPPWRSCD Display Power On/Off Schedule DSPRCDLCK Display Record Locks DSPRCYAP Dsp Recovery for Access Paths DSPRDBDIRE Display RDB Directory Entries DSPRMTDFN Display Remote Definition DSPRPT Display ReportDSPRTPRF Display Run Tim e ProfileDSPS36 Display S/36 Configuration DSPSAVF Display Save FileDSPSBSD Display Subsystem Description DSPSFWRSC Display Software Resources DSPSOCSTS Display Sphere of Control Sts DSPSPLF Display Spooled FileDSPSRVA Display Service Attributes DSPSRVPGM Display Service Program DSPSRVSTS Display Service Status DSPSUMDTA Display Summary Data DSPSYSSTS Display System Status DSPSYSSTS Display System Status DSPSYSVAL Display System ValueDSPTAP Display TapeDSPTAPCGY Display Tape Category DSPTAPCT G Display Tape Cartridge DSPTAPFIL Display Tape FileDSPTAPSTS Display Tape Status DSPTOTRPT Display Totals ReportDSPT RC Display TraceDSPT RCDTA Display Trace Data DSPUSRAUT Display User AuthorityDSPUSRPMN Display User Permission DSPUSRPRF Display User Profile DSPUSRPRTI Display User Print Info DSPVTMAP Display VT Keyboard Map DSPWSUSR Display Work Station User DUPDKT Duplicate Diskette DUPMEDBRM Duplicate Media using BRM DUPTAP Duplicate TapeEDT AUTL Edit Authorization ListEDT BCKUPL Edit Backup ListEDT DEVRSC Edit Device ResourceEDT DLOAUT Edit DLO AuthorityEDT DOC Edit Docum entEDTLIBL Edit Library ListEDTOBJAUT Edit Object AuthorityEDT RBDAP Edit Rebuild of Access Paths EDT RCYAP Edit Recovery for Access Paths EDTS36PGMA Edit S/36 Program Attributes EDTS36PRCA Edit S/36 Procedure Attributes EDTS36SRCA Edit S/36 Source Attributes EDTWSOAUT Edit Workstation Object Aut EJTEMLOUT Eject Emulation OutputELEM Element DefinitionELSE ElseEMLPRTKEY Emulate Printer Keys ENDBCHJOB End Batch JobENDCBLDBG End COBOL Debug ENDCLNUP End CleanupENDCMTCTL End Commit ment Control ENDCPYSCN End Copy Screen ENDCTLRCY End Controller Recovery ENDDBG End Debug ModeENDDEVRCY End Device Recovery ENDDEXP End Device Exerciser ENDDIRSHD End Directory Shadowing ENDDO End Do GroupENDDSKCOL End Disk Data Collection ENDEPMENV End EPM Environments ENDEXRJOB End Exerciser Job ENDEXRSET End Exerciser Set ENDGRPJOB End Group JobENDINP End InputENDIPSIFC End IP over SNA Interface ENDISDB End ISDB。
AS400编码规范文档
1.命名规则1.1.源文件库的命名根据系统简称对源文件库进行命名，格式：XXXSRCLIBXXX：系统代码简称，英文字母表示；1.2.目标库的命名根据系统简称对目标库的进行命名，格式：XXXOBJLIBXXX：系统代码简称，英文字母表示，跟源文件库的系统代码XXX一致。
1.3.文件的命名1.3.1.源文件在AS/400上所编写的Member大致可分为：RPG程序（Report Program Generator）、CL程序Command Language）、物理文件（Physical File）、逻辑文件（Logical File）、显示文件（Display File）、打印文件（Printer File），分类将这些Member放置在不同的源物理文件（Source Physical File）下，方便管理和查找。
根据Member的类型对源文件进行命名，格式：YYYBBBSRCYYY：项目功能模块代码简称，英文字母表示；BBB：源文件Member类型。
例如：YYYRPGSRC：存放RPGLE、RPG源程序；YYYDDSSRC：存放PF、LF、DSPF、PRTF源程序；YYYCLSRC：存放CLP、CLLE源程序。
1.3.2.源文件成员在同一个项目开发过程中，新建立的物理文件、逻辑文件、显示文件、打印文件、程序的源文件成员名开头字符应一致，根据项目代码来定义，这样比较有利于统计，备份及移植工作。
所有成员必须加于描述说明（Text），以便了解其用途或功能。
对于成员的修改，要进行版本控制。
1.根据文件或程序功能对源文件成员进行命名，格式：YYYUUUUZ9BAYYY：表示项目功能代码简称，英文字母表示；UUUU：尽量采用能表达出功能或用途的英文缩写，物理文件和逻辑文件为3位，其他最多为4位；Z：Member类型描述；R：RPGLE程序C：CL程序P：物理文件L：逻辑文件D：显示文件S：打印文件9：顺序号（1-9），只有逻辑文件定义且按顺序取。
IBM AS400教程(完整版)
AS/400教程完整版第一章AS/400系统概况1.1 AS/400发展历史1.1.1 AS/400发展历史Figure 1-1. AS/400的发展历史为了深入了解一个系统，必须熟悉它发展的历史和背景。
多数的计算机系统是从原有的系统基础上发展起来的。
AS/400的发展历史：◇ 1969年6月发布System/3（Batch machine）◇ 1975年1月发布System/32 (用于小型商务办公环境)◇ 1977年4月发布System/34◇ 1978年10月发布System/38（第一代AS/400，商业上失败，技术上成功）◇ 1983年5月发布System/36（商业上非常成功）◇ 1988年6月发布AS/400 B型号（Application System/400，第二代AS/400）◇ 1994年5月发布AS/400先进系列/服务器（Advanced System/400，第三代AS/400）◇ 1995年6月发布AS/400 Power PC 先进系列/服务器◇ 1997年8月发布AS/400e系列◇ 1999年2月发布AS/400 e 服务器170、7XX◇ 1999年7月发布AS/400e Domino 专用服务器（莲花宝箱）◇ 2000年10月发布iSeries 400,包括270、820、830、840及IBM莲花宝箱（DSD）1.2 iSeries 400的特点1.2.1 iSeries 400的特点Figure 1-2. iSeries400iSeries 400通过紧密集成硬件、软件、中间件和操作系统提供能够满足不同业务需求的高性能、可靠和易于使用特性。
从e系列开始，在电子商务大舞台上开始扮演更为重要的角色。
它可以提供扩展业务确保电子商务优势所需的技术和工具。
它的突出特点有：● 卓越的性能，不断获得各种荣誉和认可，全面实现64位处理，先进的体系结构，最领先的SOI芯片技术；● 卓越的可靠性和可用性，系统可提供99.97%的可用性,使iSeries成为商业关键事务处理的首选服务器平台；● 高度集成的系统环境，使用户不需要太多的系统管理员就能保证其应用平稳地运行；● 严密的安全防范系统，荣获美国联邦政府定义的商业计算机最高安全性级别C2级认证，堪称世界上"最安全"的计算机系统。
AS400命令
AS400命令集AS400命令集1.显示AS/400 的磁盘容量和使用状况：DSPSYSSTS “显示系统状态”2.显示用户简要表：DSPUSRPRF 查看用户情况操作用户简要表：WRKUSRPRF创建新用户：CRTUSRPRF3.关机：GO POWER，选择3 、F16 直接关机；选择4 、F16 关机后重启动。
立即关机命令：PWRDWNSYS *IMMED4.查找命令GO CMD***5.使用系统请求菜单：shift +E sc+enter使用命令行显示：call qcmd使用系统助手：go assist使用信息助手：go info显示先前使用过的命令：call qcmd6.当前信息DSPMSG系统信息DSPMSG QSYSOPR7.控制线描述WRKLIND控制器描述WRKCTLD控制设备描述WRKDEVD配置设备状态WRKCFGSTS8.提交批处理作业SBMJOB +F4激活作业显示WRKACTJOB9.输出作业队列WRKOUTQ假脱机文件WRKSPLF10.打印机：菜单GO PRINTER WRKDEVD PRT0111.备份和恢复：恢复库RSTLIB恢复目标RSTOBJ备份目标SA VOBJ备份库SA VLIB12.磁带机的常用维护：初始化磁带机命令INZTAP磁带机常规检测及可靠性测试VFYTAP检查磁带机CHKTAP使用状态监控方法：服务工具——error log utility ——work with tape/disketle lifetime station 13.发送消息SNDMSG 参数*INQ 表示该消息需要回复。
每个消息队列都有一个发送方式（delivery mode），描述消息队列收到消息时所做的动作和通知用户的方式。
*break 中断用户的工作并显示接收到的消息。
*notify 用消息警告灯和警铃声提醒用户收到消息。
*hold 接收到消息时，不通知用户。
14.AS/400 的网络属性：CHGNETA——更改网络属性WRKHDWRSC ——显示400 的通讯口及位置情况CRTLINSDLC ——创建线描述15.二、400 中的集成文件系统：1．root（根）文件系统：支持目录结构和访问流文件的命令。
AS400仿真打印机设置
AS400个人打印机设置帮助说明：1、本帮助主要用于进行简体AS400个人打印机关联设置，以便可以在个人打印机上打印AS400输出格式的单据，其它报告打印不在此范围内2、本帮助暂限于在简体WIN2000下进行相应的设置，其它操作系统不一定适用3、本帮助主要协助部门打印管理员进行相应的打印机设置，不可随意设置，否则可能引起不必要的后果，由部门自行负责4、本帮助由资讯做最终解释权，如有其它问题请联系资讯予以解决一、个人打印机格式设置：鼠标点击开始→设置→打印机出现打印机画面，再在空白处右键点击并选择服务器属性一栏：然后进入以下画面，进行相应的格式增加，修改，删除操作，请于该画面进行要打印输出的格式设置（宽度，高度），以便后面AS400打印机关联用，如设置格式名为：PRTQG(请购单格式,宽度22cm,高度15.3cm)，保存之二、AS400打印机画面设置：鼠标点击开始→程序→IBM个人通信出现会话管理器，再在新建会话按钮点击：出现以下画面，主机类型选择：AS/400，然后点击链路参数按钮，设置主要IP地址，确认后会回到以下画面，再点击会话参数按钮，设置会话类型为打印机，输入AS400虚拟打印机名字，如PRTQG2，保存返回到以下画面再确认退出以上画面保存后会出现下一个画面首先进行《打印机设置》，在以上画面菜单栏点击 文件→打印机设置，进入后点击设置按钮，再进入下一个画面后再点击右下角的高级按钮，会出现以下画面请在以上纸张大小里选择之前在打印机格式里所建立的格式，如刚才的PRTQG ，然后再一个个画面确认返回到AS400画面即可（可以保存），另外还要进行 《页面设置》 ，点击文件→页面设置，再点击表单设置，会出现以下画面 进行以下图示选择（为已设置的打印机格式PRTQG ），保存返回选择PRTQG格式到现在即实现AS400虚拟打印机名：PRTQG2 与真实个人打印机及其格式PRTQG 关联起来，点击文件 保存 该设置，以便下一次打开复用三、报表打印画面打印机设置：再后面就是打开报表作业画面，如以下画面以上画面打2进入，将PRINTER 一栏改为PRTQG2,保存返回报表作业画面，即可操作进行画面列印 选择PRTQG选择PRTQG注意：1、AS400虚拟打印机名字不可随意取名，请按部门规则+打印类别+流水号进行设置：如人资HR+QG+01=HRQG01，如所取名字已存在会设置失败2、如某一虚拟打印机AS400画面已打开，如其它人员也要打开该虚拟打印机名会失败3、同一打印机一次只能设置一种格式，不可能同时打印两种格式的单据，一种格式打印改为另一种格式打印，必须重新设置打印机格式，否则必定出错。
AS400手册
AS/400 用户手册IBM 信息系统服务部2002年11月目录AS/400基本操作指南一、手动启动AS/400二、AS/400关机三、系统作业的查看四、查看硬盘状态五、系统日志的查看AS/400基本故障诊断一、一般性故障二、系统故障灯亮AS/400数据备份一、备份对象(Object)或库(Library)二、全系统备份AS/400服务介绍附录一、手动启动AS/4001、选择机器启动模式AS/400启动(IPL)主要有两种方式：手动(Manual)或正常(Normal)，这两种方式的选择是通过控制面板来实现的。
对于有电子钥匙的机型，这一过程非常容易，在电子钥匙插入钥匙孔后，连续按方式选择键，模式指示灯会轮流点亮，只要让想选择的模式的指示灯亮就完成了手动/正常模式的转换。
对于没有电子钥匙的机型，模式的转换就需要使用控制面板的02功能，其操作步骤如下：A.正常情况下，控制面板会显示“01 B N”，这表示是正常模式B.按向上的数据显示按键一下，面板会显示“02”C.按执行键后，面板显示“02 B N”D.再按上或下的数据显示按键直到显示“02 B M”为止E.按一下执行键，面板显示“02”F.按向下的数据显示按键让面板显示“01”G.按一下执行键，这时面板会显示“01 B M”，这样就完成了从正常模式向手动模式的转换如果想再从手动模式向正常模式转换，只要在第D步时选择“02 B N”就行了。
2、AS/400手动启动过程AS/400的启动被称为初始程序装载，简称为IPL(Initial Program Load)。
正常模式的IPL很简单，在确认模式选择正确后，只需按一下启动键就行了。
而对于手动模式，在按下启动键到系统可用还需要在主控终端上回答一些问题，具体过程如下：第一个系统等待回答的菜单是IPL or Install the System，显示如下：1. Perform an IPL2. Install the operating system3. Use Dedicated Service Tools (DST)4. Perform automatic installation of the operating system5. Save Licensed Internal Code在确定不用做其它操作后，选择1(Perform an IPL)以启动AS/400登录画面出现后，用有安全保安官权限的用户登录，建议用QSECOFR用户。
as400常用操作
as400常⽤操作AS400常⽤操作⼿册1、关于表的操作1.1、数据库表的拷贝wrkobj: 输⼊要查找的⽬标、库，执⾏。
(wrkobj obj(gjjtemp/czyb) 在⽬标窗⼝输⼊3，执⾏，修改要拷贝到的⽬标库，同时Duplicate data 选YES，执⾏。
然后使⽤grtobjaut进⾏赋权。
Grtobjant 执⾏，输⼊object、lib、object type（all）、users（要赋权者）、authority（*all）。
Grtobjaut obj(gjgrdta/czfzb) objtype(*all) user(gjgr) aut(*all)注意：如⽬标在要拷贝到的库中存在，则不能覆盖，必须先删除。
1.2、如何在400上修改某条记录UPDDTA: 输⼊逻辑⽂件名，则可以按照逻辑⽂件键字检索记录，然后修改。
如输⼊物理⽂件名，则检索出所有记录，不能定位到某条记录，只能⼀条⼀条翻阅到要修改记录，然后修改，此时如果记录很多，太不⽅便。
1.3、为表添加⽇志STRJRNPF FILE(GJDWDTA/LBJQCB)JRN(GJDWDTA/GJJJRN) IMAGES(*BOTH)1.4、去掉表的⽇志（ENDJRNPF）Journaled physical file . . . . > *ALL Name, *ALLLibrary . . . . . . . . . . . Name, *LIBL, *CURLIB+ for more valuesJournal . . . . . . . . . . . . > GJJJRN Name, *FILELibrary . . . . . . . . . . . > GJGRDTA Name, *LIBL, *CURLIB 1.5、清空表数据CLRPFMclrpfm GJDWDTA/ltqsjb1.6、如何在两台服务器之间传递数据例如将810机器上的gjgrdta库中sbgqcb中的数据传送到270机器上的gjdwdta库中的sbgqcb中：在810机器上执⾏如下操作：1）CHGDDMF-> F4：DDM FILE 项填写：TESTDDMLIBRARY填写：QGPLRemote file:File 处填写SBGQCBLibrary填写GJDWDTA执⾏2）CPYF->F4:From file 处填写SBGQCBLibrary处填写GJGRDTATo file 处填写TESTDDMLibrary 处填写QGPLReplace or add records 处填写*ADD执⾏。
AS400平台程序传送操作说明
AS400平台程序传送操作说明一、开发、测试环境下的程序传送开发、测试环境下的程序传送可分为：来源环境的数据打包，来源环境的数据包发送，目的环境的数据包接收，目的环境的数据解包。
如果需要经过中间节点机进行过渡，节点机的操作只进行数据包接收和数据包发送（如目前的S0116）。
1、数据打包（LANSA的EXPORT，非LANSA 的SA VOBJ）●在QGPL库下建立一个（多个）长期使用的SAVF（CRTSAVF 文件名）；命令：CRTSA VF FILE(QGPL/SA VF名) TEXT（注释内容）如果已建有SA VF，此步可略LANSA的处理：如果带有文件传送，需先进行文件的处理：更新BANK#DA TA的文件格式。
先删除BANK#DA TA中的LF和PF（先删LF再删PF和DATAARA），再把文件的格式和数据从BK#101000或BANK#TBLD拷贝到BANK#DA TA，先拷贝PF再拷贝LF、DA TAARA（CRTDUPOBJ OBJ(目标名) FROMLIB(BANK#DA TA) OBJTYPE(*FILE) TOLIB(BK#101000)DATA(*YES)）；打包步骤：●进入Housekeeping Menu●进入Work with lists of objects to be exported●新建或选取一个LIST：1=Create(或5=Review)如果新建LIST 必须再选13= Define substitution variables used in list ，将其中的‘Substitution value / Default value Prompt text to display if prompting required ’填写为‘BANK#DA TA ’，‘Prompt user When importing’填写为‘N ’。
●如果使用已有LIST，则需清空LIST：12=Review/delete objects already in list●在LIST中输入需传送的字段：1=Add fields to list 并选择在LIST中输入需传送的文件：2=Add files to list 并选择。
AS400仿真打印设置方法(PCOMM)(参考模板)
AS400仿真打印设置方法（PCOMM）
1、打开PCOMM软件
点击新建会话
设定主机类型为iSeries
打开链路参数窗口
设定主机IP地址
确定返回
2、设置打印机
打开会话参数
设定会话类型，主机代码页和工作站标识如下：
设置打印机高级参数如下图：
确定返回
3、启动打印机
打印机会话即启动如下：(打印机即PC电脑上默认打印机)
4、查看打印队列和打印机状态
登录AS400，执行命令wrkoutq
红框内即为仿真打印机会话创建的打印队列和关联打印机
5、输出报表至打印机
找一个有报表文件的队列
找一文件，进行修改
修改打印机为自己打印机，执行即输出到PC端默认打印机。
（本资料素材和资料部分来自网络，仅供参考。
请预览后才下载，期待您的好评与关注！）。
AS400_DB2
12 Main Seattle WA
A
St.
10002 The West 491 High Denver CO
A
Bro
:
:
物理文件
物理文件是用来保存数据的，应用程序把物理文件成员的数据当作记录 序列来处理，而DB2/400处理诸如读和写磁盘的低级功能。如下所示记录 在物理文件中的布局：
相对记录数(RRN) “删除记录”标 记
无论是DDS还是SQL来创建数据库文件，虽然这二者创建的文件某些属性不同，但可以获得相 同类型的对象，物理文件或逻辑文件，可以交错使用。
DDS数据描述的结构
1. File-level entries (optional) 2. Record-level entries 3. Join-level entries (optional) 4. Field-level entries (optional) 5. Key field-level entries (optional) 6. Select and omit-field level entries (optional)
物理文件成员的大小 CRTPF,CHGPF,CHGSRCPF的参数SIZE指定每个成员中放入记录的最大数。最 大记录数为R+(I*N),R表示初始记录数，I表示每次增加数，N表示增加的次数。 参数SIZE的缺省值R=10000,I=1000,N=3(CRTPF）499（CRTSRCPF）可以指定 *NOMAX来代替缺省值或规定值
不使用 18
除注释行外为空白
名字
19~28
代表下列情况之一标识符：字段名；键标字段名；记录格式名
引用
29
置R表示引用别的已经定义过的字段
AS400简明操作手册
AS/400简明操作手册一、认识IPL1.IPL设置面板设置为：01 B N V=F其中：第一部分表示目前状态，01表示显示状态、02表示改动状态第二部分B表示打过补丁、D表示安装操作系统第三部分N表示自动启动、M表示手动启动第四部分V=F表示快速启动，S代表慢速启动(为了在启动时对系统部件进行全面检测)注：面板LED灯（绿灯闪烁）表示已经关机。
开机状态下LED灯（绿灯长亮）。
2.控制面板操作：在正常启动状态时：01 B N V＝F在手动起机状态时：01 B M V＝F在安装操作系统时：01 D M V＝F （光盘启动）注：在手动状态下进入操作系统后，严禁触按电源开关，如违反操作造成损失，后果自负。
注：不建议平时使用控制面板关机。
这种强制性关机有可能会造成系统及用户的数据丢失。
再次开机时，系统将花费额外的时间来检查这些数据是否受损。
启动系统启动前确认系统控制面板上显示的启动参数是否为你需要的参数。
如果不需要人为干预的启动，请选择N自动启动状态。
（一般设为N）。
二、安装CLIENT ACCESS EXPRESS首先连线，将0367的一端接在AS/400DSD背面板上，另一端接在一台PC 的COM口上。
将随机附带的光盘放入PC的CD-ROM中，在出现安装界面后按下一步，选择全部安装。
安装虚拟Modem，进入控制面板，选择添加硬件设备，不检测设备而手工添加，选择调制解调器，从软盘安装，选择浏览，找到刚才安装Client Access 的目录\IBM\Client Access\Aoc\Inf，发现有一驱动文件，选中后按确定，安装完成。
重新启动计算机。
点击开始－程序－IBM AS/400 CLIENT ACCESS EXPRESS－AS/400操作控制台，填入AS/400名称，设置为直接连接、仅控制台连接、不允许远程PC连接。
完成后将出现一窗口显示正在连接，过几十秒将出现一会话窗口，连接成功。
如果发现连接不成功，请换一台PC重试，直到连接成功。
AS400：如何使用EXCEL上传数据
然后一直点下一步中间提示可以不理完成则出现如下画面最后点将数据传送至iseriese就完成了可以通过query查看刚上传的内容上传完成可以对libfile进行所需要的操作字段为
AS400：如何使用EXCEL上传数据
400选择上传（需要有CA）---也可以在程序----IBM ISERIESE ACCESS里选择—
--------向ISERIES服务器发送数据
点“创建ISERIES数据库文件”
点浏览选择，刚才保存成.csv的那个文件
一直往按下一步，直到出现扫描画面点开始扫描
往下。要求创建在400上的FILE。
然后一直点下后点“将数据传送至ISERIESE”就完成了
可以通过QUERY查看刚上传的内容