【LAPTHW】习题 1: 第一个程序

      应该在练习0中花费了不少时间，学会了如何使用PDM、SEU等。并且已花时间熟悉了这些工具。请不要跳过前一个练习的内容直接进行下面的内容，这也是本书唯一的一次这样的警示。

      AS/400上的大部分开发使用RPGLE，本书使用的主要语言也是RPGLE。RPGLE的格式分两种：固定格式和Free格式。每个练习都会有这两种格式。固定格式的文件名为EXnn；free格式的为EXnnF，nn为数字。

EX1

1     D Wait            S              1A
2     C*
3     C     'Hello World' Dsply                   Wait
4     C*
5     C                   Eval      *inlr = *on
6     C                   Return

EX1F

1     D Wait            S              1A
2      /free
3
4        dsply 'Hello World!' '' wait;
5
6        *inlr = *on;
7        return;
8
9      /end-free

       将上面的内容用SEU写到文件中，RPGLE程序是从每行的第6位开始的，第6位是Specification Type，可以是H（Control[]）、F（File description）、D（Definition）、I（Input）、C（Calculation）、O（Output）或P（Procedure）。更多内容参见IBM i信息中心-。

       注意：不要把行号（就是1,2...）也输入了。

       你可以在每行上按F4然后在每个字段处F1获得更多帮助，如图

在command line上依次输入下面的命令编译程序

1．CRTRPGMOD MODULE(LAPTHW/EX1) SRCFILE(LAPTHW/QRPGLESRC) DBGVIEW(*ALL)

2．CRTPGM PGM(LAPTHW/EX1) MODULE(LAPTHW/EX1)

在Command line上输入下面的命令执行程序

CALL PGM(LAPTHW/EX1) 或

CALL PGM(LAPTHW/EX1F)

你还会有 加分习题 需要完成。加分习题里边的内容是供你尝试的。如果你觉得做不出来，你可以暂时跳过，过段时间再回来做。

在这个练习中，试试这些东西：

1. 让你的程序多显示一行

2. 让你的程序显示更多字符，看看最多dsply能显示多少字符

3. 试着把dsply后面的Wait去掉，看看会发生什么

从现在开始，除非特别情况，我将不再解释每个习题的工作原理了。