control-language

    5熱度

    1回答

    我試圖在iSeries,其中參數之一具有使用標準庫/文件成員語法是一個文件名,創建一個新的命令,像 MYCMD FILE(MYLIB/MYFILE MYMEMBER) 甚至 MYCMD FILE(MYLIB/MYFILE) MEMBER(MYMEMBER) 我想: 創建使用FILE第一個PARM聲明計有* CHAR類型 使用ELEM語句 創建一個特殊類型,但我無法找到如何創建一個接受值是一

    1熱度

    3回答

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

    2熱度

    3回答

    我試圖從我的as400發出一封電子郵件失敗! 我使用這個代碼放到一個CLLE: SNDDST TYPE(*LMSG) TOINTNET((*NONE) + ('[email protected]') + ('[email protected]')) DSTD('TEST') + LONGMSG('test mail...') 我收到了我的用戶,我固定WRKDIR

    2熱度

    1回答

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

    2熱度

    3回答

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

    0熱度

    2回答

    是否可以從開發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回答

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

    2熱度

    3回答

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

    1熱度

    2回答

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