AS400 op

这道练习没有代码，它的主要目的是让你可以在计算机上写AS/400相关的代码。你尽量按着说明进行操作就可以了。

      通常我们可以使用Pcomm（Personal Communications）或CA（Client Access）来连接AS/400主机进行开发。大家可以根据需要自行下载Pcomm或CA。

AS/400 主机申请

      开发需要AS/400主机。给大家提供一个AS/400主机申请的地址：http://www.rzkh.de/ ，不过默认申请的账户权限有限。

      此网站默认是德文，点击红框的图表网站就变成英文的了。

    

     选择链接AS/400 data center

    

     选择链接sign up!申请自己的用户。按照提示输入具体信息，直到完成申请。

    

     然后使用Pcomm或CA登录服务器地址PUB1.RZKH.DE，就可以使用AS/400主机了。

配置 Pcomm

下面介绍一下Pcomm的配置，CA的配置大同小异。如下:

1. 如果你安装了Pcomm，就可以在开始→IBM Personal Communications→Start or Configure Sessions，如图

    

2. 单击New Session...按钮

3. Type of Host选择iSeries，单击Link Parameters...按钮

4. 在Primary处填入AS/400主机地址或域名，把auto-Reconnect复选框选择上。

5. 当在3处单击Session Parameters...按钮时,会出现如下对话框。你可以选择Screen Size为24*80或27*132，Host Code-pages是根据系统进行进行设置，如系统是英文的话就是选择037。如图

5. 成功连接到AS/400主机。

配置 Pcomm键盘

1. 我们可以在Pcomm的菜单中找到键盘的设置Edit→Preferences→Keyboard...,如图。

2. 一般需要改的就是Current Keyboard项和Keyboard-File Name项。当Current Keyboard项为IBM Default时，我们不需要修改Keyboard-File Name项；当是User-Defined时，我们需要提供一个后缀名问.KMP的文件。下图中就有一个简单的.KMP文件。

AS400.KMP文件

[Profile]

ID=KMP

Version=5

[KEYBOARD]

S-KEY7='^'

A-KEY20=apl 20

KEY27=ansi 5b

KEY28=ansi 5d

KEY43=[enter]

S-KEY43=[enter] //回车

C-KEY43=[dead]

C-KEY46=[edit-undo] //Ctrl + Z

C-KEY47=[edit-cut] //Ctrl + X

C-KEY48=[edit-copy] //Ctrl + C

C-KEY49=[edit-paste] //Ctrl + V

KEY64=[newline]

S-KEY64=[newline]

注意：其中//xxx的内容为注释，不应为.KMP文件的内容。

使用 SEU

1. 在使用SEU（Source Entry Utility）前，先简单的介绍一下AS/400的文件管理模式:Library→File→Member，具体参考IBM i信息中心-文件和文件系统。所以要写source必须先有Library和Source File。在红框内输入下面的命令创建我们需要的Library和Source File：

CRTLIB LIB(LAPTHW) TEXT('learn as/400 programming the hard way')

CRTSRCPF FILE(LAPTHW/QCLSRC) TEXT('cl source')

CRTSRCPF FILE(LAPTHW/QDDSSRC) TEXT('dds source')

CRTSRCPF FILE(LAPTHW/QRPGLESRC) RCDLEN(112) TEXT('rpgle source')

CRTSRCPF FILE(LAPTHW/QQMQRYSRC) RCDLEN(91) TEXT('qm query source')

CRTSRCPF FILE(LAPTHW/QSQLSRC) TEXT('sql source')

CRTSRCPF FILE(LAPTHW/QSRVSRC) TEXT('service symbol source')

CRTSRCPF FILE(LAPTHW/QCMDSRC) TEXT('cmd source')

CRTSRCPF FILE(LAPTHW/QFTPSRC) TEXT('ftp source')

2. AS/400提供一个名PDM（Programming Development Manager）的工具为开发人员。我们可以使用命令STRPDM来进入PDM管理画面，如图：

如果你对IBM提供的工具，命令等的不理解，你可以随时随地的按F1来获得帮助。。。

3. 在PDM用户界面选择3. Work with members,填入File和Library名。现在主流AS/400平台上的开发语言是RPGLE，以后主要将的也是RPGLE。所以在此处我们填入QRPGLESRC和LAPTHW。如图：

4.上图回车后会进入Work with Members Using PDM界面。如图：

5.在此界面按F6=Create来创建一个新Member，系统就会启动STRSEU命令，在此需要填写Member名，Member的类型和此Member的简单描述，如图1；也可以直接使用STRSEU命令来创建Member，如图2，我们需要提供更多的参数。

6.回车后我们就可以开始编码了。如图：

你可以按F1来获取更多的帮助。。。

尽量熟悉PDM和SEU，如插入一行代码，复制一行代码，移动一行代码等等。。。你可以通过在行号处按F1得到跟过帮助。。。

v