这段时间在实施海关ＥＤＩ联网系统，实施过程中，遇到了各式各样的问题，其间有需要清除一个ＰＦ中某个字段内容。
按照传统处理办法，会首先考虑使用ＲＰＧ语言处理，如下面的ＺＩＪ１０Ｒ程序（ZCPSTP 親工程順序番号''''U''''标志清除 /BATCH ）。
|
Work with Members Using PDM S65F6F8B
File . . . . . . QRPGSRC
Library . . . . R21EMS Position to . . . . .
Type options, press Enter.
2=Edit 3=Copy 4=Delete 5=Display 6=Print 7=Rename
8=Display description 9=Save 13=Change text 14=Compile 15=Create module...
Opt Member Type Text
ZIJ10R RPG ZCPSTP 親工程順序番号''''U''''标志清除 /BATCH
ZIJ101R RPG 备案完成数据备份
ZIJ102R RPG 备案完成ＣＭ数据备份
ZIJ201R RPG 变更数据提取
ZIJ202R RPG 变更数据提取／ＴＲＦ专用
ZIK01R RPG 正式报核：料件库存数据生成（归类）
ZIK02R RPG 正式报核：成品库存数据生成（归类）
Bottom
Parameters or command
===>
F3=Exit F4=Prompt F5=Refresh F6=Create
F9=Retrieve F10=Command entry F23=More options F24=More keys
|
处理ＰＦ文件的某个字段内容，ＲＰＧ语言的模板（颜色区别ＰＦ、ＰＦＲ、ＦＩＥＬＤ）如下：
Columns . . . : 1 71 Browse R21EMS/QRPGSRC
SEU==> ZIJ10R
FMT * ..... *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
*************** Beginning of data *************************************
0001.00 **==============================================================*
0004.00 FPF UF E K DISK
0004.01 F*
0004.02 C *LOVAL SETLLPF
0004.03 C READ PFR 90
0004.04 C *IN90 DOWEQ*OFF
0004.05 C FIELD IFEQ ''''U''''
0004.06 C MOVEL*BLANK FIELD
0004.07 C ENDIF
0004.08 C UPDATPFR
0004.09 C READ PFR 90
0004.10 C ENDDO
0004.11 C**
0120.00 C SETON LR
****************** End of data ****************************************
F3=Exit F5=Refresh F9=Retrieve F10=Cursor F11=Toggle F12=Cancel
F16=Repeat find F24=More keys
(C) COPYRIGHT IBM CORP. 1981, 2002. |
但事实上，如果是单独更新一些字段内容，可以采用另外一种更简便的处理方式，那就是利用ＲＵＮＳＱＬＳＴＭ命令。
首先，利用ＣＲＴＳＲＣＰＦ在ＬＩＢ下创建ＱＴＸＴＳＲＣ的ＳＯＵＲＣＥ ＦＩＬＥ。
然后，创建类型为ＴＸＴ的ＳＯＵＲＣＥ ＭＥＭＢＥＲ。
Columns . . . : 1 71 Browse R21EMS/QTXTSRC
SEU==> CLRZCPSTP
FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
*************** Beginning of data *************************************
0001.00 UPDATE R21AFLB1/ZCPSTP SET ZGPSPR='''''''' WHERE ZGPSPR=''''U'''';
****************** End of data ****************************************
F3=Exit F5=Refresh F9=Retrieve F10=Cursor F11=Toggle F12=Cancel
F16=Repeat find F24=More keys
(C) COPYRIGHT IBM CORP. 1981, 2002. |
最后，调用ＲＵＮＳＱＬＳＴＭ命令，插入到ＣＬＰ程序当时，实现更新字段内容。
Columns . . . : 1 71 Edit R21EMS/QCLSRC
SEU==> ZEIA1L0
FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
0021.00 CLRPFM FILE(ZCPSTP)
0022.00
0026.00 CALL PGM(ZEIA2R)
0026.01
0026.02 /* CLEAR ZCPSTP WHERE ZGPSPR=''''U'''' TRF LIU ADD 05.12.30*/
0026.04 RUNSQLSTM SRCFILE(R21EMS/QTXTSRC) SRCMBR(CLRZCPSTP) +
0026.05 COMMIT(*NONE)
0027.00 /* TRF LIU ADD END.*/
0027.01
0031.00 CPYF FROMFILE(ZCPSTP) TOFILE(ZCPSTB) +
0032.00 MBROPT(*REPLACE) FMTOPT(*NOCHK)
0043.00
0044.00 END: ENDPGM
****************** End of data ****************************************
F3=Exit F4=Prompt F5=Refresh F9=Retrieve F10=Cursor F11=Toggle
F16=Repeat find F17=Repeat change F24=More keys
|
△使用ＲＵＮＳＱＬＳＴＭ需要注意事项：
(1). SQL语句的成员类型一定要指定为TXT;
(2). 每条语句要以分号“;”结束;
(3). 不支持Select语句;
(4). 如果不是使用事务处理，应该将COMMIT(*CHG)—>COMMIT(*NONE)，否则执行RUNSQLSTM命令出错，而且会造成SQL语句失效。
