as400 存儲過程的問題

cpzch

我的問題如下，希望能得到你幫助。

首先，先說明一下這公司的情況。
這公司是在一臺as400 (520)的主機上，運行BPCS 8.2 的ERP系統。制作報表是使用Cognos 公司的 Impromptu Administrator 報表式工具來做，而不是用400 的RPG + RLU 。Cognos 報表工具功能類似水晶報表。當制作較復雜的報表時，需要使用Iseries Access的SQL存諸過程來共同完成。雖然辦法可以制作出復雜的報表，但當程式運行時會占用大量的cpu資源。
如果同時有3用戶運行報表，cpu的占用量高達到100.00%

因此，我想用Iseries Access 的存諸過程，調用 ”外部程式”->RPG語言，來代替SQL的語言。因為用RPG語言速度快，比較好維護。雖然在Iseries Access 中有此選項，我試驗過，但沒試成功。



圖1：  圖1,2,3 是這家公司在iseries access的sql存諸過程。

cpzch

圖2

cpzch

圖4 , - Cognos 報表工具

圖5, - Cognos 調用 SQL存諸過程。

cpzch

圖6,  我嘗試建立iseries 的外部rpg程式

cpzch

圖8 ， 做完這一步我已經不會怎么做了。

cpzch

問題：
1.        請問如何建立存諸過程的 “RPG 外部程式” 在Iseries access 和 as400 綠屏mode中。
2.        請問外部的RPG程式，需要特殊的寫法嗎？能不能給我一個例子。
3.        請問用報表工具調用的方法，還是 “ SELECT *  FROM TABLE(V820FNC.GLGLK006_1_1(?FISCAL_YEAR?,?FISCAL_PERIOD?,?ACCOUNT_BOOK?,?HHSTAT_Y_N?)) AS GL ORDER BY GL_TYPE ASC,CRDESC ASC 這樣寫嗎？
4.        請問在存諸過程中，能否建一個CL的外部程式，然后該程再 sbmjob 一個rpg程序到queue 運行？




謝謝！

xuguopeng

1、要先写好RPG程序，没什么特殊要求，然后用SQL的create procedure创建成存储过程
2、普通的RPG要是不会写，我没办法
3、那个报表工具没用过
4、不管是RPG还是CL都可以SBMJOB，RPG和CL也都可以被创建成存储过程