AS400培训资料(下)

《AS400培训资料(下)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、AS400培训资料（下）AS400应用开发培训高级应用与交易实现前言本阶段的培训，在上一级培训的基础上，讲解业务系统的处理以及交易的实现。目的是使大家掌握如何在AS400上实现具体的交易，完成本次开发任务。在讲解业务系统的例子程序和会计记帐核心的过程中我们将穿插讲解AS400中一些编程方式和一些简单工具的使用。由于篇幅和时间的关系在本教材中对一些简单工具不作具体的介绍，请大家作好记录。同时为了配合本次培训，我们将下发两本教材，一本是操作码手册，另外一本是本公司原来出的IBMAS400培训教材第二分册，对这两本教材的内容我们可

2、能不作具体的讲解，主要是给大家在学有余力的情况下进行自学，以及今后进行实际编码时的参考手册。对于一些非常少见的应用，我们不作讲解，请大家参考下发的教材或使用联机的帮助。使用F6或其他方式建立的成员在Opt选14编译物理文件参与编译其他类型的目标（Object)SLRRPG(可执行程序*PGM)物理文件，逻辑文件，打印文件等参与编译，若RPG程序的F表进行了相应的定义其他需要参与编译的目标第一章RPG程序使用RLU的方法在上一期的培训中我们简要的介绍了RLU的一些用法，现在我们来学习RLU的一些应用，以及如何在RPG程序中使用

3、RLU生成的打印文件在今后的设计过程中，应业务人员的要求，在报表中对于一些域的属性可能要进行修改。以下是将光标移到域后出现的域属性内容WorkwithFieldKeywordsField........:'客户...Recordformat....:HEADTypeoptions,pressEnter.2=Specify4=RemoveOptKeywordOptKeywordOptKeywordALIASEDTCDEMSGCONBARCODEEDTWRDPAGNBRBLKFOLDFLTFIXDECPRTQLTYCDEFNTF

4、LTPCNREFFLDCHRIDFNTCHRSETSKIPACHRSIZFONTSKIPBCOLORHIGHLIGHTSPACEACPIIGCALTTYP>SPACEBCVTDTAIGCANKCNVTEXTDATEIGCCDEFNTTIME>DFTIGCCHRRTTTRNSPYDLTEDTINDTXTUNDERLINEBottomF3=ExitF5=RefreshF9=InputkeywordparametersF10=SpecifyinformationF12=CancelF16=Removeallkeywords选择（o

5、pt）2进行该项的内容说明4是取消该项说明在这些选项中经常用到的是：DFT若前面有”>”则说明该项是常量域，否则是变量域。若为常量选择2后可以进行常量（显示内容）的修改EDTCDE对于数值型，说明数值型数据的显示方法。大家可以通过实际将一个数值型的字段改成其他类型，比较对于数字格式的影响。请操作REFFLD将本域定义为跟REFFLD的域一样，类似RPG中的*LIKE。SKIPA在打印本域后，换页，换页后页满指示器重置值SKIPB在打印本域前，换页，换页后页满指示器重置值SPACEA在打印本域后，换行（可指定行数）SPACEB

6、在打印本域前，换行（可指定行数）由于在这些内容中，对REFFLD的操作较为复杂，以下我们将TESTRLU中的开户日期改为使用数据字典中定义的日期字段的格式。通过这一应用使大家对这一操作有较深刻的认识。在常量域开户日期位置打F23出现Keyword..............:REFFLDField...............:CSOPDTRecordformat...........:DETAILTypechoices,pressEnter.Field...............NameF4forlistRecordfo

7、rmat..........NameF4forlistFile...............Name*SRCF4forlistLibrary.............*CURLIBName*CURLIB*LIBLF3=ExitF4=PromptF5=RefreshF12=CancelF16=RemovekeywordField栏是定义要参考到具体的哪个域Recordformat栏定义所参考的域的物理文件的记录名File栏是定义所参考的域的物理文件名Library栏是定义存放该物理文件的Library的名字输入以下内容后按执行

8、SpecifyReferencedFieldKeyword..............:REFFLDField...............:CSOPDTRecordformat...........:DETAILTypechoices,pressEnter.Field..........