AS400について-77家的会客厅

RPGLE中DS结构和数组结合的几种方式

2010-05-29 23:57:04.202645

最近的项目中不段的用到配列（数组），二维配列以及DS等。将几种定义方式及区别列举如下：

变量定义以T@或W@开头，分别带表是数组还是普通WK变量。

T@ARR        DS         DIM(10) QUALIFIED
 T@SUBARR        12A    DIM(20)

上面这个就是一个二维数组，相当于DB中的横向20个字段，记录有10条。

必须加“QUALIFIED"关键字。

T@ARR       DS         DIM(10)
 W@SUB1           5A
 W@SUB2           5S 0

上面这个是数组呢，相当于每条记录是由W@SUB1和W@SUB2组成的，也就是T@ARR的每条记录是一个10A的变量。

            DS
T@ARR             20A   DIM(10)
 T@ARR1            5A   OVERLAY(T@ARR:1)  */OR OVERLAY(T@ARR:*NEXT)
 T@ARR2            5A   OVERLAY(T@ARR:6)
 T@ARR3           10S 0 OVERLAY(T@ARR:11)

上面的也是T@ARR的每条记录由三个变量组成，但上面这种定义方法，可以将三个变量也形成一个DIM(10)的数组，这样对于DB中有规律的重复字段来说就很有用。

W@STR        DS      10A
 T@ARR                1A      DIM(10)

上面这个就是将变量W@STR分成一个单个元素长度为1A的数组。

AS400中的系统信息

2010-05-24 22:45:06.637628

在AS400里运行命令WRKSYSSTS会得到如下的结果：

% CPU used . . . . . . . :       16.9    Auxiliary storage:                  
% DB capability  . . . . :       18.0      System ASP . . . . . . :    316.4 G
Elapsed time . . . . . . :   00:00:01      % system ASP used  . . :    29.0248
Jobs in system . . . . . :       1121      Total  . . . . . . . . :    316.4 G
% perm addresses . . . . :       .010      Current unprotect used :     5836 M
% temp addresses . . . . :       .750      Maximum unprotect  . . :   127647 M

右列最后两项在日文系统中显示为：

現在の非保護域使用量 . . : 5836 M
最大非保護域 . . . . . . : 127647 M

AS400开发便笺

2010-04-14 10:38:57.766536

1 ADDLIBLE 追加LIB到现有的编译LIB中
2 ALCOBJ 为 OBJ分配内存
3 CALL 用来调用其他程序
4 CHGDTAARA DATA 域变更
5 CHGJOB 改变JOB的属性
6 CHGLIBL 变更编译时的库
7 CHGPFM 修改程序的相关信息
8 CHKOBJ 查找OBJ
9 CLRPFM 清除物理文件数据
10 CLRSAVF 删除SAVE文件下的内容
11 CPYFRMQRYF 复制QUERY文件到目的库
12 CPYSPLF 把 CALL出来的帐票文件导成数据文件
13 CRTAPW 挂线程序做成
14 CRTBNDCL 编译CLLE文件
15 CRTBNDRPG 编译RPGLE程序
16 CRTCLPGM 编译CL文件
17 CRTDSPF 编译画面文件...

AS400 RPGLE中 LF文件定义及复合LF文件使用

2010-03-16 13:30:21.894915

COBOL经典面试题库(65~126)

2009-12-11 13:07:39

Q65) What is the significance of ‘above the line’ and ‘below the line’?
A65) Before IBM introduced MVS/XA architecture in the 1980’s a program’s virtual storage was limited to 16 megs. Programs compiled with a 24 bit mode can only address 16 Mb of space, as though they were kept under an imaginary storage line. With COBOL II a program compiled with a 31 bit mode can be ‘above the 16 Mb line. (This ‘below the line’, ‘above the line’ imagery confuses most mainframe programmers, who tend to be a literal minded group.)
Q: ’above the line’和‘below the line’有什么意义
A：在IBM推出MVS/XA体系之前，80年代的程序虚拟存储都限制在16 megs.程序以24位的方式仅在一个16Mb的地址空间中被编译，就好象那些程序被保存在虚存中一样。使用COBOL II编码之后，以31位方式的编码能超过16位的界线。（也就是说COBOL II之前是“在此界线之下”的，COBOL II之后“在这接线之上”，这通常容易使一些主机程序员搞混）...

COBOL经典面试题库(1~64)

2009-12-11 09:37:48

Q1) Name the divisions in a COBOL program ?.
A1) IDENTIFICATION DIVISION, ENVIRONMENT DIVISION, DATA DIVISION, PROCEDURE DIVISION.
Q：列举COBOL的DEVISION
A：标识部，环境部，数据部，过程部

Q2) What are the different data types available in COBOL?
A2) Alpha-numeric (X), alphabetic (A) and numeric (9).
Q：COBOL有哪些可用的数据类型
A：字符型（这里指的是包含字母和数字），字母型，数字型

WRKQRY的用法

2009-11-10 14:59:07

この演習では、ファイル NAMEADDR のすべての情報を、情報がファイルに存在するとおりの順序で、画面にリストする Query 定義を作成します。

この演習では、作成した Query 定義をライブラリーに保管します。ユーザー独自のライブラリーを使用することができます。ユーザーのライブラリーがない場合、または作成方法がわからない場合には、システムのライブラリー管理担当者に連絡してください。

COBOL数组操作

2009-09-14 14:18:51

下面是数组的例子：
          01 RECORD-X.
            03 MONTH OCCURS 12 TIMES.
              05 NAME PIC X(12).
              05 DAYS OCCURS 31 TIEMS.
                07 COMMENT PIC X(20).
                07 TEMP-HI PIC S999.
                07 TEMP-LO PIC S999.
          77 CURRENT-DAY PIC 99.
          调用表示如下：
          MONTH(5) : 包含NAME 和 DAYS表格的组项目。
          NAME OF MONTH(5) :基本字母数字项目，长度为12个字符。
          NAME(5) (1:3) 上述第5个项目的前3个字符。
          TEMP-HI(1,31) 基本数字项目，长度为3个字符。前一个参数是在MONTH数组中的位置，后一个参数是在DAYS数组中的位置。相当于MONTH[1].DAYS[31].TEMP-HI。
          COMMENT OF RECORD-X(5,CURRENT-DAY)(11) 基本字母数字项目第五个月的CURRENT-DAY的COMMENT字段的最后10个字符。

03 TEXT PIC XXX OCCURS 1 TO 12 TIMES DEPENDING ON IX.
定义一个变长的数组。定义的长度是12，实际以IX为准，若IX为10，则TEXT的长度就是30。。。。

COBOL文件操作

2009-09-14 14:17:50

要在COBOL中使用文件，要在3个不同的部中放上信息。
环境部，要有程序使用的每个文件的文件控制项目(FILE-CONTROL)。这个项目将程序中使用的文件名与程序外的实际文件联系起来。这些项目还定义文件的组织和访问方式。
数据部，要有每个文件的文件描述符(FD)项目，就是数据定义。
过程部，放上处理语句，OPEN,READ,WRITE,DELETE等。

环境部中主要是FILE-CONTROL和I-O-CONTROL.I-O-CONTROL很少使用。
SELECT [OPTIONAL] file-name ASSIGN TO DEV/FILE
[RESERVE N [AREA/AREAS]]
[FILE STATUS IS VAR]
SELECT必须是第一句，其他顺序无关。file-name是程序中传递使用的文件名，相当于实际文件的一个别名。OPTIONAL用于执行可能不存在的文件。
ASSIGN将file-name连接到实际的外部设备或文件。（TO好像可以省略。）
RESERVE指定文件缓冲区。
FILE STATUS指定一个变量存放文件状态，这个变量应该已在WORKING-STORAGE SECTION中定义。。。。

COBOL数据类型

2009-09-14 14:13:20

计息是银行的一项重要业务，包括日常代理客户收、付计算客户利息和年度计息等。目前，这些工作大多数是在IBM ES9000主机的SAFE应用系统平台上进行，该系统联机程序和联机计息程序是用IBM 370汇编语言实现的。为方便汇编语言读写，在VSAM文件存储的数据中，数据存放格式进行了特殊的定义。如日期存放采用X(3)型，01年03月15 日，存入EBCD码为X‘010315’。在进行年度计息时，为了实现各种复杂的运算工作，一般采用COBOL语言来实现各种运算。而采用COBOL语言读取X(3)型数据时，读出的是字符型数据，不能直接进行运算，必须转换为COBOL数据类型的数据后才能进行相应处理。如刚才的X‘010315’，需要转换为内部十进制数据X‘0010315C’。本文介绍一种用COBOL语言实现字符型X(3)与内部十进制数据相互转换的方法。
由X(3)型转换为内部十进制
由于日期数据总是大于零，在COBOL语言的工作单元节定义变量DATE－FIRST后，再追加定义COBOL语言的最小数据单元X‘000C’，即十进制 12。由于重定义DATE－CASE为DATE－CHANGE后，DATE－CHANGE是原日期数据的1000倍，于是要在过程部将 DATE－CHANGE除以1000。
首先，在COBOL程序WORKING－STORAGE SECTION. 中定义如下内容。。。