BlogJava-The NoteBook of EricKong-随笔分类-AS400

Telnet或者PCOM软件显示登陆界面太慢

Eric_jiang — Mon, 11 Nov 2013 06:29:00 GMT

故障现象：

Telnet或者Pcom软件显示登陆界面太慢

适用系统版本： V4R4 V4R5

对于V4R4或者V4R5系统，我们通过telnet客户端登陆AS/400的时候，经常会很久才能显示signon登陆界面，但是一旦signon界面出来后，接着的交互式操作相应速度都很正常。

负责Telnet登陆的初始程序是QTVDEVICE, 该作业的默认运行级别是50。虽然该作业在绝大多数系统上运行的挺好，但是，在一些拥有大量的批处理左右的系统中，作业QTVDEVICE会同批处理作业去抢占CPU资源，从而影响了signon屏幕的相应。

解决这个问题的方法，通常是增加QTVDEVICE 作业的运行优先级到20。

如果你打了补丁 SF62558 (V4R4) 或者 SF62559 (V4R5) ，或者更高的补丁版本，这些补丁会调整该作业的运行优先级到20。

使用下面的步骤命令来调整运行优先级路由条目到20：

ADDRTGE SBSD(QSYS/QSYSWRK) SEQNBR(2517) CMPVAL('TELNETD' 1)
PGM(QSYS/QCMD) CLS(QSYS/QSYSCLS20)
-
如果PTF没有应用，使用下面的命令改变优先级路由条目到20：

ADDRTGE SBSD(QSYS/QSYSWRK) SEQNBR(2517) CMPVAL('QCMDI' 1)
PGM(QSYS/QCMD) CLS(QSYS/QSYSCLS20)
-
注意: Telnet服务和QTVDEVICE作业必须结束，系统重启后，优先级才能改变。
-
Additional Information:
-
Previous to the PTFs being applied the QTVDEVICE jobs are submitted with a compare value of QCMDI. If the performance issues occurred, the circumvention noted above was to add a Routing Entry with a compare value for QCMDI that will reference a Class with a higher run priority. A drawback to this is that other jobs, the Pass-through server for example, are submitted to the QSYSWRK subsystem with a compare value of QCMDI. So the QCMDI Routing Entry affected more than just Telnet.
-
Mindful of the potential side effects of the first circumvention, a unique compare value of TELNETD was added to the QTVDEVICE job submission via PTF. This allows the run priority of the Telnet QTVDEVICE jobs to be changed without affecting any other programs. A real consideration with these PTFs, which are on the current Cumulative Packages, is that if you previously had added the QCMDI Routing Entry to address this issue, and the new Routing Entry is not added, the same performance lags that were experienced before will reappear.
-
If you had previously added the QCMDI Routing Entry at sequence number 2517, the recommendation is to remove that Routing Entry and add the one for TELNETD at sequence number 2517. Because in future releases of OS/400 the install of TCP/IP Connectivity Utilities will add the Routing Entry for TELNETD at sequence number 2517. If you still want jobs that are submitted to the QSYSWRK subsystem with a compare value of QCMDI to run at a priority other than 50, then add that Routing Entry back at any
available sequence number.
-
For tuning the System performance further, the run priority can be customized by replacing the QSYSCLS20 class with a different class, either system provided or user created, that references a different run priority. And with the new PTFs applied, that change will only affect the Telnet server jobs.

Eric_jiang 2013-11-11 14:29 发表评论

如何查看OS/400的系统值是否被修改

Eric_jiang — Mon, 11 Nov 2013 06:21:00 GMT

产品: OS/400,i5/OS

平台: i5，iSeries, AS/400

版本: V5RxMx

问题

如何发现哪些OS/400系统值被修改了，什么时候被哪个用户修改的？

解答

每次一个OS/400系统值被修改，系统会自动向历史日志（QHST）写入一条信息：CPF1805, CPF1806, CPF1815 或 CPF1823 ；如果系统无法确认这次系统值的修改是否成功，还会向历史日志（QHST）再写入一些信息，如 CPF1807, CPF1808 或 CPF1824。

请用如下方法来定位在特定时间里是否有这些信息产生了：

（1）DSPLOG ＋ F4 ＋ F10 调出所有参数，填写希望查看的时间段

（2）注意最后一页的参数"MSGID"，请填入"CPF1805, CPF1806, CPF1807, CPF1808, CPF1815, CPF1823, CPF1824"

（3）在所有列出的信息里，如果想进一步了解某条信息，把光标定在这条信息下，按F1查看附加信息；再按F9查看详细信息，可知是哪个作业更改的这个系统值

Eric_jiang 2013-11-11 14:21 发表评论

配置通过IE来访问AS/400 5250界面

Eric_jiang — Mon, 11 Nov 2013 06:06:00 GMT

摘要: 配置通过IE来访问AS/400 5250界面很多刚开始接触AS/400的用户很不习惯AS/400传统的5250黑屏界面。下面我们介绍如何通过IE来访问AS/400的5250界面。要实现这个功能需要启用AS/400的WSG服务。 WSG是一个包含在IC/400内部的后台精灵程序，WSG能够自动地将送往特定TCP/IP端口(port，目前一般为5061）的5... 阅读全文

Eric_jiang 2013-11-11 14:06 发表评论

创建一个物理文件(有或者没有Key字段)

Eric_jiang — Wed, 04 Sep 2013 08:59:00 GMT

Create a Physical File with or without a key field

创建一个物理文件(有或者没有Key字段)

The AS/400 database, DB2/400 is part of the AS/400 operating system. It is a relational database and has features similar to other databases you may have used such as Microsoft Access, Oracle or Dbase. The standard method of creating files is to define the specifications of the file using DDS. Of course DDS is used for other things on the AS/400 like defining display files and print files.

AS/400数据库,DB2/400是AS/400操作系统的一部分,它是一个关系性数据库.和其他的数据库相比,例如Microsoft Access, Oracle or Dbase有着相似的特性.用DSS文件编写说明语句是创建数据库文件的标准方法.当然,也可以使用DSS在AS400做其他东西,例如创建显示文件或者打印文件

To create a physical database file, enter your source statements in a DDS source file member. For example, name the member "CUS" for customer file. Make sure the member type is "PF". This tells the compiler that this is for a physical file. Notice that the first record has an "R" in position 17. This means that this line is specifying the record name, in this case "CUREC". The "TEXT" is optional but helps to document the file.

创建一个物理文件数据库,你需要在DSS文件中输入你的数据描述代码.例如,以一个Customer文件为例,命名为CUS的Member,要确保这个member的类型是"PF",这是为了告诉编译器,这是一个物理文件.注意到在第一行中,位置17的地方有个"R"的标记,这一行指明了记录的名字,这里记录名字就是CUREC.而Text不是一定要,但是也对文档化比较有用.

After the line naming the record, each line describes a field. The field name is followed by the field length and its data type.

这一行命名了记录之后,下面的每一行描述了一个字段,字段名称后面是字段的长度和数据类型

The three most used data types are "A" for alpha or character, "S" for numeric and "P" for packed decimal. For numeric fields, you must also specify the number of decimal positions. So here, the company number field is a three digit number with no decimal places. The customer number and zip code are also numeric fields with no decimal places. The credit limit is a numeric, packed decimal field with 9 digits, of which two are after the decimal point. The rest of the fields are character fields.

最常用的数据类型是下面的三种, "A"代表字符,"S"代表数值, "P"代表packed decimal,对于数值字段,你必须指明小数点的位置,这里,公司号码字段就是一个3个数字的号码,没有小数点,客户号码和邮政编码同样是数字,也是没有小数,而信用额度是一个数值,它一个有9个数字,其中两位数值位于小数点后面,其他的都是字符的定义

Once you have entered the DDS source code, you must compile it. You do this by keying option 14 next to your member name on the PDM screen. If you pay attention you will see that the AS/400 is actually executing the CRTPF (Create Physical File) command. It knows to use this command because the member type of the source code is "PF".

一旦你输入完DDS代码,你必须编译它,在PDM界面中,在你要编译Member名字的后面输入14.假如你细心一点,你会发现AS400实际执行了CRTPF (Create Physical File)命令,这是因为这个Member的类型是"PF"

You now have a database physical file, see Figure 1. This file has built into it the fields and their attributes. Let's modify this file definition to add key fields. If a physical file has key fields, programs can randomly access the records or read them sequentially in the order of the key fields.

现在你已经有了数据库物理文件,如图1,这个文件包含了字段和他们的属性,现在我们就为文件增加key字段,假如这个物理文件包含了key字段,那么程序就可以通过Key随即的访问或者顺许的访问记录

You can see in Figure 2 that it is simple to add key fields.

看图2,建立key字段是非常简单的

The "UNIQUE" record at the beginning of the source is used if you want the AS/400 to insist on having no records with duplicate keys. This is optional. At the end of the source code, there are two lines with "K" in position 17. These lines define the key fields. So, this file will build a key using the company number and then the customer number. Further, it will not allow a duplicate company number / customer number record to be written.

开头的那个"UNIQUE"表明了你要AS400不能含有重复key的Record,这是可选的. 代码的末尾最后两行,在位置17的有两个"K",这两个"K"就是定义key字段了,那么,这个文件就会用公司号码和客户号码来建立key,进一步来说,文件不允许含有公司号码和客户号码都相同的recored.

The records are written to the file in arrival sequence. If you read the data by specifying keyed access, the records will read as though they have been sorted by company number and customer number. Also, your programs can randomly retrieve records. For example, a "CHAIN" instruction in RPG can now randomly read the record for a specific company number / customer number.

Record是按顺序写入文件的,而假如你读取数据的时候指明key,读取的数据是已经按照公司号码和客户号码排好顺序,同时,你也可以随即读取Record,例如,RPG的"CHAIN"说明符就可以用公司号码和客户号码随即读取文件

Figure 1 - DDS for Physical File Without Key

A R CUREC TEXT('CUSTOMER FILE')

A CUCO 3S 0 TEXT('COMPANY #')

A CUSTS 1A TEXT('STATUS CODE')

A CUNUM 5S 0 TEXT('CUSTOMER #')

A CUNAME 30A TEXT('CUSTOMER NAME')

A CUADR 30A TEXT('CUSTOMER ADDRESS')

A CUCITY 18A TEXT('CUSTOMER CITY')

A CUSTAT 2A TEXT('CUSTOMER STATE')

A CUZIP 9S 0 TEXT('CUSTOMER ZIP')

A CUCRLM 9P 2 TEXT('CUST CREDIT LIMIT')

Figure 2 - DDS for Physical File With Key Fields

A UNIQUE

A R CUREC TEXT('CUSTOMER FILE')

A CUCO 3S 0 TEXT('COMPANY #')

A CUSTS 1A TEXT('STATUS CODE')

A CUNUM 5S 0 TEXT('CUSTOMER #')

A CUNAME 30A TEXT('CUSTOMER NAME')

A CUADR 30A TEXT('CUSTOMER ADDRESS')

A CUCITY 18A TEXT('CUSTOMER CITY')

A CUSTAT 2A TEXT('CUSTOMER STATE')

A CUZIP 9S 0 TEXT('CUSTOMER ZIP')

A CUCRLM 9P 2 TEXT('CUST CREDIT LIMIT')

A K CUCO

A K CUNUM

Eric_jiang 2013-09-04 16:59 发表评论

debug rpgle programms(AS400视频教程-如何调试RPGLE程序)

Eric_jiang — Tue, 06 Aug 2013 09:44:00 GMT

Eric_jiang 2013-08-06 17:44 发表评论

AS400 Tutorial - CRTSRCPF（AS400视频教程-如何创建物理文件）

Eric_jiang — Tue, 06 Aug 2013 09:21:00 GMT

Eric_jiang 2013-08-06 17:21 发表评论

AS400 Tutorial - CRTLIB （AS400视频教程-如何创建Lib）

Eric_jiang — Tue, 06 Aug 2013 09:14:00 GMT

Eric_jiang 2013-08-06 17:14 发表评论

AS400 Tutorial - PWRDWNSYS（AS400视频教程，如何关机）

Eric_jiang — Tue, 06 Aug 2013 09:12:00 GMT

Eric_jiang 2013-08-06 17:12 发表评论

AS400视频教程，关于历史日志的东西

Eric_jiang — Tue, 06 Aug 2013 09:06:00 GMT

Eric_jiang 2013-08-06 17:06 发表评论

AS400视频教程，关于AS400作业的一些东西

Eric_jiang — Tue, 06 Aug 2013 08:57:00 GMT

Eric_jiang 2013-08-06 16:57 发表评论

AS400 Tutorial - Create Source Physical File Member（AS400视频教程，创建物理文件源代码）

Eric_jiang — Tue, 06 Aug 2013 08:34:00 GMT

Eric_jiang 2013-08-06 16:34 发表评论

AS400 Tutorial - SNDBRKMSG （AS400视频教程-如何给用户发送信息）

Eric_jiang — Tue, 06 Aug 2013 08:03:00 GMT

Eric_jiang 2013-08-06 16:03 发表评论

AS400 Tutorial - Spool File Priority and WRKSPLF（AS400视频教程-脱机文件有限级和WRKSPLF命令）

Eric_jiang — Tue, 06 Aug 2013 07:56:00 GMT

Eric_jiang 2013-08-06 15:56 发表评论

AS400 Tutorial - Saving Spool File（AS400视频教程，保存脱机文件）

Eric_jiang — Tue, 06 Aug 2013 07:42:00 GMT

Eric_jiang 2013-08-06 15:42 发表评论

AS400 Tutorial - Running Job Priority（AS400视频教程-改变作业优先权）

Eric_jiang — Tue, 06 Aug 2013 07:38:00 GMT

Eric_jiang 2013-08-06 15:38 发表评论

AS400 Tutorial - Coding a Database File（AS400视频教程，一个数据库文件的编码）

Eric_jiang — Tue, 06 Aug 2013 07:22:00 GMT

Eric_jiang 2013-08-06 15:22 发表评论

AS400 Tutorial - Compile DDS Database File（AS4视频教程-编译DDS数据库文件）

Eric_jiang — Tue, 06 Aug 2013 07:14:00 GMT

Eric_jiang 2013-08-06 15:14 发表评论

AS400 Tutorial - WRKSYSSTS（AS400 视频教程，如何察看系统状态）

Eric_jiang — Tue, 06 Aug 2013 07:08:00 GMT

Eric_jiang 2013-08-06 15:08 发表评论

AS400 Tutorial - ENDSBS & STRSBS(AS400视频教程，如何开始和终止作业)

Eric_jiang — Tue, 06 Aug 2013 07:07:00 GMT

Eric_jiang 2013-08-06 15:07 发表评论

AS/400 第九章: Subfiles 子文件

Eric_jiang — Fri, 02 Aug 2013 02:34:00 GMT

With subfiles you can create a display file with lists of items. Let's see how that's done.

利用子文件我们可以创建带有列表项目的显示文件，现在我们就看看是如何创建的

A subfile is a display file where you can place a listing of values and process changes on the list. The list of members that you can see in the PDM is an example of a subfile.

子文件是一个显示文件，它能够帮助你显示列表和在列表上作相应的处理，你在PDM上能看到的列表成员就是你的一个子文件

In this chapter we'll create a subfile which will show all the cards from a client given its ID. To make the manipulation of several tables easier, we'll create a view with the fields we'll use on the subfile. In STRSQL insert this code:

在这一章，我们将要创建一个子文件，它用于根据特定的ID显示所有的卡，为了更好地维护几张表，我们创建一个表包含多个我们将要用在子文件的字段，在STRSQL中输入这些代码

CREATE VIEW CLICARD AS SELECT CL.ID_CLI, CR.ID_CRD, SH.NAME_SHP, CR.SHOP_CRD

FROM DEMO/CLIENTS CL, DEMO/SHOP SH, DEMO/CARDS CR

WHERE CL.ID_CLI = CR.CLIENT_CRD AND CR.SHOP_CRD = SH.ID_SHP

Open SDA (STRSDA) and create a new member:

打开SDA创建一个新的成员

Create a BOTTOM record that should look like this:

创建一个Bottom记录像如下

And the TOP record like this: 和Top记录

Let's create the subfile now. Create a new record, name it LIST, the record type is SFL:

现在我们开始创建子文件了，创建一个新的记录，名字为LIST，记录的类型是SFL

When you press Enter a new record appears. Write SFLCTL on it:

现在我们按下回车，一个新的记录出现如下，在上面写下SFLCTL如图

This field creates a subfile control record, which works like the heading on the list.

这个字段用来创建子文件控制记录，就像列表的头部

You have to activate some options now: 现在你需要激活下面的选项

On the General Keywords menu insert the data you see below:

在General Keywords菜单输入输入如下

These indicators allow us to manipulate the status of the subfile from the RPG code. Press Enter to go back to the previous screen. Select Subfile display layout.

这些指示器允许我们利用RPG代码维护控制控制子文件的状态，输入回车我们会返回之前的屏幕界面，现在选择子文件的显示布局

On subfile maximum size type 9999 and on the number of records for page type 9:

在子文件的最大值输入9999和页面的最大记录数输入9

Press enter to go back. Select the option Select Record Keyword:

输入回车返回，然后选择字段关键字选项

Choose Overlay keywords: 选择覆盖关键字

Select Overlay without erasing: 选择覆盖但不擦除选项

Press Enter until you're back on this screen: 输入回车，然后返回如下

Open the SFLCTL record. By default the record list is already visible on the design screen. Select to visualize the other 2 records, TOM and BOTTOM (F9).

打开SFLCTL记录，默认是这个记录显示在设计界面上，选择To和Bottom进行可视化(按下F9)

Back to the design screen, write at the top “Client Nr.”. Select the fields from CLICARD view for input/output (F10) and select the ID_CLI field:

返回设计界面，在上面写上“Client Nr.”，在CLICARD试图中选择字段ID_CLI作为输入和输出，

Type the titles of the subfile's columns and a separating line:

输入分割线和子文件的字段标题

Let's add some proprieties to the Client ID field. Place an * before to the left of the field.

现在我们添加一些新的属性给与Client ID字段，在这个字段的左边输入一个*

We're going to add an indicator to this field, which will be activated when no record is found for an ID inserted (either the ID doesn't exist or it doesn't have any associated cards). Option Error Messages:

现在我们需要为这个字段添加一个指示器，当值一个指定的ID没有找到记录（这个ID并不存在或者根据这个ID找不到记录）的时候，这个指示器将被激活，在错误描述选项的地方输入Y

Insert the following information:

输入下面的信息

Close this record and open the LIST record. Select the TOP and BOTTOM records for display (F9):

选择这个记录并且同时打开这个LIST记录，选择Top和Bottom记录作显示（按下F9）

To create an input field, where the user will type the options, type '+i' on the same position as in the following image and press Enter.

创建一个输入字段，用户我在这里输入选项，我们在如下图的位置输入‘+i’然后按下回车

Notice how the field spread across the 9 line you previously defined as the subfile page size.

注意你之前是如何定义子文件的每页大小为9行

Select the records from CLICARD view for output.

从CLICARD视图中选择记录作为输入

The fields will probably be listed twice, because the SDA will show you the field that had been previously loaded from I/O in the SFLCTL record. You should select the fields further to the right, because they are the last ones loaded. You must be careful selecting the fields.

这些字段大概会本显示两次，因为SDA会把之前加载的字段也被显示出来，因此选择字段的时候需要小心一点，尽量选择那些比较靠右的字段，因为他们是最后被加载的，

If there are more fields than the ones that can fit the message line, a plus (+) sign will appear at the end of the line. Press Page Down to see the remaining fields.

假如有很多的字段，消息行显示不完，在行尾会显示一个+号，按下翻页键就可以看到剩下的那些没有显示的字段。

Place the fields on their positions: 将字段放在相关的位置

The final result: 最后的结果

Don't forget to activate the indicator 03 at file-level so that “F3=Exit” can work and add the keyword INDARA to the code. Check out the Display file chapter if you don't remember how to do this.

不要忘记激活03指示器，在文件的层面，使得“F3=Exit”生效，同时添加关键字INDARA到代码中去，假如你忘记了怎么做的话，回头看看第八章的显示文件创建。

You must add the red line to the SFLCTL record:

你必须为SFLCTL记录添加红线

A R SFLCTL SFLCTL(LIST)

A SFLSIZ(9999)

A SFLPAG(0009)

A OVERLAY

A 30 SFLDSP

A 31 SFLDSPCTL

A 35 SFLCLR

A 33 SFLEND(*MORE)

A 4 8'Client Nr.'

A ID_CLI R B 4 19REFFLD(CLICARD/ID_CLI DEMO/CLICARD)

A 90 ERRMSG('No Data Found')

A 6 4'Op.'

A 6 12'Card Nr.'

A 6 27'Shop Nr.'

A 6 42'Shop Name'

A 7 2'__________________________________-

A ___________________________________-

A __________'

A RRN 4S 0H SFLRCDNBR(CURSOR)

In the LIST record change the name of the input field to OPTION. By default it must be named FLD001, or something like it.

在LIST记录中，你必须修改默认的输入字段的名字，因为默认是FLD001，或者像如下

A R LIST SFL

A OPTION 1A I 9 5

(...)

Executing the subfile 执行子文件

To run the subfile you must create an RPGLE member. Check out the file QRPGLESRC.SHW_SFL for more details on how to write this member.

要运行子文件，你必须创建一个RPGLE的成员，检出文件QRPGLESRC.SHW_SFL 查看一下细节，看看是如何写这个文件

When you run the RPGLE code: 当你运行RPGLE代码后可以看到下面的结果

Attachments

as400_code.zip

Eric_jiang 2013-08-02 10:34 发表评论

AS400第八章:Display Files如何创建显示文件

Eric_jiang — Tue, 30 Jul 2013 09:07:00 GMT

Display files are DDS files that enable us to create AS/400 menus and screens to interact with the user. Display files can have several records. Each record defines part of the screen's appearance. These records may or may not overlap each other.

显示文件是一些帮助我们创建和用户进行交互的AS400菜单和屏幕界面的DDS文件。显示文件能够包含多个纪录，每个记录定义了屏幕界面的一部分。这些记录或者相互覆盖。

The SDA application allows us to “draw” what should show up on the screen and creates the DDS code from our “drawing”. Next we'll create a screen with DDS and afterward we'll look at some code excerpts, because sometimes it's easier to alter the screen through its code.

SDA程序允许我们在屏幕上“画草稿”，它会根据我们所画的“草稿”生成相应的DDS代码。下面，我们将要创建利用DDS创建一个屏幕界面，然后查看这些代码的片断，因为，有些时候，利用代码来修改界面还是比较容易些。

In this chapter ，we'll create a screen to show a clients data.

在这一章，我们将创建一个显示客户数据的界面。

To open SDA type STRSDA on the system prompt. This screen should appear:

在系统命令行输入STRDA就可以打开SDA程序了，如下图显示：

Choose option 1 and type the options as you see them on the image below. Source file is the file where the code will be stored. Member is the name of member we're creating.

选择1，然后输入相关的选项，如下图，Source file就是代码保存的文件了，在Member输入我们想要创建的成员（Member）。

Create file 创建文件

Press Enter. A new screen appears. Add a new record, named TOP, typing what you see on the image bellow.

按下回车键，然后我们添加记录，命名为Top，如下图

Now specify the record type, in this case it's RECORD:

接着我们输入记录类型，在这个例子中我们输入Record

After the Enter an empty screen appears. In this screen you can “draw” the top record. Add the content you see on the image bellow.

按下回车，现在我们就可以“草绘” top记录，添加内容了，如下图：

When you type a string you should place it between apostrophes. If you don't each word will be handled like a different field. Placing the apostrophes allows you to manipulate all the words as a single field.

当你想输入一个字符串的时候，请问打上单引号，假如你不这样做的话，系统会把他们当作分开的不同字符串。

The *USER function shows the username on the screen. There are other functions that retrieve information from the system: *DATE (shows the system current date), *TIME(shows the system current time), *SYSNAME (shows the system name).

*USER用来在屏幕上显示用户名

*DATE用来在屏幕上显示系统当前日期。

*TIME 用来在屏幕上显示系统的当前时间。

*SYSNAME 用来在屏幕上显示系统名称。

After typing what you see on the image press Enter. Always check what you've done before pressing Enter, because after that you can only alter the screen by manipulating its code. You can also exit the record editing without saving your work, but then you'll lose all you've done since you last opened the record for editing.

按照上图输入完成后按下回车，就可以看到下图了，请在按下回车之前仔细检查，因为按下回车之后，只能用代码进行修改了，当然，你也可以退出这条记录而不保存，但是你就会丢失这些工作成果。

Moving a field 移动字段

You can move a field to the right placing “>” characters to the right of the field. The number of > you type will be the number of columns the field will move. To move the field to the left place < signs on the left side of the field.

你可以通过在字段右边的输入〉来使字段向后移动，你输入〉符号的数量就是字段向右移动的位移量，向左是同样的道理。

Centering a field 字段居中

To center a field on the screen place an 'ac' at the left of the field and the 'c' must be overlapping the first character of the field. Then press Enter.

Press F3 to finish editing this record. Choose option 1 to save your work:

要是想将字段居中，你可以在字段的左边输入ac，c必须覆盖字段字段的第一个字符，然后按下回车，按下F3结束你对字段的编辑，选择1保存你的工作成果。

Create another record named BOTTOM, the same way you've created the TOP record.

现在我们创建另外一个记录叫做Bottom，方法是跟创建TOP字段是一样的。

When you open the new record for editing press F9. This menu will appear:

当你打开按下F9对新的记录，我们可以看见菜单显示出来了

So that you don't overlap the records you can choose to visualize other records in the menu. You can see that the status of the BOTTOM record is “In Use” which means it is the one currently being edited. You can select at most 3 records to visualize. To do so place numbers 1 to 3 on the records you want. Select the TOP record and press Enter.

为了不要覆盖你的其他记录，你可以选择在菜单中对其他记录可视化，你可以发现Bottom记录处于正在使用“In Use”状态，意味着这正是我们正在编辑的记录，你可以选择最到3条记录进行可视化，将1，2，3 放在你想可视化的记录上面，然后按回车

The names of the selected fields appear on the bottom of the screen. Don't forget you are only “drawing” on the record in use. The other records only help you place your elements on the right place.

可以看到，你所选的字段显示在屏幕的底部了，但是你不要忘记了，你只能“草绘”那个正在使用（“In Use”）的记录，其它记录只能辅佐那个正在使用的字段放置合适的位置而已。

“Draw” something similar to what you see in the next image. Use the underscore to make the line.

像下图那样“草绘”我们的需要的界面，我们使用下划线描述出一条直线来

Changing field proprieties修改字段属性

We're going to edit the proprieties of the “F3=Exit” field. Place an '*' at the left of the field and press Enter:

我们现在修改“F3=Exit” 字段的属性，在这个字段的左边输入*, 然后按下回车。

This screen appears. Place an 'Y' in the Colors option. We're going to change the color of the characters.

当出现了下面的界面，在颜色选项中输入Y，

Place an 1 in the Blue field:

在蓝色选项那里输入1

Select blue color 选择蓝色

Press Enter until you're back in the editing screen. The field is now blue. Exit the editing screen (F3) and save your work.

按回车返回，直至你返回编辑界面，现在可以看到字段已经变成蓝色了，按F3退出编辑界面然后保存你的工作成果。

Create a new record, MIDDLE, the same way you've created the previous records.

创建一个新的记录，MIDDLE，方法跟你之前的事一样的

Press F9 to visualize the records you already created:

按F9可视化你刚刚创建的记录

Draw what you can see in the following image. Press Enter when you're done.

按照下图草绘界面，完成后按回车

Add fields

添加字段

Using table records

使用表记录

We're going to select the fields from the Clients table to show them on the screen. Press F10. On that menu select the Database File Clients for output (option 3). You can also select fields for input or input/output choosing one of the other options. You should write this on the menu and press Enter:

现在我们将要在客户表中选择我们想要的字段，将他们显示在界面上面，按下F10，现在第3项（select the Database File Clients for output），你也可以为其它的选项，选择字段作为输出和输入。

Select the table 选择表

On the bottom of the screen there's a message with all the Client's field names preceded by a number. To use a field on the screen you should write its correspondent number preceded with an '&'. You can see it in the next image. Be careful, because if you write a number and press Enter the order of the list on the bottom will change.

在下图中，你可以看到一条信息显示在最下面，显示了客户表的所有字段和字面名字前面附带着号码，要将这些字段显示在界面的，你需要将相关的字段的号码写在屏幕界面上，前边带上一个‘&’的符号，如下图，

The final result: 最后结果

Exit the record editing. We now need to make a few adjustments to the file options.

推出记录编辑，我们需要对文件选项进行一些修改

Record level options (overlay) 记录层面选项（覆盖）

Choose option 8 to the TOP record: 在Top记录选择选项8

Change overlay option 修改覆盖选项

Select option Overlay Keywords: 选择覆盖关键字

Change overlay option step 2 修改覆盖选项第二步

Place an Y at the option Overlay without erasing. This option allows to display this record on the screen together with the others. Press Enter until you reach the menu with the record listing. Activate this option on the other records.

在选项（Overlay without erasing）的地方输入Y，这个选项允许你在屏幕界面中同时显示其他的记录。一路回车直至你看到记录列表，在其他界面中激活这个选项

Change overlay option step 3

修改覆盖属性步骤3

File level options (indicators) 文件层面的选项（指示器）

We need to declare the indicator 03 (so that “F3=Exit” works) at the file level. On the menu with the record listing press F14 (F13=shift+F1; F14=shift+F2; F15=shift+F3, etc.). On the following screen choose the option Indicator Keywords.

要实现“F3=Exit”的功能，我们需要需要在文件的层面声明指示器03，在字段列表的菜单中我们输入F14 (F13=shift+F1; F14=shift+F2; F15=shift+F3, etc.).然后，我们选择指示器选项关键字，如下图

Insert the data you see on the image below:按照下图输入

Press Enter until you've reached the starting menu. Press F3 and save the file.

一路回车直至看到开始菜单，按F3保存文件。

Display Files DDS code 显示DDS文件的代码

You can check out the code from this display at QDDSSRC, the member is SHW_CLI. At the beginning of the file should be something like this:

你可以查看上面步骤产生的DDS代码，位置在QDDSSRC，成员名字是SHW_CLI，在文件的开头我们可以看到这样两行：

A DSPSIZ(24 80 *DS3)

A CF03(03 'Exit')

These are the file-level options. You should add a line to this area that later will allow you to rename the indicators used. Add this line after the DSPSIZ line:

这是文件层面的选项，你迟些可以在这里增加一行，它允许你重命名这个已经用了的指示器，在DSPSIZ后面添加一行，如下

A INDARA

You should also have some lines like these: 你也可以添加几行像下面的：

A R TOP

A OVERLAY

A 1 65USER

A 3 27'Client Details:'

In these four lines are the definitions to the TOP record. Notice the OVERLAY option we had defined in SDA. The keyword USER is placed on the 1st line, column 65.

上面四行是关于TOP 记录的定义，要注意的是OVERLAY 选项是我们在SDA中定义的，关键字USER被放在第一行，第65列。

Look at this line from MIDDLE record: 现在我们看看MIDDLE的记录

A ID_CLI R O 8 23REFFLD(CLIENTS/ID_CLI DEMO/CLIENTS)

Here you have a reference to the ID_CLI field on the CLIENTS table and this reference is positioned at line 8 column 23, an can only be accessed for reading (O).

这里你定义了一个引用，指向CLIENTS表的ID_CL字段，这个字段的位置在第8行，第23列，是一个只读的字段。

Compile the file (option 14) after you've closed the member.

关闭了这个成员之后，你可以按F14编译这个文件。

Executing display files 执行显示文件

To run the screen you must create an RPGLE member which will handle all the possible events (pressing F3 for example). Check out the file QRPGLESRC.SHW_CLI to see how this member should be defined. Create a file like QRPGLESRC.SHW_CLI and run it. The result should be something like this:

要运行这个界面，你必须创建一个RPGLE成员，来处理所有可能的事件（例如按下F3），打开文件QRPGLESRC.SHW_CLI，看看我们英文怎么定义这个成员，创建一个像QRPGLESRC.SHW_CLI文件，然后我们运行，结果如下图，

Execute display file 1

If you press Enter:

as400_code.zip

Eric_jiang 2013-07-30 17:07 发表评论

IBM提供的400环境

Eric_jiang — Fri, 26 Jul 2013 08:51:00 GMT

IBM提供的400环境！ 1、用IE访问400的地址如下：http://iseriesd.dfw.ibm.com/webaccess/iWA5250 2、用PCOM400的配置如下：主机IP： iSeriesD.DFW.IBM.COM端口： 23 用户： WUSER密码： DEMO2PWD

Eric_jiang 2013-07-26 16:51 发表评论

AS400 Tutorial - Navigation, Menus and FKeys

Eric_jiang — Fri, 25 May 2012 06:57:00 GMT

Eric_jiang 2012-05-25 14:57 发表评论