RPG-AS400程序员培训手册9.docx

8其它
8.1报表打印
在这里，简单说一下报表。其实据说RPG设计之初，主要就是为了解决报表问题。不
过开展到现在，在我接触过的系统中，觉得报表在RPG编程之中反而退居其次，大局部程
序都是对数据库中磁盘文件〔即PF文件〕的操作。
报表文件其实在某种意义上与普通的磁盘文件很类似，都是有记录格式〔Record
Format〕，都可以进行写操作〔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............:1
Recordformat............:RCD001
Numberofkeywords.........:0
Numberofindicators........:0
Typechoices,pressEnter.
Field................FLD001Name
Optionindicators..........01-99,N01-N99
Moreindicators..........NY=Yes,N=No
Startingline............1-255
Startingposition..........61-255,+nn
Lengthofdata...........11-378,+nn,-nn
翻页，还有：
Datatype..............11=Character
2=Zoned
3=Floatingpoint
4=Open
5=Graphic
6=Date
7=Time
8=Timestamp
Decimalpositions..........0-31,+n,-n
Referenceafield..........NY=Yes,N=No
Usereferencedvalues.......YY=Yes,N=No
可以采用直接定义长度、类型的方法，即在的最末尾，Lengthofdata处，
填上字段长度；如果是字符型，就不需要再填其它内容；如果是数字型，在Decimal
positions处填上小数位数。
也可以采用参照字段的方法〔即参照已存在的PF文件中的字段〕。如果选用这种
方法，就用需要在Lengthofdata以及Decimalpositions中填写内容，将Referencea
field项填为“Y〞，然后按确认键〔好象F10键也可以〕，然后可以看到该项高亮显示。
此时再按F10，可进入该字段的功能菜单〔也可以通过在报表编辑状态下，直接在当前
字段处按F23进入〕：
OptKeywordOptKeywordOptKeyword
ALIASDFTIGCCHRRTT
BARCODEDLTEDTINDTXT
BLKFOLDEDTCDEMSGCON
CDEFNTEDTWRDPAGNBR
CHRIDFLTFIXDECPRTQLTY
CHRSIZFLTPCNREFFLD
COLORFNTCHRSETSKIPA
CPIFONTSKIPB
CVTDTAHIGHLIGHTSPACEA
DATEIGCALTTYPSPACEB
DATFMTIGCANKCNVTEXT
DATSEPIGCCDEFNTTIME
以上菜单中，标记为蓝色的，是我常用的几个选项。
在这些选项前面，选2，即是对当前字段加注这些功能；选4，即是去掉这些
功能。
要参