AS/400开发经验点滴（九）-- SPECIAL文件的使用
一． 什么是SPECIAL文件
我们知道文件是要有存放位置的，是要与某种设备相连的。RPG程序中在定义文件时需要指定文件类别。RPG程序支持文件种类有：
[list:f793ad9784]设备文件 描述 RPG 设备名
打印文件Printer Files 提供打印输出格式描述，以及对打印设备访问 PRINTER
磁带文件Tape Files 提供对存储在磁带设备上的数据文件的访问 SEQ
磁盘文件Diskette Files 提供对存储在磁盘上的数据文件的访问 DISK
显示文件Display Files 提供对显示设备的访问 WORKSTN
通信文件ICF Files 允许程序之间通信 WORKSTN [/list:u:f793ad9784]
此外，RPG程序中还有一种特殊的文件设备类型，定义为SPEICAL。它可以允许指定一种不能被RPG直接操作的的输入/输出设备。对文件的输入/输出操作可以由用户写的程序来完成。用户写的程序名必须在文件定义的F规范中用PGMNAME 关键词来标识。例如：
[code:1:f793ad9784]FTSPF01 IF E SPECIAL PGMNAME('TPGMDTQ') [/code:1:f793ad9784]
虽然SPECIAL文件原目的是提供一种让RPG程序从不能直接 操作的设备上可以进行访问的方法。但SPECIAL文件的使用可以不仅限于此，实际上通过SPECIAL文件，可以做很多事。它可以通过指定用户写的程序来允许RPG程序完成一些RPG程序不可能完成的任务，或者通过规范输入/输出方法来简化程序结构等等。
二． SPECIAL文件有关参数定义
RPG程序本身是通过RPG操作码打开(OPEN)，读(READ)，写(WRITE)，关闭(CLOSE) SPECIAL文件，SPEICAL文件再把这些动作传递给PGNNAME标识的用户程序，再由用户程序来完成对实际设备文件的打开，读，写，关闭等操作。实际上对SPECIAL文件，RPG程序自动创建四个参数：
操作码（option ）,
返回状态(status)，
错误码(error),
记录域(area)
这四个参数可以被RPG编译器和用户程序访问，但不能被包含SPECIAL文件的RPG程序本身访问。对用户程序而言，其中option是输入参数，status和error是返回参数，area则是用来传递SPECIAL文件记录或接受记录缓冲数据的输入／输出参数：
[list:f793ad9784]参数 类型 长度 说明
Option Character 1 (O：打开文件C：关闭文件R：读W：写D：删除U：更改F：强制文件结束)
Status Character 1 (0：正常1：文件结束2：错误)
Error Packed 5,0 (用户定义错误类型)
Area Character Varies (SPECIAL文件的纪录缓冲)[/list:u:f793ad9784]
除了以上四个隐含参数外，在RPG程序中还可以增加另外的参数传递给用户程序。这可以在SPECIAL文件定义中用PLIST关键词来标识参数列表来实现。然后在RPG程序C规范中用PLIST操作码来定义具体的额外参数。
三． 使用SPECIAL文件的范例
下面通过用SPECIAL文件来操作DTAQ，以提供一个完整范例。该例子用一个RPG程序通过SPECIAL文件调用一个CL程序写一条记录到一个DTAQ中，然后再用另一个RPG程序通过SPECIAL文件调用CL程序从DTAQ中读纪录并显示出来。
1 创建一最大缓冲长度为180的DTAQ
[code:1:f793ad9784]CRTDTAQ DTAQ(TPSFQ) MAXLEN(180) SEQ(*FIFO)[/code:1:f793ad9784]
2 用DDS创建两个文件，用作SPECIAL文件。定义一字段SP0001，长度为180，用来与DTAQ传递和接受数据的记录。
[code:1:f793ad9784]TSPF01
A R RSPF01
A SP0001 180 TEXT('QDATA')
A COLHDG(-
A 'QDATA') [/code:1:f793ad9784]
[code:1:f793ad9784]TSPF02
A R RSPF02
A SP0001 180 TEXT('QDATA')
A COLHDG(-
A 'QDATA') [/code:1:f793ad9784]
3 写一CL程序TPGMDTQ，除了四个隐含参数外，另加指定DTAQ 信息的四个参数。该CL程序指定R和W操作，即读写DTAQ。
[code:1:f793ad9784]TPGMDTQ
/** **/
/** Description - This program is used to send and receive **/
/** from dataq. **/
PGM PARM(&OPTION &STATUS &ERROR &AREA &DATAQ +
&LIB &WAIT &LEN)
DCL VAR(&OPTION) TYPE(*CHAR) LEN(1)
DCL VAR(&STATUS) TYPE(*CHAR) LEN(1)
DCL VAR(&ERROR) TYPE(*DEC) LEN(5 0)
DCL VAR(&AREA) TYPE(*CHAR) LEN(180)
DCL VAR(&DATAQ) TYPE(*CHAR) LEN(10)
DCL VAR(&LIB) TYPE(*CHAR) LEN(10)
DCL VAR(&LEN) TYPE(*DEC) LEN(5 0) VALUE(180)
DCL VAR(&WAIT) TYPE(*DEC) LEN(5 0)
IF COND(&OPTION *EQ 'R') THEN(DO)
CALL PGM(QRCVDTAQ) PARM(&DATAQ &LIB &LEN +
&AREA &WAIT)
IF COND(&LEN *LE 0) THEN(CHGVAR VAR(&AREA) +
VALUE(' '))
ENDDO
IF COND(&OPTION *EQ 'W') THEN(DO)
CALL PGM(QSNDDTAQ) PARM(&DATAQ &LIB &LEN &AREA)
ENDDO
IF COND(&OPTION *EQ 'O') THEN(GOTO CMDLBL(ENDALL))
RETURN
ENDALL: ENDPGM [/code:1:f793ad9784]
4 一RPG程序使用SPECIAL文件向DTAQ中写一条记录。用PGMNAME标识CL程序TPGMDTQ，用PLIST标识另外的DTAQ参数。
[code:1:f793ad9784]TSPFPGMW
F* Write to TSPFQ queue.
FTSPF02 O E SPECIAL PGMNAME('TPGMDTQ')
F PLIST(DQOUT)
F*****************************************************************
C DQOUT PLIST
C PARM DATAQ 10
C PARM LIB 10
C PARM WAIT 5 0
C PARM OUTLEN 5 0
C
C Z-ADD 180 OUTLEN
C MOVEL 'TSPFQ ' DATAQ 10
C MOVEL 'CNDEVLGB' LIB 10
C Z-SUB 1 WAIT
C* SEND
C EVAL SP0001 = 'This is a tesk!'
C WRITE RSPF02
C RETURN
C MOVE '1' *INLR [/code:1:f793ad9784]
5 一RPG程序使用SPECIAL文件从DTAQ中读入记录，并显示出来：
[code:1:f793ad9784]TSPFPGMR
F* Read from TSPFQ queue.
FTSPF01 IF E SPECIAL PGMNAME('TPGMDTQ')
F PLIST(DQIN)
F*****************************************************************
C DQIN PLIST
C PARM DATAQ 10
C PARM LIB 10
C PARM WAIT 5 0
C PARM OUTLEN 5 0
C
C Z-ADD 180 OUTLEN
C MOVEL 'TSPFQ ' DATAQ 10
C MOVEL 'MYTSTLIB' LIB 10
C Z-SUB 1 WAIT
C* Receive
C READ RSPF01 40
C MOVEL SP0001 DTXT 40
C DTXT DSPLY
C RETURN [/code:1:f793ad9784]
通过上面例子，我们可以看到：通过SPECIAL文件，在RPG程序中我们可以象通常读写磁盘文件一样就可以用DTAQ进行程序间数据交换了。而真正的读写DTAQ操作是在另一CL程序里实现的。
BLOG LIOU
2005.06.13
参考：
Special Files Can Do It All
http://www.itjungle.com/fhg/fhg041305-story01.html
| USING_AS400 回复于：2005-06-13 13:04:59 |
| 老哥就是牛！强烈支持！小弟受教了！谢谢！ |
| kempzhang 回复于：2005-06-13 13:05:51 |
| 看過以前lz的帖子,對lz實在是佩服.不知道lz現在是否還在做400開發?以後有機會一定還要向lz多多請教啊.看了lz的總結系列,覺得自己這兩年做400開發,做的實在太失敗了 |
| qingzhou 回复于：2005-06-13 13:23:00 |
| 好、设为精华帖子、供大家学习。。。 |
| 胖老头 回复于：2005-06-13 14:12:06 |
| 好！ |
| excuse 回复于：2005-06-13 14:33:21 |
| 偶对英雄的景仰如滔滔江水~~连绵不绝~~~! |
| linyueagle 回复于：2005-06-14 11:49:20 |
| 什么都不说了，支持！支持！支持！ |
| coolk 回复于：2005-06-14 12:51:15 |
| 楼主好厉害，佩服，佩服！ |
| tomroom 回复于：2005-06-14 14:42:39 |
| 强的，好文收藏，吸收中。。。 |
| riancy1106 回复于：2005-06-14 18:38:36 |
| 收藏先！ |
| Eagle_wolf 回复于：2005-06-16 14:31:15 |
| 好文 |
| nhxingliang 回复于：2005-06-22 13:20:35 |
| thanks |
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/