AS400基礎(chǔ)培訓(xùn)

1、as/400 基礎(chǔ)培訓(xùn)作者：陳騰飛第 1 頁 共 14 頁as/400 基礎(chǔ)培訓(xùn)目錄1as/400 體系結(jié)構(gòu)介紹.21.1as/400 性能概述 .21.2對(duì)象和對(duì)象管理.21.3工作管理 .32as/400 的基本操作 .42.1菜單、入口、列表和信息.42.2常用命令 .53ile rpg/400編程入門 .63.1文件的創(chuàng)建和操作 .63.1.1物理文件.63.1.2邏輯文件.73.2ile rpg 程序編寫 .73.2.1常用規(guī)范表 .73.2.2內(nèi)部函數(shù).93.2.3表達(dá)式 .93.2.4操作碼 .103.3模板學(xué)習(xí) .113.4編程練習(xí) .124sql/400 介紹 .12as/4

2、00 基礎(chǔ)培訓(xùn)作者：陳騰飛第 2 頁 共 14 頁1as/400 體系結(jié)構(gòu)介紹1.1 as/400 性能概述集成性as/400 把數(shù)據(jù)庫、通訊、安全性等功能集中在操作系統(tǒng)中，最大限度地實(shí)現(xiàn)了各功能之間的兼容性。開放性支持 sna、tcp/ip 協(xié)議， db2/400 可與大多數(shù)數(shù)據(jù)庫系統(tǒng)實(shí)現(xiàn)互聯(lián)?？梢浦矊?duì) spec1170 的支持可達(dá)到95%，相當(dāng)于一般unix 操作系統(tǒng)。兼容性所有應(yīng)用可上下兼容?？蛇B接性啞終端（ 5250） 、仿真終端（ pc communication 、client access 、gui）可支付性可擴(kuò)充性1.2 對(duì)象和對(duì)象管理基于對(duì)象as/400 中， mi 由指令和

3、對(duì)象組成。也就是說，as/400 是基于對(duì)象（object-based）的系統(tǒng)，而不是一個(gè)面向?qū)ο螅╫bject-oriented）的系統(tǒng)。在as/400 中，對(duì)象不具備集成性，也沒有類和子類的概念。在 as/400 的定義中，系統(tǒng)上所有可存儲(chǔ)和檢索的東西，都叫做對(duì)象。對(duì)象由描述這個(gè)對(duì)象的描述和它的值組成。對(duì)象的描述包括：名稱、類型、大小、建立日期、建立對(duì)象者提供的簡(jiǎn)單描述、以及存儲(chǔ)對(duì)象的庫的名稱。對(duì)象的要素目錄名、對(duì)象名和對(duì)象類型唯一確定一個(gè)對(duì)象。對(duì)象目錄as/400 中的目錄結(jié)構(gòu)是單層的，因此對(duì)象的表達(dá)形式為“l(fā)ibrary/object ” 。特殊系統(tǒng)目錄 qsys 可指向其他目錄。目錄

4、的兩種類型：production 和 test。目錄表*libl 、*curlib 、*syslibl 、*usrlibl 、 *ibm 、 *allusr 、*all edtlibl ， addlible ，dsplibl 、 chgcurlib 、qsyslibl 、 qusrlibl 對(duì)象的類型*pgm 、*file 、*lib 、*jobd 、*usrprf 、*jobq 、*dtaara 、*cmd 、*msgq 等。對(duì)象的權(quán)限as/400 基礎(chǔ)培訓(xùn)作者：陳騰飛第 3 頁 共 14 頁用戶描述：包含user class、objectsowened and authorized 、 a

5、uthorization of objects、privileged instructions and special authorities等。用戶類security officer （ *secofr）security administrator （ *secadm ）system programmer（ *pgmr ）system operator（*sysopr）workstation user（*user ）可操作對(duì)象自己擁有的對(duì)象他人授權(quán)訪問的對(duì)象有公共權(quán)限的對(duì)象對(duì)象的權(quán)限*all （對(duì)象的操作、管理、生存、權(quán)限表管理、讀、添加、刪除和修改）*change （對(duì)象的操作、讀、添加、

6、刪除和修改）*use（對(duì)象的操作、讀）*exclude( 無權(quán)訪問對(duì)象) 特權(quán)指令和特殊權(quán)限*allobj *secadm *savsys *service *jobctl *splctl *iosyscfg *audit 程序引用權(quán)限組權(quán)限authorization list和 group profile。權(quán)限查找user profile、 group profile 、public 1.3 工作管理作業(yè)（ job）打印作業(yè)（ spooling ）交互作業(yè)（ interactive ）后臺(tái)作業(yè)（ batch ）自啟動(dòng)作業(yè)（ autostart ）通訊作業(yè)（ communica tion ）組

7、成作業(yè)的3 部分：作業(yè)號(hào)、用戶名和作業(yè)名，number/user/name。子系統(tǒng)（ subsystem）是一個(gè)預(yù)定義的操作環(huán)境，對(duì)應(yīng)每個(gè)子系統(tǒng)有一個(gè)子系統(tǒng)描述?？稍O(shè)置最大并發(fā)作業(yè)數(shù)、as/400 基礎(chǔ)培訓(xùn)作者：陳騰飛第 4 頁 共 14 頁內(nèi)存池大小和個(gè)數(shù)、作業(yè)的來源、作業(yè)的運(yùn)行屬性等。qbase、qbatch 、qinter 、qctl 、qcmn 、qspl 內(nèi)存池（ storage pool）共享池（ shared pool）和私有池（ private pool）*machine （ qmchpool ）*base （qbaspool ）*spool *interact *shrpoo

8、l1-10 隊(duì)列（ queue）消息隊(duì)列（ message queue）作業(yè)隊(duì)列（ job queue）輸出隊(duì)列（ output queue）數(shù)據(jù)隊(duì)列（ data queue）作業(yè)描述（ job description ）設(shè)置作業(yè)的屬性，如job queue、job 在 job queue中的優(yōu)先級(jí)、 output queue、printer device、libl 等。dspjobd 命令sbmjob 缺省為 *usrprf 2as/400 的基本操作2.1 菜單、入口、列表和信息菜單菜單的組成菜單標(biāo)題、菜單標(biāo)識(shí)符、菜單選項(xiàng)列表、命令提示行、功能鍵、消息行菜單分類main, system,

9、assist, user 菜單操作go 菜單名入口（輸入界面）錄入命令選項(xiàng)f4 - 輸入項(xiàng)提示f1 - 輸入項(xiàng)幫助說明f5 - 刷新f12 - 取消錄入，并退出前一界面f3 - 退到用戶主菜單enter - 執(zhí)行命令f10 - 額外的命令f9 - 所有的命令as/400 基礎(chǔ)培訓(xùn)作者：陳騰飛第 5 頁 共 14 頁f24 - 更多的功能鍵顯示+ - 列表操作列表二維表格，顯示一組實(shí)體標(biāo)題- 對(duì)實(shí)體的描述操作選項(xiàng)- 對(duì)可選操作的描述輸入操作域- 輸入可選操作命令提示行功能鍵提示行消息提示行信息顯示幫助信息pageup/pagedown - 上下翻頁f12 - 退出至前一頁2.2 常用命令命令的組

10、成動(dòng)詞 +賓語命令參數(shù)關(guān)鍵字格式：cpyf fromfile （filea ）tofile （fileb ）位置格式： cpyf filea fileb 參數(shù)提示格式（f4）動(dòng)詞change - chg display - dsp end - end hold - hld release - rls start - str work with - wrk 賓語command - cmd data area - dtaara job queue - jobq output queue - outq spooled file - splf system value - sysval user pr

11、ofile - usrprf 常用命令object: crtdupobj 、 movobj 、 savobj、rstobj、 wrkobj 、 wrkobjlck 、 wrkobjpdm file: cpyf、dltf 、dspfd 、dspffd 、dspdbr 、crtsavf、 crtsrcpf、 clrsa vf、as/400 基礎(chǔ)培訓(xùn)作者：陳騰飛第 6 頁 共 14 頁upddta splf cpysplf、 dltsplf 、 dspsplf、 hldsplf 、 rlssplf 、 wrksplf 、 member 、clrpfm 、 rgzpfm 、 wrkmbrpdm lib

12、 crtlib 、dltlib 、 dsplib 、savlib 、rstlib 、wrklib 、wrklibpdm job chgjob、dlyjob 、 dspjob、dspjoblog 、 endjob 、 hldjob 、 rlsjob 、 sbmjob 、signoff 、wrkactjob 、 wrksbmjob 、wrksbsjob 、wrkusrjob system: dspsyssts、dspsysval、dsplog 、 wrksyssts 、wrksysv al message dspmsg、sndbrkmsg 、 sndmsg 、 wrkmsg msgf chgmsg

13、f 、 crtmsgf、 dltmsgf 、 wrkmsgf 、 addmsgd 、 chgmsgd 、 dspmsgd 、rmvmsgd 、 wrkmsgd 3ile rpg/400編程入門應(yīng)用設(shè)計(jì)的實(shí)現(xiàn)工具pdm (programing development manager)seu (source entry utility) dfu (data file utility) sda (screen design aid) rlu (report layout utility) 3.1 文件的創(chuàng)建和操作3.1.1 物理文件存取實(shí)際數(shù)據(jù)，對(duì)應(yīng)于表,可多成員。文件名：a-z, , $, # 開

14、頭其他： a-z,$,#, _, 0-9 少于等于10 個(gè)字符數(shù)據(jù)類型a - character o - dbcs open t - time z - timestamp s - zone decimal as/400 基礎(chǔ)培訓(xùn)作者：陳騰飛第 7 頁 共 14 頁p - packed decimal dds - 關(guān)鍵詞文件級(jí)： ref,unique,fifo,fcfo,lifo 記錄級(jí)： format，text 字段級(jí)： colhdg,alias, cmp ,range,v alues,reffld 關(guān)鍵字段級(jí)： descend,absv al,un-signed,signed 3.1.2 邏

15、輯文件用于排序，選擇，連接，有非連接邏輯文件和連接邏輯文件。非連接邏輯文件關(guān)鍵詞記錄級(jí)：增加pfile 字段級(jí)：增加rename 、concat 關(guān)鍵字段級(jí)：同物理文件select/omit關(guān)鍵詞：第17 列， s 為 select, o 為 omit ，對(duì)應(yīng)的關(guān)鍵詞有：all ，comp， value ， range 3.2 ile rpg 程序編寫如果第 7 列為* 則不管該行為什么規(guī)范表，都表示該行為注釋行。f 表和 d 表的第 43 列為保留列。3.2.1 常用規(guī)范表文件描述規(guī)范表（f 表）定義在程序中使用的每一個(gè)文件。第 6 列為 f；第 7-16 列為文件名；第 17 列為外部描述

16、文件的類型i 輸入文件o 輸出文件u 更新文件c 組合文件第 18 列為文件規(guī)定空格輸出文件f 全過程文件第 20 列為文件增加a對(duì)輸入文件或更新文件增加記錄，但c 表中必須有write 操作。第 22 列為文件格式e 外部描述文件。as/400 基礎(chǔ)培訓(xùn)作者：陳騰飛第 8 頁 共 14 頁第 34 列為文件格式空格按相對(duì)記錄數(shù)來處理文件k 按鍵字值來處理文件（僅對(duì)外部描述文件有效）。第 36-42 列為設(shè)備printer 打印文件disk 磁盤文件workstn 工作站文件（通過顯示文件輸入或輸出）第 44-80 列為鍵字commit 允許用戶在落實(shí)控制下處理文件infds （ds 名）定義

17、和命名一個(gè)數(shù)據(jù)結(jié)構(gòu)來存放與文件有關(guān)的反饋信息oflind （*inxx ） 定義一個(gè)溢出指示器（僅對(duì)printer 有效）rename （外部格式：內(nèi)部格式）外部文件的記錄格式重命名sfile（記錄格式：相對(duì)記錄號(hào)）說明子文件的相對(duì)記錄號(hào)（顯示文件中用）usropn 程序初始化時(shí)不打開文件定義規(guī)范表（d 表）用來定義數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)結(jié)構(gòu)子字段、獨(dú)立字段和命名常量。rpg iv 支持的數(shù)據(jù)類型字符型、數(shù)據(jù)型、圖表型、日期型、時(shí)間型、時(shí)間標(biāo)記型、基本指針型、過程指針型。第 6 列為 d；第 7-21 列為名字；第 22 列為外部描述表示數(shù)據(jù)結(jié)構(gòu)是外部描述的。第 24-25 列為外部描述表示數(shù)據(jù)結(jié)構(gòu)是

18、外部描述的。空格定義一個(gè)數(shù)據(jù)結(jié)構(gòu)子字段ds 定義一個(gè)數(shù)據(jù)結(jié)構(gòu)c 定義一個(gè)常量（25 列必須為空）s 定義一個(gè)獨(dú)立字段、數(shù)組或表第 26-32 列為 from 位置第 33-39 列為 to 位置或長(zhǎng)度，常量或獨(dú)立字段用like 鍵字時(shí)可為空第 40 列為內(nèi)部數(shù)據(jù)類型第 41-42 列為十進(jìn)制小數(shù)位第 44-80 列為鍵字const （常量）命名常量的值ctdata 表示為編譯時(shí)間數(shù)組datfmt （格式 分隔符 ）為日期字段規(guī)定格式和分隔符dim （數(shù)字常量）定義數(shù)組或表中元素的個(gè)數(shù)dtaara （數(shù)據(jù)區(qū)名） 把變量和外部數(shù)據(jù)區(qū)聯(lián)系extfld （字段名）給在外部描述數(shù)據(jù)結(jié)構(gòu)的子字段重命名ex

19、tname （文件名 ：格式 ） 說明外部文件的名字inz （常量） 初始化like （變量名）引用參數(shù)變量的屬性和長(zhǎng)度。overlay （名字 ：位置 ）在數(shù)據(jù)結(jié)構(gòu)子字段中覆蓋子字段prefix （前綴串 ：長(zhǎng)度 ）以前綴串替代外部描述數(shù)據(jù)結(jié)構(gòu)的子字段名的前綴timfmt （格式 ：分隔符 ）規(guī)定時(shí)間類型變量的格式或分隔符as/400 基礎(chǔ)培訓(xùn)作者：陳騰飛第 9 頁 共 14 頁計(jì)算規(guī)范表（c 表）第 6 列為 c；續(xù)行時(shí)第6 列為 c，7-35 為空， 36 之后續(xù)寫。c 表語句分計(jì)算說明語句和計(jì)算擴(kuò)展因子2 規(guī)范語句計(jì)算說明語句第 9-11 列（指示器）決定是否執(zhí)行某個(gè)計(jì)算第 12-25

20、 列（因子1）用來執(zhí)行操作的字段名或數(shù)據(jù)第 26-35 列（操作和擴(kuò)展）說明操作類型操作擴(kuò)展有 : 空格不支持?jǐn)U展操作h 數(shù)據(jù)操作的四舍五入結(jié)果n 讀更新磁盤文件記錄但不加鎖p 用空格來填充結(jié)果字段d 操作的描述或日期字段t 時(shí)間字段z 時(shí)間標(biāo)記字段第 36-49 列（因子2） 字段名、記錄格式或文件名或操作的實(shí)際數(shù)據(jù)等第 50-63 列（結(jié)果字段）字段名或記錄格式名第 71-76 列（結(jié)果指示器）檢測(cè)及過字段的值或支出文件末、錯(cuò)誤或記錄沒找到的情況。計(jì)算擴(kuò)展因子2 規(guī)范說明第 9-11 列（指示器）同上第 12-25 列（因子1） 必須為空格第 26-35 列（操作和擴(kuò)展）說明在擴(kuò)展因子2

21、使用表達(dá)式所執(zhí)行的種類操作擴(kuò)展有 : 空格不支持?jǐn)U展操作h 數(shù)據(jù)操作的四舍五入結(jié)果第 36-80 列（擴(kuò)展因子2） 自由格式語法，有操作數(shù)和操作符組成。3.2.2 內(nèi)部函數(shù)內(nèi)部函數(shù)的語法：函數(shù)名（自變量：自變量 ）%size（變量）返回字段占用的字節(jié)數(shù)。%subst( 串：起始位置 ：長(zhǎng)度 ) 返回自變量串的一部分。%trim （字符串）返回去掉引導(dǎo)及結(jié)尾空格的指定字符串。%triml （字符串）返回去掉前置空格的指定字符串。%trimr （字符串）返回去掉結(jié)尾空格的指定字符串。3.2.3 表達(dá)式表達(dá)式由操作數(shù)和運(yùn)算符組成，可作為計(jì)算規(guī)范表中的擴(kuò)展因子2。表達(dá)式可以是一元關(guān)系的表達(dá)式運(yùn)算符：+

22、 、 - 、not ；也可以是二元關(guān)系的表達(dá)as/400 基礎(chǔ)培訓(xùn)作者：陳騰飛第 10 頁 共 14 頁式運(yùn)算符： + （數(shù)據(jù)加或字符連接）- (減法 )、* （乘法）、* （取冪）、/ （除法）、= （等于）、= (大于等于 )、 (大于 )、= (小于等于 )、 (小于 )、 （不等于）、and （邏輯與）、or（邏輯或） ；也可以是內(nèi)部函數(shù)。運(yùn)算符的優(yōu)先級(jí)從高到低為1、 （）2、內(nèi)部函數(shù)3、一元關(guān)系的+，-， not 4、* 5、* ，/ 6、二元關(guān)系的+，- 7、=, = , , = , , 8、and 9、or 任何數(shù)據(jù)字段、命名常量或文字都可以作為操作數(shù)。3.2.4 操作碼add

23、（加）begsr（開始子過程）call （調(diào)用一個(gè)程序）callb （調(diào)用連接過程）chain （從文件中檢索）check（效驗(yàn)字符）clear （清除）close（關(guān)閉文件）commit （落實(shí)）delete （刪除記錄）div （除法）do（do）dou（do until ）dow（do while ）else（否則）endyy （結(jié)束一個(gè)結(jié)構(gòu)組）endsr（結(jié)束子程序）eval （計(jì)算表達(dá)式）exfmt( 寫/然后讀格式 ) exsr（激活子過程）if（if）in （檢索一個(gè)數(shù)據(jù)區(qū)）iter（重復(fù)）kfld （定義鍵字部分）klist （定義組合鍵字）leave（跳出一個(gè)do 組）loo

24、kup （查找表或數(shù)組元素）as/400 基礎(chǔ)培訓(xùn)作者：陳騰飛第 11 頁 共 14 頁move （傳送）movea （傳送數(shù)組）movel （左傳送）mult （乘法）mvr （傳送余數(shù)）open（打開文件）other（其他）out（寫數(shù)據(jù)區(qū)）pram （參數(shù)）plist （參數(shù)列表）read （讀一個(gè)記錄）readc（讀下一個(gè)修改過的記錄）reade （讀等于鍵字的記錄）readp（讀前面的記錄）readpe（讀前面等于鍵字的記錄）reset（重新設(shè)置）return （返回到調(diào)用者）rolbk （取消）scan（掃描子串）select （開始一個(gè)選擇組）setgt（設(shè)置大于）setll （

25、設(shè)置低界）setoff（設(shè)指示器off）seton（設(shè)指示器on）sqrt（求平方根）sub（減）time （時(shí)間）unlock （解鎖數(shù)據(jù)區(qū)或釋放一個(gè)記錄）update（修改存在的記錄）when （當(dāng)為真時(shí)選擇）write （生成新記錄）z-add （零加）z-sub（零減）3.3 模板學(xué)習(xí)顯示文件模版打印文件模版rpgle 程序模版clle 程序模版as/400 基礎(chǔ)培訓(xùn)作者：陳騰飛第 12 頁 共 14 頁3.4 編程練習(xí)按模版編寫一組簡(jiǎn)單的程序。4sql/400 介紹本節(jié)介紹基本sql語句和檢索、修改、刪除以及把數(shù)據(jù)插入表和視圖中的子句。sql 語句中常用的是select 、updat

26、e 、delete 和 insert四個(gè)語句。insert 語句insert into table-name (column1, column2, . ) values (value-for-column1, value-for-column2, . ) into子句規(guī)定列的名字，values 子句給在into子句里規(guī)定的列指定值。在 insert語句列表里命名的列，都必須在 values 子句里提供一個(gè)值。如果表中各列都有在 values 子句里提供的值， 那么列名可以省略。 如果某一列有一個(gè)缺省值，則鍵字 default可用做 values 子句中的值。update 語句 update 表

27、名 set 列-1 = 值-1, 列-2 = 值-2, . where 檢索條件 . 為了規(guī)定需要修改的行，使用where 子句：要修改一行，使用僅選擇一行的where 子句。要修改多行，使用選擇需要修改那些行的where 子句。可以省略where 子句，如果這樣，sql將修改表或視圖中提供值的每一行。delete 語句delete from 表名where 檢索條件where 子句告訴sql要從表中刪除哪些行。sql刪除所有符合基本表查詢條件的行。可以省略 where 子句，但最好還是包括它，因?yàn)闆]有where 子句的 delete語句將從表或視圖中刪除所有行。select 語句select

28、 子句用 select子句 ( 選擇語句的第一部分) ，設(shè)定要檢索的每列名稱，例如：select field1，field2 from file1 可以指定檢索一列， 或者至多8000 列。 檢索的列值按select子句指定的順序進(jìn)行。如果想檢索所有的列( 按出現(xiàn)在行中的相同順序) ，那么用星號(hào)(*) 不必寫列名：select * from file1 where 子句as/400 基礎(chǔ)培訓(xùn)作者：陳騰飛第 13 頁 共 14 頁where 子句設(shè)定一個(gè)檢索條件，用來識(shí)別需要檢索、修改、或刪除的行，用sql語句處理的行數(shù)由滿足where 子句查詢條件的行數(shù)決定。檢索條件由一個(gè)或多個(gè)謂詞組成，一個(gè)

29、謂詞指定一個(gè)檢測(cè)，sql對(duì)表的規(guī)定行進(jìn)行操作。group by 子句group by 子句允許找到多行的一組特性，而不是一行的特性。當(dāng)規(guī)定group by子句時(shí)， sql把選擇的行分組，使每組的行在一列或多列有相匹配的值。接下來，sql處理每組產(chǎn)生的單行結(jié)果?？梢栽?group by 子句中規(guī)定一列或多列給行分組。在 select語句中規(guī)定的項(xiàng)是行的每組屬性，而不是表或視圖各行的屬性。having子句對(duì)用 group by 子句選擇的分組，可以使用having子句規(guī)定檢索條件。having子句表明只要滿足子句條件的那些組。由having子句規(guī)定的檢索條件測(cè)試每組的屬性，而不是組里每行的屬性。h

30、aving子句在 group by子句之后，可包括由where 子句規(guī)定的同種檢索條件。另外，可以用having子句規(guī)定列函數(shù)。order by子句用 order by 子句可以指定按某個(gè)順序進(jìn)行檢索來選擇行，按列值的升序或降序進(jìn)行分類排序。 order by子句的使用與group by 子句類似：當(dāng)按分類順序檢索行時(shí)，規(guī)定列名或sql使用的一些列。從多個(gè)表中連接數(shù)據(jù)內(nèi)部連接用內(nèi)部連接， 一個(gè)表中一行的列值與另一表（或同一表） 中另一行的列值組合形成一個(gè)數(shù)據(jù)行。 sql檢查連接規(guī)定的每個(gè)表，來檢索滿足查找條件的所有行。有兩種方法指定一個(gè)內(nèi)部連接：用join 句法和用where 子句。用 joi

31、n 句法進(jìn)行內(nèi)部連接用內(nèi)部連接句法，想要連接的兩個(gè)表都列在from 子句中，加上連接所需的條件，連接條件在on鍵字后指定，用來決定兩個(gè)表怎樣互相比較并產(chǎn)生連接結(jié)果。條件可以是比較操作符，它不需要相等的操作，可以在用and鍵字分開的on子句中指定多個(gè)連接條件，對(duì)實(shí)際連接沒有影響的其它條件都在where 子句中規(guī)定。select fld1,fld22,fld2 from file1 join file11 on fld1=fld11 where fld1 s用 where 子句的內(nèi)部連接用 where 子句實(shí)現(xiàn)同樣的連接，是用連接條件和在where 子句中附加的選擇條件寫出的，被連接的表在from 子句中列出，之間用逗號(hào)分開。select fld1,fld22,fld2 from file1 , file11 where fld1=fld11 and fld1 s盡管用 join 句法和 where 子句進(jìn)行的內(nèi)部連接返回的結(jié)果是相同的，但這兩種方法的性