as400 c语言程序,AS400上的C編程

除了一般的crtlib的方式，用strsql再“create shema miaoyu”方式創建lib，有一個好處就是所有操作都會寫journal。

當然這樣做的后果是，源文件都會以table的形式保存下來，因為在schema中pysical file為表：

為了安全起見，將當前目錄和當前庫設為自己的目錄和文件：

查看當前目錄：dspcurdir；創建目錄：crtdir ‘/home/miaoyu’；設置當前目錄：chgcurdir ‘/home/miaoyu’

查看當前庫：dsplib中type.CUR；設置當前庫：chgcurlib miaoyu

然后可以進行文件創建編譯了：

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

wrkobjpdm = wo (work with objects using pdm)

通過“12” : work with ：

通過“2” : Edit ，進入 SEU ，進行文件編輯

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

0. 初始狀態：

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

F5去除空行；F10光標定位到seu命令行上。

I* 插入行

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

用file進入work with members using pdm界面后，文件即保存了，此時9 “保存”會出現savobj的界面：

另外如果用F3，則會進入提示是否保存的界面。

刪除行：D。D*為刪除從該行開始的*行。

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

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

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

退出：set expert off

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

查找命令：

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

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

用執行鍵或F16，光標定位到下一個匹配字串

復制粘貼：

編輯成員時F15出現瀏覽/復制顯示；F12取消分屏

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

自定義promote的提示：

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

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

F23進入選擇界面：

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

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

顯示提示的方法：用F11

修改SEU編輯狀態只能大寫之類的問題：

編輯狀態下F13

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

當編輯好了，想進行編譯或運行時，默認的設置是提交到batch中，如下最下行提示信息所示：

我們如果想讓他立即執行，則可以對default屬性進行修改：F18

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

編譯成功后顯示：

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

然后12選擇work with，進入work with programs界面，執行的話，用9調用：

然后看到了屏顯：

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