Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1062430
  • 博文数量: 106
  • 博客积分: 9093
  • 博客等级: 中将
  • 技术积分: 2770
  • 用 户 组: 普通用户
  • 注册时间: 2006-06-01 17:22
文章分类

全部博文(106)

文章存档

2014年(1)

2012年(29)

2011年(32)

2010年(20)

2008年(24)

分类: 系统运维

2012-04-24 17:02:08

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

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

主机申请

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

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

     clip_image002

     选择链接AS/400 data center

     clip_image004

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

     clip_image006

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

Pcomm

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

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

     clip_image008

2. 单击New Session...按钮

clip_image010

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

clip_image012

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

clip_image014

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

clip_image016

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

clip_image018

Pcomm键盘

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

clip_image020

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

clip_image022

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,具体参考。所以要写source必须先有Library和Source File。在红框内输入下面的命令创建我们需要的Library和Source File:

clip_image024

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管理画面,如图:

clip_image026

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

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

clip_image028

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

clip_image030

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

clip_image032

clip_image034

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

clip_image036

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


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

阅读(2393) | 评论(1) | 转发(0) |
给主人留下些什么吧!~~

添小丁2013-05-08 12:44:10

非常感谢楼主的分享,最近想要在家中学习一下400,正苦于没有账号,解决了燃眉之急。