人力资源-RPG AS400程序员培训手册9VIP免费

8其它8.1报表打印在这里，简单说一下报表。其实据说RPG设计之初，主要就是为了解决报表问题。不过发展到现在，在我接触过的系统中，觉得报表在RPG编程之中反而退居其次，大部分程序都是对数据库中磁盘文件（即PF文件）的操作。报表文件其实在某种意义上与普通的磁盘文件很类似，都是有记录格式（RecordFormat），都可以进行写操作（WRITE），RPGLE的程序对它们的操作方式也比较雷同。所不同的是普通的磁盘文件的数据是存储在数据库中，而报表文件WRITE了之后，是以脱机文件（SpoolFile）的形式存在。所以在一个库中，磁盘文件具有唯一性，即不能有同名的磁盘文件；而在同一个输出队列中，同名的报表文件（即生成的脱机文件），允许有多个。要做一个全新的报表打印，大致上可以分为画报表文件（PRTF），与编写打印程序这两部分。一、画报表文件（PRTF）1、新建立一个属性为PRTF的文件，然后使用19进入报表编辑状态。（即STRRLU）2、定义一个新的记录格式（RecordFormat）：DR+F18+F10，注意看下方的功能键说明3、在一个记录格式之下，追加内容时，要在新的编辑行前加“CLC”，表示此行的内容，是属于上面记录格式的。4、编辑行前加：DC：定义常量CF：使当前行的内容居中5、常用功能键：F13：标记/取消标记（光标所指的字段）。多试一下就知道使用方法，可以将同一行的多个相连的字段标记成为一个块（对首尾两个字段操作F13即可）。高亮部分表示已被标记的块。F14：将已标记的块COPY到光标指定处。（其实这个我用得不多）F15：将已标记的块MOVE到光标指定处。（这个用得不少）F16：删除已标记的块。（这个用的频率也不少）F11：定义新变量F23：进入当前字段的功能菜单画面6、对新变量的定义，按F11之后，见到画面如下：Editedlength............:1Recordformat............:RCD001Numberofkeywords.........:0Numberofindicators........:0Typechoices,pressEnter.Field................FLD001NameOptionindicators..........01-99,N01-N99Moreindicators..........NY=Yes,N=NoStartingline............1-255Startingposition..........61-255,+nnLengthofdata...........11-378,+nn,-nn翻页，还有：Datatype..............11=Character2=Zoned3=Floatingpoint4=Open5=Graphic6=Date7=Time8=TimestampDecimalpositions..........0-31,+n,-nReferenceafield..........NY=Yes,N=NoUsereferencedvalues.......YY=Yes,N=No可以采用直接定义长度、类型的方法，即在第1页的最末尾，Lengthofdata处，填上字段长度；如果是字符型，就不需要再填其它内容；如果是数字型，在第2页Decimalpositions处填上小数位数。也可以采用参照字段的方法（即参照已存在的PF文件中的字段）。如果选用这种方法，就用需要在Lengthofdata以及Decimalpositions中填写内容，将Referenceafield项填为“Y”，然后按确认键（好象F10键也可以），然后可以看到该项高亮显示。此时再按F10，可进入该字段的功能菜单（也可以通过在报表编辑状态下，直接在当前字段处按F23进入）：OptKeywordOptKeywordOptKeywordALIASDFTIGCCHRRTTBARCODEDLTEDTINDTXTBLKFOLDEDTCDEMSGCONCDEFNTEDTWRDPAGNBRCHRIDFLTFIXDECPRTQLTYCHRSIZFLTPCNREFFLDCOLORFNTCHRSETSKIPACPIFONTSKIPBCVTDTAHIGHLIGHTSPACEADATEIGCALTTYPSPACEBDATFMTIGCANKCNVTEXTDATSEPIGCCDEFNTTIME以上菜单中，标记为蓝色的，是我常用的几个选项。在这些选项前面，选2，即是对当前字段加注这些功能；选4，即是去掉这些功能。要参照已知字段定义变量，则在“REFFLD”选项前选2，可见Field...............Recordformat..........File...............Library.............*CURLIB各选项的含义：Field：当前变量所参照的字段RecordFormat：当前变量所参照字段，在PF文件中所属的记录格式File：PF文件名Library：PF文件所在的库名7、其它几个常用功能选项的含义：SKIPA：SkipAfter，在WRITE操作时，写该字段后，自动换页；SKIPB：SkipBefore在WRITE操作时，写该字段前，自动换页SPACEA：SpaceAfter写该字段后，再打印一个空格；SPACEB：SpaceBefore写该字段前，打印一个空格（...