1.RPG基础知识.ppt

1、2020/9/7,iSoftStone Technologies Ltd.,RPG基础知识,2006 iSoftStone Technologies Ltd. All rights reserved.,2,AS/400的历史及其发展,自80年代末起， AS/400一直是小型服务器的先驱，凭借其庞大的用户基础，强大的应用支持，为IBM及其商业伙伴带来丰厚的利润，尽管它正面临着UNIX以及NT的威胁，但AS/400 已经进入了第三代IBM 正在继续为它进行投资，至少从现在来看，这套系统仍保持着相当的实力，能够成为网络时代的服务器的主流。 实际上，对注重打包的应用，可靠性，管理能力以及全球服务于支持

2、的企业来说， AS/400 早已成为首选的系统。,2006 iSoftStone Technologies Ltd. All rights reserved.,3,AS_400名称的由来,在IBM正式发布AS/400之前，它的代号被称为“Silverlake”。IBM公司在开始研制AS/400的下一代系统时为之取了一个名字为“Superior”的代号。许多人认为在正式公布这一代新系统时，不会再叫AS/400了。在计算机业界有这么一种看法，任何一种计算机系统都只有6年左右的生命期，从1950年至今，只有极个别例外，包括AS/400。这种看法的依据是，计算技术的发展日 新月异，一个历经6年的系统将

3、不可能再合时宜。这对那些依赖于硬件技术的系统也许是正确的。 到了1993年，业界有许多专家预言IBM的AS/400将消亡，取而代之的将是AS/500”。因为到1994年，AS/400已经6岁了。针对新的机器“Superior”，IBM有机会更名AS/400（有人建议使用AS/6000）， 但最终IBM还是决定继续延用AS/400这一业界最为人们认可的名称之一。一个品牌的创立并非易事，因此，当一个商品的名称已获得用户很高的认可度时，只有傻瓜才会想着去改变它。,2006 iSoftStone Technologies Ltd. All rights reserved.,4,AS_400名称的由来,

4、AS/400这一名字的由来也颇具戏剧性。早在1988年，IBM本可将AS/400命名为System/38，因为那时的AS/400只不过是在System/38的基础上增加了许多新功能，完全可以视其为System/38的升级版本。但IBM其实已厌倦使用“System/3x”的名称，他们要想创出一点新意。恰好当时IBM内部正在制定一 套新的产品命名规则。IBM有一个项目叫作SAA(SystemApplicationArchitecture），SAA旨在建立 一种通用的应用软件，能运行于所有主流系统上。相似的系统名能更好地体现这种通用性，因此的几种主流系统都带有“System”这一单词，如Enterp

5、riseSystem/90（ES/9000），PersonalSystem/2（PS）等，所不同的只是第一个单词。对AS/400第一个单词的选择在RochesterLab.还引发了一场争论，有人建议用“Advanced”，有人则要用“Application”。最后争论的结果选择了后者。但随后在介绍AS/400的先进系列时，又缓用了“Advanced”。,2006 iSoftStone Technologies Ltd. All rights reserved.,5,AS_400名称的由来,那么在选择数字时为什么选择了“400”呢？由于AS/400是源于System/36和System/38的，

6、 RochesterLab.首先想到的是“37”和“39”，但马上决定用“40”。“ApplicationSystem/40” 这一名字在RochesterLab.呼之欲出。但没有想到IBM另一机构“PersonalSystemsOrganization” 申请占用全部的1位和2位数字，他们抱怨使用1位数字只能发布9种不同的产品，没有人会去买PS/0。 最后，RochesterLab.做了让步，他们在“40”之后再加了一个“0”，这样“AS/400”终于诞生了。,2006 iSoftStone Technologies Ltd. All rights reserved.,6,什么是面向过程的语

7、言？,面向过程的程序：用计算机能理解的逻辑来描述和表达待解决的问题及具体的解决过程。其核心是数据结构+算法。如C，RPG等。可以精确完备地描述具体的求解过程但无法清楚表述含多个相互关联的过程的复杂系统。,2006 iSoftStone Technologies Ltd. All rights reserved.,7,AS400的文件目录结构,AS400中的表文件，程序文件,代码文件等都是以对象的形式保存的，以对象名和类型来区分。这里所说的对象没有类也不能继承。AS400中的文件类型大约有80多种。比如说表文件MYFILE，它的类型是*FILE，程序文件MYPGM，它的类型是*PGM。 AS40

8、0的目录结构简单的说是一种单层的目录结构-库 LIB(Library), 系统中所有的对象都要放在这个单层的目录下，其表示形式如下 库名/对象名 例：MYLIB/MYOBJ 在AS400中文件在磁盘的分配和内存管理都是由系统来处理，用户不需要关心哪个磁盘存放了哪些文件，对于用户来说能看到的是一个大的存储空间，在这个大的存储空间下是单级的目录结构-库，在库的下面是各种文件。 实际上，LIB这种目录也是一种对象，它本身做为一个对象放在一个特殊的系统库QSYS下。用户在访问某个库的时候，不需要写出QSYS这个库。,2006 iSoftStone Technologies Ltd. All right

9、s reserved.,8,AS400的文件目录结构（2）,另外要说的一点，AS400中的文件中可以有几个成员（MEMBER）构成，但是文件并不是目录。 AS400目录的三级结构，是由QSYS，库名，文件名构成。 访问文件的方式: 库名/文件名,或是只使用文件名。只使用文件名的时候，系统按库列表的顺序，从上而下在各个库中查找，以找到的第一个作为程序使用的文件。 MYLIB/MYFILE MYFILE,2006 iSoftStone Technologies Ltd. All rights reserved.,9,什么是RPG,RPG是Report Program Generator的缩写 RP

10、G程序语言使你开发业务应用软件更加简单。 RPG是一种进化中的语言。在不同种支持RPG的机器上运行RPG会稍微不同。AS/400 是此类计算机中最新的一种。 AS/400系统也支持过去在系统/36和系统/36 机器上运行的RPG。 一般来说要想在AS/400上编写和运行RPG语言一定要先在AS/400建立它的库和文件夹。,2006 iSoftStone Technologies Ltd. All rights reserved.,10,操作中常用的命令,2编写库或文件 3复制库或文件 4删除库或文件 5查看库或文件 12进入库或文件 14编译文件 17预览（画面） 18操作数据库 19预览（帐

11、票）,2006 iSoftStone Technologies Ltd. All rights reserved.,11,操作中常用的命令,Ctrl + Insert 复制 Shift + PageDown 粘贴 Shift + Delete 剪切 Shift + 选择 Shift + F7(F8) 左右移动屏幕 F3 退出 F4展开详细菜单 F9重复命令 F12返回,2006 iSoftStone Technologies Ltd. All rights reserved.,12,操作中常用的命令,CRTLIB-建立库 CRTSRCPF -建立源文件 QDDSSRC：数据库文件存放的地方。

12、QDSPSRC：画面文件存放的地方。 QPRTSRC：帐票文件存放的地方。 QRPGSRC：RPG程序文件存放的地方。 QCLSRC：CL程序文件存放的地方。 STRSEU -建立文件（F6）,2006 iSoftStone Technologies Ltd. All rights reserved.,13,操作中常用的命令,进入库的两种方法： STRPDM 1 库名 12进入 WRKLIBPDM 12进入 注意：WRKLIBPDM 后可以有参数*ALL或库的名字 *ALL会列出所有的库,2005 iSoftStone Technologies Ltd. All rights reserved

13、.,14,AS_400的库和源文件,建库的方法图： 1.在命令行输入STRPDM，按回车键。,2005 iSoftStone Technologies Ltd. All rights reserved.,15,AS_400的库和源文件,2.在命令行上输入CRTLIB，按回车键。,2005 iSoftStone Technologies Ltd. All rights reserved.,16,AS_400的库和源文件,3.在绿背景上输入库名之后，按回车键。,2005 iSoftStone Technologies Ltd. All rights reserved.,17,AS_400的库和源文

14、件,4.在命行上输入1，按回车。,2005 iSoftStone Technologies Ltd. All rights reserved.,18,AS_400的库和源文件,5.在光标是在行上输入库名后，按回车键就进入到你所建的库中。,2005 iSoftStone Technologies Ltd. All rights reserved.,19,AS_400的库和源文件,建文件夹的方法图： 1.在库名前的可输入项上按12进去。,2005 iSoftStone Technologies Ltd. All rights reserved.,20,AS_400的库和源文件,2.进去之后在命令行

15、上输入CRTSRCPF后，按回车键。,2005 iSoftStone Technologies Ltd. All rights reserved.,21,AS_400的库和源文件,3.第一个输入行上输入文件夹名，第二个输入行上输入库名，第四个输入行上输入*FILE,第五个输入行上输入*YES，第六个输入行上输入的是注释。,2005 iSoftStone Technologies Ltd. All rights reserved.,22,AS_400的库和源文件,4.在文件夹名前的可输入项上按12进去。,2005 iSoftStone Technologies Ltd. All rights reserved.,23,数据库文件建立，编写，调试和运行,建数据库物理文件和逻辑文件的方法 1.在命行上输入STRSEU后按F4。,2005 iSoftStone Technologies Ltd. All rights reserved.,24,数据库文件建立，编写，调试和运行,2.在这个几个可输入项上输入完毕之后按回车键（SOURCE TYPE上输入“ pf ”代表物理文件，输入“ lf