tiptop 觸發其他程式functioin

tiptop 跳板

carry1246 2022-05-04 15:01:28 ‧ 744 瀏覽

分享至

例:
當我執行axmt410程式時，我想觸發cpji201的某個FUNCTION來做事情
請問我應該怎麼在axmt410內寫這個call cpji201內的某個FUNCTION?

很像跳板的概念

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

3 個回答

souda

iT邦高手 1 級 ‧ 2022-05-05 08:03:06

建議您可以這麼做
直接寫CALL 就好了喔!若要回傳結果再加 RETURNING.
細節就不贅述瞜! 試看看

回應 4
分享
檢舉

看更多先前的回應...收起先前的回應...

carry1246 iT邦新手 4 級 ‧ 2022-05-05 08:53:31 檢舉

如果我兩個程式都有MAIN的狀況下?

by2048 iT邦高手 1 級 ‧ 2022-05-05 09:04:21 檢舉

通常共用的FUNCTION都寫成sub or lib
把FUNCTION程式碼 copy到axmt410 去call
來驗證程式是否正確可用

carry1246 iT邦新手 4 級 ‧ 2022-05-05 10:40:37 檢舉

兩個都是MAIN 的狀況下，用P_link連結就會異常因為有兩個MAIN存在

souda iT邦高手 1 級 ‧ 2022-05-05 10:58:05 檢舉

1.建議您可以參考apmt420 以及 sapmt400 相互的關係!
2.兩支都是MAIN的話就是算Call By Value,請參考apmt420 以及apmt900 相互關係.

登入發表回應

做工仔人!

iT邦大師 1 級 ‧ 2022-05-05 10:54:53

二個作法:
1.複製貼上:將FUNCTION 從cpji201.4gl 中複製貼到 axmt410 中 , 這種作法適用於這個function 只有這二支程式會用到(function name要改一下會比較好 i201...->t410...).
2.將這個function 獨立成為一支4gl程式,放在csub/4gl 或 clib/4gl 下, 變成為一支獨立的function ->compile ,在會用到的程式link(p_link)時加入這它即可:這個作法適用於這個function 會常被其他程式使用.

至於:要不要加入到p_link的 sub 或 lib中:建議先不要.(因為加入後,系統要rebuild.風險比較高)