开发目的:1.建立DB2数据库表:2.建立逻辑视图:3.通过Cobol程序将一个源数据表的数据通过一定公式计算后导出到另一个目的数据库表源数据表:TIM3PF目的数据表:TIM4PF4.在AS400中建立批处理,处理Cobol程序 预先准备:建立Workunit.为用户建立权限 (略) 登陆400环境,开发需要更换company,比如开发是0,按F5刷新. Create DataSet 注意: smart work unti 的severity control输入9 DataSet subsys…

本文来自(http://refer.it-manual.com/cobol.html) COBOL関数(JIS-COBOL規格標準)の一覧表を掲載しています. COBOL関数一覧表は.各項目での並べ替えが可能です. 一般的なCOBOL関数(FUNCTION 関数名(引数)という書式)を掲載しています. 使用例の引数「WK-VALUE」は単独値.「WK-TABLE」は値リストを意味します. 引数が値リストの場合は.「SUM(1 2 3 4 5 6)」の様に.値を半角スペースで区切って指定することも…

第一次使用Mybatis,由于公司核心服务器是AS400,参考了网络各个大大的教程后,发现无法使用Mybatis Generator自动生成AS400中的表对象 参考URL: http://www.cnblogs.com/smileberry/p/4145872.html 生成后会报如下错误 Table configuration with catalog null, schema null, and table ZKC03P did not resolve to any tables 最后通过…

IDENTIFICATION DIVISION.             PROGRAM-ID. HELLO.                   ENVIRONMENT DIVISION.                DATA DIVISION.                       WORKING-STORAGE SECTION.             01  AAA.                                03 NUM1   PIC 9(3).      …

COBOL 是Common Business Oriented Language 的缩写.它不仅是商业数据处理的理想语言,而且广泛用于数据管理领域,因此COBOL 语言也被称为”用于管理的语言”. 一.COBOL 语言的特点最适于数据处理领域:算数计算量少而逻辑处理量多,输入输出量大,数据间存在着一定的逻辑  关系,大量的分类排序:COBOL比较接近英语,容易懂:通用性强,易移植,COBOL结构严谨,层次分明. 二.COBOL的组成部分:1.标识部(IDENTIFICATION DIVISION…

COBOL概述 什么是COBOL语言:            COBOL是Common Business Oriented Language的缩写,是面向商业通用编程语言.它是专门为商业数据处理而设计的计算机高级程序语言.广泛用于数据管理领域.应用于多个行业如:银行,证券,金融,制造,等等.            COBOL程序的基本结构:                        标识部(IDENTIFICATION DIVISION)                           …

先简单说一下怎么使用[jt400.jar]连接AS400上的DB2数据库. ※ jt400.jar资源,如果有安装AS400客户端的话,参考IBM官网 ※ http://www-01.ibm.com/support/docview.wss?uid=swg21398042 安装目录下就有jt400.zip,改个后缀就能用了. 如果没有安装AS400客户端的话,自己下载吧. 引入jar包后,直接上代码说明. public static Connection getAS400Connection()…

ENVIRONMENT DIVISION. CONFIGURATION SECTION.SOURCE-COMPUTER. IBM-AS400.OBJECT-COMPUTER. IBM-AS400. 这个没什么说的. Data Division : Working Storage · Use the prefix WSAA- for fields for any user defined working variables. You should grouptogether data which…

Step1:Compile Cobol source CB TIM07 using *SRCDBG option例如:CB MEMBER(TIM07) OPTION(*SRCDBG) WORKU(TIM003) Step2:HOLD QBATCH & Submit Job 2.1 先HOLD住:HLDJOBQ QBATCHGZ 2.2 Submit Job:D>Batch Processing >Schedule Submision> 提交启动Job Step3:WRKJOBQ…

子程序的命名通常和普通程序的命名方式相同.但是需要注意的是,对于子程序而言,不可将其前缀命名为以下这几个名字. AFB           AFH           CBC          CEE          EDC IBM            IFY             IGY            IGZ            ILB 实际上,以上名字都属于IBM相关产品的名字.如果将子程序的前缀命名为以上名字,则在主程序中将不能对其进行调用.当在主程序中试图调用该子程序时,…

在COBOL中有几类典型结构的表.这几类典型结构的表在大体上可分为下标表和索引表两大类.另外,根据表的重复次数定义又有定长表和变长表.此外,表还允许嵌套,因此还有嵌套表.这几类表均符合表的基本定义,都是一组连续存储的相似数据的集合.但每种类型的表在此基础上又各有特色.以下几种类型的表两两之间各自存在排它性,即一个表不可能同时为此两种类型的表. 下标表和索引表. 定长表和变长表. 其余各表之间都是并行的.例如一个表可同时为嵌套表和索引表,或同时为定长表.下标表和嵌套表等等. 对于下标表,本章将主要…

过程部的作用:编写程序要执行的语句,是程序的核心. 结构: 基本语句 INITIALIZE 设置数据项的初始值 ACCEPT 接收从键盘或指定设备上获得输入数据. 例子: 当批处理文件读到调用ACCPT1X, ACCEPT语句将读取数据到TRANS-DATA 读取系统日期 DATE 2 digits for year of century2 digits for month of year2 digits for day of month1988-12-25就表达为:  881225 DAY 2…

数据部的作用 程序中涉及到的全部数据(输入.输出.中间)都要在此定义,对它们的属性进行说明.主要描述以下属性: 数据类型(数值/字符)和存储形式(长度) 数据项之间的关系(层次和层号) 文件与记录的关系 数据部可以分为: 文件节(file section):用来描述程序中用到的输入输出文件及记录中各数据项的属性 工作单元节(working-storage section): 用来描述程序中用到的中间数据 联接节(linkage section):用来描述与调用程序间发生数据传递的数据项(即参数)…

标识部的格式: 标识部(IDENTIFICATION DIVISION) 用来标识程序名称,记录程序的文档记录住处如作者和日期等. 代码范例: IDENTIFICATION DIVISION.PROGRAM-ID. IDSAMPLE.AUTHOR. PROGRAMMER NAME.INSTALLATION. COBOL DEVELOPMENT CENTER.DATE-WRITTEN. 08/27/88.DATE-COMPILED. 09/01/88 12:57:53.SECURITY. NON-…

先学习基础概念 1.COBOL字符:包含: User-defined words 用户定义字符 ŸSystem-names ŸReserved words 关键字 2.用户定义字符User-defined words:合法的定义: Ÿ A - Z Ÿ a - z Ÿ 0 - 9 Ÿ - (连字符). 3.系统名 System-names Computer-names ŸLanguage-names ŸImplementor-names: Environment-name Assignment-n…

Generally, the use of a table/array (Static Memory) is most common in COBOL modules in an application system. When a space abend (SOC4) occurs, due to the exceeding of a dimension of an array, the developer must have to find each & every place in the…

1. Steps There’s a tool PDFing convert spool file to PDF with simple way. No need install AS400 objects ,only need install it in the PC can connect to AS400 server.http://www.pdfing.com/ 1.1 Install it, there’s main screen 1.2 Print a test fileDSPLIB…

1.没有权限进入distribution directory wrklnk 'QDLS\'    >User not enrolled in system distribution directory. Selection or command                                                      ===> ADDDIRE USRID(USERID SYSNAME) USRD(DESCRIPTION) USER(USRPROFILE)   …

calling as400 programs from c# http://forums.asp.net/t/1817332.aspx?calling+as400+programs+from+c+ How to call a AS/400 RPG Programs From ASP.NET http://www.codeproject.com/Questions/536692/HowplustopluscallplusaplusAS-f-plusRPGplusProgr SQL and ISer…

What TCP ports are used by ODBC to connect to the DB2/400?  8471/9471 http://search400.techtarget.com/answer/What-TCP-ports-are-used-by-ODBC-to-connect-to-the-DB2-400 Windows: netstat AS400:NETSTAT *CNN              enter Shift + F2 TCP/IP Ports Requ…

过程部的语句一般从B区开始书写. ACCEPT A,B (x)       DISPLAY T1,T2.(O)显示在一行上 DISPLAY  T1 DISPLAY  T2 (O)显示在两行上 read每执行一次操作,就从指定的文件中读取一个记录(而不是整个文件). FD:文件描述…

<予備>…

…

"C" hex is positive, "D" hex is negative, and "F" hex is unsigned.…

1.服务程序的创建和调用过程 1.1生成module 1.2编写BND文件确定输出接口 1.3生成服务程序 1.3.运行调用程序时,将服务程序导入到作业内存区active group,常驻内存 2.结合CPU进行总结 2.1 硬盘中代码库包含:module:BND文件:CLP程序:服务程序M:调用程序*PGM 代码库中的文件均已经过编译,调用程序编译时会包含服务程序的符号链接,按地址偏移量进行取值 当系统执行调用程序*PGM首次调用或涉及到到相应的服务程序时,CPU会将服务程序加入到active…

(1) CRTOUTQ OUTQ(TESTLIB/PRINTER2) (2) CRTDEVPRT ===> CRTDEVPRT DEVD(PRINTER2) DEVCLS(*LAN) TYPE(3812) MODEL(1) LANATTACH(*IP) PORT(9100) FONT(11) FORMFEED(*AUTOCUT) SEPDRAWER(1) PARITY(*NONE) STOPBITS(1) TRANSFORM(*YES) MFRTYPMDL(*XRX4700II) PPRSRC1…

1.安装DbVisualizer 2.下载JTopen 里面会有jt400.jar http://sourceforge.net/projects/jt400/files/latest/download 3.Tools -> Drive Manager 设置DB2 for AS/400(JTOpen),给出db2jcc4.jar和jt400.jar路径,然后连接…

1.用DbVisualizer查询,结果免费的版本不支持 DSPFFD查看该table,column的Coded Character Set Identifier(CCSID)是65535,普通的是37 2.用VS的Server Explorer也还是不行 3.用oledb,odbc在程序里面取也不行,oledb的参数Force Translate=65535,odbc的convert binary data[CCSID 65535] to text都不起作用 4.使用System i Navi…

1.首先确保在iSeriers能打开该folder  Wrklink 'QDLS'  如果出现如下错误,则需要增加user profile到Directory Entries list CPF9006 User not enrolled in system distribution directory. http://www-01.ibm.com/support/knowledgecenter/#!/ssw_ibm_i_72/cl/wrkdire.htm WRKDIRE 命令可以验证下该prof…

传统IT厂商沦落已经成为一种趋势.不仅仅是在中国去IOE的大背景下,在全球范围内,这些曾经盛极一时的IT大鳄也在衰落.作为一个在IBM服务了将近14年的老员工,我想浅谈一下IBM以及整个传统IT行业的沦落. 很多人把IBM的沦落归罪于Sam Palmisano.在著名的Luis Gerstner激流勇退后,是SAM为了取悦华尔街,而采用了不提高销售额而提高毛利率的方式运营公司,进而疯狂的压缩成本.降低研发费用,导致IBM近些年创新产品不足.虽然SAM在任的时候风光无限,借着HP的昏招连连而使IB…