当前位置：文档之家 › AS400系统管理员培训

AS400系统管理员培训

  • 格式：ppt
  • 大小：2.22 MB
  • 文档页数：60

下载文档原格式

  / 60

合集下载

AS400培训-RPG

AS400培训-RPG

AS/400培训资料于勇IPACS北京在RPGLE中的文件定义_________________________________________________ 3 在RPGLE中有关文件操作的操作码_______________________________________ 5 只输出子文件定义_______________________________________________________ 8 实现输出类型子文件_____________________________________________________ 9 输出类型子文件有定位处理______________________________________________ 12 实现有定位处理输出类型子文件__________________________________________ 13 处理类型子文件有定位处理______________________________________________ 17 实现处理类型子文件有定位处理__________________________________________ 20 处理类型子文件有定位处理和光标处理____________________________________ 26 实现有定位处理、光标处理子文件________________________________________ 29 处理类型子文件有定位、光标、信息子文件处理____________________________ 35 实现有定位、光标、信息子文件的处理类型子文件__________________________ 38 处理类型单页子文件定义________________________________________________ 45 实现处理类型单页子文件________________________________________________ 49 打印文件定义__________________________________________________________ 59 实现打印文件__________________________________________________________ 61在RPGLE中的文件定义**************************************************************** * Copyright 北京宇博电子科技有限公司 1998 * **************************************************************** * * * Program Id - FileDfn * * Program Type - RPGLE * * Purpose - 用于讲解在RPGLE中的文件定义 * * 不可编译 * * Date Generated - 1998-07-22 * * Author - 于勇 * * * *****************************************************************ilename++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++ *..1....+....2....+....3....+....4....+....5....+....6....+. (7)* -------------------------------------------------------------- * 顺序和直接存取只用于输入操作 ( Read , Chain )* -------------------------------------------------------------- FCustomer IF E K DISK* -------------------------------------------------------------- * 仅使用Write来增加记录* -------------------------------------------------------------- FCustomer O E K DISK* -------------------------------------------------------------- * 顺序和直接存取用于输入( Read , Chain ) , Update , Delete* 不包含Write操作* -------------------------------------------------------------- FCustomer UF E K DISK* -------------------------------------------------------------- * 顺序和直接存取用于输入( Read , Chain ) , Update , Delete* 包含Write操作* -------------------------------------------------------------- FCustomer UF A E K DISK* -------------------------------------------------------------- * 显示文件定义说明* -------------------------------------------------------------- FCustomerD CF E Workstn* -------------------------------------------------------------- * 打印文件定义说明* -------------------------------------------------------------- FCustomerP O E Printer在RPGLE中有关文件操作的操作码***************************************************************** Copyright 北京宇博电子科技有限公司 1998 ****************************************************************** ** Program Id - FileOpr ** Program Type - RPGLE ** Purpose - 用于讲解在RPGLE中的文件操作码 ** 不可编译 ** Date Generated - 1998-07-22 ** Author - 于勇 ** ******************************************************************物理文件定义FCustomer UF A E K Disk*显示文件定义FCustomerd CF E Workstn*参照外部文件的数据结构定义D Customer_DsE Ds Extname( Customer )D Dspf_DsE Ds Extname( Customer )D Prefix(XS:2)*关键字列表定义C Csklist KlistC Kfld Csid*读下一条记录*IN90 = *OFF表示读到记录C Read Customerr 99*读上一条记录*IN90 = *OFF表示读到记录C ReadP Customerr 99*最小值定位C *Loval SetLl Customerr*最大值定位C *Hival SetGT Customerr*定位指示符含义C Csklist Setll Customerr 979899* *In97 No Record Found* *In98 Error Occurred* *in99 Exact Match for Search Argument Found*读下一条等于关键字的记录C Csklist Reade Customerr 99*读上一条等于关键字的记录C Readpe Customerr 99*用指定关键字读一条记录并且不锁定读到记录*IN88 = *OFF读到C Csklist Chain(N) Customerr 97*修改记录C Update Customerr*删除记录C Delete Customerr*增加记录C Write CUSTOMERR*记录解锁C UNLOCK CUSTOMERR*条件语句C If Not *In97*赋值语句C EVAL FLD2=FLD1C MOVE FLD1 FLD2C ELSEC MOVE FLD2 FLD1C EndIf*条件选择语句C SELECTC WHEN FLD1=FLD2C OTHERC ENDSL*循环语句C Dow Not *In97C EndDoC Dow Not *In03*显示屏幕并从屏幕中读取内容C ExFmt Dsp01C EndDo*程序结束C Move *ON *InLr只输出子文件定义A*%%TS SD 19980811 141319 YUYONG REL-V3R7M0 5716-PW1 A*%%EC A DSPSIZ(24 80 *DS3) A R SFL01 SFL A*%%TS SD 19980807 103111 YUYONG REL-V3R7M0 5716-PW1 A CSID R O 9 10REFFLD(CUSTOMERR/CSID *LIBL/CUSTOM- A ER) A CSNAME R O 9 23REFFLD(CUSTOMERR/CSNAME *LIBL/CUST- A OMER) A R CTL01 SFLCTL(SFL01) A*%%TS SD 19980811 141319 YUYONG REL-V3R7M0 5716-PW1 A SFLSIZ(0100) A SFLPAG(0010) A CA03(03) A OVERLAY A 30 SFLDSP A 31 SFLDSPCTL A 33 SFLCLR A 34 SFLEND(*MORE) A 1 3'CS0101D' A 1 31'查询用子文件' A DSPATR(HI) A 1 72DATE A EDTCDE(Y) A 2 72TIME A 8 9'客户号' A DSPATR(HI) A 8 31'客户名称' A DSPATR(HI) A R FUN01 A*%%TS SD 19980811 141319 YUYONG REL-V3R7M0 5716-PW1 A 22 3'F3 =退出' A COLOR(BLU)实现输出类型子文件**************************************************************** * Copyright 北京宇博电子科技有限公司 1998 * **************************************************************** * * * Program ID - CS0101R * * Program Type - RPGLE * * Purpose - 建立一个输出类型的子文件 * * Date Generated - 1998-08-06 * * Author - 于勇 * * * **************************************************************** *数据文件定义FCustomer IF E K Disk *显示文件定义FCs0101D CF E WorkStn Sfile( Sfl01 : RecNbr )*子文件用相对记录号定义D RecNbr S 4 0 Inz( *Zero ) *子文件最大记录数D RecLmt S 4 0 Inz( 9999 )*============================* * 主程序 * *============================* *子文件清除C ExSr SflClrSr *子文件记录装入C ExSr SflLodSrC Dow Not *In03 F3*子文件显示C Exsr SflDspSr C EndDo C Move *On *InLr*----------------------------* * 子文件初始化 * *----------------------------*C SflClrSr BegSrC Eval *In30 = *Off SflDspC Eval *In31 = *Off SflCtlDspC Eval *In33 = *On SflClr*写字文件控制记录C Write Ctl01 C Eval *In33 = *Off C Eval *In34 = *Off SflEnd*恢复子文件初值C Reset RecNbr C EndSr*----------------------------* * 子文件数据装入 * *----------------------------* C SflLodSr BegSrC *Loval SetLL CustomerR C Read CustomerR 99 C Dow Not *In99 And C RecNbr <= RecLmt *生成子文件相对记录号C Eval RecNbr = RecNbr + 1 *写子文件记录C Write Sfl01 C Read CustomerR 99 C EndDo *子文件不为空C If RecNbr > *Zero C Move *On *In30 SflDspC Endif *读文件结束C If *In99 C Move *On *In34 SflEndC Endif C EndSr*----------------------------* * 子文件显示 * *----------------------------* C SfldspSr BegSrC Eval *In31 = *On SflCtlDspC Write Fun01 C Exfmt Ctl01 C Eval *In31 = *Off SflCtlDspC EndSr输出类型子文件有定位处理A*%%TS SD 19980811 135301 YUYONG REL-V3R7M0 5716-PW1 A*%%EC A DSPSIZ(24 80 *DS3) A R SFL01 SFL A*%%TS SD 19980807 103529 YUYONG REL-V3R7M0 5716-PW1 A CSID R O 9 10REFFLD(CUSTOMERR/CSID *LIBL/CUSTOM- A ER) A CSNAME R O 9 23REFFLD(CUSTOMERR/CSNAME *LIBL/CUST- A OMER) A R CTL01 SFLCTL(SFL01) A*%%TS SD 19980811 135301 YUYONG REL-V3R7M0 5716-PW1 A SFLSIZ(0100) A SFLPAG(0010) A CA03(03) A OVERLAY A 30 SFLDSP A 31 SFLDSPCTL A 33 SFLCLR A 34 SFLEND(*MORE) A RECRRN 4S 0H SFLRCDNBR A 1 3'CS0102D' A 1 31'有定位子文件' A 1 72DATE A EDTCDE(Y) A 2 72TIME A 4 60'客户号定位:' A POSCSID 5A I 4 75 A 8 9'客户号' A 8 32'客户名称' A R FUN01 A*%%TS SD 19980805 161157 YUYONG REL-V3R7M0 5716-PW1 A 22 3'F3 =退出'实现有定位处理输出类型子文件**************************************************************** * Copyright 北京宇博电子科技有限公司 1998 * **************************************************************** * * * Program ID - CS0102R * * Program Type - RPGLE * * Purpose - 建立一个输出类型的子文件 * * 有定位 * * Date Generated - 1998-08-06 * * Author - 于勇 * * * **************************************************************** *数据文件定义FCustomer UF E K Disk *显示文件定义FCs0102D CF E WorkStn Sfile( Sfl01 : RecNbr )D CsKeyAry S 5 Dim( 9999 ) D Ascend *数组下标定义D X S 4 0 Inz( 1 )D CsKeyDs DS D Csid 5D PosDs DS D PosCsid 5 Inz( *Blank )*子文件用相对记录号定义D RecNbr S 4 0 Inz( *Zero ) D LstRecNbr S 4 0 Inz( *Zero )*子文件最大记录数D RecLmt S 4 0 Inz( 9999 )*============================* * 主程序 * *============================**子文件清除*子文件记录装入C ExSr SflLodSrC Dow Not *In03 *子文件定位C Exsr SflPosSr*子文件显示C Exsr SflDspSr C EndDoC Move *On *InLr *----------------------------* * 子文件初始化 * *----------------------------* C SflClrSr BegSrC Eval *In30 = *Off SflDspC Eval *In31 = *Off SflCtlDspC Eval *In33 = *On SflClr*写字文件控制记录C Write Ctl01 C Eval *In33 = *Off SflClr*恢复子文件初值C Reset RecNbrC EndSr *----------------------------- * 子文件数据装入 * *----------------------------- C SflLodSr BegSrC *Loval SetLL CustomerR C Read CustomerR 99 C Dow Not *In99 And C RecNbr <= RecLmt *生成子文件相对记录号C Eval RecNbr = RecNbr + 1 *将关键字赋值给数组C Eval CsKeyAry( RecNbr ) = CsKeyDs *写子文件记录C Write Sfl01C EndDo*子文件不为空C If RecNbr > *Zero C Eval LstRecNbr = RecNbr C Move *On *In30 C Endif*读文件结束C If *In99 C Move *On *In34 C EndifC EndSr *----------------------------* * 子文件定位 * *----------------------------* C SflPosSr BegSrC If PosDs <> *BlankC ReSet X C PosDS LookUP CsKeyAry( X ) 97 99 C If *In97 Or *in99 C Eval RecRrn = X C Else C Eval RecRrn = LstRecNbr C EndIfC Else C Eval RecRrn = 1 C EndIfC EndSr *----------------------------* * 子文件显示 * *----------------------------* C SfldspSr BegSrC Eval *In31 = *On C Write Fun01 C Exfmt Ctl01 C Eval *In31 = *OffC EndSr处理类型子文件有定位处理A*%%TS SD 19980811 141059 YUYONG REL-V3R7M0 5716-PW1 A*%%EC A DSPSIZ(24 80 *DS3) A R SFL01 SFL A*%%TS SD 19980811 135222 YUYONG REL-V3R7M0 5716-PW1 A SCADDRESS 30A H A OPT 1Y 0B 9 5EDTCDE(2) A SCCSID R O 9 10REFFLD(CUSTOMERR/CSID *LIBL/CUSTOM- A ER) A SCCSNAME R O 9 23REFFLD(CUSTOMERR/CSNAME *LIBL/CUST- A OMER) A R CTL01 SFLCTL(SFL01) A*%%TS SD 19980811 141059 YUYONG REL-V3R7M0 5716-PW1 A SFLSIZ(0100) A SFLPAG(0010) A CA03(03) A CA06(06) A OVERLAY A 30 SFLDSP A 31 SFLDSPCTL A 33 SFLCLR A 34 SFLEND(*MORE) A RECRRN 4S 0H SFLRCDNBR(CURSOR) A 1 3'CS0103D' A 1 29'有选项处理定位子文件' A DSPATR(HI) A 1 72DATE A EDTCDE(Y) A 2 72TIME A 4 2'请键入选项，按执行键继续。

AS400培训资料(下)

AS400培训资料(下)

AS400培训资料（下）AS400应用开发培训高级应用与交易实现前言本阶段的培训，在上一级培训的基础上，讲解业务系统的处理以及交易的实现。

目的是使大家掌握如何在AS400上实现具体的交易，完成本次开发任务。

在讲解业务系统的例子程序和会计记帐核心的过程中我们将穿插讲解AS400中一些编程方式和一些简单工具的使用。

由于篇幅和时间的关系在本教材中对一些简单工具不作具体的介绍，请大家作好记录。

同时为了配合本次培训，我们将下发两本教材，一本是操作码手册，另外一本是本公司原来出的IBM AS400 培训教材第二分册，对这两本教材的内容我们可能不作具体的讲解，主要是给大家在学有余力的情况下进行自学，以及今后进行实际编码时的参考手册。

对于一些非常少见的应用，我们不作讲解，请大家参考下发的教材或使用联机的帮助。

使用F6或其他方式建立的成员在Opt选14编译物理文件参与编译其他类型的目标（Object) SLRRPG(可执行程序 *PGM) 物理文件，逻辑文件，打印文件等参与编译，若RPG程序的F表进行了相应的定义其他需要参与编译的目标第一章 RPG程序使用RLU的方法在上一期的培训中我们简要的介绍了RLU的一些用法，现在我们来学习RLU的一些应用，以及如何在RPG程序中使用RLU生成的打印文件在今后的设计过程中，应业务人员的要求，在报表中对于一些域的属性可能要进行修改。

以下是将光标移到域后出现的域属性内容Work with Field KeywordsField . . . . . . . . : ' 客户 ... Record format . . . . : HEADType options, press Enter.2=Specify 4=RemoveOpt Keyword Opt Keyword Opt KeywordALIAS EDTCDE MSGCONBARCODE EDTWRD PAGNBRBLKFOLD FLTFIXDEC PRTQLTYCDEFNT FLTPCN REFFLDCHRID FNTCHRSET SKIPACHRSIZ FONT SKIPBCOLOR HIGHLIGHT SPACEACPI IGCALTTYP > SPACEBCVTDTA IGCANKCNV TEXTDATE IGCCDEFNT TIME> DFT IGCCHRRTT TRNSPYDLTEDT INDTXT UNDERLINEBottomF3=Exit F5=Refresh F9=Input keyword parameters F10=Specify informationF12=Cancel F16=Remove all keywords选择（opt）2 进行该项的内容说明 4 是取消该项说明在这些选项中经常用到的是：DFT 若前面有”>”则说明该项是常量域，否则是变量域。

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

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中文培训教程之DDS（4）

AS400中文培训教程之DDS（4）

2.3.12 用途（第38列）用这项指定字段是仅输入的，输入/输出的，或不可输入/不可输出的。

对于物理文件，可指定下列项：项意义空白缺省值为B（允许输入和输出）B 允许输入和输出由于缺省值即为B，所以无需指定这一项。

在38列上的项是不能由REF和REFFLD键字引用的。

因此当显示文件引用物理文件中的一个38列上为B的字段是没有影响的。

对于逻辑文件，可指定下列项：空白（缺省值）：如果38列是空白，发生下面情况：·对于简单和多格式逻辑文件（在记录层指定了PFILE），这个字段是可输入/输出的字段（B）。

·对于连接逻辑文件（在记录层指定JFILE键字），这个字段是只输入的（I）。

B（既输入又输出）：如果38列是B，那么这个字段是一个既输入又输出字段。

也就是说，程序既可以从这个字段中读数据亦可以向这个字段写数据。

对于连接逻辑文件二者都可的字段是无效的，这是因为连接逻辑文件是一个只读文件。

I（只输入）：如果38列是I，这是一个仅输入的字段。

也就是说，程序可以从这个字段读数据，但不能改变它的内容。

作为只输入字段的一个典型的情况是键字字段（为了降低对访问路径的维护开销），用户可以看但不能改的敏感字段（如：在顾员记录中的工资），以及这些字段指定SST或TRNTBL键字。

如果程序对指定了只输入字段的记录格式执行一个修改操作，那么只输入字段不被修改，并且也不送出信息。

如果程序对一个指定了只输入的字段的记录格式执行一个输出操作，那么只输入字段采用缺省值（见2.4.16DEF键字）。

在物理文件中只输入字段是无效的。

N（二者都不是）：如果38列是N，则这是一个既不输入也不输出的字段并且只对连接逻辑文件有效。

这样的字段可以用来作为连接逻辑文件的一个连接字段，但是程序不能用这个字段。

当在物理文件中连接字段的属性不区配时，使用这个字段。

在这种情况下，必须重定义一个或两个连接字段，但可能不想在记录格式中包含这些重定义的字段（也就是说，不想让应用程序看到这些重定义的字段），因此，为这些重定义的字段编码N，则它们就不出现在这个记录格式中。

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

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培训教程和手册

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）如果需要可修改其它字段的缺省值，也可以不修改。

RPG AS400程序员培训手册9

RPG AS400程序员培训手册98.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基本操作技巧及其通用命令

目录未找到目录项。

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学习篇（二）
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
  1. 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
90 nm 1.9GHz 1.9GHz 1.5+ Core Core GHz Core Shared L2 High Frequency Cores L2 Cache
Advanced System Features
V M X
2007-9 POWER6 / 6+
65 nm
Future POWER7
45 nm Advanced Multi Core Design Cache
第一代 第一代AS/400 第一代
AS/400前身诞生于七十年代末,当时的名字叫做S/38.集成的关系数 据库,单级存储,虚拟存贮和面向对象的设计等.
第二代 第二代AS/400 第二代
1988年推出了AS/400的第二代,融合了S/38的基本技术与S/36的用户 界面.IBM公司先后经历了B,C,D,E,F先进系列和e系列.
LAN Console方式
条件:AS/400上增配一块专用网卡, 需要其它主控台方式配置设 置才能实现.
HMC作主控制台
条件:AS/400上有专用的HMC接口, 需要其它主控台方式配置设 置才能实现.
第三方解决方案
条件:在PC上配置一块第三方适配器,与双芯同轴电缆端口相连, 与常规的主控制台使用相同的连接方式.
控制面板操作
在正常启动状态时:01 B N V=F 在手动起机状态时:01 B M V=F
注意:在手动状态下进入操作系统后,严禁触按电源开关, 如果违法操作可能造成严重损失.
在安装操作系统时:01 D M V=F 非正常状态下手动关机:
面板设置由 01 B N V=F 改为 02 B M V=F 再改为 01 B M V=F 点击 电源按钮,这时出现0?,确定后即可关机. 再次启动时再改回自动模式.
集成性
集成了数据库,通讯,安全性等功能 最大限度实现各功能间的兼容性 内嵌了一个功能强大的数据库管理系统 DB2/400 节省人力,财力资源 对各种网络通信协议和通信设备的支持
单级存储结构
(single-level storage)
TIMI 结构
(Technology Independent Machine Interface) 它提供了一个既独立硬件又独立于软件的逻辑 (非物理)系统接口. TIMI层是一个真正的独立层.它将OS/400应用 程序与MI层下方的硬件以及硬件相关的软件 (LIC层)完全隔离开来; 底层硬件技术的更新完全被MI层下方的软件所 吸收,不会对MI上方的软件产生影响,MI层上方 的软件不加任何改变,就可受益于MI层下方更新 的硬件新技术.
一,基于48位CISC技术的Application System 包含了B,C,D,E,F系列,和2xx,3xx系列. 二,基于64位RISC技术的Advanced System 包含了1xx ,4xx,5xx,6xx,7xx,8xx, 270, i5系列
POWER 处理器发展规划
2001-4 POWER4 / 4+ 2004-7 POWER5 / 5+
(由一些共享文件夹和文档等构成的多级目录结构的文件系统)
Question?
四,工作管理
作业 WRKACTJOB 子系统 WRKSBS 内存池 WRKSHRPOOL / CHGSHRPOOL 队列 WRKJOBQ 作业描述 DSPJOBD 用户描述 WRKUSRPRF / DSPUSRPRF 系统值 WRKSYSVAL / DSPSYSVAL 进程,任务,作业及线程 作业的启动
Advanced System Features
Concept phase Requirements definitions
180 nm
130 nm
130 nm 1.65+ GHz Core
1.5+ GHz 1.5+ GHz Core 1+ GHz Core 1+ GHz Core Core
Shared L2 Shared L2
第三代 第三代AS/400 第三代
1997年IBM推出基于第三代的Power PC技术的AS/400 e系列.
最新一代的 最新一代的AS/400 最新一代的
基于Power 5,Power 6技术的eServer iSeries,i5.
AS/400的历史及其发展 AS/400的历史及其发展
操作系统是:Operating System/400 (OS/400) 操作系统是: 操作系统是
内存池(Storage 内存池(Storage pool)
内存池是对内存的一个逻辑的动态的划分.
共享池(Shared pool)
允许若干个子系统共用 如:*MACHINE,*BASE,*INTERACT和*SPOOL
私有池(Private pool)
只允许一个子系统使用
CMD: WRKSHRPOOL / CHGSHRPOOL
作业(JOB) 作业(JOB)
打印作业(Spooling Job) 交互式作业(Interactive) 批处理作业(Batch Job) 自启动作业(Autostart Job) 通信作业(Communication Job)
子系统(SubSystem) 子系统(SubSystem)
子系统是为运行某种类型的作业而预定的一个操作环境, 在这个环境中运行的作业可以共享某些系统资源.
是全新的操作系统,没有任何历史包袱.
数据库:DB2/400 数据库: 数据库
名字符合IBM DB2系列,技术底层则完全不同.
开发语言: CL, RPG,COBOL,C 开发语言: 开发语言 , , ,
对于商业应用程序而言,RPG产生的代码是最高效的.
AS/400经历的主要系列: 经历的主要系列: 经历的主要系列
队列(Queue) 队列(Queue)
消息队列(*MSGQ,Message Queue) 作业队列(*JOBQ,Job queue) 输出队列(*OUTQ,Output Queue) 通信的数据队列(Data Queue) 作业消息队列(Job Message Queue)
作业描述,用户描述,系统值
无论是工作站之间的通信,工作站与系 统程序或应用程序之间的通信都是消息 机制来实现的. DSPMSG SNDMSG和SNDBRKMSG
六,安全管理
集成的安全性 系统安全级别 用户描述(USER PROFILE ) 程序引用权限 组权限(GROUPING AUTHORITY)
集成的安全性
AS/400的安全性集成在OS/400中 SLIC的权限控制
IBM AS/400 系统管理员培训
-科技有限公司 2008年6月
AS/400的历史及其发展 AS/400的历史及其发展
Application System ? Advanced System ? IBM eServer iSeries System i
AS/400的历史及其发展 AS/400的历史及其发展
Distributed Switch
Chip Multi Processing - Distributed Switch - Shared L2 Dynamic LPARs (32)
Enhanced Virtualization Advanced Memory Subsystem Enhanced architecture for higher frequencies
认识IPL 认识IPL ( initial program load )
面板设置: 01 B N V=F
第一部分表示目前状态,01表示显示状态,02表 示改动状态 第二部分B表示打过补丁,D表示安装操作系统 第三部分N表示自动启动,M表示手动启动 第四部分V=F表示快速启动,S代表慢速启动(为 了在启动时对系统部件进行全面检测)
/ /QSYS.LIB /QDLS /QopenSys /QNFS /QNETWARE /QLANSrv 表示整个文件系统. 传统的OS/400的库文件系统. 用于支持DOS,Windows等. UNIX文件系统. SUN公司的网络文件系统. Novell Netware文件系统. LAN Server文件系统.
只有授权的用户才能访问相应的系统资源 区分用户的对象和操作系统使用的对象
50级 - C2 Level Security
C2安全级是商业计算机中的最高安全级别
用户描述
用户类(User Class) 可操作对象(Object Owned and Authorized) 对象的权限(Authorization of Objects) 特权指令与特殊权限
AS/400产品介绍 AS/400产品介绍
AS/400控制台的几种方式 AS/400控制台的几种方式
传统控制台方式. 条件:需要专用的主控台. Operational Console方式
条件:在AS/400上配置支持Operational Console的适配器, 需要一根#0367 Opeartional Console Cable.
其它状态:11-显示SRC代码,21-进入DST模式 …
一,系统概述
AS/400概述
– 集成性 – 开放性 – 可移植性 – 兼容性 – 可连接性 – 可支付性 – 可扩充性
体系结构
– TIMI 结构 (Technology Independent Machine Interface) – 集成性 – 单级存储结构
系统值(System Values)
系统值定义了整个系统的大环境.
作业的启动
交互作业(Interactive Job)的启动 后台作业(Batch Job)的启动
CMD: SBMJOB
Spooling job 的启动
CMD: STRPRTWTR
五,消息(Message)处理 五,消息(Message)处理