★★揭开CODE/400神秘的面纱★★

中国IT动力,最新最全的IT技术教程

最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档

当前位置：> 操作系统 > IBM Server

★★揭开CODE/400神秘的面纱★★

作者:未知时间:2005-09-13 15:47 出处:ChinaUnix.net 责编:chinaitpower

摘要：★★揭开CODE/400神秘的面纱★★

CODE/400作为WDSC的一部分，也是IBM AS/400学习课程OL20(CLP开发)、AS06(RPG IV初级)、AS07(RPG IV中级)、AS10(RPG IV高级)首推、可视化、基于AS/400小型机上使用的开发工具。在这个BBS论坛许多朋友早有耳闻，但真正运用在日常开发中可能还为数不多。

本文将以本地环境OS/400 V5R2M0为起点，从安装、配置、基础使用等角度进行详细阐述，一步步地将大家带入CODE/400世界，揭开她神秘的面纱。

[b:1b541546b2]一、运行CODE/400的前提条件：[/b:1b541546b2]

1、OS/400必须有支持的5722WDS这个LICPGM 。

2、必须有安装在PC端的WDSC V4.0软件，该软件在V5R2M0版本装机时有配备光盘，所占1.25GB空间大小。

qingzhou 回复于：2004-12-07 22:17:58

[b:a7a98f88b4]二、配置CODE/400通信：[/b:a7a98f88b4]

1、安装WDSC完毕，重新启动PC机，在电脑右小角会自动启动一个“通讯守护进程”，然后用右键点击图标选择“属性”进行配置：

2、或者开始-程序-IBM WDSC-通信-通信控制台进行配置：

qingzhou 回复于：2004-12-07 22:21:52

3、配置本地AS/400 IP地址和登陆OS/400的帐户信息：

4、注意：如果要支持简体中文，同时在“本地设置”将“缺省CCSID”由默认的 37→935。

qingzhou 回复于：2004-12-07 22:25:10

5、为判断本地AS/400机器是否满足运行CODE/400的条件，可通过运行开始-程序-IBM WDSC-通信-检查PTF 来检测：

qingzhou 回复于：2004-12-07 22:27:58

[b:4971622e2a]三、启动CODE/400：[/b:4971622e2a]

1、在安装完WDSC后，系统会自动在PC桌面上创建2个文件夹：VisualAge RPG项目、CODE项目，我们打开“CODE项目”，双击new.cpo新建本地CODE Projects ：

2、在新建的项目名称中自行给予命名，确定后会弹出项目设置窗口，无须更改直接点确定进入下一步：

qingzhou 回复于：2004-12-07 22:30:39

3、选择添加过滤器-AS/400-成员，然后选择好本地AS/400服务器，同时手动输入想要编辑的库名，确定：
（备注：用同样方法可添加库、对象，注意正确选取想要处理的库名和对象名，否则系统需要为检索消耗比较长的时间。）

4、检索成功对应的成员后，出现如下画面，心急的会想，我赶紧点击右边对应的PF不就可以开始编辑PF啦，嘿嘿，别激动，先执行下一步骤后再开始使用吧，否则有时会出现如下出错画面：

qingzhou 回复于：2004-12-07 22:32:50

5、打开Display Session，登陆OS/400后在命令行执行：

STRCODE SERVER(S65F6F8B) RMTLOCNAME('172.31.193.111') CMNTYPE(*TCPIP)

6、STRCODE 启动运行“CODE/400”产品的主机服务器作业，至此，可以开始使用CODE/400进行编写代码了。

qingzhou 回复于：2004-12-07 22:36:08

[b:630f1b1ff1]四、简单介绍如何运用CODE/400进行编写PF、DSPF、RPG：[/b:630f1b1ff1]

1、例如打开QDDSSRC/REFILE这个公共数据字典（PF）文件：

2、公共数据字典（PF）的各个字段一目了然：

qingzhou 回复于：2004-12-07 22:39:38

3、点击“编辑DDS”按钮可对PF进行编辑：

4、可通过F4键快捷、准确地帮助修正、定位PF中代码：

qingzhou 回复于：2004-12-07 22:46:01

5、同样利用CODE/400可以方便、形象编写DSPF文件和RPG文件：

[b:3765501877]五、结束语：[/b:3765501877]

CODE/400功能非常强大，编辑界面也很友好，它还支持脱机编辑代码、语法检验、通过鼠标拖拉快速修改DSPF等等，由于篇幅有限，无法一一详细阐述，通过本文希望能够给读者起到抛砖引玉的作用。

hanyu 回复于：2004-12-08 08:34:55

辛苦了。
掌声鼓励， :em02: :em02: :em02:

tom9030 回复于：2004-12-08 08:47:50

辛苦了。是依照《iseries技术指南》里摸索的吗？

ibmas400 回复于：2004-12-08 10:12:39

这篇文章应该是qingzhou的个人有感而写，是参加IBM课程学习后取回来的真经。

谢谢啦，qingzhou真的可以出书了。:em02:

xuguopeng 回复于：2004-12-08 10:24:09

STRCODE的时候IP是指PC的IP？？

我这PC都是动态的IP咋办？

qingzhou 回复于：2004-12-08 16:12:08

[quote:6861816577="xuguopeng"]STRCODE的时候IP是指PC的IP？？

我这PC都是动态的IP咋办？[/quote:6861816577]

Sorry，已订正。。。

julian_wong 回复于：2004-12-08 17:40:00

好人,qingzhou!
辛苦了。

prowoo 回复于：2004-12-12 18:03:26

好深奥???

ibmas400 回复于：2004-12-12 22:00:54

[quote:332128dae6="prowoo"]好深奥???[/quote:332128dae6]
还以为AS/400区来了新高手，原来是Linux版区的新朋友来凑热闹。 :shock:

blogliou 回复于：2004-12-13 11:21:05

好软件，怎么才能弄到CODE/400 & WDSC软件呢？

qingzhou 回复于：2004-12-14 09:00:50

[quote:a0000a7fff="blogliou"]好软件，怎么才能弄到CODE/400 & WDSC软件呢？[/quote:a0000a7fff]

我这边的CD是装机时配的，所占容量还挺大的，1.25GB。
没有FTP服务器，都没办法上传使用。

要支持CODE/400，好象OS/400 还必须满足V5以上版本。

hahawang 回复于：2004-12-20 10:44:59

好文章!
楼主辛苦！

djking99 回复于：2004-12-23 10:26:26

[quote:501b3ee2f6="qingzhou"]

我这边的CD是装机时配的，所占容量还挺大的，1.25GB。
没有FTP服务器，都没办法上传使用。

要支持CODE/400，好象OS/400 还必须满足V5以上版本。[/quote:501b3ee2f6]

我们公司买机器配了一套 IBM WebSphere Development Tools for iSeries,一共有5张安装盘,还有一张DVD演示盘,不知道是不是这个啊!?
或者有谁知道这个是有什么用的告诉我!
我觉得可能是搞WebSphere开发用的!

qingzhou 回复于：2004-12-23 13:20:59

[quote:eace983933="djking99"]

我们公司买机器配了一套 IBM WebSphere Development Tools for iSeries,一共有5张安装盘,还有一张DVD演示盘,不知道是不是这个啊!?
或者有谁知道这个是有什么用的告诉我!
我觉得可能是搞WebSphere?.........[/quote:eace983933]
应该是这套光盘了。其中有3张是CD格式，有1张是DVD格式，里面的内容都是一样的，光盘正面标识“Development Studio Client for iSeries”。

wildfish 回复于：2005-01-07 13:38:06

[code:1:e9e1afd86e]
FM@PGMMSGFMCF   E             WORKSTN
     D M@PGMMSGPG      PR                    OPDESC
     D   PTYPE                        7      CONST
     D   PMSG                        70      CONST
     D   PRTN                         1
     D M@PGMMSGPG      PI                    OPDESC
     D   PTYPE                        7      CONST
     D   PMSG                        70      CONST
     D   PRTN                         1
     D*
     D*
      /FREE
         EVAL DVMSG=PMSG
         SELECT
          WHEN PTYPE='*INFO'
            EVAL *IN60=*OFF
            WRITE DUMSG
          WHEN PTTYPE='*NOTIFY'
            EVAL *IN60=*OFF
            EXFMT DUMSG
          WHEN PTTYPE='*RQS'
            EVAL *IN60=*ON
            EVAL DVYN=PRTN
            EXFMT DUMSG
            EVAL PRTN=DVYN
          WHEN PTTYPE='WNOTIFY'
            EXFMT DWMSG
          ENDSL

          RETURN
      /END-FREE
[/code:1:e9e1afd86e]
感觉比在400上编辑舒服多了，看到的代码比较多，还能够生成程序架构

hsiang_wang 回复于：2005-01-07 14:30:29

为人民服务！

fairyboy 回复于：2005-07-13 17:28:44

啊哦，我怎么没看到有这样的光盘捏^-^#,有没盗版的刻录盘．

qingzhou 回复于：2005-07-13 20:22:07

市场上要找盗版还真难，除非去刻录。上海有这么多400用户，你通过MSN问问朋友，看看哪家公司有这个软件，借来COPY一下就行了。

tom9030 回复于：2005-07-14 08:35:37

我有，谁要？总共4张碟

fairyboy 回复于：2005-07-14 13:04:52

我想要，在哪？

bpcsusr 回复于：2005-07-14 15:16:47

支持.

jlwrp 回复于：2005-07-14 16:40:40

我也想要可不可以搞到FTP上去啊，

riancy1106 回复于：2005-07-16 00:22:49

景仰中！

关闭本页