随笔分类 - AS400 Tips
摘要：1.0简介： 在操作系统OS/400R220上，命令SETOBJACC可以将物理文件，索引或程序调入存储池，这使得客户可以对存储池内的内容实施一定的控制。这里所说的存储池指的是私有存储池，作业运行的存储池，或者是系统共享的存储池。 这样做的主要目的是为了提高作业以随机的顺序访问某个物理文件，或一系列作业访问相同的物理文件的效率。如果存储池有足够大的空间容纳所有数据，那么一旦对象被装入存储池，所有对文件的读取操作就会在一个读磁盘的周期完成，减少了将数据装入磁盘的时间。从而达到大大提高作业运行效率的目的。 如果一个私有存储池只存放预装的数据，那么这些数据将一直驻留内存直到它们被用命令SETOBJA
阅读全文
摘要：OS/400系统支持从一个显示画面跟踪另一个显示画面的功能，是一个异地协助解决问题的好帮手，方法如下(这里假设两个显示器都已经有用户注册)： 1、在画面跟踪请求端DSPB显示器使用命令STRCPYSCNSRCDEV(DSPA)OUTDEV(DSPB),按执行键后画面处于执行状态，用户需要等待。命令中DSPA为被跟踪的显示器名，DSPB为跟踪请求显示器名。 2、在被跟踪显示器终端DSPA会收到一条信息提示让用户回答(c或g)，用户需要给以相应的回答：g表示允许被跟踪，c表示不允许被跟踪。 3、得到跟踪允许后，DSPB的画面将变为不可操作，显示内容为被跟踪显示器的画面，但画面要比DSPA晚一...
阅读全文
摘要：1.用Sql Index替代logical file,因为前者会带来每次读64k,而logical file只能每次8k.sql index 有两种方式，evi 和rdi，具体的差别得找资料，正常的都是rdx。一般都可以通过create index来创建。 http://www-900.ibm.com/cn/support/nav/200303/p17.shtml 2.v5r3的 sqe(sql query enginee)比 cqe(classical query enginee)来的好一些。 3.针对查询速度慢的，放到navigator的run sql script，运行，然后Vi...
阅读全文
摘要：AS/400系统里有大量各类消息，应用程序经常会因为意外情况被这些消息所打断，应用程序或者弹出消息窗口，或者在作业状态中报MSGW，等待人工干预。在CL程序里可以使用MONMSG命令来捕捉消息或自动答复消息机制来处理各样的消息，使程序始终能够正确地运行。但在RPG程序里，又怎么捕捉消息然后对消息进行非凡处理呢？ RPG程序实际主要是对各类各样的文件操作，比如DISK文件(物理文件、逻辑文件)、显示文件、通信文件、打印文件等等。下面以DISK文件为例示范如何在RPG程序里捕捉错误消息。 1． 在文件描述规范（F行）里定义INFDS要害词 在RPG文件描述规范的要害词里，有一INFDS要害词...
阅读全文
摘要：1.以HOLD(*YES)参数提交JOB到QBATCH JOB中，让JOB暂时挂起； 2.使用WRKSBMJOB查看所提交的JOB的以下3个参数值： *Job id *User Name *Job Number 3.执行STRSRVJOB，填入第2步骤获得的3个参数进行QBATCH JOB服务过程； 4.执行STRDBG开始DEBUG； 5.利用F21键切换到命令行，在命令行执行WRKSBMJOB，使用6=Release释放挂起的第1步骤提交的JOB，然后系统允许你按F10输入DEBUG命令（注意：不要键入执行，否则在设立断点之前键入执行，程序就会运行，因而无法进行debug断点设置）； 6.
阅读全文
摘要：1.LANSA LANSA是澳大利亚ASPECT公司推出的后端软件工程开发工具,它提供了一整套开发工具, 支持AS/400的OS/400,UNIX和RISC/6000的AIX操作平台,还支持挂接PC的客户机/服务器(CLIENT/SERVER)结构.其主要特点为: ....通过建立字段,文件,程序三个步骤来产生数据字典,数据库和应用 系统, 能保持很好的数据完整性和约束性. 在字段,文件, 程序三级可 根据需要灵活设置数据合法性和一致性校验. ....能够在IBM字符终端上产生很好的弹出式菜单界面, 查询上可作到 模糊匹配. ....LANSA具有以QUESTION/ANSWER方式帮助程序.
阅读全文
摘要：ASP是辅助存储池的简写，ASP的类型与数量跟OS/400的版本有关，下表列出了各版本操作系统支持ASP的类型与数量： ASP的类型 OS/400的版本 ASP的名称 支持的数量 系统ASP ALL ASP1 1 用户ASP 5.1 ASP02-ASP32 31 用户ASP 4.5或早版本 ASP02-ASP16 15 IASP 5.1或更高版 ASP33-ASP99 67 .系统ASP：存放OS/400的SLIC与操作系统代码的辅助存储池，也可以存放用户的数据，可以包括各种类型的目标 .用户ASP：是指除系统ASP之外的其它ASP，是存放用户应用数据的。 .IASP：也是存放用户应用的，但与
阅读全文
摘要：九．在AS/400上实现弹出下拉菜单1.步骤AS/400上使用下拉菜单的软件很少见，但下拉菜单的优点又显而易见，AS/400的SDA工具提供了制造下拉菜单的功能。用SDA创建显示文件，可以用多种RECORD类型可以选择：RECORD, USRDFN，SFL, SFLMSG，WINDOW, WDWSFL，PULDWN, PDNSFL，MNUBAR。其中的MNUBAR和PULDWN两种类型就是制造下拉菜单的两种必须类型。 使用SDA工具只需遵循以下六个步骤就可以创建下拉菜单：1． 用STRSDA启动SDA，选择DESIGN SCREEN 2． 创建一个或多个类型为pull-down(PULDWN.
阅读全文
摘要：使用共享文件打开提高软件性能1. 共享文件(Share File) AS/400提供共享文件支持，根据定义，所有的数据库文件都能被多个用户在同一时间使用。但是某些操作会锁住文件、成员或记录，使之在不同作业之间不能共享。在文件参数中有一个SHARE参数，当把该参数设置为*YES时，就表示该文件已经设置为共享文件。可以通过CHGPF、CHGLF、OVRDBF命令来修改该参数。 SHARE 参数允许多个程序共享文件状态、位置和存储区。它可以通过减小作业所需的主存储器量和缩短打开和关闭文件所需的时间来提高性能。原始程序模型(OPM)和ILE程序模型都支持共享文件。 2. 共享打开(Share Open
阅读全文
摘要：十．在RPG程序中巧用相对记录号RRN1． RRN正像INFORMIX数据库有记录号ROWID，AS/400的PF文件的记录也都有一个隐含的记录号RRN。RRN是Relative-Record Number的缩写，也就是相对记录号，有时俗称记录“物理地址”。当向PF文件中增加记录时，每条记录都被赋上了一个RRN。在PF文件属性中有一个“Reuse deleted records”属性，表示是否重复使用删除记录的RRN，可以用CHGPF来修改该属性，如果该属性指定为*NO，那么新加的记录就只会追加到文件尾部，RRN号则顺序加1，如果删除一条记录，那么该条记录的RRN号仍会被保留，即记录空间不会被
阅读全文
摘要：一． 什么是SPECIAL文件 我们知道文件是要有存放位置的，是要与某种设备相连的。RPG程序中在定义文件时需要指定文件类别。RPG程序支持文件种类有：[list:f793ad9784]设备文件 描述 RPG 设备名 打印文件Printer Files 提供打印输出格式描述，以及对打印设备访问 PRINTER 磁带文件Tape Files 提供对存储在磁带设备上的数据文件的访问 SEQ 磁盘文件Diskette Files 提供对存储在磁盘上的数据文件的访问 DISK 显示文件Display Files 提供对显示设备的访问 WORKSTN 通信文件ICF Files 允许程序之间通信 WOR
阅读全文
摘要：八．通用日志管理工具1． 引言AS/400系统上有日志（JRN）和日志接收器（JRNRCV）目标对象，用来存放对数据库文件进行增删改等操作的日志记录。日志接收器是存放日志记录的具体地方，它可以是由一个无限增大的文件组成，也可以是由多个固定大小的文件组成。多个日志接收器文件形成日志接收器链，当当前ATTACHED的有限大小的日志接收器满了以后，系统会自动产生或由用户产生一个新的同样属性的接收器文件。用CHGJRN命令可以改变产生新的日志方式，当Manage receivers（ MNGRCV）选项选择*SYSTEM时，系统会自动产生新的日志接收器，当Manage receivers（ MNGRC
阅读全文
摘要：五．如何使用分布式关系数据库我们可以在AS/400系统中使用STRSQL命令来交互执行SQL语句。如果AS/400系统中没有安装交互式SQL工具，那么我们便不能使用SQL语句进行交互式查询等操作。假设有一群连网的AS/400，其中只有一台安装了交互式SQL工具，那么我们能不能只通过这台AS/400的交互SQL工具去对其他没有安装SQL交互工具机器的数据库进行操作呢？答案是肯定的，这就需要使用分布式关系数据库。分布式数据库管理是AS/400系统提供的一个重要功能之一，其功能比较强大，在本文里只能根据作者经验对分布式关系数据库的使用作简单介绍，根据这个简单介绍，你就可以很容易体验分布式关系数据库的
阅读全文
摘要：七．如何在程序中获取系统ASP使用率等系统状态信息AS/400系统管理员都对系统ASP空间增长情况很关心，当系统ASP空间涨满了以后将会引起系统DOWN机等安全问题。系统ASP空间与硬盘空间并不完全等同，如果系统只配置了一个ASP分区，那么系统ASP空间与硬盘空间是等同的，如果系统配置了多个ASP分区，则系统ASP只是ASP 1的分区。用WRKSYSSTS命令查看到的% system ASP used就是表示系统ASP空间的使用率。与系统ASP空间使用率有关的系统值有两个：QSTGLOWLMT和QSTGLOWACN。QSTGLOWLMT系统值设定了最小硬盘空间警告线百分比，比如设定为5，即表示
阅读全文
摘要：四．一个批量修改文件属性的工具AS/400上的每个文件都带有大量的属性，文件的属性是在创建文件的时候指定的。在实际应用过程中，可能会需要改变这些文件属性。以PF文件为例，我们可能需要修改文件的Member Size，Maximum Members，Maximum record wait time等等。修改物理文件(PF)属性命令是CHGPF，修改逻辑文件(LF)命令是 CHGLF，遗憾的是这些命令一次只能修改一个文件。如果假设有一个库，库下面有几千个物理文件需要一次性统一修改文件属性，那该怎么办？AS/400并没有提供这样的命令。我做了一个工具命令，可以实现对一个库下的所有文件属性进行批量修改
阅读全文
摘要：AS/400系统开发工具及开发语言很多，有许多技术性的东西并不是我们能经常碰到的，但这些东西在一些实际应用中很有用处。本人在几年AS/400系统上的开发中，也有一些经验。有些东西如果不把其形成文字，过一段时间后，本人都会很快忘掉，比如我现在要写两年前的经验就很费劲。现把其中一些经验总结出来，与大家共享也行，自娱自乐也行。本文不是学术论文，仅仅是一些开发经验总结，有不严谨的地方必定在所难免。一 如何在CL程序自动回复询问类消息(Inquiry Message)在AS/400系统开发中，经常要与各种各样的消息打交道。有一类叫“Escape Message”的消息，是当程序出现错误后，会强迫程序异常
阅读全文
摘要：1、 两台400在同一LAN内，并可正常使用TCPIP。2、 两台400必须有一个同名的帐户，例如2台机器都有TEST这个用户。配置过程：1、 配置 host table，以使2台400可以通过主机名互相访问方法：ADDTCPHTE INTNETADR('3.210.132.222') HOSTNAME((PRDAPDT)) 2、创建APPC控制器方法：CRTCTLAPPC CTLD(PRDAPDT) -----控制器名 LINKTYPE(*LAN) SWTLINLST(ETH01) ----网卡的线描述 RMTCPNAME(PRDAPDT) ----远...
阅读全文
摘要：1. 显示自己作业的QTEMP的内容：(1) 用DSPLIB显示所有外部对象(操作系统之上的可操作的对象)：DSPLIB LIB(QTEMP);(2) 用DMPLIB显示所有内部对象：DMPOBJ OBJ(QTEMP) OBJTYPE(*LIB)结果位于假脱机文件QPSRVDMP中：（如图所示）2. 显示别人作业的QTEMP的内容：(1). 用WRKACTJOB找出所要查看的作业的名称，例如：123315/USERxxx/QPADEV0003(2). STRSRVJOB JOB(123315/USERxxx/QPADEV0003)DMPOBJ OBJ(QTEMP) OBJTYPE(*LIB)E
阅读全文
摘要：1．root（根）文件系统：支持目录结构和访问流文件的命令。与QDLS相近，但支持长文件名并取消了对QDLS的限制。2．QSYS.LIB文件系统：400的数据库文件。FTP用户端可以存取物理文件（PF），逻辑文件（LF），原物理文件（STCPF）和存文件（SF）.3．QDLS文件系统：通过它，可以访问“虚拟硬盘”，可以存放PC文件。4．QOPT文件系统：通过它的支持，可以访问400上的CD-ROM等。5．QOPENSYS文件系统：允许在400上存取UNIX类文件。6．QLANSRV文件系统：允许文件服务器输入/输出处理器（FSIOP）快速访问400的磁盘。
阅读全文
浙公网安备 33010602011771号