除了一般的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的接口: