在AS400中,数据域是类型为*DTAARA的目标,永久存储在硬盘上面,由用户创建和删除,也可以视为单一字段。
从操作系统的角度讲,当我们发出:CRTDTAARA DTAARA(TOTDTA) TYPE(*DEC) LEN(20)这条语句的之后,系统就开辟一个占用20个字符的连续空间;
从RPGLE程序的角度看,数据域就似一个缓冲池,我们可以用来临时存储程序中需要使用到的数据,下面是实例。
实例1:
FTEST02 CF E WORKSTN
DDST DS DTAARA(DTARA)
DONE 2A
DTWO 6A
DTHREE 2A
DFOUR 6A
DFIVE 3A
DSIX 1A
DSUM S 8S 0 INZ(0)
C*--------------
C* 程序控制
C*--------------
C EXSR @MAIN
C EXSR @EXIT
C*----------
C* @MAIN
C*----------
C @MAIN BEGSR
C