01 2008 档案

如何向远程系统提交命令？
摘要：如何向远程系统提交命令？解答 我们知道，在分布式数据处理的环境下，对远程系统上文件内容的操作可以有很多方式，但是如果想简单地在本地对远程系统进行文件管理方面的操作，则可以由一条命令实现：SBMRMTCMD。现在介绍该命令的用法：1. 首先确保双方系统上的分布式处理服务已启动：STRTCPSVR SERVER（*DDM）2. 为目标系统创建DDM文件：CRTDDMF FILE(Lib/TESTAAA... 阅读全文
posted @ 2008-01-09 15:14 深渊野鱼 阅读(754) 评论(2) 推荐(0)
RUNRMTCMD命令使用
摘要：RUNRMTCMD命令使用解答 能够向client access发送命令的系统包括AS/400，VM，AIX以及其他版本的UNIX。发送的命令应当预先在PC的DOS窗口运行，如果有输出，在把输出内容传送到OS/400并产生相应的spool file（QSYSPRT，使用的print file为QSYSPRT)；如果命令本身并不产生输出则也会产生一个spool file,内容是无输出。从OS/400... 阅读全文
posted @ 2008-01-09 15:13 深渊野鱼 阅读(1527) 评论(0) 推荐(0)
OS/400与UNIX功能相似的部分命令
摘要：OS/400与UNIX功能相似的部分命令解答 对于大多数SAP的用户，比较习惯UNIX及WINDOWS命令，而对于OS/400的命令缺少使用经验，这里结合SAP系统经常用到的命令，比较OS/400与UNIX功能相似的命令及其格式。1.与文件系统有关的命令：unix命令 对应的AS/400的命令--------------------------------------------cd ------... 阅读全文
posted @ 2008-01-09 15:08 深渊野鱼 阅读(996) 评论(0) 推荐(0)
在5250上面实现复制粘贴
摘要：编辑－－－键盘－－－自定义　　　　　　　　　　定制－－－点Ｃ－－功能：编辑复制　－－〉到ＣＴＲＬ　　　　　　　　　　　　　　　点Ｖ－－功能：编辑粘贴　－－〉到ＣＴＲＬ保存，然后指定键盘的方式 阅读全文
posted @ 2008-01-09 15:07 深渊野鱼 阅读(603) 评论(0) 推荐(0)
关于文件的ShareODP和USROPN
摘要：1．ShareODP:在PF或者LF编译的时候，有个SHARE（Share Open Data Path）的参数，控制该文件是否共享其打开路径。如果指定SHARE为*NO的话，程序在每次打开一个文件的时候，都会为该文件建立一次访问路径；如果指定SHARE为*YES的话，程序在第一次打开该文件的时候，系统建立该文件的访问路径，在同一个ActiveGroup中再打开该文件时，就不再重新建立该文件的访问... 阅读全文
posted @ 2008-01-09 15:07 深渊野鱼 阅读(648) 评论(0) 推荐(0)
如何以某一关键字快速搜索AS/400 中的Message file
摘要：用DSPMSGD命令可以查看某个已知某一个的Message ID的内容,但是它不能按照某个关键字查看一个message file中的所有message id,如何按某个关键字搜索整个Message file中的所有message id 呢？解答 1.在AS/400命令行上输入命令：DSPMSGD RANGE(*ALL) MSGF(QSYS/QCPFMSG) DETAIL(*BASIC) OUTP... 阅读全文
posted @ 2008-01-09 15:06 深渊野鱼 阅读(1358) 评论(0) 推荐(0)
如何查看QTEMP的内容？可以查看别人的QTEMP的
摘要：1. 显示自己作业的QTEMP的内容：(1) 用DSPLIB显示所有外部对象(操作系统之上的可操作的对象)：DSPLIB LIB(QTEMP);(2) 用DMPLIB显示所有内部对象：DMPOBJ OBJ(QTEMP) OBJTYPE(*LIB)结果位于假脱机文件QPSRVDMP中：（如图所示）2. 显示别人作业的QTEMP的内容：(1). 用WRKACTJOB找出所要查看的作业的名称，例如：1... 阅读全文
posted @ 2008-01-09 15:05 深渊野鱼 阅读(1220) 评论(0) 推荐(0)
如何将AS/400英文界面改为中文界面？
摘要：如何将AS/400英文界面改为中文界面？解答 前提：系统必须安装第二语言(2989)。具体步骤如下：1.用CHGSYSLIBL命令修改系统的库列表。CHGSYSLIBL LIB(QSYS2989) OPTION(*ADD)2.GO MAIN 就可看到中文界面。将中文界面改回英文界面：1.用CHGSYSLIBL命令修改系统的库列表。CHGSYSLIBL LIB(QSYS2989) OPTION(*... 阅读全文
posted @ 2008-01-09 15:04 深渊野鱼 阅读(1607) 评论(1) 推荐(0)
如何在AS/400上发送带有颜色的MESSAGE
摘要：用户经常发送MESSAGE,MESSAGE的颜色往往是绿色的，其实是可以发送彩色的MESSAGE的。解答 1.创建SNDCOLMSG CLP程序。SNDCOLMSG: PGM PARM(&MSG &COLOR &MSGTYPE)DCL VAR(&MSG) TYPE(*CHAR) LEN(80)DCL VAR(&COLOR) TYPE(*CHAR) LEN(1)DCL VAR(&MSGTYPE) ... 阅读全文
posted @ 2008-01-09 15:04 深渊野鱼 阅读(753) 评论(0) 推荐(1)
如何从OS/400里直接发送电子邮件到Internet
摘要：从OS/400 V4R1开始,即使您的i系列400服务器上没有安装邮件服务器软件(如Domino),也可以通过设置 SMTP Gateway, 指向一个外部邮件服务器(Lotus Domino, Miscrosoft Exchange 等), 帮助转发Internet邮件, 即i系列400将邮件自动发到您指定的MailServer,再由这个MailServer把邮件发向Internet. 实现步... 阅读全文
posted @ 2008-01-09 15:03 深渊野鱼 阅读(825) 评论(0) 推荐(0)
启动日志
摘要：STRJRNPF FILE(OBJECT/OBJ LIBRARY) JRN(JOURNAL LIBRARY /JOURNAL FILE) 阅读全文
posted @ 2008-01-09 15:02 深渊野鱼 阅读(319) 评论(0) 推荐(0)
关于命令RGZPFM
摘要：命令RGZPFM做什么? 什么情况下运行? 影响命令RGZPFM执行时间的因素有哪些?解答 命令RGZPFM应该在文件中被删除的记录超过20%时执行. 该命令执行后,系统的性能会改善。 因为系统在检索时不必再去读那些已经被删除的记录索引, 并且被删除记录所占有的硬盘空间会被释放而变 为可用。影响命令RGZPFM执行时间的因素有很多, 最基本的有以下一些：o 在执行RGZPFM命令时, 系统会使用... 阅读全文
posted @ 2008-01-09 15:02 深渊野鱼 阅读(964) 评论(0) 推荐(0)
folder的操作
摘要：1。首先用户必须具备　WRKDIR的权限 授权方法: wrkdir 添加该用户2. 目录授权 WRKFLR F6=新怎目录 注意：要对每一层的目录进行对该用户的授权，一般是＊ＡＬＬ 阅读全文
posted @ 2008-01-09 15:01 深渊野鱼 阅读(383) 评论(0) 推荐(0)
如何在各种环境中处理多成员的物理文件
摘要：SQL是与平台无关的数据库操作语言，虽然它无法处理iSeries上包含多成员的物理文件(表)，但是它与RPG/COBOL一样，是可以处理写入数据库文件的物理文件成员。所以，您可以通过命令OVRDBF和SQL一起来处理多成员的物理文件：OVRDBF FILE( name ) TOFILE( toname ) MBR( name ) OVRSCOPE( *JOB )这里有几点值得注意的地方：1. 您... 阅读全文
posted @ 2008-01-09 15:00 深渊野鱼 阅读(649) 评论(0) 推荐(0)
如何重新找回物理文件中已经被删除的记录
摘要：序言：这是一个允许查看/拷贝/找回物理文件中已经被删除的记录的工具。你可以交互地显示活动的和被删除的记录，扫描到被删除的记录，并将它们恢复回来。此外，你还可以通过这个工具将记录拷贝并打印出来，或者输出到一个输出文件，或者是在不显示记录的情况下，直接恢复被删除的记录。与其他恢复被删除的记录的工具不同，UNDEL并不会把物理文件拷贝到SAVF中，而是直接在物理文件的记录上直接操作，这对于有着很多记录的... 阅读全文
posted @ 2008-01-09 15:00 深渊野鱼 阅读(3422) 评论(0) 推荐(0)
如何找出物理文件中损坏的记录
摘要：如何找出物理文件中损坏的记录？解答 下面提供的CL源程序可以帮助您找出物理文件中损坏的记录，但是不支持其他文件系统中的文件类型，例如：/QNTS，/QOPT等。也不支持OS/400上其他类型的对象。如果您的操作系统版本在R420以上，则该程序需要一个逻辑文件来支持：/**********************************/R RECORD PFILE(QSYS/QADBXREF)D... 阅读全文
posted @ 2008-01-09 14:59 深渊野鱼 阅读(650) 评论(0) 推荐(0)
如何恢复包含损坏记录的物理文件
摘要：在物理文件在没有激活日志的状态下，如果出现了损坏的记录如何恢复该物理文件。解答 请按照以下步骤，尽量恢复物理文件中没有损坏的记录：1、在OS/400命令行键入以下命令：OVRDBF FILE(LIBA/File) SEQONLY(*YES 1)注: 该命令确保该物理文件被顺序地处理，同时只有一个记录在处理。2、接着，执行以下命令：CPYF FROMFILE(LIBA/File) TOFILE(Q... 阅读全文
posted @ 2008-01-09 14:59 深渊野鱼 阅读(481) 评论(0) 推荐(0)
如何对37，65535的字段进行中文模糊查询
摘要：在5.2版本中如果使用SQL建表并制定字段属性为CCSID 65535,是可以使用中文的模糊查询的但如果使用DDS建表，利用field level keyword来制定字段属性为CCSID(65535)，则无法使用中文的模糊查询，原因是0E/0F控制码也被当作普通字符使用。例如R TEST--NAME --A(20)-- CCSID(65535)建立PF文件QGPL/TESTINSERT INT... 阅读全文
posted @ 2008-01-09 14:58 深渊野鱼 阅读(698) 评论(0) 推荐(0)
rpgle的source可以retrieve回来吗？
摘要：1、在CLP是通过RTVCLSRC这个命令来实现Retrieve CL Source ，前提是在Compile CLP时让Allow RTVCLSRC参数选*YES 。 2、但在RPGLE里头IBM没有提供这样的CL，到目前为止估计也没有现成的工具提供这个Retrieve RPG Source功能。 我们在Compile RPG时，可以有2种编译途径，一是先编译成moudle,然后再... 阅读全文
posted @ 2008-01-09 14:56 深渊野鱼 阅读(637) 评论(0) 推荐(0)
从一个终端如何跟踪另一终端的画面
摘要：从一个终端如何跟踪另一终端的画面 解答 OS/400系统支持从一个显示画面跟踪另一个显示画面的功能，是一个异地协助解决问题的好帮手，方法如下(这里假设两个显示器都已经有用户注册)： 1、 在画面跟踪请求端DSPB显示器使用命令STRCPYSCN SRCDEV(DSPA) OUTDEV(DSPB),按执行键后画面处于执行状态，用户需要等待。命令中DSPA为被跟踪的显示器名，DSPB为跟... 阅读全文
posted @ 2008-01-09 14:56 深渊野鱼 阅读(351) 评论(0) 推荐(0)
关于备份的话题SAVOBJ
摘要：AS/400 全系统备份需要在专属模式（restrictive state）下及需要在中控台（console）上执行备份指令才能完成， 由于专属模式下，所有的使用者作业及所有子系统均已被停止， 只有系统作业及从中控台进入系统（SignOn）的线上实时作业可以正常执行， 所以我们可以利用中控台上的线上实时作业（interactive job）自动执行全系统备份作业。做法是：１：从中控台... 阅读全文
posted @ 2008-01-09 14:56 深渊野鱼 阅读(1032) 评论(0) 推荐(0)
AS/400 PDM使用中的小技巧
摘要：在使用PDM(编程开发管理器)时，会遇到屏幕滚动、字体大小写、修改行序号的步长、全屏显示等一些问题，这里提供一些小技巧。 解答 1.修改屏幕滚动属性。用PDM打开源文件，按功能键F13(Shift+F1),弹出画面“Change Session Defaults”在参数Amount to roll位置输入要修改的值，下面列出了所有Amount to roll的参数解释：H=Half ... 阅读全文
posted @ 2008-01-09 14:55 深渊野鱼 阅读(1560) 评论(0) 推荐(0)
改变用户设备默认对应的打印机
摘要：chgdevdsp 设备名 阅读全文
posted @ 2008-01-09 14:54 深渊野鱼 阅读(277) 评论(0) 推荐(0)
控制用户使用spool file的权力
摘要：控制用户使用spool file的权力 解答 1、 拥有*SPLCTL权限的用户,可以处理任意outq中的spool file. 2、 spool file owner有权处理自己outq中的所有spool file. 3、 拥有*JOBCTL的用户，outq参数为OPRCTL(*YES),可以处理该outq中的所有spool file. 4、 用户对outq 拥有*read,*ad... 阅读全文
posted @ 2008-01-09 14:54 深渊野鱼 阅读(631) 评论(0) 推荐(0)
如何理解Library List
摘要：library list是AS400的独特的概念，用于在用户登录的时候设置搜索库列表，相当于UNIX和DOS的PATH环境变量。当用户使用对象时不指定所在库名 称，则系统在library list指定的库中搜索该对象，找到第一个名称相同的就结束搜索过程，因此各个库在library list中的顺序非常重要。library list分为system libraries; product libra... 阅读全文
posted @ 2008-01-09 14:53 深渊野鱼 阅读(729) 评论(0) 推荐(0)
查看job
摘要：用 wrkactjob seq(*cpupct) 查看哪些JOB耗费大量CPU用 wrkactjob seq(*auxio) 查看哪些JOB大量存取硬盘要的话先杀掉！ 阅读全文
posted @ 2008-01-09 14:52 深渊野鱼 阅读(432) 评论(0) 推荐(0)
OS/400主要的系统作业的用途
摘要：当用户使用命令WRKACTJOB查看作业运行状态时，经常会发现一些系统作业，但是不清楚这些系统作业有什么用途，本文将对一些主要的系统作业的用途进行介绍。 正文 系统作业是由OS/400创建并控制的，用于控制系统资源并处理系统级的请求。在命令WRKACTJOB中显示的作业中，系统作业是按照字母排序在所有用户子系统和作业之后的。系统作业是在系统IPL时初始化的，但是，只要OS/400系统... 阅读全文
posted @ 2008-01-09 14:52 深渊野鱼 阅读(1306) 评论(0) 推荐(0)
如何确定哪一个作业锁定QDLS下的一个目标
摘要：如何确定哪一个作业锁定QDLS下的一个目标 解答 1、使用命令DSPDLONAM DLO(flrobjname) FLR(flrdirname),此命令可以显示出FOLDER中的目标对应的系统 目标的名称。2、使用命令WRKOBJLCK OBJ(QDOC/sysobjname) OBJTYPE(*DOC),其中，sysobjname为上一条命令输出 结果中的System object... 阅读全文
posted @ 2008-01-09 14:51 深渊野鱼 阅读(408) 评论(0) 推荐(0)
WRKACTJOB命令一些有用功能介绍
摘要：大多数情况下，系统管理员键入WRKACTJOB命令后，直接回车，而没有去尝试该命令提供的一些有用功能。---------------------------------------------------------------------------------------------Work with Active Jobs ------------------S102xxxx ... 阅读全文
posted @ 2008-01-09 14:50 深渊野鱼 阅读(1518) 评论(0) 推荐(0)
备份JOB SCHEDULE ENTRY的简单方法
摘要：备份JOB SCHEDULE ENTRY的简单方法 解答 用WRKJOBSCDE命令看到的各条ENTRY存放在QUSRSYS/QDFTJOBSCD中，所以可以备份此目标：SAVOBJ OBJ(QDFTJOBSCD) LIB(QUSRSYS) OBJTYPE(*JOBSCD) DEV(TAPxx)。 阅读全文
posted @ 2008-01-09 14:50 深渊野鱼 阅读(468) 评论(0) 推荐(0)
如何从PC 传送 SAVF 到AS/400
摘要：如何从PC 传送 SAVF 到AS/400 解答 在Windows中启动DOS窗口: 1. FTP AS400-IP 地址 2. 输入用户名, 回车, 再输入口令. 3. CD /qsys.lib/***.lib, *** 为AS/400 存放SAVF库名. 4. LCD PC 机本地存放SAVF的目录 5. BIN 6. QUOTE SITE NA 1 7. PUT pcSAVF.... 阅读全文
posted @ 2008-01-09 14:47 深渊野鱼 阅读(873) 评论(0) 推荐(0)
如何使用CA/400批处理的方式传输数据
摘要：如何使用CA/400批处理的方式传输数据 解答 用户可以用CA/400的数据传输功能交互式地在PC与AS/400之间传输数据，但对于频繁执行的数据传输，交互式的方式会带来不方便，而用批处理的方 式只要在DOS命令行执行一条命令即可，方法如下： 1、首先要产生一个传输请求，用户若熟练请求文件的格式可以直接用编辑工具产生一个请求文件：.TTO(下传请求)或.TFR(上传请求)。另有一简单... 阅读全文
posted @ 2008-01-09 14:47 深渊野鱼 阅读(921) 评论(0) 推荐(0)
自由格式RPG 读整个表格
摘要：C*=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- /free// Loop through all records of file read file;dow not %eof(file); // Process until end of file if %error; dsply 'Read erro... 阅读全文
posted @ 2008-01-09 14:46 深渊野鱼 阅读(534) 评论(0) 推荐(0)
用前缀给字段命名
摘要：FBIUSRBLDL1UF E K DISK rename(BIUSRR:ByModel) Prefix(Z) 阅读全文
posted @ 2008-01-09 14:46 深渊野鱼 阅读(274) 评论(0) 推荐(0)
让一个字段处在中间
摘要：*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- * $GetComNam - Get Company Information *-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=... 阅读全文
posted @ 2008-01-09 14:44 深渊野鱼 阅读(250) 评论(0) 推荐(0)
将小写转化成大写
摘要：-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= H DftActGrp(*No) Option(*SrcStmt : *NoDebugIO) *-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-... 阅读全文
posted @ 2008-01-09 14:44 深渊野鱼 阅读(567) 评论(0) 推荐(0)
显示屏幕的例子
摘要：C*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= C* $DispSFL01 - Survey Type LookUp C*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=... 阅读全文
posted @ 2008-01-09 14:44 深渊野鱼 阅读(447) 评论(0) 推荐(0)
命令行CALL程序时传递数字参数总结
摘要：设程序 PgmA 有参数 Parm1, Parm2： 1）parm1(7S 0) = 276，parm2(7S 2) = 15.73 传递方式：CALL PGMA PARM('0000276' '0001573') 2）parm1(7S 0) = -276，parm2(6S 2) = -15.73 传递方式：CALL PGMA PARM('-000276' '-01573') 3）p... 阅读全文
posted @ 2008-01-09 14:43 深渊野鱼 阅读(931) 评论(0) 推荐(0)
一次LOAD整个SUBFILE
摘要：*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- * $LoadSFL01 - Load subfile display *-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=... 阅读全文
posted @ 2008-01-09 14:42 深渊野鱼 阅读(536) 评论(0) 推荐(0)
谈表表达式的威力
摘要：在这些表表达式的用途当中，有些您可能是熟悉的，而有些可能就不熟悉了。我将分别讨论表表达式每种用途的实例，以展示其强大性。我应邀在全球范围内宣传 SQL 技巧。我相信您将至少学到表表达式的一种用法，而您所学到的东西将对您的应用产生一定的影响，所以还请继续读下去。预过滤全外连接最近几年来，随着工作文件的移除和并行性的加入，全外连接在性能方面已得到了增强。然而，其语法并没有得到像左连接和右... 阅读全文
posted @ 2008-01-09 14:40 深渊野鱼 阅读(609) 评论(0) 推荐(0)
设置正确的模糊查询
摘要：设置正确的模糊查询 解答 有些用户在对数据库进行中文的模糊查询的时候，发现查询结果不正确，而对英文的模糊查询完全正确。检查用户的数据库文件，发现其CCSID=836，而用户的作业CCSID=935，这样就存在一个字符集的转换，而不幸的是从836到935的转换是没有的，也不能用CHGPF进行修改。为了实现模糊查询，方法有很多，这里介绍两个：1 利用CPYF将原数据库文件复制一个副本，而... 阅读全文
posted @ 2008-01-09 14:39 深渊野鱼 阅读(474) 评论(0) 推荐(0)
如何将STRSQL中执行SELECT语句的结果分屏显示
摘要：1.将光标移动到要进行分屏的列。2.按F21功能键，将会在屏幕上出现一条竖线。3.按F19、F20功能键，就可以将竖线左侧各列锁定，逐个察看右侧各列的数据。 阅读全文
posted @ 2008-01-09 14:38 深渊野鱼 阅读(707) 评论(0) 推荐(0)
如何在store procedure中使用动态SQL
摘要：如何在store procedure中使用动态SQL 解答 所谓动态SQL，是相对静态SQL而言的，静态SQL在编译的时候就已经知道他的全部内容了。而动态SQL脚本在编译的时候还不完整，直到执行过程中才能确定的SQL语句。在DB2/400中实现动态SQL的方式很多，但一般都采用PREPARE的方式来实现，下面是在SQLC中实现动态SQL：EXEC SQL BEGIN DECLARE ... 阅读全文
posted @ 2008-01-09 14:38 深渊野鱼 阅读(1288) 评论(0) 推荐(0)
如何在SQL模糊查询中忽略对大小写字符的处理
摘要：我们知道字符字段中可以包含大写字符和小写字符, 如何在SQL模糊查询中忽略对大小写字符的处理?例如: SELECT * FROM TABLENAME WHERE FIELDB LIKE 'A%', 希望得到以'A' 或 'a'开头的所有记录. 解答 使用sort sequence table可以解决此类问题. 以下将解释如何使用'SORT SEQUENCE':*系统值QSRTSEQ默... 阅读全文
posted @ 2008-01-09 14:38 深渊野鱼 阅读(5699) 评论(0) 推荐(0)
如何在SQL中使用循环结构
摘要：如何在SQL中使用循环结构 解答 FOR,LOOP,WHILE,REPEAT是UDB/400的一种内部循环控制，用于遍历表中符合条件的每一行记录。例如：目的：更新employee库，把所有北京籍员工的工资提高10%例一：使用FOR循环--------------------------------------------CREATE PROCEDURE QGPL/TEST_FORLA... 阅读全文
posted @ 2008-01-09 14:37 深渊野鱼 阅读(19263) 评论(1) 推荐(0)
如何在SQL/400中计算两日期间的天数
摘要：如何在SQL/400中计算两日期间的天数? 解答 1. 使用DATE函数, 返回格式为'yyyymmdd'的8位数字: SELECT digits(DATE('02/01/01') - DATE('05/04/99')) FROM ....返回值为:'00010828', 表示其间天数为1年零8个月零28天; 2. 使用DAYS函数, 返回格式为10位的数字: SELECT digi... 阅读全文
posted @ 2008-01-09 14:36 深渊野鱼 阅读(994) 评论(0) 推荐(0)
如何在AS/400 SQL查询结果中加入颜色分类
摘要：我们在AS/400上观看SQL查询结果，会因为颜色单一，无法观看具有警示形的文字，其实，是可以在SQL查询结果中加入颜色以区分不同类型的结果。 解答 1.颜色属性。为了在SQL查询结果中加入颜色，可以在SQL查询语句中加入颜色的属性。常用的颜色属性有：x'21' 反白 Reversex'22' 高亮度 HIx'23' 高亮度反白 HI reversex'28' 红色 Redx'29'... 阅读全文
posted @ 2008-01-09 14:36 深渊野鱼 阅读(969) 评论(0) 推荐(0)
如何在AS/400 SQL 查询中实现条件表达式
摘要：在AS/400的SELECT语句中可以使用CASE表达式,它可根据表达式的内容返回不同的值，它可以简化原来需多条SQL语句实现的查询，以前用多个游标完成的统计可在一条语句中完成，以下举例加以说明。 解答 1.语法规则：Case语句--当对不同条件产生不同的结果值时，可使用Case语句。--Case语句计算所有定义的条件，并按条件是否为真而返回结果。语法如下：CASE []WHEN ... 阅读全文
posted @ 2008-01-09 14:36 深渊野鱼 阅读(1084) 评论(0) 推荐(0)
如何取出表中前n条记录
摘要：如何取出表中前n条记录? 解答 在OS/400 V5R1M0 中，SELECT语句中新增了子句: FETCH FISRT n ROW(S) ONLY, 使用方法如下:1. 从表t1中取符合条件的第一条记录:SELECT * FROM t1 ORDER BY age FETCH FISRT ROW ONLY;2. 从表t1中取符合条件的前n条记录:SELECT * FROM t1 OR... 阅读全文
posted @ 2008-01-09 14:35 深渊野鱼 阅读(508) 评论(1) 推荐(0)
如何以批处理方式执行多条SQL语句
摘要：如何以批处理方式执行多条SQL语句? 解答 1. 在QGPL/QTXTSRC文件中增加一个成员, 把想要执行的所有语句写入其中; 2. 在命令行执行: RUNSQLSTM SRCFILE(QGPL/QTXTSRC) SRCMBR(XXX). 注意: (1). 成员的类型一定要指定为SQL; (2). 每条语句要以分号(;)结束; (3). 不支持SEL... 阅读全文
posted @ 2008-01-09 14:34 深渊野鱼 阅读(1268) 评论(0) 推荐(0)
利用sql参照另一个table更新当前table的数据
摘要：利用sql参照另一个table更新当前table的数据 解答 假设要求更新a表中的a2,a3字段，条件是a1和用b表中的b1相等：create table qgpl/a(a1 char(1),a2 char(1),a3 char(1));create table qgpl/b(b1 char(1),b2 char(1),b3 char(1));insert into qbpl/a v... 阅读全文
posted @ 2008-01-09 14:34 深渊野鱼 阅读(690) 评论(0) 推荐(0)
创建SQL存储过程所需要的许可程序
摘要：创建SQL存储过程所需要的许可程序 解答 创建SQL存储过程需要以下许可程序来支持, 否则系统会报告SQL7032的错误.1. 操作系统R450及以前版本:5769ST1 -- DB2 UDB Query Manager and SQL Development Kit;5769CX2 -- ILE C;5769SS1-13 -- System Openness Includes;2.... 阅读全文
posted @ 2008-01-09 14:33 深渊野鱼 阅读(331) 评论(0) 推荐(0)
V5R2 OS/400中SQL/400的新功能：自动生成标识列
摘要：在V5R2 OS/400的SQL中新增加了一些功能，这里介绍这些新功能之一：自动生成标识列。 解答 具体方法如下：1、在AS/400命令行输入命令STRSQL。2、输入下列命令创建新表：create table xqlib/employee1 ( empno int generated always as identity, name char(20), salary int, bo... 阅读全文
posted @ 2008-01-09 14:32 深渊野鱼 阅读(429) 评论(0) 推荐(0)
SQL中的四舍五入功能
摘要：SQL中的四舍五入功能 解答 在OS/400 R440版本之前，SQL不提供四舍五入函数; 从OS/400 R450版本开始，SQL提供四舍五入函数 -- ROUND。在OS/400 R440版本之前，可以通过函数CASE 和CAST 组合编写四舍五入功能:例如：字段FLD1定义为numeric(5,3)类型，想要四舍五入到小数点后一位，则select子句可以定义成: select ... 阅读全文
posted @ 2008-01-09 14:32 深渊野鱼 阅读(7385) 评论(0) 推荐(0)
用rrn进行sql删除
摘要：This will delete RRN 1 thru RRN 9,999delete from labelsbk/dds850 a where RRN(a) < 10000 阅读全文
posted @ 2008-01-09 14:30 深渊野鱼 阅读(533) 评论(0) 推荐(0)
逻辑文件选择或者忽略记录
摘要：S=select and O=Omit A* A R ORPPL PFILE(SROORPPL) A K OLPRDC ... 阅读全文
posted @ 2008-01-09 14:29 深渊野鱼 阅读(202) 评论(0) 推荐(0)
逻辑文件有comp
摘要：A R MKCRSPR PFILE(MRKCRSP) * A K SVANSQ ... 阅读全文
posted @ 2008-01-09 14:29 深渊野鱼 阅读(285) 评论(0) 推荐(0)
锁的状态
摘要：作业需要一个目标之前分配目标，这样在用目标是不用再等，可保证完成所需功能，这叫目标的原县分配。可用ALCOBJ命令预先分配目标，用DLCOBJ解除分配 目标是根据要他们做什么来分配的（读或者修改）和他们是否可以共享。文件和成员总是以*SHRRD来分配。而数据用规定所状态来分配锁的级别。锁状态标志使用的目标已是否可共享。有下列五个锁状态：1. *EXCL（排他） 目标对请求他的作... 阅读全文
posted @ 2008-01-09 14:26 深渊野鱼 阅读(490) 评论(0) 推荐(0)
程式中檢查是否潤年的新方法
摘要：在實際的應用中，我們經常要檢查是否為 潤年 ？一般情況我們都通過數字計算，下面提供一種簡單的方法，跟大家分享... 指令 CVTDAT 已經知道那一年是潤年, 只要將 "0229" 與二位數字年合併成 'mmddyy' 的格式, 當成指令 CVTDAT 的 DATE 參數值, 如果指令CVTDAT 傳回錯誤訊息 "CPF0555 日期錯誤或日期格式錯誤" , 那表示此二位數字年非潤年... 阅读全文
posted @ 2008-01-09 14:26 深渊野鱼 阅读(3979) 评论(0) 推荐(0)
程序使用 OPNQRYF 和 %SST (substring)
摘要：PGM PARM(&CALL) DCL VAR(&CALL) TYPE(*CHAR) LEN(7) DCL VAR(&TYPE) TYPE(*CHAR) LEN(1) DCL VAR(&SLT1) TYPE(*CHAR) LEN(250) + ... 阅读全文
posted @ 2008-01-09 14:25 深渊野鱼 阅读(830) 评论(0) 推荐(0)
用一条命令 转换 Iseries tables t到 CSV
摘要：/* Copy the temporary view to the incoming IFS file name. This com- */ /* mand assumes that the target IFS file is a CSV (comma separted */ /* variable" file and that it is to be converted to... 阅读全文
posted @ 2008-01-09 14:25 深渊野鱼 阅读(413) 评论(0) 推荐(0)
用CL提取系统值
摘要：//获取系统时间RTVSYSVAL SYSVAL(QTIME) RTNVAR(&TIME)//系统的日期格式由系统值QDATFMT决定。初值为MDY(月日年)，也可以改成YMD(年月日)，DMY(日月年)或者JUL格式//JUL格式中，QDAY的值是001-366的三位字符。可以用来确定两个日期之间的天数。//可用CVTDAT命令来闪出日期分割的字符。CVTDAT的格式：CVTDAT... 阅读全文
posted @ 2008-01-09 14:24 深渊野鱼 阅读(688) 评论(0) 推荐(0)
检查目标是否存在
摘要：一个程序要使用一个目标前，要加查它是否存在，你是否有权使用它。这在一个功能同时使用多个目标是很有用用CHKOBJ来检查目标存在与否。可在过程和程序的任何地方使用这个命令。CHKOBJ OJB(库名/目标名) OBJTYPE(目标类型)MONMSG MSGID(CPF9801) EXEC(GOGO NOTFOUND) 阅读全文
posted @ 2008-01-09 14:24 深渊野鱼 阅读(267) 评论(0) 推荐(0)
数据队列的用处
摘要：One example: PRINTING A SPOOL ON BOTH SIDES OF THE PAPER Follow the Steps: 1. Create a new DTAQ by the following command: CRTDTAQ DTAQ(QGPL/ZDTAQ1) MAXLEN(64512) 2. Create a OUTQ with the follo... 阅读全文
posted @ 2008-01-09 14:22 深渊野鱼 阅读(627) 评论(0) 推荐(0)
数据区的定义和示例
摘要：Displaying a Data AreaYou can display the attributes (name, library, type, length, data area textdescription), and the value of a data area. See the CL section of the Programmingcategory in the... 阅读全文
posted @ 2008-01-09 14:21 深渊野鱼 阅读(1110) 评论(0) 推荐(0)
批量更新OBJECT的权限
摘要：代码: 用SQLRPGLE做行不行? SELECT * FROM systables WHERE TABLE_SCHEMA ='*你要找的LIB' 自己把systables和你放LIB的PF做个外连接就行了.然后用QCMDEXC改权限 代码: PGM PARM(&GETLIB) DCL VAR(... 阅读全文
posted @ 2008-01-09 14:21 深渊野鱼 阅读(435) 评论(0) 推荐(0)
将一个 LIB 中的所有 OBJ 名称和类型输出到一个物理文件
摘要：问题： 能否用 CL 命令将一个 LIB 中的所有 OBJ 名称和类型输出到一个物理文件 (PF) 中去，以便程序读取处理？答案： 可以, 你可以用 CL 命令 DSPOBJD,例如将 mylib 中的所有对象属性输出到 outlib 库下面的 PF myoutf 文件中,可运行下面命令: DSPOBJD OBJ(mylib/*ALL) OBJTYPE(*ALL) OUTPUT(*O... 阅读全文
posted @ 2008-01-09 14:20 深渊野鱼 阅读(441) 评论(0) 推荐(0)
如何计算出OS/400中有多少个Library
摘要：可以编写一个CLP程序实现统计某台AS/400中有多少个library,程序的内容如下：程序名：countlib,类型：CLP。FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...*************** Beginning of data *************************... 阅读全文
posted @ 2008-01-09 14:20 深渊野鱼 阅读(383) 评论(0) 推荐(0)
如何在程序中获取系统ASP使用率等系统状态信息
摘要：如何在程序中获取系统ASP使用率等系统状态信息 AS/400系统管理员都对系统ASP空间增长情况很关心，当系统ASP 空间涨满了以后将会引起系统DOWN机等安全问题。系统ASP空间与硬盘空间并不完全等同，如果系统只配置了一个ASP分区，那么系统ASP空间与硬盘空 间是等同的，如果系统配置了多个ASP分区，则系统ASP只是ASP 1的分区。用WRKSYSSTS命令查看到的% system ASP u... 阅读全文
posted @ 2008-01-09 14:19 深渊野鱼 阅读(672) 评论(0) 推荐(0)
如何在FTP命令行执行AS/400命令
摘要：有时候无法通过TELNET、PC5250登录到AS/400，在这中情况下，在FTP命令行执行AS/400命令变得非常有用。具体步骤如下： 解答 1.启动FTP会话窗口，输入用户名、口令。2.在FTP会话的命令行输入QUOTE RCMD 'command'，就可以向OS/400 FTP服务器服务发送命令。例如：想要AS/400执行CHGCURLIB TESTLIB命令，只要在FTP会话... 阅读全文
posted @ 2008-01-09 14:18 深渊野鱼 阅读(1553) 评论(0) 推荐(0)
如何在CL程序自动回复询问类消息(Inquiry Message)
摘要：一 如何在CL程序自动回复询问类消息(Inquiry Message) 在AS/400系统开发中，经 常要与各种各样的消息打交道。有一类叫“Escape Message”的消息，是当程序出现错误后，会强迫程序异常结束，并告诉错误类型和原因。但经常时候我们不希望因为这些错误而使程序异常停止，在CL程 序中，通常做法是用MONMSG命令来监视这些消息，而后采取相应的正确动作，或者引导程序... 阅读全文
posted @ 2008-01-09 14:18 深渊野鱼 阅读(500) 评论(0) 推荐(0)
如何删除含无效字符的文件
摘要：用户在删除IFS中的文件时，系统返回错误信息：CPFA0A9 - Object not found，检查后发现文件名含不可读的无效字符，无法正常删除。 解答 此时可利用文件通配符-‘*’，其代表任何数量的任何字符。 例在 /TESTUNI 下有文件abnorm&&(&&代表不可读的无效字符），可用下述命令：RMVLNK OBJLNK('/TESTUNI/abnorm*')以abnor... 阅读全文
posted @ 2008-01-09 14:17 深渊野鱼 阅读(943) 评论(0) 推荐(0)
在CL中读一个文件
摘要：/*------------------------------------------------------------*/ /* */ /* List all members in a source file and Read through *... 阅读全文
posted @ 2008-01-09 14:16 深渊野鱼 阅读(404) 评论(0) 推荐(0)
在CL中使用SST或者SUBSTRING
摘要：The substring built-in function (%SUBSTRING or%SST) produces a character stringthat is a subset of an existing character string and can only be used within a CLprocedure. In a CHGVAR command, t... 阅读全文
posted @ 2008-01-09 14:14 深渊野鱼 阅读(483) 评论(0) 推荐(0)
在CL中使用ELSE
摘要：IF (&A=&B) THEN(CALLPRC PROCA)ELSE CMD(CALLPRC PROCB)CHGVAR &C 8 IF ... THEN ...IF ...THEN(DO)IF ...THEN(DO)...ENDDOELSE DOIF ...THEN(DO)...ENDDOELSE DO...ENDDOENDDOELSE IF ... THEN ...IF ... T... 阅读全文
posted @ 2008-01-09 14:13 深渊野鱼 阅读(258) 评论(0) 推荐(0)
在AS/400上根据日期生成星期几
摘要：用CONTROL LANGUAGE实现：根据给定的日期生成星期几。 解答 源代码如下：程序名：WEEK2类型：CLPPGM (&Date)DCL --&Date ------*Char -10DCL --&LDateB ----*Char --4 --/* Binary */DCL --&LDateN ----*Dec --15 0 /* Decimal*/DCL --&DAYARR... 阅读全文
posted @ 2008-01-09 14:13 深渊野鱼 阅读(643) 评论(0) 推荐(0)
取网络属性
摘要：RTVNET可以取得网络属性,这些属性可以在CHGNETA修改，用DSPNETA显示PGM DCL VAR(&OUTQNAME) TYPE(*CHAR) LEN(10)DCL VAR(&OUTQLIB) TYPE(*CHAR) LEN(10)RTVNETA OUTQ(&OUTQNAME) OUTQLIB(&OUTQLIB)CHGNETA OUTQ(QGPL/QPRINT)......... 阅读全文
posted @ 2008-01-09 14:12 深渊野鱼 阅读(201) 评论(0) 推荐(0)
取目标描述
摘要：可用RTOBJD命令取某个目标的描述返回给CL过程,用变量来返回描述，也可以用这些描述帮助你确定没有用的目标。也可以用QUSRJOBD API来返回目标描述也是用变量返回的。DSPOBJDDCL &LIB TYPE(*CHAR) LEN(10)DCL &CRTDATE TYPE(*CHAR) LEN(13)DCL &USEDATE TYPE(*CHAR) LEN(13)DCL &... 阅读全文
posted @ 2008-01-09 14:12 深渊野鱼 阅读(636) 评论(0) 推荐(0)
取用户配置文件属性
摘要：用RTVUSRPRF命令来取得用户配置文件的属性，把他们放在CL变量中来控制应用程序。可在命令中规定10个字符的用户配置文件名或者用*CURRENT。在运行RTVUSRPRF后可监控逃逸信息DCL &USR *CHAR 10DCL &USRMSGQ *CHAR 10DCL &USRMSGQLIB *CHAR 10...RTVUSRPRF USRPRF(*CURRENT) RTNUSR... 阅读全文
posted @ 2008-01-09 14:11 深渊野鱼 阅读(393) 评论(0) 推荐(0)
取成员描述信息
摘要：In the following CL procedure, a RTVMBRD command retrieves the description of aspecific member. Assume a database file called MFILE exists in the current library(MYLIB) and contains 3 members (... 阅读全文
posted @ 2008-01-09 14:11 深渊野鱼 阅读(317) 评论(0) 推荐(0)
取作业属性
摘要：可取作业属性把它放在一个变量中来控制应用程序采用的命令是RTVJOBA 可取的所有作业的属性和他们的组合PGM DCL &CLKNAM TYPE(*CHAR) LEN(10) DCL &NXTPGM tYPE(*CHAR) LEN(8) RTVJOBA USER(&CLKNAM)BEGIN: ... 阅读全文
posted @ 2008-01-09 14:10 深渊野鱼 阅读(237) 评论(0) 推荐(0)
停止锁住指定文件的所有相关作业
摘要：停止锁住指定文件的所有相关作业 解答 1、生成CL命令DLTJOB*******************************CMD: DLTJOBLANGUAGE: CL COMMAND SOURCE*******************************CMD PROMPT('DELETE JOBS LOCKING PF')PARM KWD(OBJNAME) +TYPE(... 阅读全文
posted @ 2008-01-09 14:10 深渊野鱼 阅读(549) 评论(0) 推荐(0)
信息操作
摘要：MONMSG(MOINTER MESSAGE) EXEC(操作) 监控送往程序信息队列的逃逸，状态和通知信息RCVMSG(RECEIVE MESSAGE) 把信息从信息队列复制到CL变量中RMVMSG(REMOVE MESSAGE) 从信息队列中取消信息RTVMSG(RETRIEVE MESSAGE) 把预先定义的信息从信息文件复制到CL变量中SNDPGMMSG 往... 阅读全文
posted @ 2008-01-09 14:09 深渊野鱼 阅读(324) 评论(0) 推荐(0)
一个批量修改文件属性的工具
摘要：一个批量修改文件属性的工具 AS/400上的每个文件都带有大量的属性，文件的属性是在创建文件的时候指定的。在实际应用 过程中，可能会需要改变这些文件属性。以PF文件为例，我们可能需要修改文件的Member Size，Maximum Members，Maximum record wait time等等。修改物理文件(PF)属性命令是CHGPF，修改逻辑文件(LF)命令是 CHGLF，遗憾的是这些命令... 阅读全文
posted @ 2008-01-09 14:09 深渊野鱼 阅读(4752) 评论(0) 推荐(0)
SNDBRKMSG　例子
摘要：//获取设备名RTVJOBA JOB(&WRKSTN) //发送中断消息SNDBRKMSG MSG(&MSGS) TOMSGQ(&WRKSTN) MSGTYPE(*INFO) 阅读全文
posted @ 2008-01-09 14:08 深渊野鱼 阅读(275) 评论(0) 推荐(0)
DCLF RCVF SNDF SNDRCVF等用法
摘要：１ DCLF FILE(library-name/file-name) RCDFMT(record-format-names)２．用显示文件接收和发送数据 SNDF，与记录格式中输出和输入/输出字段相关的变量的内容有系统格式化后发送到显示设备 RCVF 记录格式中输入和输入/输出字段的值放在相应的CL变量中 SNDRCVF把CL变量中... 阅读全文
posted @ 2008-01-09 14:07 深渊野鱼 阅读(2967) 评论(1) 推荐(0)
CL过程监控JOB的错误消息
摘要：PGMMONMSG MSGID(CPF0001) EXEC(GOTO ERROR)CALL PROGACALL PROGBRETURNERROR: SNDPGMMSG MSG(扐 CALL command failed? MSGTYPE(*ESCAPE)ENDPGM 阅读全文
posted @ 2008-01-09 14:06 深渊野鱼 阅读(256) 评论(0) 推荐(0)
CL内建函数
摘要：System Function Command Command FunctionChange ProcedureControlCALL (Call) 调用一个程序CALLPRC (Call Procedure) 调用过程RETURN (Return) Returns to the command following the command that　caused a progr... 阅读全文
posted @ 2008-01-09 14:05 深渊野鱼 阅读(792) 评论(0) 推荐(0)
AS400 批量FTP
摘要：在SNA网络连接中，AS/400的两块以太网卡能否实现互为备份 解答 AS/400 FTP 提供批处理功能(BATCH FTP),用户无须在FTP交互式环境单独输入FTP子命令。整个过程包含三部分： 1、CL 程序 - Samplib/SampFile BATCHFTP 2、FTP的子命令文件 - Samplib/SampFile CMDFTP 3、FTP命令执行结果输出 - Sam... 阅读全文
posted @ 2008-01-09 14:04 深渊野鱼 阅读(1287) 评论(0) 推荐(0)
AS400如何将Spooled File 拷贝到源物理文件
摘要：CRTSRCPF FILE(MLY/SRCPF) RCDLEN(212) IGCDTA(*YES) CRTPF FILE(MLY/PF) RCDLEN(200) IGCDTA(*YES) CPYSPLF FILE(QPUOPRTF) TOFILE(MLY/PF) JOB(123456/MLY/QPADEV0001) SPLNBR(3) CPYF FROMFILE(MLY/PF) TO... 阅读全文
posted @ 2008-01-09 14:01 深渊野鱼 阅读(511) 评论(0) 推荐(0)
visio如何扩大画布的大小
摘要：鼠标移到画布的边界按住Ctrl,就可以拉大.55555这个困惑了我好几年的问题,以前都觉得visio很烂,不过说实话,估计是被photoshop的操作方式给误导了不晓得也是MS做得不足的地方与否. 阅读全文
posted @ 2008-01-08 14:39 深渊野鱼 阅读(9440) 评论(6) 推荐(0)