rpg as400程序員培訓(xùn)手冊9

1、8其它8.1報表打印在這里，簡單說一下報表。其實據(jù)說RPG設(shè)計之初，主要就是為了解決報表問題。不過發(fā)展到現(xiàn)在，在我接觸過的系統(tǒng)中，覺得報表在RPG編程之中反而退居其次，大部分程序都是對數(shù)據(jù)庫中磁盤文件（即PF文件）的操作。報表文件其實在某種意義上與普通的磁盤文件很類似，都是有記錄格式（RecdFmat），都可以進(jìn)行寫操作（WRITE），RPGLE的程序?qū)λ鼈兊牟僮鞣绞揭脖容^雷同。所不同的是普通的磁盤文件的數(shù)據(jù)是存儲在數(shù)據(jù)庫中，而報表文件

2、WRITE了之后，是以脫機文件（SpoolFile）的形式存在。所以在一個庫中，磁盤文件具有唯一性，即不能有同名的磁盤文件；而在同一個輸出隊列中，同名的報表文件（即生成的脫機文件），允許有多個。要做一個全新的報表打印，大致上可以分為畫報表文件（PRTF），與編寫打印程序這兩部分。一、畫報表文件（PRTF）1、新建立一個屬性為PRTF的文件，然后使用19進(jìn)入報表編輯狀態(tài)。（即STRRLU）2、定義一個新的記錄格式（RecdFmat）：DR

3、F18F10，注意看下方的功能鍵說明3、在一個記錄格式之下，追加內(nèi)容時，要在新的編輯行前加“CLC”，表示此行的內(nèi)容，是屬于上面記錄格式的。4、編輯行前加：DC：定義常量CF：使當(dāng)前行的內(nèi)容居中5、常用功能鍵：F13：標(biāo)記取消標(biāo)記（光標(biāo)所指的字段）。多試一下就知道使用方法，可以將翻頁，還有：Datatype..............11=acter2=Zoned3=Floatingpoint4=Open5=Graphic6=Date7

4、=Time8=TimestampDecimalpositions..........031nnReferenceafield..........NY=YesN=NoUsereferencedvalues.......YY=YesN=No可以采用直接定義長度、類型的方法，即在第1頁的最末尾，Lengthofdata處，填上字段長度；如果是字符型，就不需要再填其它內(nèi)容；如果是數(shù)字型，在第2頁Decimalpositions處填上小數(shù)位數(shù)。也

5、可以采用參照字段的方法（即參照已存在的PF文件中的字段）。如果選用這種方法，就用需要在Lengthofdata以及Decimalpositions中填寫內(nèi)容，將Referenceafield項填為“Y”，然后按確認(rèn)鍵（好象F10鍵也可以），然后可以看到該項高亮顯示。此時再按F10，可進(jìn)入該字段的功能菜單（也可以通過在報表編輯狀態(tài)下，直接在當(dāng)前字段處按F23進(jìn)入）：OptKeywdOptKeywdOptKeywdALIASDFTIGCCH