AS400 自學筆記集錦

AS400學習筆記-PAGE11-AS400學習筆記（V1.2）TOC\o"1-3"\h\z1 自學使用的400操作命令集錦 41.1 命令記錄及示例解析 41.1.1 將PF文件中的數(shù)據(jù)庫數(shù)據(jù)導出到流文件中 41.1.2 從流文件中導入數(shù)據(jù)到數(shù)據(jù)庫的PF文件中 41.1.3 查看多Member的PF下的member信息 41.1.4 修改用戶的ccsid值 41.1.5 使用DBG調(diào)試作業(yè)信息 41.1.6 查看系統(tǒng)的ccsid缺省設(shè)置 41.1.7 PF下的Member正常顯示中文 41.1.8 查看或修改PF的字符集設(shè)置 51.1.9 為一個沒有日志的PF設(shè)置日志文件 51.1.10 查看多Member的PF內(nèi)容 51.1.11 查看一個多Member的PF下所有Member名稱的命令 51.1.12 刪除一個PF下的多Member的命令 51.1.13 FTP到400的命令詳解 51.1.14 OBJ打包備份命令例子 51.1.15 直接顯示/查找一個庫或者一個目標文件在當前用戶庫位置的例子 61.1.16 查看目標文件被鎖的信息 61.1.17 關(guān)于400上的授權(quán)處理的幾個例子 61.1.18 6000鏈接400的DB2CONNECT的配置 61.1.19 刪除本用戶下所有的spoolfile的命令 61.1.20 命令幫助Help 61.1.21 查看SP文件 61.1.22 400上如何存放中文文件并能正常顯示，如何支持很長一行記錄的情況 71.1.23 對一個數(shù)據(jù)文件的日志操作 71.1.24 查看系統(tǒng)環(huán)境信息－DSPSYSVALWRKSYSVAL 71.1.25 查看系統(tǒng)設(shè)備信息－WRKHDWRSC 71.1.26 顯示數(shù)據(jù)之間關(guān)系 71.1.27 在AS400上直接運行批量的400SQL腳本 81.1.28 在400上進行授權(quán)處理 81.1.29 提交后臺執(zhí)行作業(yè) 81.1.30 如何查看數(shù)據(jù)保護方式，如RAID/MIRROR 81.1.31 如何硬盤臨時空間，使用率等信息 81.1.32 如何查看SpoolFile 81.1.33 如何查看內(nèi)存、系統(tǒng)控制臺等狀態(tài) 81.1.34 如何查看PTF狀態(tài)、PTFCUM的版本 91.1.35 查看操作系統(tǒng)版本 91.1.36 400上MSG信息的操作命令 91.1.37 400上的日志操作命令 91.1.38 102 經(jīng)驗記錄 112.1 DB2IMPORT命令 112.2 創(chuàng)建DB2CONNECT的鏈接方法（RS6000－AS400） 112.3 AS400上調(diào)用PGM命令做大量數(shù)據(jù)處理操作 122.4 AS400日常運行維護 122.5 一個關(guān)于備份報錯的處理操作 122.6 400上C/C++程序調(diào)用PGM 132.7 AS400上C開發(fā)編譯簡介 162.8 如何查看已備份磁帶的內(nèi)容 162.9 恢復/查看備份的內(nèi)容 172.10 查看LIBRARY占用的磁盤空間 172.11 一個不錯的400軟件下載地址 182.12 日志激活狀態(tài)下刪除400庫的方法 182.13 通用日志管理 192.14 193 相關(guān)資料收集 203.1 一些概念 203.2 關(guān)于lock的一些概念 233.3 AS400口令問題 243.4 實用命令 243.5 常用CL命令 243.6 通過控制面板開關(guān)機 263.7 如何解決控制臺死鎖問題 263.8 如何更改系統(tǒng)的名字 273.9 得到OS400版本的命令 273.10 手工啟動400的介紹 273.11 如何提高AS/400TCP/IP的性能 283.12 啟動與停止FTP服務(wù)器 283.13 發(fā)送TCP/IP假脫機文件（SNDTCPSPLF） 293.14 如何查看QTEMP中的內(nèi)容 293.15 如何更改crtpf或crtrpgpgm的預(yù)設(shè)值? 303.16 如何將AS/400英文界面改為中文界面？ 303.17 如何將屏幕內(nèi)容寫到文件中 303.18 了解AS400文件系統(tǒng) 303.19 如何快速查看IFS文件系統(tǒng)中FOLDER和文件的大小 383.20 如何顯示查詢的調(diào)試信息 383.21 如何修改QSYS/QADBXREF的CCSID 393.22 如何在AS400上發(fā)送帶有顏色的MESSAGE 393.23 恢復系統(tǒng)密碼 413.24 創(chuàng)建自己的命令 433.25 關(guān)于命令RGZPFM 443.26 WRKSYSSTS命令結(jié)果屏中，作業(yè)的三種狀態(tài)的具體含義是什么？ 443.27 WRKACTJOB命令其他一些有用功能的妙用。 453.28 啟動預(yù)起作業(yè)QZDASOINIT/QZDAINIT 453.29 如何查看與物理文件相關(guān)的索引，視圖，約束? 463.30 如何查詢OS/400上裝的主語言、第二語言是什么？ 463.31 如何查找物理文件(PF)與邏輯文件(LF)之間的關(guān)系? 463.32 如何使DB2/400中的索引運行效率更高？ 473.33 如何提高AS/400TCP/IP的性能? 483.34 如何限制QZDASOINIT作業(yè)的臨時空間? 483.35 如何修改qsys/qadbxref的CCSID? 493.36 如何在SQL/400中利用RRN(相對記錄號)處理與記錄號相關(guān)的信息? 493.37 物理文件與SQL表的區(qū)別？ 493.38 DominoforAS/400備份與恢復 503.39 用sav命令備份的DominoServer為何不能恢復？ 523.40 24小時交易的AS/400如何備份 523.41 備份保存SPLF的方法 543.42 mimix簡介 553.43 數(shù)據(jù)隊列（DATQ）相關(guān) 553.44 網(wǎng)卡狀態(tài)是RCYPND的解決方法 573.45 AS/400上的解決方案-雙機高可用與災(zāi)備MIMIX 584 附錄：命令列表 62

自學使用的400操作命令集錦命令記錄及示例解析將PF文件中的數(shù)據(jù)庫數(shù)據(jù)導出到流文件中CPYTOIMPFFROMFILE(EASYSJGD/SKMZD)TOSTMF('smtf7')MBROPT(*REPLACE)RCDDLM(*LF)DTAFMT(*FIXED)CPYTOIMPFFROMFILE(EASYCORE/SLLB)TOSTMF('sllb')RCDDLM(*LF)FLDDLM('|')從流文件中導入數(shù)據(jù)到數(shù)據(jù)庫的PF文件中CPYFRMIMPFFROMSTMF('/scdzb')TOFILE(EASYSJGD/SCDZB)RCDDLM(*LF)FLDDLM('|')CPYFRMIMPFFROMSTMF('/ascdzb')TOFILE(EASYSJGD/SCDZB)RCDDLM(*LF)FLDDLM('|')FROMRCD(1)查看多Member的PF下的member信息DSPFDFILE(EASYMAP/LOG)TYPE(*MBRLIST)修改用戶的ccsid值CHGUSRPRFUSRPRF(EASYMAP)CCSID(037)使用DBG調(diào)試作業(yè)信息調(diào)試查看一個作業(yè)的工作執(zhí)行信息，可以通過一下四個命令加載debug模式進行：STRDBGSRVQSYSStartDebugServiceJobSTRDBGQSYSStartDebugENDDBGQSYSEndDebugModeENDDBGSRVQSYSEndDebugServiceJob處理完成后，作業(yè)的日志信息將存放相關(guān)操作信息，可以通過以上信息查看處理信息查看系統(tǒng)的ccsid缺省設(shè)置wrksysval->F4->QCCSIDPF下的Member正常顯示中文創(chuàng)建PF的時候，參數(shù)DBCS要指定為*YES，則可以使用中文在文件里面注：DBCS--DoubleByteCodeSet雙字節(jié)SBCS--SingleByteCodeSet單字節(jié)查看或修改PF的字符集設(shè)置用CHGPF命令，按F4，填入表名，按F9查看CodedcharactersetID：的值，此處可以直接查看或者進行修改等處理為一個沒有日志的PF設(shè)置日志文件STRJRNPFFILE(EASYMAP/XTKZB)JRN(BANKDTA/OBTSJRN)DSPJRNJRN(BANKDTA/OBTSJRN)FILE(EASYMAP/XTKZB)ENDJRNPFJRN(BANKDTA/OBTSJRN)FILE(EASYMAP/XTKZB)查看多Member的PF內(nèi)容RUNQRYQRYFILE((EASYMAP/LOG))查看文件RUNQRYQRYFILE((EASYMAP/LOGRC030217))RUNQRYQRYFILE((EASYMAP/LOG*LAST))查看一個多Member的PF下所有Member名稱的命令DSPFDFILE(EASYMAP/LOG)TYPE(*MBRLIST)刪除一個PF下的多Member的命令RMVMFILE(EASYMAP/LOG)MBR(*ALL)FTP到400的命令詳解ftp18 制定FTP到服務(wù)器usereasymap 用戶passwordeasymap 密碼asc 使用ASC方式傳輸文件，或者bin等quotetypec1386 指定轉(zhuǎn)碼使用1386編碼cdeasymap 進入目的庫 putfilesrc.file 傳輸本地file文件到easymap庫的src文件下 bye 結(jié)束ftpOBJ打包備份命令例子CRTSAVFFILE(EASYMAP/SAVF1) 創(chuàng)建SAVF1DSPSAVFFILE(EASYMAP/SAVF1) 顯示SAVF1的SAVEFILE中的內(nèi)容CLRSAVFFILE(EASYMAP/SAVF1) 清除SAVF1文件中的內(nèi)容SAVOBJOBJ(SJGD)LIB(EASYSJGD)DEV(*SAVF)SAVF(EASYMAP/SAVF1)備份文件進入SAVF1WRKOBJOBJ(EASYMAP/SJGD) RSTOBJOBJ(*ALL)SAVLIB(EASYSJGD)DEV(*SAVF)SAVF(EASYMAP/SAVF1)恢復文件從SAVF1庫打包備份命令例子SAVLIBLIB(EASYSJGD)DEV(*SAVF)SAVF(EASYMAP/SAVF1)ACCPTH(*YES)ACCPTH(*YES)，表示備份時，備份存儲路徑。也就是對應(yīng)于數(shù)據(jù)文件，將其邏輯文件的相關(guān)信息也備份下來，會增加備份時間與備份空間；但恢復時，不需要對邏輯文件重新建立索引，可以省很多時間。所以在備份數(shù)據(jù)文件建議加上這個參數(shù)。當然，如果是備份源代碼，就不需要這個參數(shù)了。RSTLIBLIB(EASYSJGD)DEV(*SAVF)SAVF(EASYMAP/SAVF1)RSTLIB（OTHERLIB）恢復備份庫EASYSJGD到庫OTHERLIB直接顯示/查找一個庫或者一個目標文件在當前用戶庫位置的例子WRKOBJ<objname> 查找或直接顯示目標文件WRKLIB<libname> 庫文件查看目標文件被鎖的信息WRKOBJLCKOBJ（TFLHLIB/SCECA）OBJTYPE(*FILE) 查看鎖表的信息注意：若是需要查看lib被鎖的情況，可以按F4后，在Object欄中輸入對應(yīng)的<libname>，在Library欄中輸入：QSYS即可關(guān)于400上的授權(quán)處理的幾個例子授權(quán)命令：GRTOBJAUT 下面的命令可以將easycore下的所以對象的所以權(quán)限授權(quán)給easycore用戶GRTOBJAUTOBJ(EASYCORE/*ALL)OBJTYPE(*ALL)USER(EASYCORE)AUT(*ALL)下面的命令可以將easypub下的所以對象的所以權(quán)限授權(quán)給easycore用戶GRTOBJAUTOBJ(EASYPUB/*ALL)OBJTYPE(*ALL)USER(EASYCORE)AUT(*ALL)6000鏈接400的DB2CONNECT的配置RunWRKRDBDIREcommandatOS/400commandline.DefineaDataBasename,forexample:S653924B,remotelocationis*LOCAL.db2catalogtcpipnodemynoderemote93server446（PORT446isusedonlyinDB2/400CONNECTION）db2catalogdbs653924basdbatnodemynodedb2connecttodbusereasycoreusingeasycore刪除本用戶下所有的spoolfile的命令DLTSPLFFILE(*SELECT) 刪除本用戶下的spoolfile命令幫助HelpGOCMD??? 顯示所有???相關(guān)的命令列表及簡要說明EX：GOCMDDLT GOCMDRMV GOCMDSQL查看SP文件WRKSPLF 查看SPFILE內(nèi)容400上如何存放中文文件并能正常顯示，如何支持很長一行記錄的情況確保用戶的CCSID是支持中文的，比如935創(chuàng)建PF的時候，注意DBCS的選項，選擇為YES，其下的Member才可以正常的顯示中文注意上面紅線的標識：在使用CRTSRCPF命令的時候，選擇F4，UserspecifiedDBCSdata選擇為*YES后，即可支持中文的正常顯示處理等。另外，可以在此處調(diào)整PF下member記錄的最大長度，系統(tǒng)缺省為92，可以調(diào)整的范圍：16～32766，調(diào)整后，可以支持一行內(nèi)容較長的文件存放查看系統(tǒng)環(huán)境信息－DSPSYSVAL WRKSYSVALDSPSYSVALSYSVAL(QCCSID) 查看系統(tǒng)缺省的CCSID設(shè)置 DSPSYSVALSYSVAL(QLANGID) 查看系統(tǒng)缺省的LANGID設(shè)置查看系統(tǒng)設(shè)備信息－WRKHDWRSCQSYS/WRKHDWRSCTYPE(*PRC) WRKHDWPRDQSYSWorkwithHardwareProductsWRKHDWRSCQSYSWorkwithHardwareResources顯示數(shù)據(jù)之間關(guān)系 DSPDBR DisplayDataBaseRelations DSPDBRFILE(EASYMAP/BBDY)在AS400上直接運行批量的400SQL腳本RUNSQLSTM RunSQLStatements在400上進行授權(quán)處理授權(quán)命令：GRTOBJAUT下面的命令可以將easycore下的所以對象的所以權(quán)限授權(quán)給easycore用戶GRTOBJAUTOBJ(EASYCORE/*ALL)OBJTYPE(*ALL)USER(EASYCORE)AUT(*ALL)下面的命令可以將easypub下的所以對象的所以權(quán)限授權(quán)給easycore用戶GRTOBJAUTOBJ(EASYPUB/*ALL)OBJTYPE(*ALL)USER(EASYCORE)AUT(*ALL)提交后臺執(zhí)行作業(yè)SBMJOBCMD(CALLPGM(EASYBAK/CPYFH1))提交后，若需查看相關(guān)信息，可以使用WRKSBMJOB進行查看，選擇對應(yīng)的作業(yè)信息，按8選項進入，使用5－Display查看也可以通過WKSPLF查看作業(yè)執(zhí)行后產(chǎn)生的SPOOLFILE如何查看數(shù)據(jù)保護方式，如RAID/MIRROR使用WRKDSKSTS命令，按F11鍵查看CommandLibraryTextWRKDSKSTSQSYSWorkwithDiskStatus如何硬盤臨時空間，使用率等信息使用WRKSYSSTS命令查看CommandLibraryTextWRKSYSSTSQSYSWorkwithSystemStatus如何查看SpoolFile使用WRKSPLF命令查看，或者使用WRKQUTQ查看CommandLibraryTextWRKSPLFQSYSWorkwithSpooledFilesWRKSPLFAQSYSWorkwithSpooledFileAttrWRKOUTQQSYSWorkwithOutputQueueWRKOUTQDQSYSWorkwithOUTQDescription如何查看內(nèi)存、系統(tǒng)控制臺等狀態(tài)使用WRKCFGSTS(內(nèi)存狀態(tài)到DST里面的邏輯設(shè)備里看)命令查看，或者使用QSYS/WRKHDWRSCTYPE(*PRC)查看CommandLibraryTextWRKHDWPRDQSYSWorkwithHardwareProductsWRKHDWRSCQSYSWorkwithHardwareResourcesWRKCFGLQSYSWorkwithConfigurationListsWRKCFGSTSQSYSWorkwithConfigurationStatus如何查看PTF狀態(tài)、PTFCUM的版本使用DSPPTF命令查看CommandLibraryTextDSPPTFQSYSDisplayProgramTemporaryFix查看操作系統(tǒng)版本go

licpgm－> 10.Display

Installed

Licensed

Programs

－> F11go

licpgm WorkwithLicensedPrograms―― DisplayInstalledLicensedPrograms―― F11400上MSG信息的操作命令CommandLibraryTextWRKMSGQSYSWorkwithMessagesWRKMSGDQSYSWorkwithMessageDescriptionsWRKMSGFQSYSWorkwithMessageFilesWRKMSGQQSYSWorkwithMessageQueues400上的日志操作命令GOCMDJRN：AddRemoteJournalADDRMTJRNApplyJournaledChangesAPYJRNCHGChangeJournalCHGJRNChangeRemoteJournalCHGRMTJRNCompareJournalImagesCMPJRNIMGCreateJournalCRTJRNDeleteJournalDLTJRNDisplayAuditJournalEntriesDSPAUDJRNEDisplayJournalDSPJRNEndJournalENDJRNEndJournalAccessPathENDJRNAPEndJournalObjectENDJRNOBJEndJournalingPFChangesENDJRNPFReceiveJournalEntryRCVJRNERemoveJournaledChangesRMVJRNCHGRemoveRemoteJournalRMVRMTJRNRetrieveJournalEntryRTVJRNESendJournalEntrySNDJRNEStartJournalSTRJRNStartJournalAccessPathSTRJRNAPStartJournalObjectSTRJRNOBJStartJournalPhysicalFileSTRJRNPFWorkwithJournalWRKJRNWorkwithJournalAttributesWRKJRNAAccountingCommandsCMDACGCommitCommandsCMDCMTFileCommandsCMDFILEJournalReceiverCommandsCMDJRNRCVReceiveCommandsCMDRCV查看PF文件的MEMBERWrkobjpdm庫名pf文件->12進入即可看到PF文件掛了哪些MEMBER了…使用命令OVRDBFOVRDBFFILE(AA)TOFILE(BK#101000/TESTPF)MBR(TESTPF1)意思是將Member:TESTPF1映射到AA使用SQL語句查看AA即可CL中如何檢索用戶的MSGQ？rtvusrprfusrprf(USERID)msgq(QID)

DeclareQIDas*charoflength10

經(jīng)驗記錄DB2IMPORT命令在6000上，通過db2connect鏈接到400上取，在做db2import的操作時，系統(tǒng)要求對應(yīng)的表必須要有日志，否則系統(tǒng)將不允許Import的操作處理創(chuàng)建DB2CONNECT的鏈接方法（RS6000－AS400）在AS400上，從OS/400main菜單中輸入：WRKRDBDIRE按enter鍵后，將打開Workwithrelationaldatabasedirectoryentries面板從Workwithrelationaldatabasedirectoryentries面板：選擇選項1來添加數(shù)據(jù)庫輸入數(shù)據(jù)庫名：SAMPLE注釋：SAMPLE是machine2上的數(shù)據(jù)庫，您要從iSeries客戶機機連接到該數(shù)據(jù)庫上。如果您不記得數(shù)據(jù)庫的名字，可以從CLP發(fā)出下面的命令：listdbdirectory然后按照Directory條目類型為‘indirect'來查找條目。這些條目將與您的服務(wù)器上的本地數(shù)據(jù)庫相對應(yīng)Remotelocation設(shè)置為*LOCAL，Type：*IP默認端口號是*DRDA，指446端口。默認的認證方法是*ENCRYPTED，它只能在iSeries機器間使用在客戶端設(shè)置DB2CLI的屬性參數(shù)信息db2catalogtcpipnodemynoderemoteserver446（NOTE：PORT446isusedonlyinDB2/400CONNECTION）db2catalogdbbackupastestdbatnodemynodedb2terminate在DB2客戶端綁定CLI的應(yīng)用程序和DB2實用程序綁定DB2PACKAGE（注意綁定順序，以下命令的執(zhí)行目錄在~boc/sqllib/bnd下）：bind@db2ubind.lstblockingallsqlerrorcontinuegrantpublicbind@db2cli.lstblockingallsqlerrorcontinuegrantpublicbind@ddcs400.lstblockingallsqlerrorcontinuegrantpublic創(chuàng)建完成后，若需要鏈接進入的用戶能夠在6000上遠程db2…做create等類似的操作，需給定權(quán)限Specialauthority.......SPCAUT*ALLOBJAS400上調(diào)用PGM命令做大量數(shù)據(jù)處理操作建議使用sbmjob將命令提交成BCH（批處理作業(yè)），這樣系統(tǒng)處理的效率將大大提高AS400日常運行維護日常觀測機器的運行情況：dsplog每日上班，看機器日志，主要看機器的運行情況wrkactjob看看系統(tǒng)中的活動作業(yè)，可以看有哪些用戶登入，那些作業(yè)使用系統(tǒng)資源情況。wrkdsksts看硬盤的使用情況DSPHDWRSCTYPE(*PRC)看硬件情況，在TYPE中，不同參數(shù)將顯示不同硬件的情況WRKSYSSTS看系統(tǒng)的狀態(tài)（硬盤空間，登入機器的用戶數(shù)，作業(yè)數(shù)）AS400現(xiàn)在的用戶有安全管理官員級別：QSECOFRAS/400正常關(guān)機：PWRDWNSYSOPTION(*IMMED)如果不能正常關(guān)機，在面板調(diào)到（02BM）狀態(tài)，按電源健，隔三秒再按一次電源健就可以手動關(guān)機。AS/400正常開機，在面板調(diào)到（01BN）按電源健（白色鍵）系統(tǒng)自動開機，不需要人去選擇IPL程序。AS/400如果不能正常自動調(diào)用IPL程序，把面板調(diào)到（01BM），此時是手動開機，需要人工干預(yù)調(diào)用IPL程序。在選擇中，選擇調(diào)用IPL程序，輸入用戶和密碼（QSECOFR，QSECOFR）其他的都是按CTRL鍵確認或F12鍵。一個關(guān)于備份報錯的處理操作Q1：用AS400的SAVELIB命令備份數(shù)據(jù)庫時（數(shù)據(jù)庫有6G左右），剛開始還在備份，后來顯示一條消息WaitingforreplytomessageonmessageQSYSOPR.意思是讓我回應(yīng)消息，但我按任何按鍵都不起作用，請問如何處理？A11：用DSPMSGQSYSOPR看有何信息，一般是需要回答的信息。A12：Systemrequest=>;Enter=>;option4Q2：但是我按任何按鍵都不起作用呀，我怎么輸入命令呀？A21：你有可能在online操作，可以另外開一個5250終端或按系統(tǒng)請求鍵，然后在命令行上輸入樓上的命令A(yù)22：你首先應(yīng)該做的就是先查看具體的消息內(nèi)容：shift+esc==>;選擇displaysysoprmessage然后根據(jù)具體的消息才能決定下一步做什么Q3：DeviceTAP01cannotprocessloadedvolume.(CRINZ)好像是磁帶的格式不對，但我是用INZTAP格式化的磁帶呀，怎么會不對呢？A31：回復INZ就可以了。原因是400認為磁帶的格式不對（很可能是所做的格式化跟磁帶機的類型不符）。初始化就可以了。A32：對，先回復INZ，然后一路F3退到原來的界面400上C/C++程序調(diào)用PGM調(diào)用處理的方法解釋一：1、先用預(yù)處理命令將rpg程序映射成C/C++API。2、直接調(diào)用映射后的api即可大家提到的system或者*exec()的函數(shù)，不但性能低，而且根本沒辦法讓c程序處理rpg程序返回參數(shù)。映射成capi方式，才是萬能的方法。在c程序預(yù)處理段如下聲明即可：#pragmalinkage(pgmrpg,os,nowiden)main(){pgmrpg(parm1,parm2,rtncod);}建議所有的傳入?yún)?shù)最好采用字符指針，約定長度。另外，c程序取rpg程序參數(shù)時，用memcpy函數(shù)拷貝。調(diào)用處理的方法解釋二：在OS/400中，ILEC如何調(diào)用ILERPG程序？/support/docview.wss?uid=csc10a51294c5b22e6f648256f3900080d9fDocument-:2822324J26000Body:[標題]在OS/400中，ILEC如何調(diào)用ILERPG程序？內(nèi)容提要:在AS/400的開發(fā)中通常會遇到兩種不同的語言之間的調(diào)用問題,例如，ILEC的程序如何調(diào)用ILERPG程序，本文將通過一個簡單的例子來說明調(diào)用過程。說明:本文主要用兩個程序來說明ILEC如何調(diào)用ILERPG程序，一個程序是ILEC程序，程序名式PMGC；一個程序是ILERPG程序，程序名式ILERPG。這兩個程序的內(nèi)容如下：ILEC程序：PGMC***************Beginningofdata**********0001.00#include<stdio.h>0001.01#pragmalinkage(PGMRPG,OS,nowiden)0001.02intmain(intargc,char*argv2){0001.03char*parm1;0001.04char*parm2;0001.05printf("nCprogramn");0001.06parm1=argv1;0001.07parm2=argv2;0001.08printf("nparm1=%sn",parm1);0001.09printf("nparm2=%sn",parm2);0001.10PGMRPG(parm1,parm2);0001.11return;0001.12}******************Endofdata*************ILERPG程序:PGMRPG***************Beginningofdata***************0001.00Dparm1S10a0001.01Dparm2S10a0001.02C*entryplist0001.03Cparmparm10001.04Cparmparm20001.05C'RPGprogram'dsply0001.06C'parm1='dsply0001.07Cparm1dsply0001.08C'parm2='dsply0001.09Cparm2dsply0001.10eval*inlr=*on******************Endofdata******************這兩個程序都是相互獨立的可以單獨運行的程序,PRGC程序可以用語句PGMRPG(parm1,parm2);直接調(diào)用ILERPG程序PGMRPG要特別注意ILEC中的語句#pragmalinkage(PGMRPG,OS,nowiden)，它的作用是設(shè)定編譯器的狀態(tài)或者是指示編譯器完成一些特定的動作。#pragma指令對每個編譯器給出了一個方法,在保持與C和C++語言完全兼容的情況下,給出主機或操作系統(tǒng)專有的特征。依據(jù)定義,編譯指示是機器或操作系統(tǒng)專有的,且對于每個編譯器都是不同的。#pragmalinkage(PGMRPG,OS,nowiden)，這里的PGMRPG是FUNCTIONNAME,就是被調(diào)用的ILERPG程序的程序名;OS的含義是按照OS/400的特性傳遞變量；nowiden的含義是變量是按照值進行進行傳遞的。CALLPGMCPARM('ILOVE''IBM')注：關(guān)于如何調(diào)用的詳細描述可以參考IBMREDBOOK：《ILEC_C++Programmer’sGuide.pdf》中Chapter16.CallingConventions章節(jié)內(nèi)容自編的一個簡單示例：TAPINI.CLPPGMPARM(&TAPDEV&RTNMSG)DCLVAR(&TAPDEV)TYPE(*CHAR)LEN(5)DCLVAR(&RTNMSG)TYPE(*CHAR)LEN(60)DCLVAR(&MSGID)TYPE(*CHAR)LEN(7)DCLVAR(&MSGDTA)TYPE(*CHAR)LEN(60)DCLVAR(&MSGFLIB)TYPE(*CHAR)LEN(10)DCLVAR(&MSGF)TYPE(*CHAR)LEN(10)INZTAPDEV(&TAPDEV)NEWVOL(TAP001)CHECK(*NO)MONMSGMSGID(CPF0000)EXEC(GOTOCMDLBL(ERROR))RMVMSGMSGQ(*PGMQ)CLEAR(*ALL)CHGVARVAR(&RTNMSG)VALUE('SUCCESS')GOTOENDERROR:RCVMSGMSGDTA(&MSGDTA)MSGID(&MSGID)MSGF(&MSGF)+MSGFLIB(&MSGFLIB)RTVMSGMSGID(&MSGID)MSGF(&MSGFLIB/&MSGF)MSG(&RTNMSG)+MSGDTA(&MSGDTA)END:ENDPGM注意：通過在ERROR處的處理，可以將系統(tǒng)的錯誤信息根據(jù)錯誤代碼自動轉(zhuǎn)換成錯誤提示信息TAPINIT.C#include<stdio.h>#include<stdlib.h>#include<string.h>#pragmamap(TapInit,"TAPINI");#pragmalinkage(TapInit,OS,nowiden)intTapInit(char*devname,char*retmsg);intmain(){longlrl_ret;charlrs_msg[60];charlrs_devname[20];memset(lrs_msg,0,sizeof(lrs_msg));memset(lrs_devname,0,sizeof(lrs_devname));strcpy(lrs_devname,"TAP01");strcpy(lrs_msg,"");lrl_ret=TapInit(lrs_devname,lrs_msg);printf("lrl_ret=(%d)-(%s)\n",lrl_ret,lrs_msg);return0;}AS400上C開發(fā)編譯簡介編輯C源代碼文件，可以在400上直接編輯，也可以在其他機器（win/unix）上編輯完成后，ftp到400主機上，注意ftp的時候記得使用quotetypec1386命令將編輯完成的C源代碼進行編譯，可以使用14=Compile15=Createmodule命令進行編譯，若為單個的原代碼編譯，可以直接使用14進行編譯（CreateBoundCProgram(CRTBNDC)），編譯可以直接生成可以執(zhí)行的PGM；若該源碼為一個系統(tǒng)中的一個模塊需要編譯，則使用15進行編譯（CreateCModule(CRTCMOD)），編譯完成后，可以產(chǎn)生該源碼對應(yīng)的Moudle；編譯過程中，可以在輸入14或15后，按F4，選擇參數(shù)信息；編譯過程中若出現(xiàn)錯誤，則可以使用dspjoblog命令查看，或者使用sp查看產(chǎn)生的SPOOLFILE編譯完成后，若為多個源碼編譯成一個執(zhí)行碼的情況，需要使用CRTPGM命令編譯出PGM執(zhí)行碼，在CRTPGM輸入后，可以按F4，選擇編譯參數(shù)；多個源碼編譯產(chǎn)生的PGM，其中部分源碼發(fā)生變化，需要重新編譯時，先編譯產(chǎn)生新的MODULE，更新已有的PGM執(zhí)行碼編譯時，可以使用UPDPGM編譯，參數(shù)中只輸入需要更新的MODULE即可編譯完成后，可以使用CALLPGM（PGMNAME）來調(diào)用執(zhí)行，也可以使用SBMJOB提交批處理方式執(zhí)行命令如何查看已備份磁帶的內(nèi)容DisplayTape(DSPTAP)……Datatype...........>;*SAVRST*LABELS,*SAVRST……LABELS和SAVRST選項有什么不同SAVRST能夠列出你磁帶里的目錄，內(nèi)容LABELS只是你的磁帶一個屬性表直接用dsptap指令，然後輸入對應(yīng)的參數(shù)，就能顯示了。其中Sequencenumber........SEQNBR是存在磁帶中不同object的順序。他是從1開始計算的。如果你有多個object存在tap中，那麼你可以修改該參數(shù)，以達到顯示不同存儲順序的內(nèi)容了?；謴?查看備份的內(nèi)容使用命令RSTLIB（對應(yīng)備份命令SAVLIB），EX：RSTLIBSAVLIB(EASYMIS)DEV(TAP01)RSTLIB(BAKMIS)此命令將備份的庫EASYMIS從磁帶TAP01上恢復到BAKMIS庫中RSTLIBSAVLIB(EASYCORE)DEV(TAP01)RSTLIB(BAKCORE)OUTPUT(*OUTFILE)OUTFILE(EASYMAP/RSTLOG)OUTMBR(RSTCORE)此命令將備份的庫EASYMIS從磁帶TAP01上恢復到BAKMIS庫中，同時記錄恢復文件EASYMAP/BAKLOG.RSTCORE恢復的時候，可以指定恢復哪個備份的庫，恢復到哪個庫里面（注意：不一定要恢復到原備份的庫中，可以恢復到其他名字的庫中）關(guān)于備份后的查看備份的命令：查看磁帶命令DSPTAP，或者DSPSAVF等在磁帶的備份中，若同時一個SAVLIB保存多個庫的情況，比如使用如下命令保存數(shù)據(jù)：SAVLIBLIB(EASYCOREEASYPUBEASYMIS)DEV(TAP01)ENDOPT(*REWIND)SAVACT(*SYNCLIB)SAVACTWAIT(600)ACCPTH(*YES)OMITOBJ((*ALL*JRN)(*ALL*JRNRCV))OUTPUT(*OUTFILE)OUTFILE(EASYMAP/BAKLOG)上面的命令同時備份了3個庫在TAP01設(shè)備上，在需要顯示磁帶內(nèi)容的時候，若是使用命令：DSPTAPDEV(TAP01)DATA(*SAVRST)此時，只是顯示了第一個庫的備份情況，無法顯示多個庫的備份情況；若希望顯示另外的庫備份情況，可以使用DSPTAP的SEQNBR參數(shù)，選擇查看第幾個備份的庫信息，例如：DSPTAPDEV(TAP01)SEQNBR(2)DATA(*SAVRST)此命令將顯示磁帶上第2個庫的備份情況，其他庫文件的查看顯示依此類推查看LIBRARY占用的磁盤空間方法一：有時用戶需要查看某個Library占用多少AS/400的硬盤空間，有沒有簡單的辦法呢？其實很簡單，可以用一個命令實現(xiàn)：DSPLIBLIB(TESTLIB)OUTPUT(*PRINT)這個命令執(zhí)行后會生成一個假脫機文件QPDSPLIB，這個文件包括這個Library中各個Object的size和這個Library中所有Object所占用的硬盤空間方法二：sbmjobcmd(rtvdskinf)prtdskinfrpttype(*lib)這樣你可看到整個系統(tǒng)lib大小注意：使用RTVDSKINF這條命令是有要求的，首先有權(quán)限要求。其次需要用WRKDIRE命令將你的用戶加入到DirectoryEntries中去。然后SUBMIT到后臺去一個不錯的400軟件下載地址/jbmmdietz/iseries.html一個老外寫得Freeware.很多工具很好用。比如我想要的察看QZDASOINIT對應(yīng)的IP.還有這個地址也很不錯http://www.help400.de/Freeware.htm日志激活狀態(tài)下刪除400庫的方法通過strsql創(chuàng)建的LIB，當進行dropdatabase操作的時候，特殊情況下可能會由于日志文件仍處于激活狀態(tài)導致整個LIB無法刪除，報錯如下：或者通過WRKOBJPDM進入LIB，刪除對應(yīng)的日志接收器時，報錯：遇到以上錯誤時，可通過如下解決辦法處理：QSYS/WRKJRNAJRN(EASYCORE/QSQJRN)使用F19命令即可查看哪些目標正在使用該日志文件，將正在使用該日志文件的目標文件一個個的使用ENDJRNPF命令停止日志記錄即可。停止后，可以正常的刪除對應(yīng)的庫文件了。通用日志管理AS/400系統(tǒng)上有日志（JRN）和日志接收器（JRNRCV）目標對象，用來存放對數(shù)據(jù)庫文件進行增刪改等操作的日志記錄。日志接收器是存放日志記錄的具體地方，它可以是由一個無限增大的文件組成，也可以是由多個固定大小的文件組成。多個日志接收器文件形成日志接收器鏈，當當前ATTACHED的有限大小的日志接收器滿了以后，系統(tǒng)會自動產(chǎn)生或由用戶產(chǎn)生一個新的同樣屬性的接收器文件。用CHGJRN命令可以改變產(chǎn)生新的日志方式，當Managereceivers（MNGRCV）選項選擇*SYSTEM時，系統(tǒng)會自動產(chǎn)生新的日志接收器，當Managereceivers（MNGRCV）選項選擇*USER時，則當日志接收器滿了以后，需要由用戶產(chǎn)生新的日志接收器。當Managereceivers（MNGRCV）選項選擇*SYSTEM時，可以在Deletereceivers（DLTRCV）選項里選擇*YES來讓系統(tǒng)自動刪除已經(jīng)被DETACH的日志接收器文件。但如果我們希望定制保留固定個數(shù)的日志記錄，或者保存若干天的日志記錄，或者其他一些原因不能讓系統(tǒng)自動刪除日志接收器，那么我們就必須手工刪除日志接收器，如果系統(tǒng)業(yè)務(wù)比較頻繁，產(chǎn)生日志接收器量比較大，可能會很快使系統(tǒng)硬盤空間漲滿，那么我們手工維護日志接收器的工作量很大。在一般的雙機熱備系統(tǒng)中比如MIMIX、OMS等都提供了日志管理功能，本文提供一個與這些軟件日志管理功能類似的獨立的一個通用日志管理工具，可以使你不需要依靠其他軟件就可以獨立地由程序來完成日志管理工作。保留日志接收器，通常有兩種方式，一種是按時間即天來保留，一種是按日志記錄個數(shù)來保留。本文的例子是按日志記錄個數(shù)來保留日志接收器的。但按照該例的方法也可以很容易實現(xiàn)按天來保留日志接收器。修改命令：CHGJRNJRN(EASYCORE/QSQJRN)DLTRCV(*YES)

相關(guān)資料收集一些概念基本術(shù)語解釋對象對象是系統(tǒng)上可以操作的已命名的空間。對象的最常見的示例是文件和程序。其它類型的對象包括命令、隊列、庫和文件夾。系統(tǒng)上的對象由對象名稱、對象類型和對象駐留在其中的庫標識。系統(tǒng)上的每個對象都可受保護。庫庫是用于將其它對象分組的一種特殊類型的對象。系統(tǒng)上的許多對象駐留在庫中。目錄目錄是將系統(tǒng)上的對象分組的另一種方法。對象可以駐留在目錄中。一個目錄可以駐留在另一目錄中，從而形成一種分層結(jié)構(gòu)。組概要文件組概要文件定義一組用戶。將組概要文件看作是部門策略。可以將組概要文件用作創(chuàng)建單個用戶概要文件的模式。還可以使用組概要文件來定義允許組的成員如何訪問系統(tǒng)上的對象。有關(guān)組概要文件的更多信息，參見主題“計劃用戶組”。用戶概要文件用戶概要文件是系統(tǒng)上功能最強大的通用對象。它包含諸如用戶密碼以及用戶注冊后看到哪個菜單。用戶概要文件定義用戶在系統(tǒng)上可以執(zhí)行和不能執(zhí)行的操作。它確定用戶的唯一系統(tǒng)視圖。主題“計劃用戶安全性”討論用于計劃用戶概要文件的技巧。作業(yè)描述作業(yè)描述使用系統(tǒng)值和用戶概要文件來確定系統(tǒng)處理用戶作業(yè)的方式。作業(yè)描述設(shè)置用戶的初始庫列表，該庫列表確定用戶在注冊之后自動獲取其訪問權(quán)的庫。歷史日志（historylog）：a.記錄作業(yè)的開始，結(jié)束；設(shè)備活動狀態(tài)；QSYSOPRMessage中所有的消息；PTF活動狀態(tài)b．historylog記錄在隊列QHST中c．QHST的存儲大小由系統(tǒng)值QHSTLOGSIZE定義作業(yè)日志（Joblog）a．job結(jié)束的時候，joblog寫到QPJOBLOG中，然后joblog被刪除;當交互式作業(yè)正常結(jié)束時，通常joblog不會被發(fā)送到j(luò)oblog，非正常結(jié)束時才提交。b．如何控制寫入joblog中的內(nèi)容：通過CHGJOBD來修改JOBD中的參數(shù)－LOG。LOG參數(shù)有三個可選參數(shù)messagelevel,messageseverity,messagetextc．如何查看joblog*如果作業(yè)已經(jīng)結(jié)束，joblog還沒打印，使用WRKUSRJOB選項8（displayspooledfile）找到脫機文件名為QPJOBLOG，選擇5查看*如果job沒有結(jié)束或者正在隊列中，使用WRKUSRJOB或者WRKACTJOB查看*顯示交互作業(yè)的joblog：DSPJOBLOGd．DSPJOBLOG中特殊符號的意義：>>正在運行的命令或下一個要運行的命令>作業(yè)已被處理

。。命令沒有被處理

？需要回復消息e．為了防止系統(tǒng)定期清理joblog，可以發(fā)送joblog文件到獨立的輸出隊列CHGPRTFFILE(QPJOBLOG)OUTQ(QEZJOBLOG)JobTablea．如果jobtable太大，系統(tǒng)性能將受到影響（在IPL過程中）b．使用CHGIPLA命令改變選項，以壓縮JOBtable。c．使用命令DSPJOBTBL顯示jobtable。其中會包含的信息：*jobtalbe的數(shù)量*jobtalbe的尺寸，字節(jié)數(shù)*在jobtalbe中包含的條目數(shù)*對于新使用的job的條目數(shù)*在job隊列（活動job或者已經(jīng)完成但還沒有脫機到輸出隊列中的job）中，當前被使用的條目數(shù)。*在job隊列（活動job或者已經(jīng)完成但還沒有脫機到輸出隊列中的job）中，當前未被使用的條目數(shù)。批處理作業(yè)：a．提交批處理作業(yè)的方法*立即提交*計劃提交b．立即提交：SBMJOB輸入批處理需要的命令，如果提交的是程序，則前面加CALL。例如：CALLTESTJOB。如果提交的是RExx程序包，使用STRARRExx(STRRExPRC)c．計劃提交：WRKJOBSCDE或者在SBMJOB中輸入計劃運行的時間d．如果job隊列沒有隸屬于某個子系統(tǒng)，則運行在這個job隊列中的job將不會被運行?？梢允褂肅HGJOB命令來移動job到別的job隊列中e．改變job的優(yōu)先級*最高級為0，最低級為9。用戶提交的job最高優(yōu)先級為1，0為保留給系統(tǒng)，用以改變優(yōu)先級為1的job，使它處于隊列的最頂處。f．如果使用CHGJOB改變job的優(yōu)先級，打印優(yōu)先級或者時間片，它只能影響一次，下次運行時將恢復成原始值。要想持續(xù)有效，需要改CLASS.消息（message）：a．messageID的格式：CPF0083CPA~CPZ：系統(tǒng)消息CBE~CBX：cobol消息LBE~LSC：colbol消息MCH：LIC消息QRG~RXT：RPG語言消息SBX~SSC：colbol消息SQL：SQL消息常用的目標類型列表：*LIB庫*FILE文件*MSGF信息文件*PGM程序*CMD命令*JOBQ作業(yè)隊列*DTAQ數(shù)據(jù)隊列*MSGQ信息隊列*OUTQ輸出隊列*DTAARA數(shù)據(jù)域*JRN日志*JRNRCV日志接受器*USRPRF用戶簡要表*SBSD子系統(tǒng)描述*JOBD作業(yè)描述*LIND線路描述*CTLD控制器描述*DEVD設(shè)備描述常用的目標操作列表：*WRK工作*CRT建立*ADD增加*CHG改變*DLT刪除*DSP顯示*EDT編輯*CPY拷貝*MOV移動*RNM變名*SAV備份*RST恢復*RTV獲取*GRT授權(quán)*DMP轉(zhuǎn)儲關(guān)于文件類型的補充：*DTAQ*DTAARA*MSGF*QRYDFN這些類型的object一般是在CL中用到，相應(yīng)的由命令語句生成，相應(yīng)的由如下命令生成CRTDTAQ創(chuàng)建一個數(shù)據(jù)對列?？赡苓@個數(shù)據(jù)隊列功能要多于一般隊列，可以在不同400服務(wù)器通信。CRTDTAARA創(chuàng)建一個數(shù)據(jù)區(qū)域，可以是一個臨時的存放數(shù)據(jù)的區(qū)域，可理解成一個全局變量，它有一個好處就是更改變量值不需要重新編譯調(diào)用它的程序。比如有用戶不確定的統(tǒng)計某個車間的庫存數(shù)，可動態(tài)的改變這個dataarea區(qū)域里的變量值（增加，減少變量）就可以統(tǒng)計不同車間的庫存數(shù)這樣不需編譯這個調(diào)用它的程序。CRTMSGF創(chuàng)建自己的messagefile,一般系統(tǒng)messagefile是在這個命令可檢索到WRKMSGFMSGF(*ALL)WRKQRY400提供了一個專門做query文件的功能，可以方便的過濾，累加一些字段。做完這種query后就生成了*QRYDFN對象。在TYPE處按下F1鍵可看看。*DTAQAdataqueue(*DTAQ)objectisusedtocommunicateandstoredatausedbyseveralprogramsinajoborbetweenjobs.Multiplejobscansendandreceivedatafromasingledataqueue.*DTAARAAdataarea(*DTAARA)objectcontainsadatavaluethatcanbeusedandchangedbydifferentjobs.*MSGFAmessagefile(*MSGF)objectcontainsmessagedescriptions,whichareusedtdescribestatusanderrorconditions.*QRYDFNAquerydefinition(*QRYDFN)objectcontainsinformationaboutaqueryorreportdefinedbyauseroftheQuery/400licensedprogram.關(guān)于lock的一些概念鎖的五種類型(1)Exclusive(*EXCL):只有該鎖的路徑選擇過程(routingstep)才可能使用該對象；在其他任務(wù)中的路徑選擇過程不能存取該對象。(2)Exclusive-allow-read(*EXCLRD):占用該鎖的路徑選擇過程可能讀或更新該對象，而其他任務(wù)中的路徑選擇過程只能讀它。(3)Shared-for-update(*SHRUPD):占用該鎖的路徑選擇過程以及在其他任務(wù)中的路徑選擇過程是可以讀或更新該對象。(4)Shared-no-update(*SHRNUP):占用該鎖的路徑選擇過程只可以讀該對象；而在其他任務(wù)中的路徑選擇過程也是只讀該對象。(5)Shared-for-read(*SHRRD):占用該鎖的路徑選擇過程只可以讀該對象；而在其他任務(wù)中的路徑選擇過程是可以讀或更新該對象。

缺省情況下，CL和HLL(高級語言程序）程序只在輸入(I)物理文件成員的數(shù)據(jù)上放置SHRRD鎖，并在只輸出(O)和輸入-輸出(U)物理文件成員的數(shù)據(jù)上放置*SHRUPD鎖。后面這一句不是很理解，為什么O/U類型的文件不放*EXCLRD鎖呢？個人理解應(yīng)是只允許當前程序更新，別的程序只能讀。需要高手指教！

顯示對象(object)和記錄(record)的鎖有三個命令：(1)wrkobjlck:查看由所有任務(wù)在一個對象上使用的lock。(2)dsprcdlck(displayrecordlocks):查看一個物理文件中已鎖定的記錄.(3)dspjob:查看一個任務(wù)的所有外部鎖，包括已使用的那些鎖和該任務(wù)正等待使用的那些鎖。AS400口令問題A：我們公司一臺as400，好久沒有關(guān)機了，今天居然發(fā)現(xiàn)秘密不對，里面有重要的應(yīng)用，而且用戶也給鎖掉了，不知道該怎么辦，希望大俠指點。Q：如果是DST密碼不對，可以用22222222登陸，密碼22222222，或者用戶11111111，密碼11111111如果是IPL用戶密碼不對，則需要在控制面板調(diào)到01DMV=F,放入系統(tǒng)光盤第一張，起來后，把系統(tǒng)的密碼恢復。A：5.1的DST密碼被改了，現(xiàn)在把密碼忘了，怎么把密碼取出Q：CHGDSTPWD*DEFAULT需要用QSECOFR用戶，而且新的密碼不能與以前所用的相同實用命令查看當前所有用戶情況wrkusrjobuser(*all)status(*active)jobtype(*interact)astlvl(*basic)查看系統(tǒng)SPOOLFILEWRKSPLF查看用戶屬性wrkusrprf把某個文件發(fā)送到打印機上CHGPRTFFILE(FILENM)OUTQ(PRINTERNAME)對PGM的操作命令CRTPGMMOD創(chuàng)建PGMMODULECRTPGM創(chuàng)建PGMUPDPGM更新PGMDLTPGM刪除PGM修改用戶口令修改口令使用命令CHGPWD系統(tǒng)授權(quán)相關(guān)命令系統(tǒng)權(quán)限分為兩個主要類型：特殊權(quán)限和指定權(quán)限。特殊權(quán)限是由用戶特征文件來定義的；指定權(quán)限則允許用戶對系統(tǒng)目標指定操作。指定權(quán)限使用命令：GRTOBJAUT來授權(quán)，使用RVKOBJAUT來收回權(quán)限，或者使用命令EDTOBJAUT編輯權(quán)限。查看周期作業(yè)的定義信息：WRKJOBSCDEQSYSWorkwithJobScheduleEntries常用CL命令系統(tǒng)功能命令命令功能修改過程控制

CALL(Call)調(diào)用一個程序CALLPRC(CallProcedure)調(diào)用一個過程RETURN(Return)返回到引起程序或過程運行的下一條命令CL過程界限PGM(program)(1)指出CL過程源碼的開始ENDPGM(EndProgram)(1)指出CL過程源碼的結(jié)束CL過程邏輯IF(If)(1)根據(jù)邏輯表達式的值執(zhí)行命令ELSE(Else)(1)對IF命令為假條件定義采取的行動DO(Do)(1)指出DO組的開始ENDDO(EndDo)(1)指出DO組的結(jié)束GOTO(GoTo)(1)轉(zhuǎn)移到另外的命令CL過程變量CHGVAR(ChangeVariable)(1)修改CL變量的值DCL(Declare)(1)說明一個變量替換CHGVAR(ChangeVariable)(1)修改CL變量的值CVTDAT(ConvertDate)(1)修改日期格式數(shù)據(jù)區(qū)CHGDTAARA(ChangeDataArea)修改數(shù)據(jù)區(qū)CRTDTAARA(CreateDataArea)生成一個數(shù)據(jù)區(qū)DLTDTAARA(DeleteDataArea)刪除一個數(shù)據(jù)區(qū)DSPDTAARA(DisplayDataArea)顯示一個數(shù)據(jù)區(qū)RTVDTAARA(RetrieveDataArea)把數(shù)據(jù)區(qū)的內(nèi)容復制到一個CL變量中文件ENDRCV(EndReceive)(1)

取消由前面的RCVF,SNDF或SNDRCVF命令對一個顯示文件發(fā)出的輸入請求.DCLF(DeclareFile)(1)說明一個顯示文件或數(shù)據(jù)庫文件RCVF(ReceiveFile)(1)從顯示文件和數(shù)據(jù)庫文件中讀記錄RTVMBRD(RetrieveMemberDescription)(1)取