AS400上的C编程

时间:2022-04-14 12:13:09

除了一般的crtlib的方式,用strsql再“create shema miaoyu”方式创建lib,有一个好处就是所有操作都会写journal。

当然这样做的后果是,源文件都会以table的形式保存下来,因为在schema中pysical file为表:

AS400上的C编程

为了安全起见,将当前目录和当前库设为自己的目录和文件:

查看当前目录:dspcurdir;创建目录:crtdir ‘/home/miaoyu’;设置当前目录:chgcurdir ‘/home/miaoyu’

查看当前库:dsplib中type.CUR;设置当前库:chgcurlib miaoyu

然后可以进行文件创建编译了:

AS400上的C编程

 

addpfm file(miaoyu/csrc2) mbr(mytestc) , 其中miaoyu/csrc2为/root/home/miaoyu下文件名;mytestc为为这个model创建的member名称

AS400上的C编程

 

wrkobjpdm = wo (work with objects using pdm)

AS400上的C编程

 

通过“12” : work with :

AS400上的C编程

 

通过“2” : Edit ,进入 SEU ,进行文件编辑

AS400上的C编程

 

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

0. 初始状态:

AS400上的C编程

 

1. 插入行:在数据行最左边输入I2(I: Insert, 2: 2行):

AS400上的C编程

AS400上的C编程

 

F5去除空行;F10光标定位到seu命令行上。

I* 插入行

保存成员:SEU=>FILE,会回到work with members using pdm界面,可以继续选2进行编辑,或者14进行编译,等。

用file进入work with members using pdm界面后,文件即保存了,此时9 “保存”会出现savobj的界面:

AS400上的C编程

另外如果用F3,则会进入提示是否保存的界面。

AS400上的C编程

 

删除行:D。D*为删除从该行开始的*行。

AS400上的C编程

 

用格式行插入源语句:IF命令:如IFPF2为增加一行格式行与两个空行(Insert Format Line)

AS400上的C编程

 

提示插入源语句并全屏:seu命令行处输入“set expert”

IP命令:如IPPF,SEU在显示底部给出PF的提示(Insert Promote)

退出:set expert off

 

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

AS400上的C编程

 

查找命令:

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

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

用执行键或F16,光标定位到下一个匹配字串

 

复制粘贴:

编辑成员时F15出现浏览/复制显示;F12取消分屏

AS400上的C编程

AS400上的C编程

AS400上的C编程

 

用提示修改记录:P;F5取消提示

AS400上的C编程

 

自定义promote的提示:

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

a. 定义提示码:在编辑中(比如插入两行,直接使用是不可以的)P?, IP?, 或F23

AS400上的C编程

F23进入选择界面:

AS400上的C编程

AS400上的C编程

 

AS400上的C编程

 

在第13行第1列给出CUSTNAME的题头:

AS400上的C编程

依次将剩余三个提示加上,最后形如:

AS400上的C编程

显示提示的方法:用F11

 

修改SEU编辑状态只能大写之类的问题:

编辑状态下F13

AS400上的C编程

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

当编辑好了,想进行编译或运行时,默认的设置是提交到batch中,如下最下行提示信息所示:

AS400上的C编程

我们如果想让他立即执行,则可以对default属性进行修改:F18

AS400上的C编程

将compile in batch和run in batch改掉。然后看到了编译界面:

AS400上的C编程

编译成功后显示:

AS400上的C编程

退出,然后wo miaoyu 可以看到:

AS400上的C编程

然后12选择work with,进入work with programs界面,执行的话,用9调用:

AS400上的C编程

然后看到了屏显:

AS400上的C编程

如果期望打在journal中:需要修改源文件,调用as400的接口:

AS400上的C编程