AS400==tutorial for Beginners

系统AS400

语言RPGLE

参考视频：

https://www.youtube.com/watch?v=FqgwYsp7mjk&list=PL3W4xRdnQJHVWWmYX1Klji7QUk_PQhq0t&index=5

 Lesson 1 | Introduction to As-400 and setting up As-400 Environment.

客户端软件TN5250 Terminal Emulation for Windows 10/11 from Mochasoft

 Lesson 2 | Source Physical File, Physical File, WRKMBRPDM in Detail

创建一个source physical file

crtsrcpf

wrkmbrpdm

首页输入上述命令后，修改左上角lib和filename，光标移动到position to那里回车后进到刚才创建的file内

F6

在刚才的file内创建一个member

IPPF

在第一行左侧输入IPPF，可以往这个physical file插入一个列的定义，比如建一个客户信息，包含cilen id , client name等

在第一行的最左侧行号处再次IPPF回车

上面的写法会报错，LENGTH和TYPE因为只有一个字符，要写在各自下划线的最右侧

添加key field，后面可以根据key field查询physical file里的内容.TYPE写K，NAME写列名

FILE

左上角输入FILE后会回车保存这个FILE

14

OPT输入14编译这个FILE

第一次编译失败了，原因是我设置的KEY的NAME没有输入对，多了个T，输入2，左侧D删除原来的行，IPPF再次新增KEY，FILE保存后再次14编译，通过

 

runqry查询

runqry () coderunlo1/testpf

upddta更新

输入后回车可以录入下一行

录完后按F3提示你是否真的要结束，回车

 再次查询可以看到刚才新增的数据

runqry () coderunlo1/testpf

strsql查询

使用SQL来查询

首页输入strsql,然后就可以输入SQL了

 

条件查询

Lesson 3 | Logical File in AS 400 with Select Omit Criteria.

进到library里

wrkmbrpdm左上角选择file和lbirary回车

我的LF基于的PF内容

F6

创建一个logical file，类似于视图，查询这个视图只能看到视图中限定的东西，我这就只看CUSTNAME是NAME1的。

PFILE就是说基于CUSTPF

CMP里面就是条件

然后14编译LF

STRSQL查询LF确实只能看到CUSTNAME等于NAME1的数据

使用upddta命令给CUSTPF加一条新的数据，CUSTNAME也是NAME1，testlf查出来的也是多了一条，logical file生效了

也可以修改TESTLF的条件，比如将S改成O，意思就是反选，CUSTNAME不等于NAME1的会被选出来

Lesson 4 | First RPGLE Hello World Program.

就是一门再AS400系统类可以执行的编程语言

wrkmbrpdm

F6

14编译

执行 call coderunlo1/testpgm

5 | Read physical file in RPG with READ, READE, CHAIN, SETLL, SETGT.

前面有了文件（数据）CUSTPF，也就是PF和LF。也有了代码RPGLE。现在使用RPGLE来读取操作文件中的数据。

第一行F然后F4，配置要读取的文件