AS400开发初阶
AS400服务器初始程序加载IPL

初始程序加载(IPL)初始程序加载(IPL)有三个很明显的时期。
每个时期又被细分为执行特定功能的各个阶段。
这些时期如下:一、服务处理器:这一时期负责通过与控制面板通讯来初始化IPL。
随后服务处理器硬件被测试,代码被加载到服务处理器访问内存,并且处理器代码被加载。
在IPL期间服务处理器执行的功能是:1.进行硬件诊断或基本的保证测试(BA Ts)。
2.加载源的输入/输出处理器(IOP或MFIOP)被初始化。
3.服务处理器从加载源部件获取IPL所需的许可内码。
加载来源可以是硬盘、磁带或者光驱。
4.服务处理器对处理器进行诊断。
5.服务处理器加载许可内码,然后开启CPU。
二、许可内码(LIC):许可内码负责以下IPL步骤:1.初始化主存储器2.分派任务3.总线初始化4.确认附加的输出/输入装置5.资源管理任务6.事件7.专用服务工具(DST)三、操作系统(OS/400):操作系统OS/400是IPL的第三个时期。
OS/400开始执行系统功能. 这个第三个时期产生登录屏幕。
然后用户可以访问相应的应用以及许可的程序产品。
这个时期进行的步骤类似:1./文件系统被装入2./QOpenSys文件系统被装入3./QDLS文件系统被装入4./QSYS.LIB文件系统被装入5./QOPT文件系统被装入6./QFileSvr.400文件系统被装入7./QNTC文件系统被装入8.dev/QASP01文件系统被装入9.日志接收器被分离10.开始进行警报处理11.性能参数被调整12.准备好控制器13.开启控制子系统(QCTL)14.开启子系统QSYSWRK15.开启子系统QSERVER16.开启子系统QUSRWRK17.开启子系统QINTER18.开启子系统QBA TCH19.开启子系统QCMN20.开启子系统QSPL21.开启用户子系统22.准备好线路描述23.开启TCP24.启用IP25.开启打印机26.准备好终端27.显示登录屏幕要改变IPL的属性时,可以用Change IPL Attributes (CHGIPLA) 命令进行修改,下次IPL时生效。
AS400_初级培训

一.AS/400简介 (3)二.开发环境和开发工具介绍 (4)1.AS/400环境简介 (4)1.1三级存储结构 (4)1.2 如何建立库、文件和成员 (7)2、ILE简介 (8)3、AS/400开发工具介绍 (9)三.DDS介绍和实例说明 (10)1、AS/400的DDS常用类型介绍 (11)2、AS/400物理文件和逻辑文件介绍 (11)3、AS/400如何使用DDS来创建物理文件和逻辑文件 (11)4、AS/400如何使用DDS来创建显示文件 (16)四.RPG介绍和实例说明 (20)1、RPG的基本结构介绍 (20)2、F段介绍 (21)3、D段介绍 (23)3.1 单独变量的定义 (23)3.2 结构变量的定义 (24)3.3 常量的定义 (24)3.3 数组的定义 (24)4、C段介绍 (25)4.1 概念 (25)4.2 程序入口的定义 (27)4.3 程序的结束 (27)4.4 变量的赋值 (27)4.5 子过程的定义 (28)a)概述 (28)b)子过程的建立 (28)c)子过程的调用 (29)4.6 程序过程控制(判断、循环) (30)a) 判断 (30)b) 多重判断 (30)c) 循环 (30)4.7 数据文件的操作 (31)a) 文件相关操作 (31)b) 记录定位相关操作(游标) (31)c) 记录更新相关操作 (33)5、一个程序的实例及分析 (34)6、在RPG中嵌入SQL (48)五.CL程序的开发介绍 (48)1、CL 命令的介绍 (48)2、CL 程序 (49)3、CL 程序实例 (50)六.程序间的互相调用 (53)1、RPGIV之间的调用 (53)2、CLP与RPG之间的调用 (55)AS/400 初级培训讲义目的:希望通过短期培训,让有编程基础的技术人员,了解AS/400的一些基本概念和操作方式。
了解AS/400的代码编辑方式和基本概念一. AS/400简介AS/400是IBM于1988年推出的一种商用小型机,它是在 IBM System/32,System/34,System/36,System/38这个系列的基础上发展而来的。
AS400-RPG入门

AS400-RPG入门一:RPG介绍RPG程序的特点:1.程序的编写对于每一个位置都有明确的定义,所以程序的编写必须在指定的位置开始。
通过使用ILE工具可以进行一些方便的输入。
2. RPG程序的设计针对每一部分都有严格的要求,有相应的规格说明,他们包括a) 配置规格说明(Control Specifications):主要规定了程序的命名,日期格式等信息。
b) 文件描述说明(File Description Specifications):对程序使用到的文件的说明c) 定义说明(Definition Specifications):主要对程序使用的数据进行说明。
d) 输入说明(Input Specifications):主要对文件输入数据进行说明。
e) 计算说明(Calculation Specifications):主要对数据计算和计算顺序的说明。
f) 输出说明(Output Specifications):主要针对数据的输出记录和字段的说明。
g) 子程序说明:包括有三种,对子程序的各种进行进行了定义说明。
3.指示器(Indicators)通常是一个字节,被设置为‘0’或者‘1’,他主要作为程序操作的结果或者进行操作的条件。
好像程序的逻辑开关,决定着程序的流程。
指示器必须在定义规范中进行定义。
RPG VI也有一些系统的指示器,他们一般是两个字符的变量,如LR等。
指示器可以在程序的任何地方使用,也可以在程序中修改他的值。
4.操作代码相当与汇编语言的命令一样,有RPG程序提供一套完整的操作代码,比如读一条数据使用READ ,RPG程序对操作代码进行了分类,比如字符串操作符,数组操作符等。
5.定义描述文件a) 文件服务是程序和IO设备的连接。
系统里的每一个文件都有相应的描述文件,对文件的特性和数据的组织形式进行描述。
如果在程序中要使用IO操作,必须要指定一个描述文件,对IO的设备进行描述。
对于文件的类型,系统支持以下几种:1. 数据库文件(database files):对数据进行持久存储。
AS400培训课程2(DDS,MENU,MSGF介绍)

AS400培训课程2(DDS,MENU,MSGF介绍)AS400培训课程2 (DDS,MENU,MSGF介绍)(海外事业部)拟稿: 杨群涛日期: 2008/7/22目录四、DDS (4)1、概况 (4)用途 (4)分类 (4)辅助工具 (4)2、数据文件和索引文件定义 (4)文本格式 (4)示例: (6)3、显示文件及实例讲解 (8)使用工具SDA快速建立显示文件 (8)文本格式说明 (12)显示文件的使用: (12)显示文件的Subfile子文件介绍 (13)4、打印文件实例讲解 (15)概况 (15)source文本格式: (15)使用RLU工具处理打印文件 (17)使用 (23)5、ICFF介绍 (24)五、MENU (25)组成 (25)Source (25)示例 (25)工具及使用 (26)菜单属性 (29)命令行 (29)DSPKEY (29)六、MSGF (29)系统msgf (29)所有用户msgf (30)列表系统当前可用的msgf (30)Msgf的建立 (30)Msgf的维护 (30)使用 (35)其他messgae相关 (38)Reply List设置自动应答列表 (38)七、数据文件属性和关系以及程序依赖信息 (42)文件描述 (42)字段描述 (45)数据文件关系 (46)程序依赖信息 (47)系统文件的格式的使用 (56)四、DDS1、概况用途数据结构定义分类PF,LF, DSPF PRTF, ICFF(Intersystem Communications Function File)文件类型命令物理文件CRTPF逻辑文件CRTLE显示文件CRTDSPF打印机文件CRTPRTFICF文件CRTICFF辅助工具STRSDA (Screen Design Aid)STRRLU (Report Layout Utility)2、数据文件和索引文件定义文本格式0001.00:顺序号和格式类型在DDS中是可选的。
AS400培训资料(下)

AS400培训资料(下)AS400应用开发培训高级应用与交易实现前言本阶段的培训,在上一级培训的基础上,讲解业务系统的处理以及交易的实现。
目的是使大家掌握如何在AS400上实现具体的交易,完成本次开发任务。
在讲解业务系统的例子程序和会计记帐核心的过程中我们将穿插讲解AS400中一些编程方式和一些简单工具的使用。
由于篇幅和时间的关系在本教材中对一些简单工具不作具体的介绍,请大家作好记录。
同时为了配合本次培训,我们将下发两本教材,一本是操作码手册,另外一本是本公司原来出的IBM AS400 培训教材第二分册,对这两本教材的内容我们可能不作具体的讲解,主要是给大家在学有余力的情况下进行自学,以及今后进行实际编码时的参考手册。
对于一些非常少见的应用,我们不作讲解,请大家参考下发的教材或使用联机的帮助。
使用F6或其他方式建立的成员在Opt选14编译物理文件参与编译其他类型的目标(Object) SLRRPG(可执行程序 *PGM) 物理文件,逻辑文件,打印文件等参与编译,若RPG程序的F表进行了相应的定义其他需要参与编译的目标第一章 RPG程序使用RLU的方法在上一期的培训中我们简要的介绍了RLU的一些用法,现在我们来学习RLU的一些应用,以及如何在RPG程序中使用RLU生成的打印文件在今后的设计过程中,应业务人员的要求,在报表中对于一些域的属性可能要进行修改。
以下是将光标移到域后出现的域属性内容Work with Field KeywordsField . . . . . . . . : ' 客户 ... Record format . . . . : HEADType options, press Enter.2=Specify 4=RemoveOpt Keyword Opt Keyword Opt KeywordALIAS EDTCDE MSGCONBARCODE EDTWRD PAGNBRBLKFOLD FLTFIXDEC PRTQLTYCDEFNT FLTPCN REFFLDCHRID FNTCHRSET SKIPACHRSIZ FONT SKIPBCOLOR HIGHLIGHT SPACEACPI IGCALTTYP > SPACEBCVTDTA IGCANKCNV TEXTDATE IGCCDEFNT TIME> DFT IGCCHRRTT TRNSPYDLTEDT INDTXT UNDERLINEBottomF3=Exit F5=Refresh F9=Input keyword parameters F10=Specify informationF12=Cancel F16=Remove all keywords选择(opt)2 进行该项的内容说明 4 是取消该项说明在这些选项中经常用到的是:DFT 若前面有”>”则说明该项是常量域,否则是变量域。
AS400中文教程

AS400中文教程AS400是一种使用广泛的主机操作系统,也是一种经典的企业级计算机系统。
它具有稳定性、可靠性、安全性和易用性等特点,广泛应用于企业、金融、物流、制造等领域。
本篇教程将介绍AS400的概念、原理、操作和应用等内容,帮助初学者了解和掌握AS400系统。
一、AS400是什么AS400(即IBMi)是IBM公司推出的一种企业级计算机系统。
它以稳定性、可靠性和安全性著称,广泛应用于企业的核心业务系统和数据处理中心。
AS400采用了先进的虚拟化技术,可以同时运行多个操作系统和应用程序,提供强大的计算和存储能力。
二、AS400的原理AS400的核心原理是通过操作系统管理和控制计算机硬件资源,提供一种可靠、高效的计算环境。
AS400操作系统采用了独特的对象概念,将计算机资源(例如打印机、磁盘、网络连接等)抽象为对象,通过开放的API接口提供给应用程序使用。
这种面向对象的设计可以方便地进行系统管理、应用开发和资源分配。
三、AS400的基本操作1.登录系统:AS400通常通过终端或PC客户端进行远程登录。
输入正确的用户名和密码后,即可登录到系统。
2.发布任务:AS400支持多任务处理,可以同时运行多个任务。
通过发布任务可以在系统中创建新的任务,并指定其优先级和执行时间。
3.管理文件:AS400系统使用基于对象的文件系统,管理文件非常方便。
可以通过命令行或图形界面操作,创建、删除、复制和移动文件等。
4.资源监控:AS400提供了强大的系统监控工具,可以实时查看系统的运行状态、资源使用情况和性能指标等。
通过监控可以及时发现和解决系统问题,保证系统的稳定运行。
四、AS400的应用1.金融系统:AS400可以作为金融机构的核心业务系统,处理各种金融交易、资金结算和风险管理等业务。
2.物流系统:AS400可以用于物流企业的仓库管理、货物跟踪和配送管理等业务。
3.制造系统:AS400可以用于制造企业的生产计划、工艺控制和品质管理等业务。
AS400基础知识

文件(File)
文件是包含了一组记录集合的目标。用户可以通过人机交互界面、实用 软件或程序对文件内的记录进行操作。 文件主要包括物理文件、逻辑文件、假脱机文件等,物理文件又分成 源物理文件和数据物理文件两种,源物理文件内的记录被称作“成员” (Member),通常包含着可编辑的程序源码或一般文本;数据物理文件就 是数据库文件,每个数据物理文件由一个或多个成员构成,每个成员都有 相同的数据库结构,成员内包含有实际数据。对数据物理文件的操作实际 上就是对其某个成员的操作,如不做特别指定,就是指对第一个或唯一一 个成员的操作。 逻辑文件就是视图文件,它可通过指定关键字、选择条件键字等定义 某一数据物理文件的存取方法(或称“存取路径”)。逻辑文件是一种定 义,本身不含任何数据,用到时可动态联接数据物理文件。另外,结合文 件是逻辑文件的一种,它依赖于不止一个的数据物理文件,可将多个有关 的数据物理文件在逻辑上结合成一个大文件,并定义其存取路径。 假脱机文件(Spool File)是存储在输出队列中等待打印输出的文件, 通常一个操作的结果可选择输出到屏幕上或假脱机文件中,后者的好处是 可保留较长时间。 返回
返回
系统操作
处理方式 开发工具
返回
处理方式
作业控制 。 AS/400的作业可分为交互式作业与批作业,交互式作业是从一 个用户Sign on进入系统,到Sign Off退出系统为止, 可以用 wrkactjob命令进入作业界面并选择选项,来挂起、结束等控制 交互式作业。 可以用sbmjob命令来提交批作业(批作业是在系 统的后台运行),然后用wrkactjob命令进入作业界面来控制批 作业(可根据类型来判断交互式作业与批作业)。 打印控制。 对作业进行处理后会形成输出,输出在被打印之前是以假脱机 文件形式存储在输出队列中的。 可以用wrksplf命令进入假脱 机文件界面,来更改、挂起、显示、删除等假脱机文件控制。 报文处理。 可以用sndmsg命令将报文从你的工作站上发送到报文队列中, 接受方可以用dspmsg命令来查看报文。
IBM AS400教程(完整版)

AS/400教程完整版第一章AS/400系统概况1.1 AS/400发展历史1.1.1 AS/400发展历史Figure 1-1. AS/400的发展历史为了深入了解一个系统,必须熟悉它发展的历史和背景。
多数的计算机系统是从原有的系统基础上发展起来的。
AS/400的发展历史:◇ 1969年6月发布System/3(Batch machine)◇ 1975年1月发布System/32 (用于小型商务办公环境)◇ 1977年4月发布System/34◇ 1978年10月发布System/38(第一代AS/400,商业上失败,技术上成功)◇ 1983年5月发布System/36(商业上非常成功)◇ 1988年6月发布AS/400 B型号(Application System/400,第二代AS/400)◇ 1994年5月发布AS/400先进系列/服务器(Advanced System/400,第三代AS/400)◇ 1995年6月发布AS/400 Power PC 先进系列/服务器◇ 1997年8月发布AS/400e系列◇ 1999年2月发布AS/400 e 服务器170、7XX◇ 1999年7月发布AS/400e Domino 专用服务器(莲花宝箱)◇ 2000年10月发布iSeries 400,包括270、820、830、840及IBM莲花宝箱(DSD)1.2 iSeries 400的特点1.2.1 iSeries 400的特点Figure 1-2. iSeries400iSeries 400通过紧密集成硬件、软件、中间件和操作系统提供能够满足不同业务需求的高性能、可靠和易于使用特性。
从e系列开始,在电子商务大舞台上开始扮演更为重要的角色。
它可以提供扩展业务确保电子商务优势所需的技术和工具。
它的突出特点有:● 卓越的性能,不断获得各种荣誉和认可,全面实现64位处理,先进的体系结构,最领先的SOI芯片技术;● 卓越的可靠性和可用性,系统可提供99.97%的可用性,使iSeries成为商业关键事务处理的首选服务器平台;● 高度集成的系统环境,使用户不需要太多的系统管理员就能保证其应用平稳地运行;● 严密的安全防范系统,荣获美国联邦政府定义的商业计算机最高安全性级别C2级认证,堪称世界上"最安全"的计算机系统。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
(1)按F12,退回上一级
(2)按F3,退到PDM菜单
1.2.3
*启动编辑器:STRSEU命令/PDM
*编辑界面分三部分
行序号——系统产生
数据内容——用户编辑
最后修改日期——系统产生
*左移屏幕F19;右移屏幕F20;
*编辑命令(在行序号上敲入命令)
1.位置
A-在当前行后
B-在当前行前
2.插入行
go CMDxxx xxx代表命令含义的缩写,例如想看与库有关的命令,go cmdlib
1.2
概念
作业:AS/400所有程序运行以JOB方式
命令:wrkactjob
子系统(subsystem):在OS/400中的一个作业运行环境,该运行环境定义一定的资源,如CPU,内存,IO等。在OS/400中可以定义多个子系统
查看一般流程:
1.进入SPOOL FILE
2.在Control栏敲入”b”,(bottom),翻到SPOOL FILE的最后
3.在Message Totals:项中,如果没有(警告/错误/严重错误)的信息,则表示编译通过
Warning (10) . . . . . . . : 0
Error (20) . . . . . . . : 0
*程序调试
使用源码调试的程序,使用编译命令编译时参数DBGVIEW不能为*STMT
(1)启动调试
STRDBG PGM(PGMLIB/PGMOBJ)UPDPROD(*YES)
(2)设置调试断点
将光标停在断点源码行,按F6。如要取消断点,再按F6
可以设置多个断点
(3)完成设置断点后,退出
(4)调用程序,进入程序并停在断点
数据类型
空/A字符
D日期
P/S压缩/区位数字
T时间
*指针
小数位长度
关键字
3.3.2
定义常量
NameTypeTo/LengthDataTypeDecPosKeywords
C_VAR C'HELLO'
定义字符变量
NameTypeTo/LengthDataTypeDecPosKeywords
V_STRS10A
查看作业打开blog+13
当查看JOB的LOG的信息
1.显示作业的LOG列表
2.将光标移到某行信息,按F1看详细信息
3.看该信息由那一程序产生。再按F9
4.AS/400的信息文件(MSGF,由应用EC/系统定义)
WRKMSGF命令
后台业务系统的MSGF:EC
CALL PGM(BANKOBJ/MYRPGLE)
(5)调试命令
*单步执行F10
*多步执行F12
*可以重新设置/取消断点F6
*显示变量值VAR1
方法1.将光标移到该变量VAR1,按F11
方法2.在debug命令行,键入EVAL VAR1
*改变变量值VAR1
EVAL VAR1=xxxxxx
(6)退出程序
编写源码行,就相当于往数据库添加记录
(2)程序源码是源码文件中的一个源码成员,源码文件可以包括多个源码成员
*程序编译
RPGLE程序,使用CRTBNDRPG命令
CRTBNDRPG PGM(PGMLIB/MYPGM) SRCFILE(MYSRCPF/MYSRCMBR)
SQLRPGLEC程序,使用CRTSQLRPGI命令
Severe Error (30+) . . . . . . : 0
4.如果编译不通过,往前翻一页,按PgUp键,查看错误报告
Msg id Sv Number Message text
*RNF7031 00 108 xxxxxxxx
*RNF7066 00 1 xxxxxxxx
*RNF7030 30 1 xxxxxxxx
长度
如果执行结果字段不是在D数据定义部分定义的,这需要在该行源码定义
小数位长度
如果执行结果字段不是在D数据定义部分定义的,这需要在该行源码定义
CL,CLLE程序,使用CRTBNDCL命令
PDM中,编译快捷命令
14编译
CP RPGLE的编译
CQ SQLRPGLE的编译
*程序编译出错
查编译信息:
使用编译产生的SPOOL FILE,它是一个文本文件,报告编译过程中的相关信息。
用WRKSPLF命令,列出本交互作业的所有SPOOL FILE,找出名字与程序名字相同的最后一个SPOOL FILE,就是最后一次编译所产生的SPOOL FILE。
(1)按F6,创建新源码库
(2)在指定的库,键入12,进入该源码库
4.显示该指定源码库的所有源码文件
(1)按F6,创建新源码文件
(2)键入12,进入指定的源码文件
5.显示该源码文件下的所有源码成员
(1)按F6,创建新的源码成员
(2)键入2,编辑源码
(3)键入3,拷贝源码
(4)键入4,删除源码
(5)键入5,显示源码
当前作业库列表的常用命令:
dsplibl
edtlibl
addlible
汉字支持
使用汉字支持:CHGSYSLIBL QSYS2989
不使用汉字支持:CHGSYSLIBL LIB(QSYS2989) OPTION(*REMOVE)
命令菜单
OS/400中,进入一个菜单,用go menuName
查看某一相关的命令
定义数值变量
NameTypeTo/LengthDataTypeDecPosKeywords
V_NUMS14S2
小数点定义要右对齐、
定义日期变量
NameTypeTo/LengthDataTypeDecPosKeywords
V_DATESD
系统默认使用*ISO日期格式,即2002-09-21格式
定义时间变量
回车
*存盘
在SEU命令行,键入SAVE
*退出SEU
F3
1.2.4
*程序类型
C
CL
CLLE
RPGLE
*创建程序源码
2.创建一个源码库
CRTLIB LIB(MYLIB)
3.创建一个源码文件
CRTSRCPF FILE(MYLIB/MYSRCPF) RCDLEN(112) IGCDTA(*YES)
4.创建一个源码成员
查看某对象:WRKOBJ
库
库也是一种对象,相当于AS/400的目录。
DOS目录有多级,即目录下有目录。但库只有一级,库下不能有库。
AS/400的文件系统只有3级:库->文件->成员;
例如在APPLIB库下有APPPF的文件,表示为APPLIB/APPPF。
创建库:CRTLIB
库列表
相当于作业的工作目录,类似于DOS的PATH
常用系统MSGF:QCPFMSG
1.2.1
1.2.2
PDM是AS/400的集成开发环境
AS/400的程序文件结构
库(libraries)/源码文件(objects)/源码成员(members)(程序源码)
使用PDM
1.进入PDM命令
STRPDM
2.显示PDM的菜单,选1,并键入指定源码库
3.显示该指定源码库
5.注意”Sv”中,不为00的项目,即为编译不通过错误语句
6.查看源码中错误语句,在Find栏中,敲入”Sv”不为00的Msg id,例如RNF7030,然后按F16搜索源码,定位在出错的源码语句
7.退出SPOOL FILE,重新进入源码编辑,修改源码
8.重新编译
*程序执行
CALLPGM(MYLIB/MYPGM) PARM(“PARM1” “PARM2” “PARM3”)
NameTypeTo/LengthDataTypeDecPosKeywords
ACCTDS
CUNO 10 A
ACSF 5 A
3.4
3.4.1
每一行C源码结构:
Lvl N01Factor 1OpCodeFactor 2ResultLenDecHiLoEqComment
指令因子1
指令操作码
指令因子2
执行结果
NameTypeTo/LengthDataTypeDecPosKeywords
V_TIMEST
定义数组
定义有10个元素的字符数组
NameTypeTo/LengthDataTypeDecPosKeywords
V_DIMS10 ADIM(10)
数组元素使用,建议使用RPG IV的格式。
V_DIM(N)
定义数据结构
地址类型
空不使用索引语句,不能用CHAIN,SETxx语句
K使用索引语句
设备
DISK数据库文件
关键字
PREFIX(xxx)引用数据库字段前加前缀xxx
COMMIT使用数据更新的确认/回滚机制
程序中使用COMMIT,该作业必须事先启动COMMIT控制
启动COMMIT:STRCMTCTLLCKLVL(*CHG)
(4)索引键字
如果有索引键字定义,则该数据库文件包含索引
名称类型为K
可以有多个键字
编译DDS,创建PF
CRTPF命令
或14
2.3
逻辑文件是索引文件
(1)文件级关键字
UNIQUE控制索引键字唯一
(2)记录级关键字
PFILE(PFNAME)逻辑文件对应的物理文件
(3)索引键字
名字类型K
可以有多个索引键字
2.4
RUNQRY
浏览数据库文件
RUNQRY QRYFILE((AM1))
RUNQRY QRYFILE((AM1)) RCDSLT(*YES)
UPDDTA
UPDDTA FILE(BANKDTA/MYPF)