《最后100天的AS400学习心情笔记》

作者：AS400永远的菜鸟                                                                                日期：2004-5-25    

前言：看着同事一个接一个辞职，再看看自己的处境，决定把自己在公司最后的100天工作和学习经历给大家分享一下。 篇中关于AS400的内容 都是我在刚进公司到目前为止自己做的私人笔记，每日一篇的形式发送到论坛上。本人文笔很烂，请大家浏览时注意安全。

个人背景：男         工作地：上海      AS400工作年限：1年     

第一天：2004-5-25                                星期二                                                  天气   晴    
  所以当大家看到这篇心情日记的时候 我已经决定在100天后离开公司了，在这段时间希望大家一起讨论在学习AS400知识，因为我目前为止还是永远的菜鸟。
 如果让一个普通的AS400的RPG程序能够正常运行（自己编的），大概需要以下几个步骤：
1：建立数据库和源物理文件。CRTLIB 和 CRTSRCPF。
2：在SEU输入源语句建立相关的PF、LF、DSPF。PF~物理文件  LF~逻辑文件  DSPF~显示文件。
3：用CRTPF、CRTLF、CRTDSPF命令建立物理文件、逻辑文件、显示文件、
4：在SEU中输入源语句（RPG源语句），按照H、F、D、I、C、O顺序输入，其中H~指控制规范表，F~文件描述规范表，D~定义规范表、I~输入规范表、C~计算规范表、O~输出规范表。
5：建立程序：CRTPGMRPG 如果编译通过的话，则可以用 CALL 程序名 ，来调用程序。
小提示：如果发现建立文件时，出现 找不到某某的信息时，请先用EDTLIBL 把文件的LIB 加入。
        如果程序出错无法建立时，可以用 WRKOUTQ  用户名Q 来调试语法错误，而逻辑错误可以用DEBUG来调试。

fairyboy 回复于：2004-05-25 11:21:07

恩  很不错啊 我提个建议你如果是针对RPG新手的话，希望你能详细介绍用法，比如你在第4步中提到用SEU输入源语句的话，顺便写一句STRSEU命令。 在你的小提示中，有句WRKOUTQ 用户名Q ，其实的用户名就是你进入AS400的用户名。灵活运用B 和SHIFT+F4键。

居士 回复于：2004-05-25 11:30:44

建议这些内容能增加到我们的手册上去，让更多的人看到

fairyboy 回复于：2004-05-25 11:33:04

好的 整理一些关于RPG新手用的资料，给大家分享

最后的100天 回复于：2004-05-25 11:35:55

居士老大，你的建议很好 ，我同意，不过放上去 是不是太长了点，要去掉除AS400以外的个人心情部分吗？

最后的100天 回复于：2004-05-25 11:38:14

因为从今天开始 我将每天都在这篇帖子的基础上，增加一天的内容。如果老大觉得哪写可以给大家有用的东西，我绝对同意加到协会的共享技术手册中。

居士 回复于：2004-05-25 11:49:29

希望你能加入到我们的组织中来，让大家都分享你经验的同时记住你的名字。 你可以在这里发贴，然后我们会把好的内容摘录下来的。

xlgtcpg 回复于：2004-05-25 14:08:52

PF LF DSPF物理文件、逻辑文件、显示文件在建立表的时候我知道建立物理文件进行编译，逻辑文件和显示文件有什么作用？另外我看到一些表文件没有物理文件是怎么回事？

最后的100天 回复于：2004-05-25 14:45:50

逻辑文件相当于索引目录，与一个相对应的物理文件。 显示文件，当然是你的程序的执行后出现的画面，

Newpeople 回复于：2004-05-25 15:51:39

[quote:a773clearcase/" target="_blank" >ccbc83="最后的100天"] 如果程序出错无法建立时，可以用 WRKOUTQ 用户名Q 来调试语法错误， [/quote:a773ccbc83] 這裡是指用編譯時生成的spoolfile 來查看語法錯誤嗎?

红像 回复于：2004-05-25 16:28:25

[quote:7dfb21b324="xlgtcpg"]PF LF DSPF物理文件、逻辑文件、显示文件在建立表的时候我知道建立物理文件进行编译，逻辑文件和显示文件有什么作用？另外我看到一些表文件没有物理文件是怎么回事？[/quote:7dfb21b324] 显示文件就是界面，上面定义了文字，输入/输出域。 估计就是定义一些结构，用来作传递参数用的格式。 PS: 题外话 这帖是好帖喔，大家加油点，不要让它沉咯～～～～ DAY DAY UP

最后的100天 回复于：2004-05-26 08:58:07

5：建立程序：CRTPGMRPG 如果编译通过的话，则可以用 CALL 程序名 ，来调用程序。   建立程序命令是CRTRPGPGM吧,大概打错了哦. 如果出现 Program TESTis placed in library DAWEN. 00 highest severity. Created... 说明你的程序语法上没错了,但是逻辑上还不能排除错误,就是说为什么你的程序的执行后的结果不是你预先想得到的结果. 如果程序语法错误后,在建立程序时会出现  Compile stopped. Severity level 30 errors found in file. 这个时候,你就可以用WRKOUTQ 用户名Q 来检查你编译时产生的SPOOLFILE文件,试你的程序语法错误的多少 ,上句中的30 ERRORS 会随之改变.      程序名      用户名   状态        页数                          级   _   TEST          AS400       RDY          4        1     *STD         9  在_上一般输入5,然后输入B,就可以看到程序中的语法错误,一般先解决40等级的错误,可以用SHIFT+F4来定位发生语法错误的句子. 本人RPG也是菜鸟,有什么地方不对的,不要见笑.

xuguopeng 回复于：2004-05-26 09:00:07

我一般是把MSG改为*BREAK，编译后看消息就知道是否通过了

fairyboy 回复于：2004-05-26 09:17:50

楼上的你说把MSG改为*BREAK,是在哪里改的呢? 能说的具体一些吗? 谢谢啊

xuguopeng 回复于：2004-05-26 09:28:16

可以在USRPRF里改 也可以每次登陆后CHGMSGQ MSGQ(*USRPRF)  DLVRY(*BREAK)

yangspring 回复于：2004-05-26 11:05:21

为什么我们这里编辑PF ,LF , DSPF , RPG , CL 等都是用14 而不用命令呢。比如：CRTRPGPGM , 我们都不知道用什么命令。 请问，14 是不是AS400默认的，你们都用命令吗？有什么区别呀？

xuguopeng 回复于：2004-05-26 11:59:06

用命令就等于14+F4

aeiou 回复于：2004-05-26 13:16:31

实现同一个目的往往有很多种方式。就像WINDOW里面，可以用Ctrl+C来Copy，也可以用鼠标右键菜单的Copy来Copy，也可以用编辑菜单中的Copy来Copy，也可以直接用鼠标托拽来实现。 在400的 Work with Members Using PDM 画面，有对Options的提示：14=Compile

居士 回复于：2004-05-26 16:33:37

讨论的很热烈嘛，可惜我不会编程，插不上嘴 大家继续啊～ 先加为精华！

pantiantian 回复于：2004-05-28 10:55:18

楼主继续呀

fairyboy 回复于：2004-05-28 11:40:41

是啊 我支持你  我的处境和你现在差不多，半斤八两，有机会的联系一下。

eclove 回复于：2004-05-29 21:11:05

是的！ 不错！ 好帖！这里因为有你们而活的更精彩！！！

fairyboy 回复于：2004-05-30 08:19:25

哦  呵呵

riancy1106 回复于：2004-05-30 14:24:21

一定要在后台编译吗？前台不是一样的吗？ :em02:

andrewleading_he 回复于：2004-05-31 10:57:04

最后一百天！心酸！

凯 回复于：2004-05-31 15:23:54

新来   不是说一天一篇吗   一共写一百天 我刚刚起步学习AS400 前辈要努力啊 你到今天为止欠了好几天了

yqai 回复于：2004-06-02 09:23:20

没有用过AS400,真寒

dfangyang 回复于：2004-06-02 17:21:01

大家的工作热情真高！ 羡慕..........

zzzddd 回复于：2004-06-02 17:43:27

一样的，做一件事有许多方法，每个人也都有自己习惯的方法！这个不必都会的，只要能达成目的，就OK了！·

gram 回复于：2004-08-30 09:35:20

这一百天过去好久了，我怎么没看到其它的帖子呢。你是网上AS400基础讲解第一人，为什么不继续下去了呢？

thursday 回复于：2004-12-06 17:23:17

人呢？是不是已经不干了？怎么不继续了阿？我推

bobofish29 回复于：2004-12-09 09:53:29

这100天后你就不做AS400了吗?

最后的100天 回复于：2004-12-09 11:16:39

在家休息中，在上海有工作的哈，给我透入一点消息拉。

thursday 回复于：2004-12-09 14:34:58

继续写啊？

原文转自：http://www.ltesting.net