下面所有例子都是以RPGLE类型程序举例.
1:平时定义一个错误信息数组是经常做的
D ERROR S 60 DIM(6)
上面的S===>声名类型:表示数组或表,60表示长度,DIM(6)表示数组元素的数量.
补充一下:上面S的位置,如果是C==>表示定义常量,DS==>数据结构
D EXTYES C CONST('EXIT ')
D SDS ====>系统结构数据定义
D* PROGRAM DATA STRUCTURE
D QPROG *PROC ===>程序名
D QJOBN 244 253 ===>工作站标识
D QUSER 254 263 ====>用户名
D INFDS DS
D* DISPLAY DATA STRUCTURE
D QFSTA *STATUS
D QFCURP 370 371B 0 ====>光标值(具体内容在光标取值帖子里面有说明)
D SFLLOC 378 379B 0 ===>光标所在记录
fairyboy 回复于：2006-07-25 10:54:16
下面是以前在网上找的关于 SDS和 INDFS的详细说明
一个附件,WORD版本的
具体DS的结构定义使用,等有空了再补上.
A program status data structure.rar
wnai 回复于：2006-07-25 11:28:00
INFDS 有很多有用的信息，我记得有个记录着记录在member中的绝对RRN，用起来挺方便的
sz_lixlx 回复于：2006-07-26 09:17:12
好东西,收藏
stick522 回复于：2006-07-26 10:03:57
我记得还可以在DSPF里用RTNCSRLOC的，具体忘记了
audiotech 回复于：2006-07-26 11:29:30
好东西 先收藏了再说
|
