0001.00 D QRTVSTR S 4096 INZ
0002.00 D RCTLEN S 4B 0 inz(%len(QRTVSTR))
0003.00 D QRELBFL S 20A
0004.00 D FMT S 8A inz('FILD0300')
0005.00 D QLIBFILE S 20A
0006.00 D RCFMTNM S 10A INZ('*FIRST')
0007.00 D OVRPOC S 1A inz('0')
0008.00 D SYSNM S 10A inz('*LCL')
0009.00 D FMTTYPE S 10A inz('*EXT')
0010.00 D I S 2 0 INZ(1)
0011.00 D PLKEYN S 256A INZ
0012.00 DQUSEC DS
0013.00 d BYTPRV 1 4B 0
0014.00 D BYTAVA 5 8B 0
0015.00 D MSGID 9 15
0016.00 d RESRVD 16 16
0017.00 D MSGDTA 17 116
0018.00 D/COPY QSYSINC/QRPGLESRC,QDBRTVFD
0019.00 c *entry plist
0020.00 c parm file 10
0021.00 c parm lib 10
0022.00 c
0024.00 c EVAL QLIBFILE=FILE+LIB
0026.00 c call 'QDBRTVFD'
0027.00 c parm QRTVSTR
0029.00 c parm RCTLEN
0030.00 c parm QRELBFL
0031.00 c parm FMT
0032.00 c parm QLIBFILE
0033.00 c parm RCFMTNM
0034.00 c parm OVRPOC
0035.00 c parm SYSNM
0036.00 c parm FMTTYPE
0037.00 c parm QUSEC
0039.00 c* MOVEL QRTVSTR QDBQ63
0040.00 c
0041.00 c IF MSGID <> ' '
0042.00 c ENDIF
0043.00 c*KEY
0044.00 c EVAL I=1
0045.00 c DOW I<=QDBNBROK00(1)
0046.00 c EVAL QDBQ65 =%SUBST(QRTVSTR:QDBKIO00(1)+(I-1)*
0047.00 c 64+1:64)
0048.00 c EVAL PLKEYN = %TRIM(PLKEYN)+' '+%TRIM(QDBIFN)
0049.00 c EVAL I=I+1
0050.00 c ENDDO
0051.00 c
0052.00 c EVAL PLKEYN = %TRIM(PLKEYN)
0053.00 c* EVAL PFFNAM = FIPFNM
0054.00 C* EVAL PLFNAM = FILFN2
0055.00 C EVAL QLIBFILE = FILE+LIB
0056.00 C CALL 'QDBRTVFD'
0057.00 c parm QRTVSTR
0058.00 c parm RCTLEN
0059.00 c parm QRELBFL
0060.00 c parm 'FILD0100' FMT
0061.00 c parm QLIBFILE
0062.00 c parm RCFMTNM
0063.00 c parm OVRPOC
0064.00 c parm SYSNM
0065.00 c parm FMTTYPE
0066.00 c parm QUSEC
0067.00 C
0068.00 c if msgid = ''
0069.00 c movel QRTVSTR QDBQ25
0070.00 c endif
0071.00 c*UNIQUE OR NOT
0072.00 c if QDBFPACT = 'KU'
0073.00 C MOVE 'Y' PLUNIQ
0074.00 C ELSE
0075.00 C MOVE 'N' PLUNIQ 1
0076.00 C ENDIF
0077.00 c
0078.00 c move *on *inlr
阅读(1398) | 评论(0) | 转发(0) |
