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的接口：

转载于:https://www.cnblogs.com/lizmy/archive/2011/05/17/2048722.html