AS400培训资料(下).doc

AS400培训资料（下）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=Refresh F12=Cancel F16=Remove keyword Field 栏是定义要参考到具体的哪个域Record format 栏定义所参考的域的物理文件的记录名File 栏是定义所参考的域的物理文件名Library栏是定义存放该物理文件的Library的名字输入以下内容后按执行Specify Referenced Field Keyword . . . . . . . . . . . . . . : REFFLD Field . . . . . . . . . . . . . . . : CSOPDT Record format . . . . . . . . . . . : DETAIL Type choices, press Enter. Field . . . . . . . . . . . . . . . DATE Name F4 for list Record format . . . . . . . . . . RCD Name F4 for list File . . . . . . . . . . . . . . . aaref Name *SRC F4 for list Library . . . . . . . . . . . . . cccbcmn Name *CURLIB *LIBL F3=Exit F4=Prompt F5=Refresh F12=Cancel F16=Remove keyword Errors found. Correct errors or press Enter to continue. 系统报错可不管其中CCCBCMN是专用于存放业务系统的参数表的业务系统的一个库aaref 是开发系统的数据字典名称，是一个物理文件。RCD 是物理文件的记录名按执行键后在屏幕的下方出现，一行提示出错信息，可以暂时不管。有关数据字典的内容将在今后业务系统的讲解中讲述。执行后屏幕返回Work with Field Keywords Field . . . . . . . . : CSOPDT Record format . . . . : DETAIL 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 Specify reference in CSOPDT for REFFLD. 大家可以看到在REFFLD的opt中出现了反显，此时需要键入F10屏幕出现Specify Field Information Edited length . . . . . . . . . . . . : 8 Record format . . . . . . . . . . . . : DETAIL Number of keywords . . . . . . . . . : 1 Number of indicators . . . . . . . . : 0 Type choices, press Enter. Field . . . . . . . . . . . . . . . . CSOPDT Name Option indicators . . . . . . . . . . 01-99, N01-N99 More indicators . . . . . . . . . . N Y=Yes, N=No Starting line . . . . . . . . . . . . 1-255 Starting position . . . . . . . . . . +3 1-255, +nn Length of data . . . . . . . . . . . 8 1-378, +nn, -nn Data type . . . . . . . . . . . . . . 1 1=Character 2=Zoned 3=Floating point 4=Open 5=Graphic More. F3=Exit F5=Refresh F11=Convert to constant field F12=Cancel 在以本屏幕中不作任何操作，按Page down屏幕出现第二页Specify Field Information Edited length . . . . . . . . . . . . : 8 Record format . . . . . . . . . . . . : DETAIL Number of keywords . . . . . . . . . : 1 Number of indicators . . . . . . . . : 0 Type choices, press Enter. Decimal positions . . . . . . . . . . 0-31, +n, -n Reference a field . . . . . . . . . . N Y=Yes, N=No Use referenced values . . . . . . . Y Y=Yes, N=No Bottom F3=Exit F5=Refresh F11=Convert to constant field F12=Cancel 在本屏中仅需要将Reference a field栏改为Y后执行，执行。该选项将两个域建立起了关系。以下是数据字典的存放位置Work with Members Using PDM S10506File . . . . . . RCMASRC Library . . . . CCCBSRC Position to . . . . . Type options, press Enter. 2=Edit 3=Copy 4=Delete 5=Display 6=Print 7=Rename 8=Display description 9=Save 13=Change text 14=Compile 15=Create moduleOpt Member Type Text 5 AAREF PF 数据字典 AAREFB PF 数据字典 AAREF0001 PF Old member AAREF file CCCBSRC/RCMASRC. BPCTA PF 批处理控制文件 ccx BPCTL1 MC 批处理控制逻辑文件 Key=trsq BP4023L1 LF 核实损益转存参数表逻辑文件 BP4023P1 PF 核实损益转存参数表 1 -pf CXZAA PF 储蓄轧帐表参数文件 BY qly rMore.Parameters or command = F3=Exit F4=Prompt F5=Refresh F6=Create 在AAREF（数据字典）中有以下内容Columns . . . : 1 71 Browse CCCBSRC/RCMASRC SEU= AAREF FMT A* .A*. 1 .+. 2 .+. 3 .+. 4 .+. 5 .+. 6 .+. 7 1798.00 A* 42 位数字 1799.00 A ADDR 42O TEXT(ADDRESS) 1800.00 A COLHDG( 地址 ) 1801.00 A ASPS 42O TEXT(ASSURE PERSON) 1802.00 A COLHDG( 担保人 ) 1803.00 A CNPM 42O TEXT(CHINAESE PARM) 1804.00 A COLHDG( 中文项目 代码 1805.00 A CUNM 42O TEXT(CUSTOMER NAME) 1806.00 A COLHDG( 客户 中文名 ) 1807.00 A ACNM R REFFLD(CUNM) 1808.00 A COLHDG( 帐户 中文名 ) 1809.00 A CLNM R REFFLD(CUNM) 1810.00 A COLHDG( 委托人 名称 ) 1811.00 A OTNM R REFFLD(CUNM) 1812.00 A COLHDG( 对方 名称 ) 1813.00 A PANM R REFFLD(CUNM) 1814.00 A COLHDG( 付款人 名称 ) F3=Exit F5=Refresh F9=Retrieve F10=Cursor F11=Toggle F12=Cancel F16=Repeat find F24=More keys 请看阴影行的内容定义了一个CUNM字段的内容，请大家参考前面的操作将自己的RLU中的姓名改为参考该域。请思考，参考是依赖于源文件还是编译生成的物理文件？PRTF的编译将存盘后得到的文件为PRTF类型的成员文件（基本上全部的成员Member都需要进行编译后，在RPG程序中才能进行运用）。在opt选项键入14后使用F4将打印文件编译放到指定的Library中，请大家使用WRKOBJ看编译生成的打印文件，与编译生成的物理文件以及逻辑文件的区别。在AS400中不能使用DSPDB