egs__AS400培训资料(下).doc

AS400培训资料（下） 高级应用与交易实现 前言 本阶段的培训，在上一级培训的基础上，讲解业务系统的处理以及交易的实现。目的是使大家掌握如何在AS400上实现具体的交易，完成本次开发任务。 在讲解业务系统的例子程序和会计记帐核心的过程中我们将穿插讲解AS400中一些编程方式和一些简单工具的使用。由于篇幅和时间的关系在本教材中对一些简单工具不作具体的介绍，请大家作好记录。 同时为了配合本次培训，我们将下发两本教材，一本是操作码手册，另外一本是本公司原来出的IBM AS400 培训教材第二分册，对这两本教材的内容我们可能不作具体的讲解，主要是给大家在学有余力的情况下进行自学，以及今后进行实际编码时的参考手册。 对于一些非常少见的应用，我们不作讲解，请大家参考下发的教材或使用联机的帮助。 使用F6或其他方式建立的成员在Opt选14编译物理文件参与编译其他类型的目标（Object) SLRRPG(可执行程序 *PGM) 物理文件，逻辑文件，打印文件等参与编译，若RPG程序的F表进行了相应的定义其他需要参与编译的目标  RPG程序使用RLU的方法 在上一期的培训中我们简要的介绍了RLU的一些用法，现在我们来学习RLU的一些应用，以及如何在RPG程序中使用RLU生成的打印文件 在今后的设计过程中，应业务人员的要求，在报表中对于一些域的属性可能要进行修改。 以下是将光标移到域后出现的域属性内容 Work with Field Keywords Field . . . . . . . . : 客户 ... Record format . . . . : HEAD Type options, press Enter. 2=Specify 4=Remove Opt Keyword Opt Keyword Opt Keyword ALIAS EDTCDE MSGCON BARCODE EDTWRD PAGNBR BLKFOLD FLTFIXDEC PRTQLTY CDEFNT FLTPCN REFFLD CHRID FNTCHRSET SKIPA CHRSIZ FONT SKIPB COLOR HIGHLIGHT SPACEA CPI IGCALTTYP SPACEB CVTDTA IGCANKCNV TEXT DATE IGCCDEFNT TIME DFT IGCCHRRTT TRNSPY DLTEDT INDTXT UNDERLINE Bottom F3=Exit F5=Refresh F9=Input keyword parameters F10=Specify information F12=Cancel F16=Remove all keywords 选择（opt）2 进行该项的内容说明 4 是取消该项说明 在这些选项中经常用到的是： DFT 若前面有 ”” 则说明该项是常量域，否则是变量域。 若为常量选择2后可以进行常量（显示内容）的修改 EDTCDE 对于数值型，说明数值型数据的显示方法。大家可以通过 实际将一个数值型的字段改成其他类型，比较对于数字格 式的影响。请操作 REFFLD 将本域定义为跟REFFLD的域一样，类似RPG中的*LIKE。 SKIPA 在打印本域后，换页，换页后页满指示器重置值 SKIPB 在打印本域前，换页，换页后页满指示器重置值 SPACEA 在打印本域后，换行（可指定行数） SPACEB 在打印本域前，换行（可指定行数） 由于在这些内容中，对REFFLD的操作较为复杂，以下我们将TESTRLU中的开户日期改为使用数据字典中定义的日期字段的格式。通过这一应用使大家对这一操作有较深刻的认识。 在常量域 开户日期 位置打F23 出现 Keyword . . . . . . . . . . . . . . : REFFLD Field . . . . . . . . . . . . . . . : CSOPDT Record format . . . . . . . . . . . : DETAIL Type choices, press Enter. Field . . . . . . . . . . . . . . . Name F4 for list Record format . . . . . . . . . . Name F4 for list File . . . . . . . . . . . . . . . Name *SRC F4 for list Library . . . . . . . . . . . . . *CURLIB Name *CURLIB *LIBL F3=Exit F4=Prompt F5=