1，DTAARA的创建
CRTDTAARA DTAARA(PTRLIB/UDA) TYPE(*CHAR) LEN(20)
2，rpgle程序
方法1
DUDS_DS UDS DTAARA('PTRLIB/UDA')
D UDA1 1 10
D UDA2 11 20
C*
C *LOCK IN UDS_DS
C MOVEL 'PTRLIB' UDA1
C MOVEL 'DTAARA' UDA2
C OUT UDS_DS
C UNLOCK UDS_DS
C UDS_DS DSPLY
C*
C SETON LR
C RETURN
方法2
DUDS_DS UDS
D UDA1 1 10
D UDA2 11 20
C*
C *DTAARA Define UDA UDS_DS
C *LOCK IN UDS_DS
C MOVEL 'PTRLIB' UDA1
C MOVEL 'DTAARA' UDA2
C OUT UDS_DS
C UNLOCK UDS_DS
C UDS_DS DSPLY
C*
C SETON LR
C RETURN
3，RPG程序
IUDD DS
I 1 10 UDA1
I 11 20 UDA2
C *NAMVAR DEFN UDA UDD
C *LOCK IN UDD
C MOVEL'PTRLIB' UDA1
C MOVEL'DTAARA' UDA2
C OUT UDD
C UNLCKUDD
C UDD DSPLY
C*
C SETON LR
C RETRN
*LDA处理
RPGLE程序
D UDS
D UDA1 1 10
D UDA2 11 20
C MOVEL 'PTRLIB' UDA1
C MOVEL 'DDDDD' UDA2
C*
C SETON LR
C RETURN
RPG程序
I UDS
I 1 10 UDA1
I 11 20 UDA2
C MOVEL'PTRLIB' UDA1
C MOVEL'DDDDD' UDA2
C*
C SETON LR
C RETRN
例子仅供参考，欢迎讨论。
操作时别忘了把自己的库添加到库list中。
阅读(1832) | 评论(0) | 转发(2) |
