无码人妻aⅴ一区二区三区,亚洲av片在线观看

論壇徽章:: 0

電梯直達(dá)

1樓 [收藏(0)] [報(bào)告]

發(fā)表于 2007-06-27 14:10 |只看該作者 |倒序?yàn)g覽

今天在看 TRIGER 的東東,試了下,以下將簡單的結(jié)構(gòu)發(fā)出來,有用的朋友看看!

以下兩個(gè)例子　實(shí)現(xiàn)　在�。裕遥桑牵校疲稀≈行略鲆粋€(gè)記錄　將在ＴＧＩＴＰＦＮ中增加一筆一樣的記錄
　　ＴＲＩＧＰＦＯ結(jié)構(gòu)：
　　　　　　　　　　A       R RO
　　　　　　　　　　A          AO          10  0
　�。裕遥桑牵校疲谓Y(jié)構(gòu)：

　　　　　　　　　　 A       R RN
　　　　　　　　　　 A          AN          10  0

范例一：　通過　％ＡＤＤＲ
FTRIGPFN UF A E          K DISK
D/COPY QSYSINC/QRPGLESRC,TRGBUF
DINTPTR          S             *
DINTARR          S             1A BASED(INTPTR) DIM(32767)
DPARM2          DS
DLENG                   1    4B 0
DORCD          E DS       EXTNAME(TRIGPFO)
D                                  BASED(OIMAGE)
D                                  PREFIX(O)
DNRCD          E DS       EXTNAME(TRIGPFO)
D                                  BASED(NIMAGE)
D                                  PREFIX(N)
DOIMAGE          S             *
DNIMAGE          S             *
C    *ENTRY       PLIST
C    QDBTB       PARM                   QDBTB
C    PARM2       PARM                   PARM2
C                EVAL    INTPTR=%ADDR(QDBTB)
C                EVAL    OIMAGE=%ADDR(INTARR(QDBORO+1))
C                EVAL    NIMAGE=%ADDR(INTARR(QDBNRO+1))
C                EVAL    AN=NAO
Ｃ          WRITE    RN
C                SETON                                     LR
C                RETURN

范例二：　通過 %subst

FTRIGPFN UF A E          K DISK

DQDBTB          DS       32767
D*                                           Qdb Trigger Buffer
D QDBFILN02             1    10
D*                                           File Name
D QDBLIBN02             11    20
D*                                           Library Name
D QDBMN00             21    30
D*                                           Member Name
D QDBTE                31    31
D*                                           Trigger Event
D QDBTT                32    32
D*                                           Trigger Time
D QDBCLL                33    33
D*                                           Commit Lock Level
D QDBRSV104             34    36
D*                                           Reserved 1
D QDBDAC                37    40B 0
D*                                           Data Area Ccsid
D QDBCR                41    44B 0
D*                                           Current Rrn
D QDBRSV204             45    48
D*                                           Reserved 2
D QDBORO                49    52B 0
D*                                           Old Record Offset
D QDBORL                53    56B 0
D*                                           Old Record Len
D QDBORNBM             57    60B 0
D*                                           Old Record Null Byte Map
D QDBRNBML             61    64B 0
D*                                           Old Record Null Byte Map
D QDBNRO                65    68B 0
D*                                           New Record Offset
D QDBNRL                69    72B 0
D*                                           New Record Len
D QDBNRNBM             73    76B 0
D*                                           New Record Null Byte Map
D QDBRNBML00          77    80B 0
D*                                           New Record Null Byte Map
DPARM2          DS
DLENG                   1    4B 0
DORCD          E DS                EXTNAME(TRIGPFO)
D                                           PREFIX(O)
DNRCD          E DS                EXTNAME(TRIGPFO)
D                                           PREFIX(N)
C    *ENTRY       PLIST
C    QDBTB       PARM                   QDBTB
C    PARM2       PARM                   PARM2
C                      EVAL    ORCD=%SUBST(QDBTB

DBORO+1

DBORL)
C EVAL NRCD=%SUBST(QDBTB

DBNRO+1

DBNRL)
C                      EVAL    AN=NAO
C                      WRITE    RN
C                      SETON                                     LR
C                      RETURN