- 博客(35)
- 收藏
- 关注
RSS订阅转载 自动生成标识列
自动生成标识列。 解答 具体方法如下：1、在AS/400命令行输入命令STRSQL。 2、输入下列命令创建新表：create table xqlib/employee1 ( empno int generated always as identity, name char(20), salary int, bonus int )“generated alwa
2011-11-28 11:40:15
210
原创 如何控制OBJ只能单人使用
常用二种方法一 在CL中，可以先使用ALCOBJ命令來Lock一個OBJ，结束后再DLCOBJ,如果没有执行DLCOBJ,JOB结束后将自动释放。 根據不同的Lock state，會對檔案進行不同方式的Lock，可根據需要進行選擇： 1.*SHRRD：:The lock state is shared for read，加鎖的作業只能讀，而其他作業可以讀或更新檔案。 2.*SH
2011-11-18 13:23:26
199
转载 如何在RPG程序里捕捉与文件操作有关的系统消息
如何在RPG程序里捕捉与文件操作有关的系统消息 AS/400系统里有大量各类消息，应用程序经常会因为意外情况被这些消息所打断，应用程序或者弹出消息窗口，或者在作业状态中报MSGW，等待人工干预。在CL程序里可以使用MONMSG命令来捕捉消息或自动答复消息机制来处理各样的消息，使程序始终能够正确地运行。但在RPG程序里，又怎么捕捉消息然后对消息进行特别处理呢？RPG程序实际主要是
2011-11-17 14:32:33
256
转载 如何在程序中获取系统ASP使用率等系统状态信息
如何在程序中获取系统ASP使用率等系统状态信息AS/400系统管理员都对系统ASP空间增长情况很关心，当系统ASP空间涨满了以后将会引起系统DOWN机等安全问题。系统ASP空间与硬盘空间并不完全等同，如果系统只配置了一个ASP分区，那么系统ASP空间与硬盘空间是等同的，如果系统配置了多个ASP分区，则系统ASP只是ASP 1的分区。用WRKSYSSTS命令查看到的% system ASP
2011-11-17 14:31:19
258
转载 警告与错误
一男子在路边一根接着一根地抽烟。一个女士走过来对他说：“嘿，你不知道你是在慢性自杀吗？注意看看烟盒上的警告信息。”“没关系”，男子悠然自得地又吸了一口：“我是个程序员。”“嗯？这和你是程序员有什么关系？”“我们一点儿也不在乎警告（warning），我们只在乎错误（error）。”
2011-11-17 12:28:48
151
转载 100的阶乘末尾有多少个零？
1×2×3.。。×100 1 每隔5个，会产生一个0，比如 5， 10 ，15，20.。。 2 每隔 5×5 个会多产生出一个0，比如 25，50，75，100 3 每隔 5×5×5 会多出一个0，比如125.。。 所以 100的末尾0的个数为 100/5 + 100/25 = 20+4 = 24个 对于其它的数字，同样可以这样计算。
2011-11-17 11:10:44
187
转载 n是一个奇数，求证n(n^2-1)能被24整除
据说是网易的面试题：1 假设 n = 2x+1; n(n^2-1) = (2x+1)(4x^2+4x+1-1) =(2x+1)*(4x^2+4k) =4x(2x+1)(x+1) 所以一定能被4整除 2 另一个方面n(n^2-1) = n(n+1)(n-1) = (n-1)n(n+2) 也就是连续的三个数，他们一定能同时被2，3 整除，
2011-11-17 11:09:15
250
原创 CHECK參數説明
CHECK參數説明 類型參數英文注釋中文説明有效性檢驗ABAllows blank允许空白MERequires the user to enter data into the field.强制输入MFR
2011-11-17 10:13:09
515
原创 DSPATR參數
DSPATR參數參數英文注釋説明BLBlink閃爍HIHigh intensity 高亮度RIReverse image反映象CSColumn separators 列分隔符NDNondisplay不顯示
2011-11-17 10:11:53
536
转载 RETURN与SETON LR结束程序区别
RETURN与SETON LR结束程序区别RETURN结束不会强迫内存中数据写入磁盘, 而SETON LR结束时会强迫内存中的数据写入磁盘.比如一个输出文件, 400缺省方式是BLOCK方式输出,即当数据记录数满一个BLOCK块时才会把这一块的记录写入到时磁盘. 假若当用RETURN结束程序时,最后一个BLOCK块并没有满, 那么这最后一个BLOCK的记录就不会立即写入磁盘. 假若随
2011-11-17 09:55:13
306
转载 如何使用FTP在PC和AS/400之间传输包含中文的文件
如何使用FTP在PC和AS/400之间传输包含中文的文件 由于运行视窗操作系统(Windows)的PC使用ASCII编码, 而运行OS/400的AS/400使用EBCDIC编码, 所以在两个不同编码的操作系统之间互相传送文件, 就涉及到文件编码的问题. 如果要传输的文件又包含中文, 那么系统又要做不同的转码处理, 本片文章就介绍如何在PC和AS/400之间正确地传输
2011-11-16 16:45:57
320
原创 自定义CMD -Example
Example: Create a commandThis example shows how to create a command to allow the system operator to call a program to start the system.This example assumes you are usin
2011-11-16 16:43:58
177
原创 自定义CMD
一建立一个CMD的画面程序 cmdnameCMD PROMPT('cmd name') PARM KWD(NAME) TYPE(*CHAR) LEN(10) MIN(1) + PROMPT('QUERY NAME')
2011-11-16 16:42:18
205
原创 物理文件约束 (PF约束)
DB2/400数据库支持以下的物理文件约束条件： ·引用约束 ·主关键字约束 ·唯一性约束1 唯一性约束 一个唯一性约束标识数据库文件中符合下述所有条件的一个或一系列字段： ·在文件中唯一 ·是升序的 ·可为空值 一个文件可有多个唯一性约束，但不能重复。同一个键字字
2011-11-14 09:01:36
295
原创 触发器
触发器是一系列动作，对某个物理数据库文件进行修改时能自动运行。可以由应用程序中的高级语言语句做插入，更新或删除操作。增加物理文件触发器命令（ADDPFTRG）把一个触发器程序与一个物理文件联系起来。一旦建立了联系，在修改物理文件、它的一个成员和任何由该物理文件生成的逻辑文件时，系统在操作开始时就调用触发器程序。一个物理文件最多可与6个触发器相联，触发器可放在： ·插入前 ·插入
2011-11-14 08:56:10
149
原创 锁的一些概念
作业需要一个目标之前分配目标，这样在用目标是不用再等，可保证完成所需功能，这叫目标的分配。 可用ALCOBJ命令预先分配目标，用DLCOBJ解除分配目标是根据要他们做什么来分配的（读或者修改）和他们是否可以共享。文件和成员总是以*SHRRD来分配。而数据用规定所状态来分配锁的级别。锁状态标志使用的目标已是否可共享。有下列五个锁状态：1. *EXCL（排他）目标对请求他的
2011-11-14 08:48:13
184
转载 如何对37，65535的字段进行中文模糊查询
如何对37，65535的字段进行中文模糊查询 在5.2版本中如果使用SQL建表并制定字段属性为CCSID 65535,是可以使用中文的模糊查询的但如果使用DDS建表，利用field level keyword来制定字段属性为CCSID(65535)，则无法使用中文的模糊查询，原因是0E/0F控制码也被当作普通字符使用。 例如R TEST--NAME --A(20)-- CC
2011-11-14 08:37:31
180
转载 如何查看QTEMP的内容？可以查看别人的QTEMP的
如何查看QTEMP的内容？可以查看别人的QTEMP的 1. 显示自己作业的QTEMP的内容：(1) 用DSPLIB显示所有外部对象(操作系统之上的可操作的对象)：DSPLIB LIB(QTEMP); (2) 用DMPLIB显示所有内部对象：DMPOBJ OBJ(QTEMP) OBJTYPE(*LIB)结果位于假脱机文件QPSRVDMP中：（如图所示） 2. 显示
2011-11-14 08:34:48
304
转载 关于文件的ShareODP和USROPN
关于文件的ShareODP和USROPN 1．ShareODP:在PF或者LF编译的时候，有个SHARE（Share Open Data Path）的参数，控制该文件是否共享其打开路径。如果指定SHARE为*NO的话，程序在每次打开一个文件的时候，都会为该文件建立一次访问路径；如果指定SHARE为*YES的话，程序在第一次打开该文件的时候，系统建立该文件的访问路径，在同一个Active
2011-11-14 08:33:26
200
转载 使用ODBC驅動下載AS400資料直接在VBA程序中使用
cn As New ADODB.Connectionrs As New ADODB.Recordset strCn = "Data source=ODBC名稱;Uid=******;Pwd=******;" section :SQL語句 直接更新AS400的檔案 cn.Open strCn rs.Open section, cn
2011-11-11 16:54:39
742
转载 as400中的Commit/Rollback概念
as400中的Commit/Rollback概念数据库文件是AS/400中类型为*FILE的Object；它们既可以是PF又可以是LF，既可以是外部描述，又可以是程序描述。 访问数据库文件时使用落实控制(COMMIT/ROLBK)，可以确保对数据库文件操作的以下两个结果之一： 1、全部数据库文件操作都是成功的(落实操作)； 2、全部数据库文件操作都是无效的(取消操
2011-11-11 09:49:47
413
转载 AS400画面自动换页功能
主要思路: 每次輸入完一行，光標自動到下一行的位置 實現方法： 1.首先在DSP中設置SFLCTL的2個參數：SFLCSRRRN和SFLRCDNBR SFLCSRRRN返回執行時Subfile所在的行數，而設置SFLRCDNBR的值，可以使光標定位到某一行。 2. DSP中設置SFL中最右邊一個欄位的CHECK（ER)屬性，這樣每次輸完這個欄位的數據，自
2011-11-11 09:46:49
399
转载 用键字FRCDTA制作等待屏幕(DSPF技巧)
常见问题:对大数据量进行查询时,由于等待时间过长,用户常会误认为程序运行出现异常,终止操作. 解决方法:在数据查询进程中,加入等待屏幕告知用户,进程正常,请等待. FRCDTA:用这个记录层键字可以无须等待下一个输入/输出操作而立即显示一个记录格式. 代码: DSPF:A R DSPFMT *输入操作屏幕A
2011-11-10 15:49:49
223
转载 画面中显示左右二个SFL
通常将画面分成几个不同的显示区域,就是做几个不同的record,每个record有不同的范围,如标题用一个record,中间内容一个record,最后function key一个record每一record的范围是以行为单位的,即从哪一行开始,哪一行结束该record的第一个元素所在位置的行为开始行,最后一个元素所在位置的行为结束行该注意的是,每个元素前面有个不显示的控制位,准确的
2011-11-10 15:45:09
196
转载 命令行CALL程序时传递数字参数总结
在命令行CALL程序时，如果程序带数字参数，直接传递数字往往 会报错，因此汇总资料如下 设程序 PgmA 有参数 Parm1, Parm2： 1）parm1(7S 0) = 276，parm2(7S 2) = 15.73 传递方式：CALL PGMA PARM('0000276' '0001573') 2）parm1(7S 0) = -276，parm
2011-11-10 15:42:40
649
转载 RRN优化处理大文件
假设有一个数据量为海量的大文件，需要对其顺序处理。通常我们会想到把该大文件拆分成若干小文件，然后对若干小文件进行并行处理。但把海量大文件拆分成若干小文件也需要耗去可观的时间，能不能不用对海量大文件进行拆分，就可以对该文件进行分段并行处理呢？使用RRN就可以做到。 具体办法：(1) 首先在RPG程序的文件定义中定义RECNO关键词以及定义存放RRN号的字段。(2)
2011-11-10 15:27:39
498
原创 常用CL
DLYJOB DLY(30) DLTSPLF FILE(*SELECT)CVTBINDEC FROMBIN(&A) TODEC(&B) /*CONVERT FROM BINARY TO DECIMAL*/ CHKOBJ OJB(LIB/OBJ) OBJTYPE(*FILE)MONMSG MSGID(CPF9801) EXEC(GOGO NOTFOUND)
2011-11-10 14:25:21
132
原创 400 SQL记录
选择重复KEY的最早一笔记录 select RRN(E) FROM FILEA E WHERE RR(E) > (SELECT MIN(RRN(X)) FROMFILE X WHERE X.FILELD = E.FILELD)
2011-11-10 13:35:03
121
原创 RPG3 RPG/400 RPGLE概述
RPG，Report Program Generator。400下的RPG是所有rpg语言的统称。目前OS/400下的RPG编译器可以编译RPG III、RPG400、RPGLE、SQLRPGLE。RPG是从IBM SYS/3系统上发展起来的，在SYS/3上的rpg版本是RPG II，1971-1976的产物。1977-1982年，IBM又在sys/36、s
2011-11-10 13:11:42
557
原创 如何判断FILE有没有记录
一: RTVMBRD FILE(FILEA) NBRCURRCD(&RCDN) IF COND(&RCDN > 0) THEN(GOTO CMDLBL(END)) 二: RCVF RCDFMT(FILEA) MONMSG MSGID(CPF0864) EXEC(GO
2011-11-10 13:02:26
166
原创 如何执行本地CMD命令
PGM STRPCO MONMSG MSGID(CPF0000) STRPCCMD PCCMD('cmd /c start "x" +
2011-11-10 12:59:19
156
转载 RPGLE 如何call c程序
写一个c函数取0-100之间的随机数，然后在rpg中调用该c函数c函数（RANDTST）源代码：----------------------------------------------#include #include
2011-11-10 12:53:40
342
转载 DTAARA
单一资料区域可分为永久性的和暂时性的，永久性的就是使用crtdtaara生成的资料区域，它会一直存在与As400系统中，如同资料档pf，使用dltdtaara命令来删除。暂时性的就是在你登录到系统后，系统自动给你分配的一块资料区域，直到你退出系统后该资料区域被释放，它存储的信息也就随即消失，可以看成在你每次登陆后系统都会给你分配那么一块内存（如：Local Data Area，系统中的*LDA，l
2011-11-10 11:41:51
208
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人