0003.00 D myydtaa S 18
0003.01 *
0004.00 D Receipts UDS
0005.00 D Nnnn 20
0005.01 D IDdd 7
0005.02 D Amountdd 13 2
0006.02 *
0006.03 D DtaFld dS 2000
0006.04 d dd 10 19
0013.00 ** Local Data area associated with infor 1
0013.01 C *DTAARA DEFINE *lda myydtaa
0013.02 **
0013.03 ** Data area Receipts associated with dtata structure Receipts
0013.04 C *DTAARA DEFINE Receipts
0013.05 **
0013.06 ** Data area DTAARA1 associated with field DtaFld
0013.07 C *DTAARA DEFINE DtaAra1 DtaFld
0013.08 **
0013.09 C IN myydtaa
0013.10 **
0013.11 C *LOCK IN Receipts
0013.12 **
0013.13 C *LOCK IN DtaFld
0013.14 **
0013.15 C OUT myydtaa
0013.16 **
0013.17 C *LOCK OUT Receipts
0013.18 **
0013.20 C OUT DtaFld
0013.21 **
0013.22 C UNLOCK Receipts
0013.23 **
0013.24 C EVAL *INLR=*ON
0015.00 C RETURN
0016.00 **
或者使用:
0001.00 DMYYDATA UDS 100 DTAARA(MYYDATA)
0002.00 D STRDTA 1 49A
0008.00 C *LOCK IN HXKDATA
.................
0012.00 C OUT MYYDATA
.................
阅读(1458) | 评论(0) | 转发(0) |