除了一般的crtlib的方式，用strsql再“create shema miaoyu”方式創(chuàng)建lib，有一個(gè)好處就是所有操作都會(huì)寫(xiě)journal。

當(dāng)然這樣做的后果是，源文件都會(huì)以table的形式保存下來(lái)，因?yàn)樵趕chema中pysical file為表：

為了安全起見(jiàn)，將當(dāng)前目錄和當(dāng)前庫(kù)設(shè)為自己的目錄和文件：

查看當(dāng)前目錄：dspcurdir；創(chuàng)建目錄：crtdir ‘/home/miaoyu’；設(shè)置當(dāng)前目錄：chgcurdir ‘/home/miaoyu’

查看當(dāng)前庫(kù)：dsplib中type.CUR；設(shè)置當(dāng)前庫(kù)：chgcurlib miaoyu

然后可以進(jìn)行文件創(chuàng)建編譯了：

addpfm file(miaoyu/csrc2) mbr(mytestc) , 其中miaoyu/csrc2為/root/home/miaoyu下文件名；mytestc為為這個(gè)model創(chuàng)建的member名稱(chēng)

wrkobjpdm = wo (work with objects using pdm)

通過(guò)“12” : work with ：

通過(guò)“2” : Edit ，進(jìn)入 SEU ，進(jìn)行文件編輯

/*? ****************************** Begin: SEU Editor 使用方法 **************************** */

0. 初始狀態(tài)：

1. 插入行：在數(shù)據(jù)行最左邊輸入I2(I: Insert, 2: 2行)：

F5去除空行；F10光標(biāo)定位到seu命令行上。

I* 插入行

保存成員：SEU=>FILE，會(huì)回到work with members using pdm界面，可以繼續(xù)選2進(jìn)行編輯，或者14進(jìn)行編譯，等。

用file進(jìn)入work with members using pdm界面后，文件即保存了，此時(shí)9 “保存”會(huì)出現(xiàn)savobj的界面：

另外如果用F3，則會(huì)進(jìn)入提示是否保存的界面。

刪除行：D。D*為刪除從該行開(kāi)始的*行。

用格式行插入源語(yǔ)句：IF命令：如IFPF2為增加一行格式行與兩個(gè)空行(Insert Format Line)

提示插入源語(yǔ)句並全屏：seu命令行處輸入“set expert”

IP命令：如IPPF，SEU在顯示底部給出PF的提示(Insert Promote)

退出：set expert off

用F修改一個(gè)格式行，用F5可以去除格式行，D也可以。

查找命令：

SEU=>set match (查找大小寫(xiě)匹配的字符串)

SEU=>F ‘DAPT’ (查找dapt)

用執(zhí)行鍵或F16，光標(biāo)定位到下一個(gè)匹配字串

復(fù)制粘貼：

編輯成員時(shí)F15出現(xiàn)瀏覽/復(fù)制顯示；F12取消分屏

用提示修改記錄：P；F5取消提示

自定義promote的提示：

在本例中用戶(hù)的提示叫做CD，包括CUSTNAME, CUSTADDRES, CUSTCITY, CUSTPOSTAL

a. 定義提示碼：在編輯中(比如插入兩行，直接使用是不可以的)P?, IP?, 或F23

F23進(jìn)入選擇界面：

在第13行第1列給出CUSTNAME的題頭：

依次將剩余三個(gè)提示加上，最后形如：

顯示提示的方法：用F11

修改SEU編輯狀態(tài)只能大寫(xiě)之類(lèi)的問(wèn)題：

編輯狀態(tài)下F13

/*? ****************************** End: SEU Editor 使用方法 **************************** */

當(dāng)編輯好了，想進(jìn)行編譯或運(yùn)行時(shí)，默認(rèn)的設(shè)置是提交到batch中，如下最下行提示信息所示：

我們?nèi)绻胱屗⒓磮?zhí)行，則可以對(duì)default屬性進(jìn)行修改：F18

將compile in batch和run in batch改掉。然后看到了編譯界面：

編譯成功后顯示：

退出，然后wo miaoyu 可以看到：

然后12選擇work with，進(jìn)入work with programs界面，執(zhí)行的話(huà)，用9調(diào)用：

然后看到了屏顯：

如果期望打在journal中：需要修改源文件，調(diào)用as400的接口：

總結(jié)

以上是生活随笔為你收集整理的as400 c语言程序,AS400上的C編程的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。