Colorful Life2010

AS400中的系统信息

在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开发便笺

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文件使用

COBOL经典面试题库(65~126)
Weather:小雨,天气很阴

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)
Weather:小雨,天气很阴

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:字符型(这里指的是包含字母和数字),字母型,数字型