随笔分类 - AS400
摘要：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 (...
阅读全文
摘要：可取作业属性把它放在一个变量中来控制应用程序采用的命令是RTVJOBA 可取的所有作业的属性和他们的组合PGM DCL &CLKNAM TYPE(*CHAR) LEN(10) DCL &NXTPGM tYPE(*CHAR) LEN(8) RTVJOBA USER(&CLKNAM)BEGIN: ...
阅读全文
摘要：停止锁住指定文件的所有相关作业 解答 1、生成CL命令DLTJOB*******************************CMD: DLTJOBLANGUAGE: CL COMMAND SOURCE*******************************CMD PROMPT('DELETE JOBS LOCKING PF')PARM KWD(OBJNAME) +TYPE(...
阅读全文
摘要：MONMSG(MOINTER MESSAGE) EXEC(操作) 监控送往程序信息队列的逃逸，状态和通知信息RCVMSG(RECEIVE MESSAGE) 把信息从信息队列复制到CL变量中RMVMSG(REMOVE MESSAGE) 从信息队列中取消信息RTVMSG(RETRIEVE MESSAGE) 把预先定义的信息从信息文件复制到CL变量中SNDPGMMSG 往...
阅读全文
摘要：一个批量修改文件属性的工具 AS/400上的每个文件都带有大量的属性，文件的属性是在创建文件的时候指定的。在实际应用 过程中，可能会需要改变这些文件属性。以PF文件为例，我们可能需要修改文件的Member Size，Maximum Members，Maximum record wait time等等。修改物理文件(PF)属性命令是CHGPF，修改逻辑文件(LF)命令是 CHGLF，遗憾的是这些命令...
阅读全文
摘要：//获取设备名RTVJOBA JOB(&WRKSTN) //发送中断消息SNDBRKMSG MSG(&MSGS) TOMSGQ(&WRKSTN) MSGTYPE(*INFO)
阅读全文
摘要：１ DCLF FILE(library-name/file-name) RCDFMT(record-format-names)２．用显示文件接收和发送数据 SNDF，与记录格式中输出和输入/输出字段相关的变量的内容有系统格式化后发送到显示设备 RCVF 记录格式中输入和输入/输出字段的值放在相应的CL变量中 SNDRCVF把CL变量中...
阅读全文
摘要：PGMMONMSG MSGID(CPF0001) EXEC(GOTO ERROR)CALL PROGACALL PROGBRETURNERROR: SNDPGMMSG MSG(扐 CALL command failed? MSGTYPE(*ESCAPE)ENDPGM
阅读全文
摘要：System Function Command Command FunctionChange ProcedureControlCALL (Call) 调用一个程序CALLPRC (Call Procedure) 调用过程RETURN (Return) Returns to the command following the command that caused a progr...
阅读全文
摘要：在SNA网络连接中，AS/400的两块以太网卡能否实现互为备份 解答 AS/400 FTP 提供批处理功能(BATCH FTP),用户无须在FTP交互式环境单独输入FTP子命令。整个过程包含三部分： 1、CL 程序 - Samplib/SampFile BATCHFTP 2、FTP的子命令文件 - Samplib/SampFile CMDFTP 3、FTP命令执行结果输出 - Sam...
阅读全文
摘要：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...
阅读全文
摘要：1.字符串截取 Substring--db2400 Substr ---Oracle2.数值型 to 日期型Date(xxxx||'-'||xx||'-'||xx) --db2/400 to_date(xxxxxxxx,'yyyymmdd')3.格式化数字Decimal(Decimal(a)/Decimal(b),8,2) --db2/400to_char(a/b,'FM999990,00...
阅读全文
摘要：驱动程序上面，一个支读其他connection未提交的数据。一个不支持。 唉，结果发现还是把三个DataAccess合并了比较好，一个数据源类型只有一个DA。改的我头晕眼花。 DB2/400的库名倒是可以用Oracle的用户名来代替。 切换倒还是算顺利～。
阅读全文
摘要：1.由于Oracle没有库的概念 所以,我们可以使用User来作为库的替代品 比如我们之前的SQL是 Select aa,bb,cc From LibraryA.TableA 现在,我们建立一个User 是LibraryA 然后用这个用户构建Table,索引之类的.2.由于Oracle对于空字符串的认同是DBNull.DB2还是把它当成空字符串看待 所以,需要迁移的程序都需要注...
阅读全文
摘要：1.外部存储过程--觉得这个比较好,可以挽救封装的比较好的RPG或者CL程序.效率上也是很显著的, 毕竟是Direct IO 绑定CL的,比较简单,SQLRPG的还没搞定,有知道的人告诉我,因为我已经根据参数设定DS,结果还是不行. CREATE PROCEDURE EMPLIB.SP_EQCHKLN( IN CKDATE CHAR(8), IN CKDEPT CHAR(2), ...
阅读全文
摘要：建议自己看英文的红皮书,比较原汁原味.目前只处理到SQL存储过程和外部存储过程(简单的,RPG,返回Result Set的还没有完成.) http://www.cnblogs.com/Files/wildfish/存储过程iSeries.rar用mindjet mindmanager画的,对于无耻使用该软件有些内疚.呵呵,有钱了,俺就买.
阅读全文
摘要：部分更新语句的字段可能是最匹配的索引里面包含的字段,那么他可能导致全表检索Key:EQDBNT ASC , EQFKND ASC , EQFPP ASC , EQCPP ASC , EQSTLI ASCUPDATE TABLEXX SET EQFPP='A' WHERE EQDBNT=1111 AND EQFKND='AAA'这时候这个索引不能被匹配如果UPDATE TABLEXX SET EQA...
阅读全文
摘要：SQL语句 SELECT DISTINCT EDOWN,EDOPT FROM EMFLIB.EQEDIPF WHERE EDCHK1='' AND EDCHK2='M' AND EDCHK3='' AND EDCHK4='' AND EDTAG2=''数据库记录总数 1518741条符合查询的记录数 657225条最早的索引 EDCHK1 EDCHK2 EDCHK3 EDCHK4 EDTAG...
阅读全文
摘要：新闻组上面看到的1.主机V5R4,也就是说I5的机器,有一个函数row_number() --这个因为自己的主机环境是V5R3 所以无从考证 select * from (select row_number() over (order by id) as rn , * from table1 ) as te2.主机是V5R3或者以下的可以使用如下语句以下语句是取结果的16-20条 with x ...
阅读全文
摘要：自从.net出了这么久，现在也已经到了.net2.0。Client access带的ibm.db2.iseries.dll才是.net 1.0的，性能没有比oledb有任何优势。最近一个朋友介绍了db2 connect。效果真的很显著，速度也很有差距。后来发现，这个产品其实就是基于jdbc封装的。而这里的ibm.db2.dll已经是.net 1.1的，也就是比较稳定的.net版本。终于恍然大悟，i...
阅读全文
浙公网安备 33010602011771号