AS400培訓(xùn)資料(上)

1、as400培訓(xùn)資料（上）as400應(yīng)用開(kāi)發(fā)基礎(chǔ)知識(shí)培訓(xùn)教材前言本教材提供給參與本次項(xiàng)目開(kāi)發(fā)的項(xiàng)目成員，目的是使大家能夠盡快地掌握基本的程序開(kāi)發(fā)。本次培訓(xùn)分兩階段，第一階段講解as400的數(shù)據(jù)文件和基本的 rpg編程內(nèi)容共四章。第二階段講解as400的較為深入的內(nèi)容以及交易程序的編寫(xiě)。在教材中對(duì)于as400的技術(shù)理論不作過(guò)多的講解，主要圍繞 rpg 編程使用的物理文件，邏輯文件，程序三塊進(jìn)行講解。結(jié)合我們?cè)谝郧绊?xiàng)目的培訓(xùn)的過(guò)程中學(xué)員反映的重點(diǎn)和難點(diǎn)，根據(jù)我們個(gè)人的理解，對(duì)一些概念進(jìn)行了通俗化的描述。在講解過(guò)程中，將通過(guò)及時(shí)的交流和溝通，盡量的把大家都帶入門(mén)由于時(shí)間短和水平有限，在教材中和講解中難

2、免有錯(cuò)漏，請(qǐng)大家見(jiàn)諒！教材編寫(xiě)組第一章 物理文件的建立物理文件用于存放數(shù)據(jù)使用 seu進(jìn)行編輯產(chǎn)生的 member不是物理文件，而是物理文件的定義物理文件一般由member 編譯產(chǎn)生后，但它的存在不會(huì)依賴member的存在源物理文件是特殊的物理文件，用于存放各類源代碼的定義， 在本章中若無(wú)特殊說(shuō)明物理文件均指存放數(shù)據(jù)（record）的物理文件（pf-dta ）物理文件的刪除，必須在刪除建立在該物理文件上的邏輯文件刪除之后物理文件的數(shù)據(jù)， 受已經(jīng)建立的邏輯文件影響，如非重復(fù)關(guān)鍵字或非重復(fù)關(guān)鍵字組合（即這些關(guān)鍵字能夠唯一確定一條記錄）在 rpg 程序中因?yàn)樾实脑?，一般不使用物理文件進(jìn)行操作建立

3、物理文件的準(zhǔn)備建立 library的操作crtlib + library的名字 直接按默認(rèn)的配置生成或 crtlib+f4 create library (crtlib) type choices, press enter. library . . . . . . . . . . . . sss name library type . . . . . . . . . . *prod *prod, *test text description . . . . . . . 這是一個(gè)用來(lái)測(cè)試的 library bottof3=exit f4=prompt f5=refresh f10=additio

4、nal parameters f12=cancel 建立存放源程序的源物理文件建立源物理文件的方法crtsrcpf+ f4create source physical file (crtsrcpf) type choices, press enter. file . . . . . . . . . . . . . . wjdsrc name library . . . . . . . . . . . sss name, *curlib record length . . . . . . . . . 92 number member, if desired . . . . . . . *none

5、 name, *none, *file user specified dbcs data . . . . *yes *no, *yes text description . . . . . . . 這是測(cè)試用的源文件bottof3=exit f4=prompt f5=refresh f10=additional parameters f12=cancel 備注: user specified dbcs data 該項(xiàng)必須選擇 *yes, 否則在建立的 srcpf 中將不能使用漢字進(jìn)入源物理文件（ srcpf ）的方法strpdm 3 specify members to work with t

6、ype choices, press enter. file . . . . . . . . . . wjdsrc name, f4 for list library . . . . . . . . sss *libl, *curlib, name member: name . . . . . . . . . *all *all, name, *generic* type . . . . . . . . . *all *all, type, *generic*, *blank 或使用 wrkobjpdm+f4或 wrklibpdm+f4或 wrkmbrpdm+f4在以上命令中若不使用f4則將使

7、用最近一次使用的環(huán)境建立定義物理文件的（類型為pf ）memberf6 使用 f6 鍵產(chǎn)生新的memberstart source entry utility (strseu) type choices, press enter. source file . . . . . . . . . . wjdsrc name, *prv library . . . . . . . . . . . sss name, *libl, *curlib, *prv source member . . . . . . . . . wjdtstpf name, *prv, *select source type

8、. . . . . . . . . . pf name, *same, bas, basp. text description . . . . . . . 這是測(cè)試用的bottf3=exit f4=prompt f5=refresh f12=cancel f13=how to use this display as400的編輯器 seu的內(nèi)容，常用的操作使用編輯器進(jìn)行物理文件的結(jié)構(gòu)定義執(zhí)行后進(jìn)入以下畫(huà)面columns . . . : 1 71 edit sss/wjdsrc 名稱seu= 行命令輸入?yún)^(qū) wjdtstpffmt pf .a.t.name+rlen+tdpb.functions+

9、提示行* beginning of data * 行號(hào)序號(hào)區(qū)域 內(nèi)容輸入?yún)^(qū) * end of data *f3=exit f4=prompt f5=refresh f9=retrieve f10=cursor f11=toggle 行命令區(qū)域常用的命令t 移到頭部 b 移到尾部f+字符串 ( 不必用引號(hào) ) 查找字符串c + 要替換的字串 +替換成的字串 (+a) 替換字符串 ( 或全部替換)行號(hào)序號(hào)區(qū)域常用的命令i 插入一行 in 插入 n 行d 刪除一行 dn 刪除 n 行dd 將兩個(gè) dd之間的行刪除 . c 將本行進(jìn)行拷貝 , 此命令必須與 a或 b配合使用cc 將兩個(gè) cc之間的行進(jìn)

10、行拷貝 , 此命令必須與 a或 b配合使用m 將本行進(jìn)行移動(dòng) , 此命令必須與 a或 b配合使用mm 將兩個(gè) mm 之間的行進(jìn)行移動(dòng) , 此命令必須與 a或 b配合使用a after 將拷貝或移動(dòng)的行放到本行后面bbefore 將拷貝或移動(dòng)的行放到本行后面在本區(qū)域輸入行號(hào)可以快速將編輯窗口移到所輸?shù)男? 以該行作第一行 ) 請(qǐng)大家在今后的練習(xí)中多加使用! 一個(gè)物理文件的ddscolumns . . . : 1 71 edit sss/wjdsrcseu= wjdtstpffmt pf .a.t.name+rlen+tdpb.functions+* beginning of data *0001

11、.00 a r wjdpf 0001.01 a* 上行是說(shuō)明記錄的名稱 pf 0002.00 a penumb 3p 0 0002.01 a* 上行是將個(gè)人序號(hào)說(shuō)明為位長(zhǎng)度的整數(shù)（小數(shù)長(zhǎng)度為 0 ）0003.00 a colhdg( 個(gè)人序號(hào) ) 0004.00 a pename 10o 0004.01 a* 上行將個(gè)人中文名說(shuō)明為 10 個(gè)漢字長(zhǎng)0005.00 a colhdg( 個(gè)人中文名 ) 0006.00 a peennm 12a 0006.01 a* 上行將個(gè)人英文名說(shuō)明為 12 個(gè)字母長(zhǎng)度0007.00 a colhdg( 個(gè)人英文名 ) 0008.00 a pesary 7p 2

12、 0008.01 a* 上行將每日消費(fèi)說(shuō)明為 7 位長(zhǎng)，其中小數(shù)位為 2 位長(zhǎng)的數(shù)值0009.00 a colhdg( 每日消費(fèi) ) * end of data *f3=exit f4=prompt f5=refresh f9=retrieve f10=cursor f11=toggle colhdg 用來(lái)在進(jìn)行數(shù)據(jù)的顯示dspdbf（見(jiàn) p19） 和 upddta（見(jiàn) p18）時(shí)作為域的說(shuō)明，便于理解域的內(nèi)容，若不使用colhdg 則這些內(nèi)容為定義域時(shí)的域名，如個(gè)人序號(hào)將為 penumb注意: 在輸入 colhdg 的）時(shí) window的輸入法可能不是處于中文狀態(tài)！因此輸入的）可能為中文的）

13、造成錯(cuò)誤（亮條 )f3退出此時(shí)屏幕出現(xiàn)member 存盤(pán)exit type choices, press enter. change/create member . . . . . . . y y=yes, n=no member . . . . . . . . . . . . . wjdtstpf name, f4 for list file . . . . . . . . . . . . . . wjdsrc name, f4 for list library . . . . . . . . . . . . sss name text . . . . . . . . . . . . . .

14、 這是測(cè)試用的resequence member . . . . . . . . y y=yes, n=no start . . . . . . . . . . . . . 0001.00 0000.01-9999.99 increment . . . . . . . . . . . 01.00 00.01-99.99 print member . . . . . . . . . . . n y=yes, n=no return to editing . . . . . . . . . n y=yes, n=no go to member list . . . . . . . . . n y=

15、yes, n=no 此時(shí)若想取消本次修改的內(nèi)容則change/create member 選項(xiàng)改為 n存盤(pán)后產(chǎn)生 member wjdtstpfwork with members using pdm s105067file . . . . . . wjdsrc library . . . . sss position to . . . . . type options, press enter. 2=edit 3=copy 4=delete 5=display 6=print 7=rename 8=display description 9=save 13=change text 14=com

16、pile 15=create module.opt member type text wjdtstpf pf 這是測(cè)試用的bottoparameters or command = f3=exit f4=prompt f5=refresh f6=create 將定義物理文件的member編譯產(chǎn)生物理文件pf的編譯方法為了把數(shù)據(jù)文件和源文件分開(kāi)先建立存放pf的 library 使用命令 crtlib sssdta 方法一 使用 crtpf+f4 方法二 直接在 member前的 opt中選擇 14+f4進(jìn)行編譯work with members using pdm s105067file . .

17、. . . . wjdsrc library . . . . sss position to . . . . . type options, press enter. 2=edit 3=copy 4=delete 5=display 6=print 7=rename 8=display description 9=save 13=change text 14=compile 15=create module.opt member type text 14 wjdtstpf pf 這是測(cè)試用的bottoparameters or command = f3=exit f4=prompt f5=re

18、fresh f6=create 按下 f4后出現(xiàn) crtpf 的畫(huà)面create physical file (crtpf) type choices, press enter. file . . . . . . . . . . . . . . wjdtstpf name library . . . . . . . . . . . sssdta name, *curlib source file . . . . . . . . . . wjdsrc name library . . . . . . . . . . . sss name, *libl, *curlib source member . . . . . . . . . wjdtstpf name, *file record length, if no dds . .