亚洲乱码日产精品BD在线观看,亚洲人配人种jizz,亚洲V无码一区二区三区四区观看

Telnet或者PCOM软�g昄��登陆界面太慢

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

故障现象�Q?/span>

Telnet或�?span style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; ">Pcom软�g昄��登陆界面太慢

适用�pȝ��版本�Q?/span> V4R4 V4R5

对于V4R4或�?span style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; ">V4R5�pȝ��Q�我们通过telnet客户端登�?span style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; ">AS/400的时候，�l�常会很久才能显�C?span style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; ">signon登陆界面�Q�但是一�?span style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; ">signon界面出来后，接着的交互式操作相应速度都很正常�?/span>

负责Telnet登陆的初始程序是QTVDEVICE, 该作业的默认�q�行�U�别�?span style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; ">50。虽然该作业在绝大多数系�l�上�q�行的挺好，但是�Q�在一些拥有大量的批处理左右的�pȝ��中，作业QTVDEVICE会同批处理作业去抢占CPU资源�Q�从而媄响了signon屏幕的相应�?/span>

解决�q�个问题的方法，通常是增�?span style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; ">QTVDEVICE 作业的运行优先��?span style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; ">20�?/span>

如果你打了补�?span style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; "> SF62558 (V4R4) 或�?span style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; "> SF62559 (V4R5) �Q�或者更高的补丁版本�Q�这些补丁会调整该作业的�q�行优先�U�到20�?/span>

使用下面的步骤命令来调整�q�行优先�U��\由条目到20�Q?/span>

ADDRTGE SBSD(QSYS/QSYSWRK) SEQNBR(2517) CMPVAL('TELNETD' 1)
PGM(QSYS/QCMD) CLS(QSYS/QSYSCLS20)
-
如果PTF没有应用�Q��用下面的命��o改变优先�U��\由条目到20�Q?/span>

ADDRTGE SBSD(QSYS/QSYSWRK) SEQNBR(2517) CMPVAL('QCMDI' 1)
PGM(QSYS/QCMD) CLS(QSYS/QSYSCLS20)
-
注意: Telnet服务�?span style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; ">QTVDEVICE作业必须�l�束�Q�系�l�重启后�Q�优先��才能改变�?/span>
-
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的系�l�值是否被修改

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

产品: OS/400,i5/OS

�q�_��: i5�Q�iSeries, AS/400

版本: V5RxMx

问题

如何发现哪些OS/400�pȝ��D��修改了，什么时候被哪个用户修改的？

解答

每次一个OS/400�pȝ��D��修改�Q�系�l�会自动向历史日志（QHST�Q�写入一条信息：CPF1805, CPF1806, CPF1815 �?CPF1823 �Q�如果系�l�无法确认这�ơ系�l�值的修改是否成功�Q�还会向历史日志�Q�QHST�Q�再写入一些信息，�?CPF1807, CPF1808 �?CPF1824�?/div>

��L��如下�Ҏ��来定位在特定旉��里是否有�q�些信息产生了：

�Q?�Q�DSPLOG �Q?F4 �Q?F10 调出所有参敎ͼ�填写希望查看的时间段

�Q?�Q�注意最后一��늚�参数"MSGID"�Q�请填入"CPF1805, CPF1806, CPF1807, CPF1808, CPF1815, CPF1823, CPF1824"

�Q?�Q�在所有列出的信息里，如果惌��一步了解某条信息，把光标定在这条信息下�Q�按F1查看附加信息�Q�再按F9查看详细信息�Q�可知是哪个作业更改的这个系�l��?/div>

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传统�?250黑屏界面。下面我们介�l�如何通过IE来访问AS/400�?250界面�?nbsp;要实现这个功能需要启用AS/400的WSG服务�?nbsp;WSG是一个包含在IC/400内部的后台精�늨�序，WSG能够自动地将送往特定TCP/IP端口(port�Q�目前一般�ؓ5061�Q�的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操作�pȝ��的一部分,它是一个关�p�L��数据库.和其他的数据库相�?例如Microsoft Access, Oracle or Dbase有着�怼�的特�?用DSS文�g�~�写说明语句是创建数据库文�g的标准方�?当然,也可以��用DSS在AS400做其他东�?例如创徏昄��文�g或者打印文�?br />

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文�g中输入你的数据描�q�C��?例如,以一个Customer文�g��Z��,命名为CUS的Member,要确保这个member的类型是"PF",�q�是��Z��告诉�~�译�?�q�是一个物理文�?注意到在�W�一行中,位置17的地�Ҏ��?R"的标�?�q�一行指明了记录的名�?�q�里记录名字��是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.

�q�一行命名了记录之后,下面的每一行描�q�C��一个字�D?字段名称后面是字�D늚�长度和数据类�?br />

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.

最常用的数据类型是下面的三�U? "A"代表字符,"S"代表数�? "P"代表packed decimal,对于数值字�D?你必��L��明小数点的位�|?�q�里,公司��L��字段��是一�?个数字的��L��,没有��数�?客户��L��和邮政编码同��h��数字,也是没有��数,而信用额度是一个数�?它一个有9个数�?其中两位数��g��于小数点后面,其他的都是字�W�的定义

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名字的后面输�?4.假如你细心一�?你会发现AS400实际执行了CRTPF (Create Physical File)命��o,�q�是因�ؓ�q�个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.

现在你已�l�有了数据库物理文�g,如图1,�q�个文�g包含了字�D�和他们的属�?现在我们��׃ؓ文�g增加key字段,假如�q�个物理文�g包含了key字段,那么�E�序��可以通过Key随即的访问或者顺许的讉K��记录

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,�q�是可选的. 代码的末��最后两�?在位�|?7的有两个"K",�q�两�?K"��是定义key字段�?那么,�q�个文�g��׃��用公司号码和客户��L��来徏立key,�q�一步来�?文�g不允许含有公司号码和客户��L��都相同的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是按��序写入文�g�?而假如你��d��数据的时候指明key,��d��的数据是已经按照公司��L��和客户号码排好顺�?同时,你也可以随即��d��Record,例如,RPG�?CHAIN"说明�W�就可以用公司号码和客户��L��随即��d��文�g

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�E�序)

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

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

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

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

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

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

AS400 Tutorial - PWRDWNSYS�Q�AS400视频教程�Q�如何关机）

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

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

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

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

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

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

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

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

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

AS400 Tutorial - SNDBRKMSG �Q�AS400视频教程-如何�l�用户发送信息）

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

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

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

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

AS400 Tutorial - Saving Spool File�Q�AS400视频教程�Q�保存脱机文�Ӟ��

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

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

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

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

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

AS400 Tutorial - Coding a Database File�Q�AS400视频教程�Q�一个数据库文�g的编码）

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

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

AS400 Tutorial - Compile DDS Database File�Q�AS4视频教程-�~�译DDS数据库文�Ӟ��

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

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

AS400 Tutorial - WRKSYSSTS�Q�AS400 视频教程�Q�如何察看系�l�状态）

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

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

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

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

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

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.

利用子文件我们可以创建带有列表项目的昄��文�g�Q�现在我们就看看是如何创建的

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.

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

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:

在这一章，我们��要创徏一个子文�g�Q�它用于�Ҏ��特定的ID昄��所有的卡，��Z��更好地维护几张表�Q�我们创��Z��个表包含多个我们��要用在子文件的字段�Q�在STRSQL中输入这些代�?/div>

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创徏一个新的成�?/div>

Create a BOTTOM record that should look like this:

创徏一个Bottom记录像如�?/div>

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:

现在我们开始创建子文�g了，创徏一个新的记录，名字为LIST�Q�记录的�c�d��是SFL

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

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

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

�q�个字段用来创徏子文件控制记录，��像列表的头�?/div>

You have to activate some options now: 现在你需要激�z�M��面的选项

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.

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

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

在子文�g的最大��D��?999和页面的最大记录数输入9

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

输入回�R�q�回�Q�然后选择字段关键字选项

Choose Overlay keywords: 选择覆盖关键�?/div>

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

Press Enter until you're back on this screen: 输入回�R�Q�然后返回如�?nbsp;

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记录�Q�默认是�q�个记录昄��在设计界面上�Q�选择To和Bottom�q�行可视�?按下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:

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

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

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

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

现在我们��d��一些新的属性给与Client ID字段�Q�在�q�个字段的左边输入一�?

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:

现在我们需要�ؓ�q�个字段��d��一个指�C�器�Q�当��g��个指定的ID没有扑ֈ�记录�Q�这个ID�q�不存在或者根据这个ID找不到记录）的时候，�q�个指示器将被激�z�，在错误描�q�选项的地方输入Y

Insert the following information:

输入下面的信�?/div>

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

选择�q�个记录�q�且同时打开�q�个LIST记录�Q�选择Top和Bottom记录作显�C�（按下F9�Q?/div>

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.

创徏一个输入字�D�，用户我在�q�里输入选项�Q�我们在如下囄��位置输入‘+i’然后按下回�R

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

注意你之前是如何定义子文件的每页大小�?�?/div>

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.

�q�些字段大概会本昄��两次�Q�因为SDA会把之前加蝲的字�D�也被显�C�出来，因此选择字段的时候需要小心一点，��量选择那些比较靠右的字�D�，因�ؓ他们是最后被加蝲的，

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.

假如有很多的字段�Q�消息行昄��不完�Q�在行尾会显�C�Z��?��P��按下��页键就可以看到剩下的那些没有显�C�的字段�?/div>

Place the fields on their positions: ��字�D�|��在相关的位置

The final result: 最后的�l�果

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.

不要忘记�Ȁ�z?3指示器，在文件的层面�Q��?#8220;F3=Exit”生效�Q�同时添加关键字INDARA��C��码中去，假如你忘��C��怎么做的话，回头看看�W�八章的昄��文�g创徏�?/div>

You must add the red line to the SFLCTL record:

你必��MؓSFLCTL记录��d��U�线

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记录中，你必��M��攚w��认的输入字段的名字，因�ؓ默认是FLD001�Q�或者像如下

A R LIST SFL

A OPTION 1A I 9 5

(...)

Executing the subfile 执行子文�?/div>

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.

要运行子文�g�Q�你必须创徏一个RPGLE的成员，��出文件QRPGLESRC.SHW_SFL 查看一下细节，看看是如何写�q�个文�g

When you run the RPGLE code: 当你�q�行RPGLE代码后可以看��C��面的�l�果

Attachments

as400_code.zip

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

AS400�W�八�?Display Files如何创徏昄��文�g

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.

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

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�E�序允许我们在屏�q�上“画草�E?#8221;�Q�它会根据我们所�ȝ��“草稿”生成相应的DDS代码。下面，我们��要创徏利用DDS创徏一个屏�q�界面，然后查看�q�些代码的片断，因�ؓ�Q�有些时候，利用代码来修改界面还是比较容易些�?/div>

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

在这一章，我们��创��Z��个显�C�客��h��据的界面�?/div>

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

在系�l�命令行输入STRDA��可以打开SDA�E�序了，如下图显�C�：

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�Q�然后输入相关的选项�Q�如下图�Q�Source file��是代码保存的文件了�Q�在Member输入我们惌��创徏的成员（Member�Q��?/div>

Create file 创徏文�g

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

按下回�R键，然后我们��d��记录�Q�命名�ؓTop�Q�如下图

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

接着我们输入记录�c�d��Q�在�q�个例子中我们输入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.

按下回�R�Q�现在我们就可以“草绘” top记录�Q�添加内容了�Q�如下图�Q?/div>

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.

当你惌��入一个字�W�串的时候，请问打上单引��P��假如你不�q�样做的话，�pȝ��会把他们当作分开的不同字�W�串�?/div>

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用来在屏�q�上昄��用户�?/div>

*DATE用来在屏�q�上昄��pȝ��当前日期�?/div>

*TIME 用来在屏�q�上昄��pȝ��的当前时间�?/div>

*SYSNAME 用来在屏�q�上昄��pȝ��名称�?/div>

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.

按照上图输入完成后按下回车，��可以看��C��图了�Q�请在按下回车之前仔�l�检查，因�ؓ按下回�R之后�Q�只能用代码�q�行修改了，当然�Q�你也可以退��条记录而不保存�Q�但是你��׃��丢失�q�些工作成果�?/div>

Moving a field �U�d��字段

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.

你可以通过在字�D�右边的输入〉来使字�D�向后移动，你输入〉符��L��数量��是字段向右�U�d��的位�U�量�Q�向左是同样的道理�?/div>

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:

要是惛_��字段居中�Q�你可以在字�D늚�左边输入ac�Q�c必须覆盖字段字段的第一个字�W�，然后按下回�R�Q�按下F3�l�束你对字段的编辑，选择1保存你的工作成果�?/div>

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

现在我们创徏另外一个记录叫做Bottom�Q�方法是跟创建TOP字段是一��L��?/div>

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

当你打开按下F9�Ҏ��的记录，我们可以看见菜单昄��出来�?/div>

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.

��Z��不要覆盖你的其他记录�Q�你可以选择在菜单中对其他记录可视化�Q�你可以发现Bottom记录处于正在使用“In Use”状态，意味着�q�正是我们正在编辑的记录�Q�你可以选择最�?条记录进行可视化�Q�将1�Q?�Q? 攑֜�你想可视化的记录上面�Q�然后按回�R

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.

可以看到�Q�你所选的字段昄��在屏�q�的底部了，但是你不要忘��C��Q�你只能“草绘”那个正在使用�Q?#8220;In Use”�Q�的记录�Q�其它记录只能辅佐那个正在��用的字段攄��合适的位置而已�?nbsp;

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

像下��N��?#8220;草绘”我们的需要的界面�Q�我们��用下划线描述��Z��条直�U�来

Changing field proprieties修改字段属�?/span>

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” 字段的属性，在这个字�D늚�左边输入*, 然后按下回�R�?/div>

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

当出��C��下面的界面，在颜色选项中输入Y�Q?/div>

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退出编辑界面然后保存你的工作成果�?/div>

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

创徏一个新的记录，MIDDLE�Q�方法跟你之前的事一��L��

Press F9 to visualize the records you already created:

按F9可视化你刚刚创徏的记�?/div>

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

按照下图草绘界面�Q�完成后按回�?/div>

Add fields

��d��字段

Using table records

使用表记�?/div>

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:

现在我们��要在客戯��中选择我们惌��的字�D�，��他们显�C�在界面上面�Q�按下F10�Q�现在第3��（select the Database File Clients for output�Q�，你也可以为其它的选项�Q�选择字段作�ؓ输出和输入�?/div>

Select the table 选择�?/span>

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.

在下图中�Q�你可以看到一条信息显�C�在最下面�Q�显�C�Z��客户表的所有字�D�和字面名字前面附带着��L��Q�要��这些字�D�|��C�在界面的，你需要将相关的字�D늚��L��写在屏幕界面上，前边带上一�?#8216;&’的符��P��如下图，

The final result: 最后结�?/span>

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

推出记录�~�辑�Q�我们需要对文�g选项�q�行一些修�?/div>

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

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

Change overlay option 修改覆盖选项

Select option Overlay Keywords: 选择覆盖关键�?/div>

Change overlay option step 2 修改覆盖选项�W�二�?/span>

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.

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

Change overlay option step 3

修改覆盖属性步�?

File level options (indicators) 文�g层面的选项�Q�指�C�器�Q?/div>

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.

要实�?#8220;F3=Exit”的功能，我们需要需要在文�g的层面声明指�C�器03�Q�在字段列表的菜单中我们输入F14 (F13=shift+F1; F14=shift+F2; F15=shift+F3, etc.).然后�Q�我们选择指示器选项关键字，如下�?/div>

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保存文�g�?/div>

Display Files DDS code 昄��DDS文�g的代�?/div>

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代码�Q�位�|�在QDDSSRC�Q�成员名字是SHW_CLI�Q�在文�g的开头我们可以看到这样两行：

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:

�q�是文�g层面的选项�Q�你�q�些可以在这里增加一行，它允�怽�重命名这个已�l�用了的指示器，在DSPSIZ后面��d��一行，如下

A INDARA

You should also have some lines like these: 你也可以��d��几行像下面的�Q?/div>

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中定义的�Q�关键字USER被放在第一行，�W?5列�?/div>

Look at this line from MIDDLE record: 现在我们看看MIDDLE的记�?/div>

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).

�q�里你定义了一个引用，指向CLIENTS表的ID_CL字段�Q�这个字�D늚�位置在第8行，�W?3列，是一个只�ȝ��字段�?/div>

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

关闭了这个成员之后，你可以按F14�~�译�q�个文�g�?/div>

Executing display files 执行昄��文�g

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:

要运行这个界面，你必��d��Z��个RPGLE成员�Q�来处理所有可能的事�g�Q�例如按下F3�Q�，打开文�gQRPGLESRC.SHW_CLI�Q�看看我们英文怎么定义�q�个成员�Q�创��Z��个像QRPGLESRC.SHW_CLI文�g�Q�然后我们运行，�l�果如下图，

Execute display file 1

If you press Enter:

as400_code.zip

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

IBM提供�?00环境

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

IBM提供�?00环境�Q?1、用IE讉K��400的地址如下�Q?a style="word-wrap: break-word; text-decoration: none; color: #565656; ">http://iseriesd.dfw.ibm.com/webaccess/iWA5250 2、用PCOM400的配�|�如下：��L��IP�Q?iSeriesD.DFW.IBM.COM�?口： 23 �?��P�� 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 发表评论

亚洲乱码日产精品BD在线观看,亚洲人配人种jizz,亚洲V无码一区二区三区四区观看

Telnet或者PCOM软�g昄���登陆界面太慢

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

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

创徏一个物理文�?有或者没有Key字段)

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

AS400 Tutorial - PWRDWNSYS�Q�AS400视频教程�Q�如何关机）

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

AS400 Tutorial - SNDBRKMSG �Q�AS400视频教程-如何�l�用户发送信息）

AS400 Tutorial - Saving Spool File�Q�AS400视频教程�Q�保存脱机文�Ӟ��

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

AS400 Tutorial - Coding a Database File�Q�AS400视频教程�Q�一个数据库文�g的编码）

AS400 Tutorial - Compile DDS Database File�Q�AS4视频教程-�~�译DDS数据库文�Ӟ��

AS400 Tutorial - WRKSYSSTS�Q�AS400 视频教程�Q�如何察看系�l�状态）

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

Attachments

AS400�W�八�?Display Files如何创徏昄���文�g

IBM提供�?00环境

AS400 Tutorial - Navigation, Menus and FKeys

Telnet或者PCOM软�g昄��登陆界面太慢

AS400�W�八�?Display Files如何创徏昄��文�g