论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2007-06-27 14:10 |只看该作者 |倒序浏览

今天在看 TRIGER 的东东,试了下,以下将简单的结构发出来,有用的朋友看看!

以下两个例子　实现　在　ＴＲＩＧＰＦＯ　中新增一个记录　将在ＴＧＩＴＰＦＮ中增加一笔一样的记录
　　ＴＲＩＧＰＦＯ结构：
　　　　　　　　　　A       R RO
　　　　　　　　　　A          AO          10  0
　　ＴＲＩＧＰＦＮ结构：

　　　　　　　　　　 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