control-language

2熱度

2回答

我試圖寫一個簡單的CL程序把一個文件名參數，並運行該文件中的SQL COMMIT（* CHG）和DBGVIEW（* SOURCE）。我得到CPD018A：路徑名稱包含嵌入的空值：原因。。。。。：路徑名稱/ SQL /觸發/ PCUSTOMERS_INSERT ??????????????????????????????????????? ????????????????????????

1熱度

3回答

在CL CALL語句中傳遞參數的類型

在運行i/OS 6.1的iSeries上，我有一個正在清理的CL程序。在這個項目中有一堆的形式剪切和粘貼代碼： IF COND(&ENV='PRD') THEN(DO) CALL JCHKSTS PARM(&RS '127.0.0.1' '6500') /* more junk here */ ENDDO IF COND(&ENV='TST') THEN(DO)

1熱度

2回答

AS/400 IFS機構問題

我在管理AS/400 IFS機構方面遇到了一些麻煩。 IFS文件是使用CLE或ILE-COBOL通過調用CPYTOIMPF創建的。默認情況下，IFS下的權限設置爲700.問題是我用來創建文件的ID（A），使用它的人將是另一個ID（B）。因此，即使A & B位於同一組GP01上，B也無法讀取該文件。我試過CHGPGP IFS根/ RootDir/MyDir到同一個組，比如GP01。另外，我也是CH

2熱度

1回答

在CLLE中顯示QMODEL串行的子程序

我需要在IBM RDi中創建一個CLLE程序，允許用戶輸入選項1至7，這將調用要運行的子程序。我無法弄清楚如何有系統串行/型號顯示，當他們進入5.這是代碼我迄今有關選項5 DCL &SERIAL *CHAR (10) WHEN (&OPTION = '5' *OR &OPTION = '05') CALLSUBR OPTION5 SUBR OPTION5 RTVSYSV

2熱度

3回答

CL程序中的堆棧實現（OS400/iSeries）

我開始在IBM系統i上使用CL進行編程。我的任務是使用CL語言實現RPN計算器。通常，這個計算器使用堆棧。但我不知道必須在CL中實現它。有人可以給我一些建議嗎？也許* PTR變量是解決方案，但有人可以給我一個例子如何使用它？在此先感謝 JS 編輯： CL語言是我的導師罰款。我的程序應該接收用戶的標誌（數字/數字，數學運算符號）。接收每個星座的程序應該analize收到什麼，然後採取一些行動，

0熱度

2回答

在不同的LPAR上刪除和更新

是否可以從開發LPAR計算rpgle程序中的文件成員刪除。 eg: RMVM FILE(LIB/FILE1) MBR(PAR1981181) 並且對不同的lpar中的不同文件執行更新？ UPDATE "SCDTA.CORP"/AR#RMTPRL9 SET SENTFLAG = ' ', DATESENT = '0001-01-01', TIMESENT = '00:00:00', XMITT

0熱度

2回答

CL（IBM i系列）中退出庫對象的程序？

我有四個庫，每個庫都有不同的一組程序選擇。不幸的是，我不能用SQL刪除庫中未使用的程序，因爲我需要退出它們（所以它們不會留在我們的客戶端服務器上）。有沒有辦法爲此製作CL程序？我們的高級程序員說它不能完成，但我想在被迫手動退出2300個對象之前探索所有可能性。它最初是Aldon變更管理軟件中的一個功能，我確實有一個SQL查詢來選擇所需的對象。

2熱度

3回答

AS/400上的小數轉換爲字符轉換

在CL中，我試圖將數字（193）轉換爲其alpha形式（A）。無所事事，需要一點幫助。是否有CHAR功能？

1熱度

2回答

什麼指定分號當分號爲SQL語句運行多SQL代碼作爲CRTQMQRY和STRQMQRY聲明分隔命令

分離器中的以下錯誤： CRTQMQRY QMQRY(MYPGMLIB/MYSQL) SRCFILE(MYLIB/QSQLSRC) STRQMQRY QMQRY(MYPGMLIB/MYSQL) 而下面的工作： RUNSQLSTM SRCFILE(MYPGMLIB/QSQLSRC) SRCMBR(MYSQL) COMMIT(*NONE) 我搜索了CRTQMQRY和STRQMQRY上的選項，但

0熱度

1回答

如何處理指令源定義類型（* PNAME）

如何使一個TYPE（* PNAME）參數是：要求有一個默認值有一個初步的10 如何處理在提示字段的長度的增加，長度0 * PNAME類型的提示字段的長度可以通過「&」增加。 RPGLE需要是命令處理程序（CPP）實施例，命令源定義： PARM KWD(PCML) TYPE(*PNAME) LEN(10) MIN(0) DFT(*MYDFT) SPCVAL((*MYDFT)) PROMPT(