系统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，配置要读取的文件
