ï»??xml version="1.0" encoding="utf-8" standalone="yes"?>欧美成人精品不卡视频在线观看 ,亚洲一区二区在,99精品在线免费在线观看http://www.aygfsteel.com/jjshcc/category/51806.html桑巴葡语¾˜»è¯‘工作室是òq¿å·žå¸‚最专业葡萄牙语¾˜»è¯‘机构-www.puyufanyi.com-‹Æ¢è¿Žå¯ÀL‰¾Java,As400,Mainframe的猎头eric_cc#qq.ccom(æŠ?换成@)zh-cnMon, 11 Nov 2013 06:45:19 GMTMon, 11 Nov 2013 06:45:19 GMT60Telnet或者PCOM软äšg昄¡¤ºç™»é™†ç•Œé¢å¤ªæ…¢http://www.aygfsteel.com/jjshcc/archive/2013/11/11/406212.htmlEric_jiangEric_jiangMon, 11 Nov 2013 06:29:00 GMThttp://www.aygfsteel.com/jjshcc/archive/2013/11/11/406212.htmlhttp://www.aygfsteel.com/jjshcc/comments/406212.htmlhttp://www.aygfsteel.com/jjshcc/archive/2013/11/11/406212.html#Feedback0http://www.aygfsteel.com/jjshcc/comments/commentRss/406212.htmlhttp://www.aygfsteel.com/jjshcc/services/trackbacks/406212.html

故障现象å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Ÿå€¼æ˜¯å¦è¢«ä¿®æ”¹http://www.aygfsteel.com/jjshcc/archive/2013/11/11/406211.htmlEric_jiangEric_jiangMon, 11 Nov 2013 06:21:00 GMThttp://www.aygfsteel.com/jjshcc/archive/2013/11/11/406211.htmlhttp://www.aygfsteel.com/jjshcc/comments/406211.htmlhttp://www.aygfsteel.com/jjshcc/archive/2013/11/11/406211.html#Feedback0http://www.aygfsteel.com/jjshcc/comments/commentRss/406211.htmlhttp://www.aygfsteel.com/jjshcc/services/trackbacks/406211.html
产品: 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>


]]>配置通过IE来访问AS/400 5250界面http://www.aygfsteel.com/jjshcc/archive/2013/11/11/406210.htmlEric_jiangEric_jiangMon, 11 Nov 2013 06:06:00 GMThttp://www.aygfsteel.com/jjshcc/archive/2013/11/11/406210.htmlhttp://www.aygfsteel.com/jjshcc/comments/406210.htmlhttp://www.aygfsteel.com/jjshcc/archive/2013/11/11/406210.html#Feedback0http://www.aygfsteel.com/jjshcc/comments/commentRss/406210.htmlhttp://www.aygfsteel.com/jjshcc/services/trackbacks/406210.html阅读全文

]]>
创徏一个物理文�有或者没有Key字段)http://www.aygfsteel.com/jjshcc/archive/2013/09/04/403664.htmlEric_jiangEric_jiangWed, 04 Sep 2013 08:59:00 GMThttp://www.aygfsteel.com/jjshcc/archive/2013/09/04/403664.htmlhttp://www.aygfsteel.com/jjshcc/comments/403664.htmlhttp://www.aygfsteel.com/jjshcc/archive/2013/09/04/403664.html#Feedback0http://www.aygfsteel.com/jjshcc/comments/commentRss/403664.htmlhttp://www.aygfsteel.com/jjshcc/services/trackbacks/403664.html
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‹åº)http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402471.htmlEric_jiangEric_jiangTue, 06 Aug 2013 09:44:00 GMThttp://www.aygfsteel.com/jjshcc/archive/2013/08/06/402471.htmlhttp://www.aygfsteel.com/jjshcc/comments/402471.htmlhttp://www.aygfsteel.com/jjshcc/archive/2013/08/06/402471.html#Feedback0http://www.aygfsteel.com/jjshcc/comments/commentRss/402471.htmlhttp://www.aygfsteel.com/jjshcc/services/trackbacks/402471.html

Eric_jiang 2013-08-06 17:44 发表评论
]]>
AS400 Tutorial - CRTSRCPFåQˆAS400视频教程-如何创徏物理文äšgåQ?/title><link>http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402467.html</link><dc:creator>Eric_jiang</dc:creator><author>Eric_jiang</author><pubDate>Tue, 06 Aug 2013 09:21:00 GMT</pubDate><guid>http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402467.html</guid><wfw:comment>http://www.aygfsteel.com/jjshcc/comments/402467.html</wfw:comment><comments>http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402467.html#Feedback</comments><slash:comments>0</slash:comments><wfw:commentRss>http://www.aygfsteel.com/jjshcc/comments/commentRss/402467.html</wfw:commentRss><trackback:ping>http://www.aygfsteel.com/jjshcc/services/trackbacks/402467.html</trackback:ping><description><![CDATA[<iframe width="420" height="315" src="http://www.youtube.com/embed/-J_6HLuHmL0" frameborder="0" allowfullscreen=""></iframe><img src ="http://www.aygfsteel.com/jjshcc/aggbug/402467.html" width = "1" height = "1" /><br><br><div align=right><a style="text-decoration:none;" href="http://www.aygfsteel.com/jjshcc/" target="_blank">Eric_jiang</a> 2013-08-06 17:21 <a href="http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402467.html#Feedback" target="_blank" style="text-decoration:none;">发表评论</a></div>]]></description></item><item><title>AS400 Tutorial - CRTLIB åQˆAS400视频教程-如何创徏LibåQ?/title><link>http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402464.html</link><dc:creator>Eric_jiang</dc:creator><author>Eric_jiang</author><pubDate>Tue, 06 Aug 2013 09:14:00 GMT</pubDate><guid>http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402464.html</guid><wfw:comment>http://www.aygfsteel.com/jjshcc/comments/402464.html</wfw:comment><comments>http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402464.html#Feedback</comments><slash:comments>0</slash:comments><wfw:commentRss>http://www.aygfsteel.com/jjshcc/comments/commentRss/402464.html</wfw:commentRss><trackback:ping>http://www.aygfsteel.com/jjshcc/services/trackbacks/402464.html</trackback:ping><description><![CDATA[<iframe width="420" height="315" src="http://www.youtube.com/embed/fJ9CV2yBF-8" frameborder="0" allowfullscreen=""></iframe><img src ="http://www.aygfsteel.com/jjshcc/aggbug/402464.html" width = "1" height = "1" /><br><br><div align=right><a style="text-decoration:none;" href="http://www.aygfsteel.com/jjshcc/" target="_blank">Eric_jiang</a> 2013-08-06 17:14 <a href="http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402464.html#Feedback" target="_blank" style="text-decoration:none;">发表评论</a></div>]]></description></item><item><title>AS400 Tutorial - PWRDWNSYSåQˆAS400视频教程åQŒå¦‚何关机)http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402463.htmlEric_jiangEric_jiangTue, 06 Aug 2013 09:12:00 GMThttp://www.aygfsteel.com/jjshcc/archive/2013/08/06/402463.htmlhttp://www.aygfsteel.com/jjshcc/comments/402463.htmlhttp://www.aygfsteel.com/jjshcc/archive/2013/08/06/402463.html#Feedback0http://www.aygfsteel.com/jjshcc/comments/commentRss/402463.htmlhttp://www.aygfsteel.com/jjshcc/services/trackbacks/402463.html

Eric_jiang 2013-08-06 17:12 发表评论
]]>
AS400视频教程åQŒå…³äºŽåŽ†å²æ—¥å¿—çš„ä¸œè¥¿http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402461.htmlEric_jiangEric_jiangTue, 06 Aug 2013 09:06:00 GMThttp://www.aygfsteel.com/jjshcc/archive/2013/08/06/402461.htmlhttp://www.aygfsteel.com/jjshcc/comments/402461.htmlhttp://www.aygfsteel.com/jjshcc/archive/2013/08/06/402461.html#Feedback0http://www.aygfsteel.com/jjshcc/comments/commentRss/402461.htmlhttp://www.aygfsteel.com/jjshcc/services/trackbacks/402461.html

Eric_jiang 2013-08-06 17:06 发表评论
]]>
AS400视频教程åQŒå…³äºŽAS400作业的一些东è¥?/title><link>http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402458.html</link><dc:creator>Eric_jiang</dc:creator><author>Eric_jiang</author><pubDate>Tue, 06 Aug 2013 08:57:00 GMT</pubDate><guid>http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402458.html</guid><wfw:comment>http://www.aygfsteel.com/jjshcc/comments/402458.html</wfw:comment><comments>http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402458.html#Feedback</comments><slash:comments>0</slash:comments><wfw:commentRss>http://www.aygfsteel.com/jjshcc/comments/commentRss/402458.html</wfw:commentRss><trackback:ping>http://www.aygfsteel.com/jjshcc/services/trackbacks/402458.html</trackback:ping><description><![CDATA[<object id="csSWF" classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" width="800" height="618" codebase="http://active.macromedia.com/flash7/cabs/ swflash.cab#version=9,0,28,0"> <param name="src" value="http://www.midrangejumpstart.com/flash/PSJSJobs/PSJSJobs.swf"/> <param name="bgcolor" value="#1a1a1a"/> <param name="quality" value="best"/> <param name="allowScriptAccess" value="always"/> <param name="allowFullScreen" value="true"/> <param name="scale" value="showall"/> <param name="flashVars" value="autostart=false"/> <embed name="csSWF" src="http://www.midrangejumpstart.com/flash/PSJSJobs/PSJSJobs.swf" width="800" height="618" bgcolor="#1a1a1a" quality="best" allowScriptAccess="always" allowFullScreen="true" scale="showall" flashVars="autostart=false" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"></embed> </object><img src ="http://www.aygfsteel.com/jjshcc/aggbug/402458.html" width = "1" height = "1" /><br><br><div align=right><a style="text-decoration:none;" href="http://www.aygfsteel.com/jjshcc/" target="_blank">Eric_jiang</a> 2013-08-06 16:57 <a href="http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402458.html#Feedback" target="_blank" style="text-decoration:none;">发表评论</a></div>]]></description></item><item><title>AS400 Tutorial - Create Source Physical File MemberåQˆAS400视频教程åQŒåˆ›å»ºç‰©ç†æ–‡ä»¶æºä»£ç åQ?/title><link>http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402457.html</link><dc:creator>Eric_jiang</dc:creator><author>Eric_jiang</author><pubDate>Tue, 06 Aug 2013 08:34:00 GMT</pubDate><guid>http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402457.html</guid><wfw:comment>http://www.aygfsteel.com/jjshcc/comments/402457.html</wfw:comment><comments>http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402457.html#Feedback</comments><slash:comments>0</slash:comments><wfw:commentRss>http://www.aygfsteel.com/jjshcc/comments/commentRss/402457.html</wfw:commentRss><trackback:ping>http://www.aygfsteel.com/jjshcc/services/trackbacks/402457.html</trackback:ping><description><![CDATA[<iframe width="420" height="315" src="http://www.youtube.com/embed/iaVsxA9Rk3M" frameborder="0" allowfullscreen=""></iframe><img src ="http://www.aygfsteel.com/jjshcc/aggbug/402457.html" width = "1" height = "1" /><br><br><div align=right><a style="text-decoration:none;" href="http://www.aygfsteel.com/jjshcc/" target="_blank">Eric_jiang</a> 2013-08-06 16:34 <a href="http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402457.html#Feedback" target="_blank" style="text-decoration:none;">发表评论</a></div>]]></description></item><item><title>AS400 Tutorial - SNDBRKMSG åQˆAS400视频教程-如何¾l™ç”¨æˆ·å‘送信息)http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402455.htmlEric_jiangEric_jiangTue, 06 Aug 2013 08:03:00 GMThttp://www.aygfsteel.com/jjshcc/archive/2013/08/06/402455.htmlhttp://www.aygfsteel.com/jjshcc/comments/402455.htmlhttp://www.aygfsteel.com/jjshcc/archive/2013/08/06/402455.html#Feedback0http://www.aygfsteel.com/jjshcc/comments/commentRss/402455.htmlhttp://www.aygfsteel.com/jjshcc/services/trackbacks/402455.html

Eric_jiang 2013-08-06 16:03 发表评论
]]>
AS400 Tutorial - Spool File Priority and WRKSPLFåQˆAS400视频教程-脱机文äšg有限¾U§å’ŒWRKSPLF命ä×oåQ?/title><link>http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402454.html</link><dc:creator>Eric_jiang</dc:creator><author>Eric_jiang</author><pubDate>Tue, 06 Aug 2013 07:56:00 GMT</pubDate><guid>http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402454.html</guid><wfw:comment>http://www.aygfsteel.com/jjshcc/comments/402454.html</wfw:comment><comments>http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402454.html#Feedback</comments><slash:comments>0</slash:comments><wfw:commentRss>http://www.aygfsteel.com/jjshcc/comments/commentRss/402454.html</wfw:commentRss><trackback:ping>http://www.aygfsteel.com/jjshcc/services/trackbacks/402454.html</trackback:ping><description><![CDATA[<iframe width="420" height="315" src="http://www.youtube.com/embed/wT2BVa0o3Ow" frameborder="0" allowfullscreen=""></iframe><img src ="http://www.aygfsteel.com/jjshcc/aggbug/402454.html" width = "1" height = "1" /><br><br><div align=right><a style="text-decoration:none;" href="http://www.aygfsteel.com/jjshcc/" target="_blank">Eric_jiang</a> 2013-08-06 15:56 <a href="http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402454.html#Feedback" target="_blank" style="text-decoration:none;">发表评论</a></div>]]></description></item><item><title>AS400 Tutorial - Saving Spool FileåQˆAS400视频教程åQŒä¿å­˜è„±æœºæ–‡ä»Óž¼‰http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402452.htmlEric_jiangEric_jiangTue, 06 Aug 2013 07:42:00 GMThttp://www.aygfsteel.com/jjshcc/archive/2013/08/06/402452.htmlhttp://www.aygfsteel.com/jjshcc/comments/402452.htmlhttp://www.aygfsteel.com/jjshcc/archive/2013/08/06/402452.html#Feedback0http://www.aygfsteel.com/jjshcc/comments/commentRss/402452.htmlhttp://www.aygfsteel.com/jjshcc/services/trackbacks/402452.html

Eric_jiang 2013-08-06 15:42 发表评论
]]>
AS400 Tutorial - Running Job PriorityåQˆAS400视频教程-改变作业优先权)http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402451.htmlEric_jiangEric_jiangTue, 06 Aug 2013 07:38:00 GMThttp://www.aygfsteel.com/jjshcc/archive/2013/08/06/402451.htmlhttp://www.aygfsteel.com/jjshcc/comments/402451.htmlhttp://www.aygfsteel.com/jjshcc/archive/2013/08/06/402451.html#Feedback0http://www.aygfsteel.com/jjshcc/comments/commentRss/402451.htmlhttp://www.aygfsteel.com/jjshcc/services/trackbacks/402451.html

Eric_jiang 2013-08-06 15:38 发表评论
]]>
AS400 Tutorial - Coding a Database FileåQˆAS400视频教程åQŒä¸€ä¸ªæ•°æ®åº“æ–‡äšg的编码)http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402450.htmlEric_jiangEric_jiangTue, 06 Aug 2013 07:22:00 GMThttp://www.aygfsteel.com/jjshcc/archive/2013/08/06/402450.htmlhttp://www.aygfsteel.com/jjshcc/comments/402450.htmlhttp://www.aygfsteel.com/jjshcc/archive/2013/08/06/402450.html#Feedback0http://www.aygfsteel.com/jjshcc/comments/commentRss/402450.htmlhttp://www.aygfsteel.com/jjshcc/services/trackbacks/402450.html

Eric_jiang 2013-08-06 15:22 发表评论
]]>
AS400 Tutorial - Compile DDS Database FileåQˆAS4视频教程-¾~–译DDS数据库文ä»Óž¼‰http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402449.htmlEric_jiangEric_jiangTue, 06 Aug 2013 07:14:00 GMThttp://www.aygfsteel.com/jjshcc/archive/2013/08/06/402449.htmlhttp://www.aygfsteel.com/jjshcc/comments/402449.htmlhttp://www.aygfsteel.com/jjshcc/archive/2013/08/06/402449.html#Feedback0http://www.aygfsteel.com/jjshcc/comments/commentRss/402449.htmlhttp://www.aygfsteel.com/jjshcc/services/trackbacks/402449.html

Eric_jiang 2013-08-06 15:14 发表评论
]]>
AS400 Tutorial - WRKSYSSTSåQˆAS400 视频教程åQŒå¦‚何察看系¾lŸçŠ¶æ€ï¼‰http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402447.htmlEric_jiangEric_jiangTue, 06 Aug 2013 07:08:00 GMThttp://www.aygfsteel.com/jjshcc/archive/2013/08/06/402447.htmlhttp://www.aygfsteel.com/jjshcc/comments/402447.htmlhttp://www.aygfsteel.com/jjshcc/archive/2013/08/06/402447.html#Feedback0http://www.aygfsteel.com/jjshcc/comments/commentRss/402447.htmlhttp://www.aygfsteel.com/jjshcc/services/trackbacks/402447.html

Eric_jiang 2013-08-06 15:08 发表评论
]]>
AS400 Tutorial - ENDSBS & STRSBS(AS400视频教程åQŒå¦‚何开始和¾lˆæ­¢ä½œä¸š)http://www.aygfsteel.com/jjshcc/archive/2013/08/06/402446.htmlEric_jiangEric_jiangTue, 06 Aug 2013 07:07:00 GMThttp://www.aygfsteel.com/jjshcc/archive/2013/08/06/402446.htmlhttp://www.aygfsteel.com/jjshcc/comments/402446.htmlhttp://www.aygfsteel.com/jjshcc/archive/2013/08/06/402446.html#Feedback0http://www.aygfsteel.com/jjshcc/comments/commentRss/402446.htmlhttp://www.aygfsteel.com/jjshcc/services/trackbacks/402446.html

Eric_jiang 2013-08-06 15:07 发表评论
]]>
AS/400 ½W¬ä¹ç«? Subfiles 子文ä»?/title><link>http://www.aygfsteel.com/jjshcc/archive/2013/08/02/402286.html</link><dc:creator>Eric_jiang</dc:creator><author>Eric_jiang</author><pubDate>Fri, 02 Aug 2013 02:34:00 GMT</pubDate><guid>http://www.aygfsteel.com/jjshcc/archive/2013/08/02/402286.html</guid><wfw:comment>http://www.aygfsteel.com/jjshcc/comments/402286.html</wfw:comment><comments>http://www.aygfsteel.com/jjshcc/archive/2013/08/02/402286.html#Feedback</comments><slash:comments>0</slash:comments><wfw:commentRss>http://www.aygfsteel.com/jjshcc/comments/commentRss/402286.html</wfw:commentRss><trackback:ping>http://www.aygfsteel.com/jjshcc/services/trackbacks/402286.html</trackback:ping><description><![CDATA[<div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "></p><div><div>With subfiles you can create a display file with lists of items. Let's see how that's done.</div><div>利用子文件我们可以创建带有列表项目的昄¡¤ºæ–‡äšgåQŒçŽ°åœ¨æˆ‘ä»¬å°±çœ‹çœ‹æ˜¯å¦‚ä½•åˆ›å»ºçš„</div><div>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.</div><div>子文件是一个显½Cºæ–‡ä»Óž¼Œå®ƒèƒ½å¤Ÿå¸®åŠ©ä½ æ˜„¡¤ºåˆ—表和在列表上作相应的处理,你在PDM上能看到的列表成员就是你的一个子文äšg</div><div>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:</div><div>在这一章,我们ž®†è¦åˆ›å¾ä¸€ä¸ªå­æ–‡äšgåQŒå®ƒç”¨äºŽæ ÒŽ®ç‰¹å®šçš„ID昄¡¤ºæ‰€æœ‰çš„卡,ä¸ÞZº†æ›´å¥½åœ°ç»´æŠ¤å‡ å¼ è¡¨åQŒæˆ‘们创å»ÞZ¸€ä¸ªè¡¨åŒ…含多个我们ž®†è¦ç”¨åœ¨å­æ–‡ä»¶çš„字段åQŒåœ¨STRSQL中输入这些代ç ?/div><div>CREATE VIEW CLICARD AS SELECT CL.ID_CLI, CR.ID_CRD, SH.NAME_SHP, CR.SHOP_CRD </div><div>FROM DEMO/CLIENTS CL, DEMO/SHOP SH, DEMO/CARDS CR </div><div>WHERE CL.ID_CLI = CR.CLIENT_CRD AND CR.SHOP_CRD = SH.ID_SHP</div><div>Open SDA (STRSDA) and create a new member:</div><div>打开SDA创徏一个新的成å‘?/div></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "></p><div style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><p><a imageanchor="1"><img border="0" src="http://4.bp.blogspot.com/-C0-YT4RxV00/US5N7QuHaXI/AAAAAAAAkrs/N4wS1W7LXSY/s1600/as400_9_01.gif" alt="" /></a></p></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><div><div>Create a BOTTOM record that should look like this:</div><div>创徏一个Bottom记录像如ä¸?/div></div></p><div style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><p><a imageanchor="1"><img border="0" src="http://2.bp.blogspot.com/-UOC4-Rk2TwY/US5OBh66_HI/AAAAAAAAkr0/k11H5ULayL0/s1600/as400_9_02.gif" alt="" /></a></p></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><div>And the TOP record like this: å’ŒTop记录</div></p><div style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><p><a imageanchor="1"><img border="0" src="http://2.bp.blogspot.com/-cFe84MNgNj4/US5OSdug5DI/AAAAAAAAkr8/SHYumIosT-Y/s1600/as400_9_03.gif" alt="" /></a></p></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><div><div>Let's create the subfile now. Create a new record, name it LIST, the record type is SFL:</div><div>现在我们开始创建子文äšg了,创徏一个新的记录,名字为LISTåQŒè®°å½•çš„¾cÕdž‹æ˜¯SFL</div></div><div></div></p><div style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><p><a imageanchor="1"><img border="0" src="http://1.bp.blogspot.com/-Z1DZAFZ4LU4/US5ObFk1VHI/AAAAAAAAksE/uDSkHevI-5k/s1600/as400_9_04.gif" alt="" /></a></p></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><div><div>When you press Enter a new record appears. Write SFLCTL on it:</div><div>现在我们按下回èžRåQŒä¸€ä¸ªæ–°çš„记录出现如下,在上面写下SFLCTL如图</div></div></p><div style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><p><a imageanchor="1"><img border="0" src="http://3.bp.blogspot.com/-otPyFfL5gLA/US5Od7IePDI/AAAAAAAAksM/mnjEzVu2SUk/s1600/as400_9_05.gif" alt="" /></a></p></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "></p><div><div>This field creates a subfile control record, which works like the heading on the list.</div><div>˜q™ä¸ªå­—段用来创徏子文件控制记录,ž®±åƒåˆ—表的头éƒ?/div><div>You have to activate some options now: 现在你需要激‹zÖM¸‹é¢çš„选项</div></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "></p><div style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><p><a imageanchor="1"><img border="0" src="http://1.bp.blogspot.com/--cKdDtbvZLY/US5OeLdYs_I/AAAAAAAAksU/_9tO3ViIkpM/s1600/as400_9_06.gif" alt="" /></a></p></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><div><div>On the General Keywords menu insert the data you see below:</div><div>在General Keywords菜单输入输入如下</div></div></p><div style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><p><a imageanchor="1"><img border="0" src="http://3.bp.blogspot.com/-8utAUSyRJj8/US5OjsPwjTI/AAAAAAAAksc/2RrZiXPqEbw/s1600/as400_9_07.gif" alt="" /></a></p></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><div><div>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.</div><div>˜q™äº›æŒ‡ç¤ºå™¨å…è®¸æˆ‘们利用RPG代码¾l´æŠ¤æŽ§åˆ¶æŽ§åˆ¶å­æ–‡ä»¶çš„状态,输入回èžR我们会返回之前的屏幕界面åQŒçŽ°åœ¨é€‰æ‹©å­æ–‡ä»¶çš„æ˜„¡¤ºå¸ƒå±€</div></div></p><div style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><p><a imageanchor="1"><img border="0" src="http://3.bp.blogspot.com/-kxMN_BWVBb0/US5OlThuRcI/AAAAAAAAksk/A6DW1srYWnw/s1600/as400_9_08.gif" alt="" /></a></p></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><div><div>On subfile maximum size type 9999 and on the number of records for page type 9:</div><div>在子文äšgçš„æœ€å¤§å€ÆD¾“å…?999和页面的最大记录数输入9</div></div></p><div style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><p><a imageanchor="1"><img border="0" src="http://2.bp.blogspot.com/-EQNwSjziVOA/US5OnKVDZII/AAAAAAAAkss/uZLtb1jR7jc/s1600/as400_9_09.gif" alt="" /></a></p></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><div><div>Press enter to go back. Select the option Select Record Keyword:</div><div>输入回èžR˜q”回åQŒç„¶åŽé€‰æ‹©å­—段关键字选项</div></div></p><div style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><p><a imageanchor="1"><img border="0" src="http://2.bp.blogspot.com/-e-CvUF_pzxk/US5Oonk94FI/AAAAAAAAks0/kM_cGjYwcnY/s1600/as400_9_10.gif" alt="" /></a></p></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><div>Choose Overlay keywords: 选择覆盖关键å­?/div></p><div style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><p><a imageanchor="1"><img border="0" src="http://4.bp.blogspot.com/-Xjq1Q3sxzqI/US5OqQAcLKI/AAAAAAAAks8/FGy74uRaW6o/s1600/as400_9_11.gif" alt="" /></a></p></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><div>Select Overlay without erasing: 选择覆盖但不擦除选项</div></p><div style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><p><a imageanchor="1"><img border="0" src="http://2.bp.blogspot.com/-nHHmNcvCNxU/US5OsAGEyaI/AAAAAAAAktE/Dd2GRskra0A/s1600/as400_9_12.gif" alt="" /></a></p></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><div>Press Enter until you're back on this screen: 输入回èžRåQŒç„¶åŽè¿”回如ä¸?nbsp;</div></p><div style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><p><a imageanchor="1"><img border="0" src="http://3.bp.blogspot.com/-koQlgtE30lc/US5OteFy18I/AAAAAAAAktM/Yl77n3v_wUo/s1600/as400_9_13.gif" alt="" /></a></p></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><div><div>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).</div><div>打开SFLCTL记录åQŒé»˜è®¤æ˜¯˜q™ä¸ªè®°å½•昄¡¤ºåœ¨è®¾è®¡ç•Œé¢ä¸ŠåQŒé€‰æ‹©Toå’ŒBottom˜q›è¡Œå¯è§†åŒ?按下F9)</div></div></p><div style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><p><a imageanchor="1"><img border="0" src="http://1.bp.blogspot.com/-4AzFdDO4eK8/US5OvQIlSGI/AAAAAAAAktU/co_V2OudZzY/s1600/as400_9_14.gif" alt="" /></a></p></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><div><div>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:</div><div>˜q”回设计界面åQŒåœ¨ä¸Šé¢å†™ä¸Š“Client Nr.”åQŒåœ¨CLICARD试图中选择字段ID_CLIä½œäØ“è¾“å…¥å’Œè¾“å‡ºï¼Œ</div></div></p><div style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><p><a imageanchor="1"><img border="0" src="http://2.bp.blogspot.com/-QA4C8TIITO0/US5PHWATeOI/AAAAAAAAkuE/TeSJM7JVPl4/s1600/as400_9_15.gif" alt="" /></a></p></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><div><div>Type the titles of the subfile's columns and a separating line:</div><div>输入分割¾U¿å’Œå­æ–‡ä»¶çš„字段标题</div></div></p><div style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><p><a imageanchor="1"><img border="0" src="http://2.bp.blogspot.com/-1jpN_gV0_Jc/US5O_cDywMI/AAAAAAAAktk/iXe8VToImRo/s1600/as400_9_16.gif" alt="" /></a></p></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><div><div>Let's add some proprieties to the Client ID field. Place an * before to the left of the field.</div><div>现在我们æ·ÕdŠ ä¸€äº›æ–°çš„å±žæ€§ç»™ä¸ŽClient ID字段åQŒåœ¨˜q™ä¸ªå­—段的左边输入一ä¸?</div></div></p><div style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><p><a imageanchor="1"><img border="0" src="http://4.bp.blogspot.com/-cZF3TEZAo_I/US5PCRNB1FI/AAAAAAAAkts/EtiEjJiYyaM/s1600/as400_9_17.gif" alt="" /></a></p></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><div><div>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:</div><div>çŽ°åœ¨æˆ‘ä»¬éœ€è¦äØ“˜q™ä¸ªå­—段æ·ÕdŠ ä¸€ä¸ªæŒ‡½Cºå™¨åQŒå½“å€ég¸€ä¸ªæŒ‡å®šçš„ID没有扑ֈ°è®°å½•åQˆè¿™ä¸ªIDòq¶ä¸å­˜åœ¨æˆ–者根据这个ID找不到记录)的时候,˜q™ä¸ªæŒ‡ç¤ºå™¨å°†è¢«æ¿€‹z»ï¼Œåœ¨é”™è¯¯æ˜q°é€‰é¡¹çš„地方输入Y</div></div></p><div style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><p><a imageanchor="1"><img border="0" src="http://4.bp.blogspot.com/-HrlxxxsdNBg/US5PE_VaPEI/AAAAAAAAkt0/8xgx1kmujvw/s1600/as400_9_18.gif" alt="" /></a></p></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><div><div>Insert the following information:</div><div>输入下面的信æ?/div></div></p><div style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><p><a imageanchor="1"><img border="0" src="http://2.bp.blogspot.com/-ic6AzgevA74/US5PHpV8uOI/AAAAAAAAkt8/BVcVxMhj6u0/s1600/as400_9_19.gif" alt="" /></a></p></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><div><div>Close this record and open the LIST record. Select the TOP and BOTTOM records for display (F9):</div><div>选择˜q™ä¸ªè®°å½•òq¶ä¸”同时打开˜q™ä¸ªLIST记录åQŒé€‰æ‹©Topå’ŒBottom记录作显½Cºï¼ˆæŒ‰ä¸‹F9åQ?/div></div></p><div style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><p><a imageanchor="1"><img border="0" src="http://4.bp.blogspot.com/-nfhfxsJn0iI/US5PRA6TGiI/AAAAAAAAkuM/H-D6w_nI00Q/s1600/as400_9_20.gif" alt="" /></a></p></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><div><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.</div><div>创徏一个输入字ŒDµï¼Œç”¨æˆ·æˆ‘在˜q™é‡Œè¾“入选项åQŒæˆ‘们在如下囄¡š„位置输入‘+i’然后按下回èžR</div></div></p><div style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><p><a imageanchor="1"><img border="0" src="http://3.bp.blogspot.com/-1wze_L83qSM/US5PT0ikfPI/AAAAAAAAkuY/YQW807j6C7k/s1600/as400_9_21.gif" alt="" /></a></p></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><div><div>Notice how the field spread across the 9 line you previously defined as the subfile page size.</div><div>注意你之前是如何定义子文件的每页大小ä¸?è¡?/div></div></p><div style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><p><a imageanchor="1"><img border="0" src="http://2.bp.blogspot.com/---L-veF-FsQ/US5PVdruVYI/AAAAAAAAkug/34qfgKu5ECM/s1600/as400_9_23.gif" alt="" /></a></p></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><div><div>Select the records from CLICARD view for output.</div><div>从CLICARDè§†å›¾ä¸­é€‰æ‹©è®°å½•ä½œäØ“è¾“å…¥</div></div></p><div style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><p><a imageanchor="1"><img border="0" src="http://2.bp.blogspot.com/---L-veF-FsQ/US5PVdruVYI/AAAAAAAAkug/34qfgKu5ECM/s1600/as400_9_23.gif" alt="" /></a></p></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "></p><div><div>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.</div><div>˜q™äº›å­—段大概会本昄¡¤ºä¸¤æ¬¡åQŒå› ä¸ºSDA会把之前加蝲的字ŒDµä¹Ÿè¢«æ˜¾½Cºå‡ºæ¥ï¼Œå› æ­¤é€‰æ‹©å­—段的时候需要小心一点,ž®½é‡é€‰æ‹©é‚£äº›æ¯”较靠右的字ŒDµï¼Œå› äؓ他们是最后被加蝲的,</div><div>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.</div><div>假如有很多的字段åQŒæ¶ˆæ¯è¡Œæ˜„¡¤ºä¸å®ŒåQŒåœ¨è¡Œå°¾ä¼šæ˜¾½CÞZ¸€ä¸?åøP¼ŒæŒ‰ä¸‹¾˜»é¡µé”®å°±å¯ä»¥çœ‹åˆ°å‰©ä¸‹çš„那些没有显½Cºçš„字段ã€?/div></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "></p><div style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><p><a imageanchor="1"><img border="0" src="http://3.bp.blogspot.com/-EaOmvsV5too/US5PVUrBNHI/AAAAAAAAkuk/U_wvJv_TQLQ/s1600/as400_9_24.gif" alt="" /></a></p></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><div>Place the fields on their positions: ž®†å­—ŒD‰|”¾åœ¨ç›¸å…³çš„位置</div></p><div style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><p><a imageanchor="1"><img border="0" src="http://3.bp.blogspot.com/-O1Y8ICWiQvo/US5PWzf67OI/AAAAAAAAkuo/0-dxBJHStvE/s1600/as400_9_25.gif" alt="" /></a></p></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><div>The final result: 最后的¾l“æžœ</div></p><div style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><p><a imageanchor="1"><img border="0" src="http://1.bp.blogspot.com/-QmEwm-cqxV8/US5PYYwYW_I/AAAAAAAAkus/jiRd5EMCAf0/s1600/as400_9_26.gif" alt="" /></a></p></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "></p><div><div>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.</div><div>不要忘记‹È€‹z?3指示器,在文件的层面åQŒä‹Éå¾?#8220;F3=Exit”生效åQŒåŒæ—¶æ·»åР关键字INDARAåˆîC»£ç ä¸­åŽ»ï¼Œå‡å¦‚ä½ å¿˜è®îCº†æ€Žä¹ˆåšçš„话,回头看看½W¬å…«ç« çš„æ˜„¡¤ºæ–‡äšg创徏ã€?/div><div>You must add the red line to the SFLCTL record:</div><div>ä½ å¿…™åÖMØ“SFLCTL记录æ·ÕdŠ ¾U¢çº¿</div><div>A R SFLCTL SFLCTL(LIST)</div><div>A SFLSIZ(9999)</div><div>A SFLPAG(0009)</div><div>A OVERLAY</div><div>A 30 SFLDSP</div><div>A 31 SFLDSPCTL</div><div>A 35 SFLCLR</div><div>A 33 SFLEND(*MORE)</div><div>A 4 8'Client Nr.'</div><div>A ID_CLI R B 4 19REFFLD(CLICARD/ID_CLI DEMO/CLICARD)</div><div>A 90 ERRMSG('No Data Found')</div><div>A 6 4'Op.'</div><div>A 6 12'Card Nr.'</div><div>A 6 27'Shop Nr.'</div><div>A 6 42'Shop Name'</div><div>A 7 2'__________________________________-</div><div>A ___________________________________-</div><div>A __________'</div><div>A RRN 4S 0H SFLRCDNBR(CURSOR)</div><div>In the LIST record change the name of the input field to OPTION. By default it must be named FLD001, or something like it.</div><div>在LIST记录中,你必™åÖM¿®æ”šw»˜è®¤çš„è¾“å…¥å­—æ®µçš„åå­—ï¼Œå› äØ“é»˜è®¤æ˜¯FLD001åQŒæˆ–者像如下</div><div>A R LIST SFL</div><div>A OPTION 1A I 9 5</div><div>(...)</div><div>Executing the subfile 执行子文ä»?/div><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.</div><div>要运行子文äšgåQŒä½ å¿…须创徏一个RPGLE的成员,‹‚€å‡ºæ–‡ä»¶QRPGLESRC.SHW_SFL 查看一下细节,看看是如何写˜q™ä¸ªæ–‡äšg</div><div>When you run the RPGLE code: 当你˜qè¡ŒRPGLE代码后可以看åˆîC¸‹é¢çš„¾l“æžœ</div></div><p style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "></p><div style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><p><a imageanchor="1"><img border="0" src="http://4.bp.blogspot.com/-pux5dKkrVpE/US5PbH4fs1I/AAAAAAAAkuw/oDU1QUmTj4I/s1600/as400_9_27.gif" alt="" /></a></p></div><div style="font-family: 'Times New Roman'; line-height: normal; font-size: medium; "><h3>Attachments</h3><ul><li><a >as400_code.zip</a></li></ul></div></div><img src ="http://www.aygfsteel.com/jjshcc/aggbug/402286.html" width = "1" height = "1" /><br><br><div align=right><a style="text-decoration:none;" href="http://www.aygfsteel.com/jjshcc/" target="_blank">Eric_jiang</a> 2013-08-02 10:34 <a href="http://www.aygfsteel.com/jjshcc/archive/2013/08/02/402286.html#Feedback" target="_blank" style="text-decoration:none;">发表评论</a></div>]]></description></item><item><title>AS400½W¬å…«ç«?Display Files如何创徏昄¡¤ºæ–‡äšghttp://www.aygfsteel.com/jjshcc/archive/2013/07/30/402166.htmlEric_jiangEric_jiangTue, 30 Jul 2013 09:07:00 GMThttp://www.aygfsteel.com/jjshcc/archive/2013/07/30/402166.htmlhttp://www.aygfsteel.com/jjshcc/comments/402166.htmlhttp://www.aygfsteel.com/jjshcc/archive/2013/07/30/402166.html#Feedback0http://www.aygfsteel.com/jjshcc/comments/commentRss/402166.htmlhttp://www.aygfsteel.com/jjshcc/services/trackbacks/402166.html

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:



]]>IBM提供çš?00环境 http://www.aygfsteel.com/jjshcc/archive/2013/07/26/402010.htmlEric_jiangEric_jiangFri, 26 Jul 2013 08:51:00 GMThttp://www.aygfsteel.com/jjshcc/archive/2013/07/26/402010.htmlhttp://www.aygfsteel.com/jjshcc/comments/402010.htmlhttp://www.aygfsteel.com/jjshcc/archive/2013/07/26/402010.html#Feedback0http://www.aygfsteel.com/jjshcc/comments/commentRss/402010.htmlhttp://www.aygfsteel.com/jjshcc/services/trackbacks/402010.htmlIBM提供çš?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


]]>AS400 Tutorial - Navigation, Menus and FKeys http://www.aygfsteel.com/jjshcc/archive/2012/05/25/379230.htmlEric_jiangEric_jiangFri, 25 May 2012 06:57:00 GMThttp://www.aygfsteel.com/jjshcc/archive/2012/05/25/379230.htmlhttp://www.aygfsteel.com/jjshcc/comments/379230.htmlhttp://www.aygfsteel.com/jjshcc/archive/2012/05/25/379230.html#Feedback1http://www.aygfsteel.com/jjshcc/comments/commentRss/379230.htmlhttp://www.aygfsteel.com/jjshcc/services/trackbacks/379230.html

]]>
Ö÷Õ¾Ö©Öë³ØÄ£°å£º äÃÂ¹ÏØ| ƽ¹ÈÇø| ÙñÖÝÊÐ| ¾ÃÖÎÏØ| ÏæÌ¶ÏØ| ÉÐÒåÏØ| ÄϲýÊÐ| Í©è÷ÏØ| ±¦ÛæÇø| Îä³ÇÏØ| ʯÁÖ| Ê¯Ì¨ÏØ| ¸¢ÁêÇø| ±¨¼Û| ²ý½­| ¹ãºÓÏØ| ¯»ôÏØ| ³¤ÊÙÇø| ƽ²ýÏØ| Ë«Á÷ÏØ| Ì©Ë³ÏØ| ÓÀÌ©ÏØ| ·áÄþ| ÓÀÆ½ÏØ| ÄϲýÊÐ| ÓÜÉçÏØ| ͨº£ÏØ| ½ðÕ¯ÏØ| Î÷³ëÏØ| ÄϾ©ÊÐ| ÒËÖÝÊÐ| ½­É½ÊÐ| è÷äüÏØ| ÕØÖÝÏØ| èï´¨ÏØ| ÁÙÎ÷ÏØ| »´±±ÊÐ| ÄþµÂÊÐ| ÉÏÁÖÏØ| ³»ÖÝÊÐ| Ò˱öÊÐ|