1).TSO是什么？

2.Command Processor

2).ISPF是什么？

3.会话式系统

3）.在AMS HOST上，USER PASSWORD错误输入限制次数是多少？

2.3次

4）.对于JAPAN AMS的USER PASSWORD的使用期限是多少？

1.6个月

5）.如何分配一个新的顺序数据或者分区数据集？

1.TSO ALLOCATE命令

2.ISPF UTILITY 3.2.A

6）.如何向其它的用户发送数据集或者数据文件？

（文章来源：http://www.newcoin.info）

3.XMIT命令

4.TRANSMIT命令

7）.如何从其它的用户接受数据集或者数据文件？

1.RECEIVE命令

8）.如何让其它USER存取自己的数据资源？

3.PERMIT命令

9）.如何查看对数据集GROUP拥有存取权限？

4.LISTUSER

10）.如何COPY/MOVE数据集或者MEMBER文件？

1.ISPF UTILITY 3.3 2 ISPF UTILITY 3.1

4.ISPF UTILITY 3.4

11）.如何删除数据集？

1.DELETE命令2.ISPF UTILITY 3.4

（文章来源：http://www.newcoin.info）

12）.如何删除MEMBER文件？

1.DELETE命令2.ISPF UTILITY 3.4

3.ISPF UTILITY 3.1

13）.如何压缩数据集？

2.ISPF UTILITY 3.4

3.ISPF UTILITY 3.1

14）.如何查看数据集的属性信息？

1.LISTDS命令2.ISPF UTILITY 3.4

3.ISPF UTILITY 3.1 4.ISPF UTILITY 3.2

15）.如何确定分区数据集中的MEMBER编目数？

2.ISPF UTILITY 3.4

3.ISPF UTILITY 3.1 4.ISPF UTILITY 3.2

16）.在JOB LOG UTILITY操作中，一般都使用哪些基本命令?

H,I,O,DA,ST,OWNER *

17).在JOB LOG UTILITY操作中，一般都使用哪些行命令?

（文章来源：http://www.newcoin.info）

//…//C,C,P,S,?

18).如何把JOB LOG信息存到数据集中?

1.XDC行命令2.ISPF UTILITY 3.8

19).数据文件编辑用的行命令或者基本命令问题：

1.line插入命令是什么？à I,In

2.line拷贝命令是什么？à C,CC…CC,Cn

3.line删除命令是什么？à D,DD…DD,Dn

4.line移动命令是什么？à M,MM…MM,Mn

5.line覆盖命令是什么？ à OO…OO,O,On

6.line复制命令是什么？ à RR…RR,R,Rn

7.列标识表示line命令是什么？ à COLS

8.查看文件profile的基本命令是什么？ à PROFILE

9.从其它文件拷贝/移动数据的基本命令是什么？ à COPY

10.改变字符串的命令是什么？ à CHANGE

11.查找字符串的命令是什么？ à CHANGE

12.排序命令是什么？ à SORT

13.根据当前文件数据建立一个新的文件的命令是什么？àCREATE

14.查看十六进制数据的命令是什么？ à HEX ON/HEX OFF

20）.如何在指定的数据集中搜索数据？

3.ISPF UTILITY 3.14 4.ISPF UTILITY 3.15

21）.如何比较两个数据？

2.ISPF UTILITY 3.13

4.ISPF UTILITY 3.12

23）.在编辑MEMBER文件时，如果SAVE命令失败的话，该如何查找原因？

1.使用START命令打开另一个SESSION,在3.4下压缩MEMBER所在的分区数据集

2.1.不能解决的话，请查看MEMBER所在的分区数据集的MEMBER编目数是否不够？，

如果不够的话，请重新分配一个编目数足够大的分区数据集，并把旧的数据集下

的MEMBER移到新建的DATASET上，然后删除旧的数据集。

3.查看数据集有效空间是否已经没有了.

（文章来源：http://www.newcoin.info）

24）.***友情提示：

顺序文件(QSAM)

MEMBER文件

VSAM文件

文件

顺序数据集

分区数据集

扩展分区数据集

VSAM数据集(标识,INDEX,DATA)

3. A COBOL programmer wants to repeat an instruction 5 times. How can he/she code this?
O (a)
REPEAT 5 TIMES
instructie
END-REPEAT
O (b)
PERFORM 5 TIMES
instructie
END-PERFORM
O (c)
MOVE 1 TO COUNTER
PERFORM UNTIL COUNTER = 5
COMPUTE COUNTER = COUNTER + 1
instructie
END-PERFORM
O (d)
REPEAT VARYING COUNTER FROM 1 BY 1 UNTIL COUNTER = 5
instructie
END-PERFORM
10/02/2006 Selftest : COBOL programming – part 1 4
4. Which of the following answers gives the divisions of a COBOL program in the right order.
O (a) Environment – Identification – Data – Procedure
O (b) Identification – Environment – Data – Procedure
O (c) Identification – Environment – Procedure – Data
O (d) Environment – Identification – Procedure – Data
5. Which of the following variable names for data items are syntactically correct ? (2 answers)
[_] [a] CITY-CODE
[_] [b] -NR-OF-ITEMS
[_] [c] TOTAL-NUMBER-OF-LINES-PER-TEST
[_] [d] PRODUCT NUMBER
[_] [e] INDEX
6. When is the coding of a period obligatory ? (3 answers)
[_] [a] after each 01 level of a variable declaration
[_] [b] at the end of each instruction
[_] [c] at the end of each paragraph
[_] [d] at the end of the program
[_] [e] to end an IF instruction
7. Which of the following symbols can NOT be coded on position 7 of a COBOL program.
O (a) -
O (b) *
O (c) /
O (d) #
10/02/2006 Selftest : COBOL programming – part 1 5
8. Take a look at the following COBOL program. Assuming A, B, C, … are COBOL instructions,
in which order will they be executed?
MAIN-PAR.
PERFORM INIT-PAR
Z
PERFORM TERM-PAR
Z
STOP RUN
.
INIT-PAR.
A
B
PERFORM READ-X
.
LOOP-PAR.
E
F
.
TERM-PAR.
G
H
.
READ-X.
X.
O (a) A B Z E F Z X
O (b) A B X Z E F G H Z X
O (c) A B X Z E F Z G H Z
O (d) A B X Z G H Z
9. Take a look at the following calculation. If you take the normal priority rules in account, how will
this calculation be executed ?
A ** 2 * B / 2 + c – 5
O (a) (((A ** 2) * B) / 2) + c – 5
O (b) ((A ** 2) * (B / 2)) + c – 5
O (c) (A ** 2) * (B / (2 + c)) – 5
O (d) ((A ** (2 * B)) / 2) + c – 5
10/02/2006 Selftest : COBOL programming – part 1 6
10. A COBOL programmer wants to print out a number in his.her program. Which of the following
variables is best suited for this purpose?
+123.45
we assume that ‘.’ is the decimal point
O (a) PIC 9(5)
O (b) PIC +9(3).99
O (c) PIC +9(3)V9(2)
O (d) PIC 9(3).V9(2)
11. Take a look at the following variable declarations. What will be the content of RESULT at the
end of the series of MOVE instructions?
01 VAR-1 PIC X(5) VALUE (PL/I).
01 VAR-2 PIC X(10).
01 VAR-3 PIC X(2).
01 RESULT PIC X(5).
MOVE ‘COBOL’ TO RESULT
MOVE VAR-1 TO VAR-2
MOVE VAR-2 TO VAR-3
MOVE VAR-3 TO RESULT
O (a) PLbbb (bbb = 3 blancs)
O (b) COBOL
O (c) COBPL
O (d) PLBOL
12. Which of the following variable declarations are syntactically correct?
(1) 01 VAR-1 PIC SX(4).
(2) 01 VAR-2 PIC S9(4).
(3) 01 VAR-1 PIC V99.
(4) 01 VAR-1 PIC P99.
(5) 01 VAR-1 PIC 9(4)S.
(6) 01 VAR 1 PIC X(4).
O (a) 2, 3, and 6
O (b) 3, 4 and 6
O (c) 1, 2 and 3
O (d) 2, 3 and 4
10/02/2006 Selftest : COBOL programming – part 1 7
13. Which of the follwing PIC definitions can be used in the declaration of a record of a sequential
file that will be used as INPUT (2 answers)
[_] [a] PIC X(9)
[_] [b] PIC S9(4) COMP
[_] [c] PIC Z(4)
[_] [d] PIC 9(4)V99
[_] [e] PIC 9(4).99
14. Which tests are allowed with the following variable? (2 answers)
01 END-OF-FILE PIC X.
88 EOF VALUE ‘N’.
[_] [a] IF EOF THEN …
[_] [b] IF EOF IS TRUE THEN …
[_] [c] IF END-OF-FILE = ‘Y’ THEN …
[_] [d] IF END-OF-FILE THEN …
15. Assume one wants to print out the follwing number. How must the display variable be declared
in the COBOL program.
content 00232^45 negative (^ is the presumed decimal sign)
display $bbb232.45- ( bbb = 3 blancs)
O (a) PIC $Z(6).99-
O (b) PIC $(7).99-
O (c) PIC $Z(6)V99-
O (d) PIC -$Z(6).99
10/02/2006 Selftest : COBOL programming – part 1 8
16. Which of the following COBOL EVALUATE statements in syntactically NOT correct?
O (a)
EVALUATE A
WHEN 0 DISPLAY ‘A = 0‘
WHEN 5 DISPLAY ‘A = 5‘
WHEN OTHER DISPLAY ‘A IS NOT 0 NOR 5’
END-EVALUATE
O (b)
EVALUATE TRUE
WHEN A=0 DISPLAY ‘A = 0‘
WHEN A=5 DISPLAY ‘A = 5‘
WHEN OTHER DISPLAY ‘A IS NOT 0 OR 5’
END-EVALUATE
O (c)
EVALUATE A
WHEN A=0 DISPLAY ‘A = 0‘
WHEN A=5 DISPLAY ‘A = 5‘
WHEN OTHER DISPLAY ‘A IS NOT 0 NOR 5’
END-EVALUATE
17. Take a look at the following COBOL instruction. When will PAR-3 be executed?
IF A=B THEN
PAR-1
ELSE
PAR-2.
PAR-3
O (a) never
O (b) if A is equal to B
O (c) if A is different from B
O (d) always
18. For each file you want to read in in a COBOL program you have to provide a set of declarations
and instructions. In which order must they be executed?
(1) SELECT infile ASSIGN TO xx
(2) READ infile
(3) OPEN INPUT infile
(4) CLOSE infile
O (a) 3, 1, 2, 4
O (b) 1, 3, 2, 4
O (c) 1, 2, 3, 4
O (d) 3, 2, 1, 4
10/02/2006 Selftest : COBOL programming – part 1 9
19. Which of the following statements concerning files are true ? (2 answers)
[_] [a] the FD entry in the DATA DIVISION gives a description of the structure of a file.
[_] [b] the first record is automatically read on opening a file.
[_] [c] if a file is opened in I-O mode you can use this file for reading as well as for writing.
[_] [d] you can not read indexed files from a COBOL program.
[_] [e] in the SELECT clause you have to give a complete description of the exact location of
the file.
20. What is the content of RESULT after execution of the following COBOL instruction. The start
value of RESULT is 0.
PERFORM VARYING C FROM 1 BY 1 UNTIL C = 6
COMPUTE RESULT = RESULT + 1
END-PERFORM
O (a) 4
O (b) 5
O (c) 6
O (d) 7
10/02/2006 Selftest : COBOL programming – part 1 10
EVALUATION.
Here are the correct answers to all questions:
1. c
2. a
3. b
4. b
5. a c
6. a c d
7. d
8. d
9. a
10. b
11. a
12. d
13. a d
14. a c
15. a
16. c
17. d
18. b
19. a c
20. b

1． VSAM 文件结构
VSAM 数据集中的数据除线性数据集外，都被组成记录(逻辑记录)。逻辑记录是用户访问
数据集的单位。VSAM 的逻辑记录与非VSAM 数据集的存储方式不同。VSAM 将记录存于CI
（Control Interval）。一个CI 是直接访问存储设备的一片连续区域，用于存储数据记录及
其控制信息。当从直接存储设备上读取一个记录时，包含要读的记录的整个CI 都被读到虚存
的VSAM I/O 缓冲中，然后用户要读的记录才从VSAM 缓冲传输到用户定义的工作区。
一个VSAM 数据集在一个卷上可以占用最多119 到123 个Extent，或者占用4，294，967，
296 个字节。
CI 的大小在不同的VSAM 数据集中可以不同，但在一个数据集中必须相同。在创建数据集时，
你可以用访问方法服务的DEFINE 命令指定CI 的大小，也可以让系统自动选择CI
的大小。
每一个CI 含有如下信息：
逻辑记录：每一个CI 中可能包含多个逻辑记录。
自由空间：每一个CI 中可能含有一定的自由空间，用于插入新的记录。
控制信息：主要为RDF 和CIDF，RDF 描述每一个记录的信息，而CIDF 则描述整个CI
的信息。
注意：在线性数据集中，CI 全部是数据，无控制信息。
VSAM数据集中的多个CI成组为直接访问存储设备中的一片连续区域称之为CA(Control
Area)，一个VSAM 数据集由一个以上的CA 组成。CA 最大为一个柱面，最小必须是一个磁道。
有时一个记录的大小会大于一个CI 的大小，在VSAM 中，你不必把这个记录劈开，也不
必重新格式化这样的记录，因为在定义数据集时可以用SPANNED 参数指定记录可以跨多个CI。
VSAM 数据集有4 种类型：ESDS(Entry sequenced data set)、KSDS(Key Sequenced Data
Set)、LDS(Linear Data Set)、RRDS(Relative Record Data Set)。
ESDS：类似顺序文件。其记录长度可固定也可不固定，新记录只能加在数据集的末尾，
已存在的记录不可被删除，如果你一定要删除一个记录，你只能把这个记录标记为不活跃，
实际上并未被删除。记录的内容可以被修改但不能改变其长度。访问这样的数据通过其
RBA(Relative Byte Address)来进行，RBA 一般为双字整数，它表示逻辑记录从数据集起始
位置的位移量。尽管ESDS 没有索引，但你可以建立一个次键索引，用以记录记录的RBA。
ESDS 通过地址进行访问，因此可顺序访问也可随机访问。
KSDS：在KSDS 中，每一个逻辑记录含有一个称之为KEY 的字段，它唯一地标识一个记
录，逻辑记录以KEY 升序的顺序存放。KSDS 的记录大小可以固定也可以不固定。KEY
必须唯
一，必须在每个记录的同样位置，如果是跨CI 的记录必须在记录的第一个CI 中。记录可以被删除，新增加的记录按其KEY 值的大小插入在合适的位置。定义KSDS 后，未用的空间可以散布在整个数据集，以允许插入新的记录。当新的记录插入到一个CI 中时，或已存在的记录大小改变时，其后的记录移动到后面的自由空间，以便于新的记录的插入。同样，当一个记录被删除或变小时，释放的空间可以回收，以便于 以后使用。创建使你可以指定一个参数FREESPACE 指定每一个CI 自由空间的比例。也可指定每个CA 中自由空间的比例。
在KSDS 中，KEY 可用于定位要插入的记录的位置，及读取已存在的记录。最有效地访问KSDS 的方法是使用KEY。有以下几种方法：
用顺序的KEY 访问可用于读、修改、增加、删除记录。当你指定了顺序的访问方法时,VSAM 使用索引以升序或降序的顺序访问数据集。顺序处理可以从数据集的任何位置开始。
直接访问：同样也可用于读、修改、增加、删除记录。你可以指定一个KEY，以此KEY来访问数据集。这个KEY 可以是完整的KEY，也可以不完整。比如：你可以指定一个不完整的KEY AB，后面是任何字符。
跳跃的顺序访问： 同样也可用于读、修改、增加、删除记录。在这种方式下，VSAM 只读选中的记录，并以升序或降序的顺序。
地址访问：以记录的RBA 作为查找参数来访问。一般不建议这样访问。
LDS：LDS的CI大小总是4096字节，无控制信息。应用去成组/分解逻辑记录。用DIV MACRO访问。
固定长度的RRDS：有多个固定长度的SLOT 组成。每一个SLOT 有一个相对记录号，SLOT以相对记录号排列。每一记录占用一个SLOT。因此记录的位置是固定的，相对记录号也不能改变。无主索引和次索引。由于SLOT 可以为空，因此可以插入新记录，或删除已存在的旧记录，而不影响其它记录的位置。记录的RDF 指示出SLOT 是否为空。在RRDS 中，每一个CI含有同样多的SLOT。SLOT 的数目由CI 的大小和记录的长度决定。
可变长度的RRDS： 可变长度的RRDS 与固定长度的RRDS 类似，每一个记录也有一个惟一的相对记录号，并且也以相对记录号的顺序存放。但没有SLOT。你可以为一个KSDS 或ESDS 定义一个或多个次键索引。用它可以以与主键相同的方式访问数据集，次键可以不惟一，也就是说它可以指向多个数据记录。但是最多只能指向32767个记录。次键本身是一个KSDS，它包含索引组建和数据组件。数据组件中的记录含有次键，以及指向数据的指针。对ESDS 来说，指针是RBA；对KSDS 来说，指针是主键。在通过次键访问数据集之前，必须定义一个路径。可用DEFINE PATH 命令来定义路径。

2． VSAM 数据集的定义、复制及删除
VSAM 数据集的定义
定义一个VSAM 数据集之前，应注意：
1) VSAM 数据集必须是编目的。
2) 可用TSO ALLOCATE 命令、访问方法服务的ALLOCATE 或DEFINE CLUSTER 命令、动态分配或JCL。要用JCL 定义一个VSAM 数据集，SMS 必须活跃。
3) 如有必要可定义次键。
对一个KSDS 来说，数据部件和索引部件合称为CLUSTER。 CLUSTER 提供了把索引和数
据部件统一处理的一种方式。数据部件用于存放数据。
索引部件由顺序集和索引集组成。
数据部件中的每一个CA 在顺序集中都有一个对应的CI，它含有其对应的数据部件中的
CA 中的每一个CI 的最大键值及其指针。所有顺序集中的CI 又顺序地连接在一起。索引部件
的其它部分构成了索引集。如图2.11 所示，所有索引集和顺序集构成了一棵查询树。其中顺
序集可用于顺序访问，而索引集和顺序集合起来可用于随机访问。

1）用访问方法服务命令定义VSAM 数据集
VSAM 数据集可以通过DEFINE CLUSTER 或ALLOCATE 命令来定义。当定义了CLUSTER
后，VSAM 使用三个编目项描述一个CLUSTER：
-一个CLUSTER 项把CLUSTER 描述为一个部件。
-一个数据项描述CLUSTER 的数据部件。
-对KSDS 来说，一个索引项描述CLUSTER 的索引部件。
（1)关于VSAM 文件的属性
如果使用DEFINE CLUSTER 命令，数据和索引部件的属性可以与CLUSTER 的属性分别指定。
-如果你为CLUSTER 指定了属性，则CLUSTER 的属性同样适用于部件。
-如果你为CLUSTER 和部件都指定了属性，则部件的属性覆盖CLUSTER 的属性。
-如用ALLOCATE，则只能在CLUSTER 一级指定属性。定义VSAM 数据集时，要指定数据集的属性。如果SMS 活跃，你定义的数据集又是系统管理的数据集，你可以指定DATA CLASS，MANAGEMENT CLASS 和STORAGE CLASS。你也可以用系统默认的这些CONSTRUCT。CONSTRUCT 只能在CLUSTER 一级上指定。
以下是定义VSAM 数据集是有关的描述性信息：
INDEXED|NONINDEXED|NUMBERED|LINEAR：指定数据集的结构形式信息(KSDS、ESDS、RRDS、
LDS)。RECORDSIZE：指定记录的平均和最大长度。不适用于LDS。
注意： 1)可变长度的RRDS 用NUMBERED 和RECORDSIZE 定义，而平均记录长度和最大记
录长度必须不同。2)如果对于ESDS，KSDS 或可变长度的RRDS 数据集，记录长度小于最大记
录长度，VSAM 把实际记录的长度记录在RDF 中。
KEYS：指示KSDS 中键的长度和位置。
CATALOG：指示CLUSTER 所在的编目的名字和口令。
VOLUMES：指示CLUSTER 所在的卷。
RECORDS|KILOBYTES|MEGABYTES|TRACKS|CYLINDERS：指示分配该数据集的空间的单位及大小。
BUFFERSPACE：指示在处理该数据集时，应分配的最小的缓冲.
以下是定义VSAM 数据集是有关的性能信息：
CONTROLINTERVALSIZE：指定CI 的大小。此参数必须大于记录的最大大小。对LDS 无效。
SPANNED：指示记录是否可以跨CI。不适用于RRDS 和LDS。
IMBED：指示是否将索引的顺序集放在相应的CA 中。如果是，则会提高数据集的性能,但会增加空间.对索引组件的VOLUMES：指示是否把索引组件放在另一个卷上。
FREESPACE：指示预留自由空间的大小。
以下是定义VSAM 数据集时有关的安全信息：
AUTHORIZATION：指定你自己的一个授权子程序，验证对此数据集的访问是否合法。
WRITECHECK：指示对此数据集写后是否要检查，以保证以后能读出。
ERASE：指示数据集被删除后，是否要彻底删除。
（2)VSAM 数据集的命名
定义CLUSTER 时，要指定CLUSTER 名。通常，CLUSTER 名就是JCL 中给出的DSNAME。也可以各自独立命名索引和数据部件。如果只指定了CLUSTER 名而未指定索引和数据部件的名字，VSAM 会自动产生索引和数据部件名字。VSAM 以下列方式产生索引和数据部件名字：
如果CLUSTER 的最后一个QUALIFIER 是CLUSTER，则数据部件和索引部件名字的最后一个QUALIFIER 分别替换为DATA 和INDEX。
例如：
Cluster 名： SALES.REGION2.CLUSTER
产生的数据部件名 = SALES.REGION2.DATA
产生的索引部件名 = SALES.REGION2.INDEX
如果CLUSTER 名的长度小于等于38 个字符，则分别在CLUSTER 名后加.DATA和.INDEX。
例如：
Cluster 名： DEPT64.ASSET.INFO
产生的数据部件名 = DEPT64.ASSET.INFO.DATA
产生的索引部件名 = DEPT64.ASSET.INFO.INDEX
如果CLUSTER 名长度在39 到42 之间，则在数据部件和索引部件名后分别加.D和.I。
例如：
Cluster 名： DEPTABCD.RESOURCE.REGION66.DATA1234.STUFF
产生的数据部件名 = DEPTABCD.RESOURCE.REGION66.DATA1234.STUFF.D
产生的索引部件名 = DEPTABCD.RESOURCE.REGION66.DATA1234.STUFF.I
产生索引和数据部件的名字后，VSAM 会查找编目，以保证产生的部件名字是唯一的。如国不
一，则重新产生。
可以用访问方法服务ALLOCATE 或TSO ALLOCATE 命令定义一个暂时的VSAM 数据集。也用JCL 直接定义。系统管理的暂时的VSAM 数据集不需要指定数据集名，而由系统自动产生唯一
的名字。如果一定要指定则必须以&或&&打头。
（3)为VSAM 数据集分配空间
定义数据集时，你或者SMS(通过指定DATA CLASS)必须指定数据集的空间分配。如果你自己指定则可以以记录数、千字节、兆字节、磁道数、柱面数为单位。为了保持设备的无关性，最好以记录数、千字节、兆字节为单位。你可以在CLUSTER 级，数据组件级或索引组件级指定空间大小，但最好在CLUSTER 或数据组件级指定。VSAM 分配空间的原则如下：
-如果指定了CLUSTER 和索引组件的大小，则数据组件的大小是CLUSTER 的大小减去索引组件的大小。
-如果只指定了数据组件的大小，则指定的大小全部分配给数据组件，索引组件再另外追加一部分空间。
-如果同时指定了数据组件和索引组件的大小，则按指定的大小建立数据集。如果你定义一个小于一个柱面的数据集，VSAM 以磁道为单位分配空间。此时，最好为数据组件指定首次分配的最大磁道数，并且不要指定数据或索引的第二次分配。分配时，VSAM检查指定的设备的柱面大小，如果要分配的数量大于等于设备的柱面大小，则CA 等于柱面大小，如果小于则CA 大小等于实际分配量。CA 最小为一个磁道。

用JCL 定义VSAM 数据集
除可变长度的RRDS 外，任何类型的VSAM 数据集都可以通过JCL 来定义。
例1.3：定义一个KSDS
//DDNAME DD DSNAME=KSDATA，DISP=(NEW，KEEP)，
// SPACE=(80，(20，2))，AVGREC=U，RECORG=KS，
// KEYLEN=15，KEYOFF=0，LRECL=250
其中：
DSNAME：数据集的名字。
DISP：创建新的数据集，并保留。
SPACE：记录长80，首次分配20，追加分配5。
AVGREC：指示SPACE 中指定的分配量的比例因子是1。
RECORG：创建KSDS 。
KEYLEN：键长15。
KEYOFF：键在记录中的位置。
LRECL：逻辑记录长250 字节。
例1.4：创建一个系统管理的KSDS：
//DDNAME DD DSNAME=KSDATA，DISP=(NEW，KEEP)，
// DATACLAS=STANDARD，STORCLAS=FAST，
// MGMTCLAS=STANDARD
例1.5：按照默认值创建一个VSAM 数据集。
//DDNAME DD DSNAME=DSVSAM，DISP=(NEW，CATLG)
装入数据到VSAM 数据集,数据集定义后，你可以装入数据到VSAM 数据集。
-装入ESDS 的记录可以是任何顺序。
-固定长度的RRDS 把记录装入到SLOT 中，其相对记录号不是逻辑记录的一部分。
-装入KSDS 的记录必须按键的升序排列，并且不得有重复键。
-装入可变长度的RRDS 的记录必须按键的升序排列，并且不得有重复键。
REPRO 命令可用于从顺序，索引顺序或VSAM 数据集装入数据。也可用于从一个LDS 装
入数据到另一个LDS。
装入数据到VSAM 数据集的示例可见例1.1。
复制数据集
你可用REPRO 作如下事情：
-复制或合并VSAM 数据集到另一个VSAM 数据集。
-复制或合并顺序数据集到另一个顺序数据集。
-把顺序或索引顺序的数据集转换为VSAM 数据集。
-把VSAM 数据集复制为顺序数据集。
-复制PDS 或PDSE 数据集的成员。PDS 或PDSE 数据集不能复制，但单个的成员可以复制。
例1.6：复制整个数据集：
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//MASTER DD DSN=EXAMPLE.KSDS.MASTER，DISP=OLD
//BKUP DD DSN=EXAMPLE.SAM.BACKUP，UNIT=SYSDA，
// SPACE=(TRK，(2，1)，RLSE)，DISP=(NEW，CATLG)
// VOL=SER=PUB101，
// DCB=(RECFM=FB，LRECL=80，BLKSIZE=6120)
//SYSIN DD *
REPRO INDATASET(MASTER) –
OUTDATASET(BKUP)
/*
你也可以只复制一部分记录。用FROMKEY 指定从哪一个关键字开始，用FROMADDRESS 指
定从哪一个记录开始； 用TOKEY 指定到哪一个关键字结束， 用TOADDRESS 指定到哪一个记
录结束。例1.7：
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
REPRO IDS(EXAMPLE.LASTNAME.INDEX) –
ODS(EXAMPLE.EXTRACT.ESDS) –
FROMKEY(DEAN) –
TOKEY (LLOYD)
/*
也可以归并两个数据集。例1.8：
REPRO IDS(INPUT) ODS(OUTPUT) REPLACE
定义次键
次键本身也是一个KSDS。它提供了另一种方法访问VSAM KSDS 和ESDS 数据集。
定义次键的步骤如下：
1) 定义CLUSTER。
2) 装入数据。
3) 用DEFINE ALTERNATEINDEX 命令定义次键。
4) 用DEFINE PATH 命令将次键与CLUSTER 相关联。
5) 用BLDINDEX 命令建立次键。也就是在索引中装入数据。
VSAM 用3 个编目项描述一个次键：
-一个次键项描述次键是一个KSDS。
-一个数据项描述次键的数据部件。
-一个索引项描述次键的索引部件。
定义次键需要指定的信息与定义一个KSDS 类似。如果次键允许许多不唯一的键，则
RECORDSIZE 必须足够大。在定义次键时，如指定了UPGRADE 属性，则VSAM 数据集改变时，
次键自动改变。
例1.9，假定你有一个数据集叫PAYROLL.MASTER，其主键是雇员名字，你想建立一个次键。则：
1) 定义次键：
DEFINE ALTERNATEINDEX (NAME(PAYROLL.DEPT.AIX) –
RELATE(PAYROLL.MASTER) –
VOLUMES(AIX001) –
UPGRADE) –
DATA (NAME(PAYROLL.DEPT.AIX.DATA) –
TRACK (5 5) –
RECORDSIZE(200 2096) –
KEY (7 65) –
NONUNIQUEKEY) –
INDEX (NAME(PAYROLL.DEPT.AIX.INDEX) –
IMBED)
2) 定义路径：
DEFINE PATH(NAME(RAYROLL.DEPT.PATH) –
PATHENTRY(PAYROLL.DEPT.AIX) –
UPDATE)
3) 在索引中装入数据：
BLDINDEX INDATASET(RAYROLL.MASTER) –
OUTDATASET(PAYROLL.DEPT.AIX)
以后你在使用这个数据集时，如果你在JCL 中的DD 语句如下：
//DD1 DD DSN=PAYROLL.MASTER，DISP=SHR
则表示你使用主键访问该数据集。如果你在JCL 中的DD 语句如下：
//DD1 DD DSN=PAYROLL.DEPT.AIX，DISP=SHR 则表示你使用次键访问该数据集。

删除数据集
使用访问控制服务的DELETE 命令可以删除数据集，你可以删除整个CLUSTER，也可以只删除次键或路径。在此我们不再详细给出命令的语法及实例，感兴趣的读者可参见有关参考资料。

The following are the most Frequently Asked Questions (FAQS) :

Q1) What is a Generation Data Group (GDG)?
A1) Generation Data Group is a group of chronologically or functionally related datasets. GDGs are processed periodically, often by adding a new generation, retaining previous generations, and sometimes discarding the oldest generation.
什么是GDG？
GDG是一组按世代或功能划分的数据集。GDG按世代处理，加一个新的一代数据要受上一代的限制，有时会丢换最老的一代。

Q2) How is a GDG base created?

A2) A GDG base is created in the system catalog and keeps track of the generation numbers used for datasets in the group. IDCAMS utility is used to define the GDG base.
GDG BASE 怎么样创建？GDG BASE在系统编目时被创建并且在GDG中保留用于DATASET中的世代个数的空间。使用IDCAMS定义GDG BASE。
（来源：http://www.newcoin.info）
Q3) What is model dataset label(Model DSCB)?
A3) A model dataset label is a pattern for the dataset label created for any dataset named as a part of the GDG group. The system needs an existing dataset to serve as a model to supply the DCB parameters for the generation data group one wishes to create. The model dataset label must be cataloged. The model DSCB name is placed on the DCB parameter on the DD statement that creates the generation data group.
什么是MODEL DSCB？ MODEL DSCB是为GDG里的部分DATASET名创定标签。系统需要一个存在的DATASET做为一个模型向你想创建的GDG提供DCB参数。该模型DATASET标签必须被编目，MODEL DSCB名放在创建GDG的DD语句中的DCB参数中。

Q4) How are GDGs concatenated?
A4) Generation Data Groups are concatenated by specifying each dataset name and the generation number for all generations of the generation data group. Otherwise to have all generations of a generation data group, omit the generation number. The DD statement will refer to all generations. The result is the same as if all individual datasets were concatenated. If generations are not on the same volume, this will not work.
GDG怎么样级联？GDG级联既可以指定每一个DATASET名，也可以指定GDG里的世代个数。另外，级联GDG里的所有世代可以省略世代个数。DD语句将涉及到所有的世代。结果和一个一个的级联一样。如果世代不在同一个卷上该命令将不起作用。

Q5) How is a new GDG coded?
A5) A new GDG is coded as (+1) after the dataset name as follows: DSN=JAN.DATA(+1). This will cause all generations to be pushed down one level at the end of the job.
怎么编写GDG？一个新的子代GDG在DATASET名后加个（+1），例如：DSN=JAN.DATA(+1)将使所有的世代数据都向上升一代（个人理解）。并将该代数据放在最后一代。

Q6) When should DISP=MOD is used?
A6) DISP=MOD is used to either extend an existing sequential dataset or to create a dataset if it does not exist. If the dataset exists, then records are appended to the dataset at the end of the existing dataset. If the dataset does not exist, the system treats MOD as if it were NEW, provided that the volume parameter has not been used. If the volume parameter is used, the system terminates the job and does not create the new dataset. MOD can be used to add to a dataset that extends onto several volumes. Always specify a disposition of CATLG with MOD for cataloged datasets, even if they are already cataloged, so that any additional volume serial numbers will be recorded in the catalog.
、什么时候使用DISP=MOD？DISP=MOD既可以扩展一个顺序DATASET，也可以创建一个没有存在的DATASET，对于一个存在的DATASET，记录被追加到末尾。如果没存在系统将把MOD当成NEW看，提供一个没有使用的空间参数。如果空间参数使用过了，系统则终止JOB并且不创建DATASET，MOD可以被用来扩展一个DATASET的空间。经常用MOD为一个编目的DATASET指定CATLG的属性，既使它已经编目了，因此在编目中可以增加任何连续的空间来写记录。

Q7) How is a dataset passed from one step to another?
A7) A dataset is passed from one step to another based on what is coded on the DISP parameter. The dataset can only be passed to subsequent steps if PASS was used on the disposition parameter.
DATASET怎么从一个STEP传递到另一个STEP？传递由DISP参数决定，使用DATASET只能被传递到下一个STEP

Q8) How are datasets concatenated?
A8) Datasets are concatenated by writing a normal DD statement for the first dataset and then adding a DD statement without a DDNAME for each dataset to be concatenated in the order they are to be read. The following is an example of three datasets concatenated:
//YEARDAT DD DSN=JAN.DATA,DISP=SHR
// DD DSN=FEB.DATA,DISP=SHR
// DD DSN=MAR.DATA,DISP=SHR
DATASET怎么级联的？
DATASET级联是通过先写一个一般的DD语句，然后加上一个没有DDNAME的DD语句，看读取顺序被级联。如上例所示。
Q9) What is the difference between the JOBLIB and the STEPLIB statements?
A9) The JOBLIB statement is placed after the JOB statement and is effective for all job steps. It cannot be placed in a
cataloged procedure. The STEPLIB statement is placed after the EXEC statement and is effective for that job step
only. Unlike the JOBLIB statement, the STEPLIB can be placed in a cataloged procedure.
JOBLIB语句 和 STEPLIB语句有什么区别
JOBLIB语句是在JOB语句之后，对于所有的steps都有效，并且不能放在编目过程中，JOBLIB语句是在EXEC语句之后，只对当前的step有效，不同于JOBLIB，它可以放在编目过程中。

Q10) Name some of the JCL statements that are not allowed in procs.?
A10) Some of the JCL statements which are not allowed in procedures are:
1. JOB, Delimiter(/*), or Null statements
2. JOBLIB or JOBCAT DD statements
3. DD * or DATA statements
4. Any JES2 or JES3 control statements
在procs那些JCL语句不能命名
在过程中不允许的JCL语句：
1. JOB, 分隔符(/*), 或空语句
2. JOBLIB 或JOBCAT DD语句
3. DD * 或DATA语句
4. 任何 JES2 或 JES3 控制语句

Q11) What is primary allocation for a dataset?
A11) The space allocated when the dataset is first created.
一个数据集的初次分配是什么
数据集建立时的空间

（来源：http://www.newcoin.info）

Q12) What is the difference between primary and secondary allocations for a dataset?
A12) Secondary allocation is done when more space is required than what has already been allocated.
一个数据集的主分配和从分配有什么区别
从分配是当要求更多空间时所分配的

Q13) How many extents are possible for a sequential file ? For a VSAM file ?
A13) 16 extents on a volume for a sequential file and 123 for a VSAM file.
一个顺序文件有多少extents，VSAM？
顺序文件为在一个卷上为16 extents，VSAM文件为123

Q14) What does a disposition of (NEW,CATLG,DELETE) mean? – GS
A14) That this is a new dataset and needs to be allocated, to CATLG the dataset if the step is successful and to delete the dataset if the step abends.
(NEW,CATLG,DELETE)的意思是什么
创建一个新的数据集，在作业步正常结束时编目，异常终止时删除

Q15) What does a disposition of (NEW,CATLG,KEEP) mean? – GS
A15) That this is a new dataset and needs to be allocated, to CATLG the dataset if the step is successful and to KEEP but not CATLG the dataset if the step abends. Thus if the step abends, the dataset would not be catalogued and we would need to supply the vol. ser the next time we refer to it.
(NEW,CATLG,KEEP) 的意思是什么
创建一个新的数据集，在作业步正常结束时编目然后保留在相应的卷上，异常终止时不编目。所以当作业步异常终止时，数据集不编目，并需要为下次提供相应的卷序列号

Q16) How do you access a file that had a disposition of KEEP? – GS
A16) Need to supply Volume Serial Number
怎样才能访问一个KEEP的文件
需要提供卷序列号VOL=SER=xxxx.

Q17) MOD, DELETE; What does a disposition of (,DELETE) mean ?
A17) The MOD will cause the dataset to be created (if it does not exist), and then the two DELETEs will cause the dataset to be deleted whether the step abends or not. This disposition is used to clear out a dataset at the beginning of a job.
解释一下MOD, DELETE，(,DELETE)
MOD一个新的数据集的创建（如果这个数据集不存在），2个DELETEs是无论数据集是否异常终止，都删除
Disposition用于开始一个作业时删除数据集

Q18) What is the DD statement for a output file?
A18) Unless allocated earlier, will have the following parameters: DISP=(NEW,CATLG,DELETE), UNIT , SPACE & DCB
一个输出文件的DD语句是什么
如果不存在的话，则必须要有
DISP=(NEW,CATLG,DELETE), UNIT , SPACE & DCB

Q19) What do you do if you do not want to keep all the space allocated to a dataset? – GS
A19) Specify the parameter RLSE ( release ) in the SPACE e.g. SPACE=(CYL,(50,50),RLSE)
如何保持所有的分配给一数据集的空间
指定参数，释放空间，如SPACE=(CYL,(50,50),RLSE)

Q20) What is DISP= (NEW,PASS,DELETE)?
A20) This is a new file and create it, if the step terminates normally, pass it to the subsequent steps and if step abends, delete it. This dataset will not exist beyond the JCL.
解释一下DISP = (NEW,PASS,DELETE)
创建一个新的数据集，如果作业步正常终止，那么保留传递到同一祖业的后续作业步中使用，如果异常终止，则删除。数据集将不再存在

Q21) How do you create a temporary dataset? Where will you use them?
A21) Temporary datasets can be created either by not specifying any DSNAME or by specifying the temporary file indicator as in DSN=&&TEMP. We use them to carry the output of one step to another step in the same job. The dataset will not be retained once the job completes.
如何建立一个临时数据集，在那里会用到他们
创建了临时数据集时不需要指定的DSNAME，或用指定的临时文件DSN=&&TEMP，在同一个JOB中，我们用它来？？？？、？、
在作业完成后该数据集删除

Q22) How do you restart a PROC from a particular step? – GS
A22) In job card, specify RESTART=PROCSTEP.STEPNAME where PROCSTEP = name of the JCL step that invoked the PROC and STEPNAME = name of the PROC step where you want execution to start
在一个特殊作业步中如何restart 一个 PROC
在JOB中，指定RESTART=PROCSTEP.STEPNAME ，ROCSTEP为JCL作业部的名字，执行作业步时可以调用PROC 和 STEPNAME

Q23) How do you skip a particular step in a proc/JOB? – GS
A23) Can use either condition codes or use the jcl control statement IF (only in ESA JCL)\
如何skip 一个特殊作业步skip
使用任何一个条件代码或JCL控制语句IF

Q24) A PROC has five steps. Step 3 has a condition code. How can you override/nullify this condition code? – GS
A24) Provide the override on the EXEC stmt in the JCL as follows:
//STEP001 EXEC procname, COND.stepname=value
All parameters on an EXEC stmt in the proc such as COND, PARM have to be overridden like this.
一个PROC有5个作业步，Step 3有一个条件代码，如何erride/nullify这个条件代码
在EXEC语句中用override如下：
//STEP001 EXEC procname, COND.stepname=value
象COND, PARM这样的EXEC语句必须这样覆盖

Q25) How do you override a specific DDNAME/SYSIN in PROC from a JCL?
A25) // DSN=…
如何覆盖一个在PROC中的特殊的DDNAME/SYSIN
// DSN=…

Q26) What is NOTCAT 2 – GS
A26) This is an MVS message indicating that a duplicate catalog entry exists. E.g., if you already have a dataset with dsn = ‘xxxx.yyyy’ and u try to create one with disp new, catlg, you would get this error. the program open and write would go through and at the end of the step the system would try to put it in the system catalog. at this point since an entry already exists the catlg would fail and give this message. you can fix the problem by deleting/uncataloging the first data set and going to the volume where the new dataset exists(this info is in the msglog of the job) and cataloging it.
什么时是NOTCAT 2
这是一个MVS的消息标志，它复制一个catalog entry exists，如果已经有了一个数据集dsn = ‘xxxx.yyyy’，那么当再创建一个新的时就会显示错误，程序的打开和写would go through，以及在系统的作业步的最后会试着吧它放进系统编目中，一个an entry already exists the catlg会报错，并且给出信息。用deleting/uncataloging 第一个数据集去fix 程序，然后去有新的数据集的卷，创建它。

Q27) What is ‘S0C7′ abend? – GS
A27) Caused by invalid data in a numeric field.
甚么是’S0C7′异常终止
引起一个数字域里的无效数字

Q28) What is a S0C4 error ? – GS
A28) Storage violation error – can be due to various reasons. e.g.: READING a file that is not open, invalid address referenced due to subscript error.
甚么是S0C4错误
存储违反错误由多种原因决定，例，READING是一个美有打开的文件，？？？？？？

Q29) What are SD37, SB37, SE37 abends?
A29) All indicate dataset out of space. SD37 – no secondary allocation was specified. SB37 – end of vol. and no further volumes specified. SE37 – Max. of 16 extents already allocated.
SD37, SB37, SE37 abends是甚么
表示磁盘空间不足
SD37没有指定的从分配
SB37终止卷，并且没有根多的卷被指定
SE37已经分配到最大16 extents

（来源：http://www.newcoin.info）

Q30) What is S322 abend ?
A30) Indicates a time out abend. Your program has taken more CPU time than the default limit for the job class. Could indicate an infinite loop.
甚么是S322 abend
需要更多的CPU时间
程序已经超过了默认的为该作业分配的CPU时间，陷入一个无限循环..???????

Q31) Why do you want to specify the REGION parameter in a JCL step? – GS
A31) To override the REGION defined at the JOB card level. REGION specifies the max region size. REGION=0K or 0M or omitting REGION means no limit will be applied.
说明在JCL作业步中的REGION（见书86页）

Q32) What does the TIME parameter signify ? What does TIME=1440 mean ?
A32) TIME parameter can be used to overcome S322 abends for programs that genuinely need more CPU time. TIME=1440 means no CPU time limit is to be applied to this step.
TIME参数的意思是甚么？TIME=1440 表示甚么
TIME当程序需要更多的CPU时间时用于克服S322 abends
TIME=1440表示作业的运行没有时间限制，即24小时。

Q33) What is COND=EVEN ?
A33) Means execute this step even if any of the previous steps, terminated abnormally.
COND=EVEN
即使先前作业步异常终止，本作业步都要执行

Q34) What is COND=ONLY ?
A34) Means execute this step only if any of the previous steps, terminated abnormally.
COND=ONLY
只有先前作业步异常终止，本作业步才执行

Q35) How do you check the syntax of a JCL without running it?
A35) TYPERUN=SCAN on the JOB card or use JSCAN.
如何在一个JCL中检查是否有语法错误
在JOB过程中，TYPERUN=SCAN或JSCAN.

Q36) What does IEBGENER do?
A36) Used to copy one QSAM file to another. Source dataset should be described using SYSUT1 ddname. Destination dataset should be described using SYSUT2. IEBGENR can also do some reformatting of data by supplying control cards via SYSIN.
IEBGENER的作用
用于copy QSAM文件
资源数据集用SYSUT1 ddname.描述，目标数据集SYSUT2描述？？？？？？？
IEBGENR也能用控制语句SYSIN来做一些数据的重定格式

Q37) How do you send the output of a COBOL program to a member of a PDS?
A37) Code the DSN as PDS (member) with a DISP = SHR. The DISP applies to the PDS and not to a specific member.
如何给一个PDS的成员输出一个COBOL程序

Q38) I have multiple jobs ( JCLs with several JOB cards ) in a member. What happens if I submit it?
A38) Multiple jobs are submitted (as many jobs as the number of JOB cards).
在一个成员中有几个JOB，如果提交了将会发生甚么
？？？？？？？？？？？？？？？？？？

Q39) I have a COBOL program that Accepts some input data. How do you code the JCL statement for this?
( How do you code instream data in a JCL? )
A39) //SYSIN DD*
input data
input data
/*
有一个接受一些输入数据的COBOL程序，如何为它编一个JCL程序（如何在JCL中编一个流数据）
//SYSIN DD*
input data
input data
/*

Q40) Can you code instream data in a PROC ?
A40) No.
在PROC中的流数据可以编码吗
No.
Q41) How do you overcome this limitation ?
A41) One way is to code SYSIN DD DUMMY in the PROC, and then override this from the JCL with instream data.
如何解决这个限制呢
在PROC内编写SYSIN DD DUMMY，然后从JCL用流数据覆盖它

Q42) How do you run a COBOL batch program from a JCL? How do you run a COBOL/DB2 program?
A42) To run a non DB2 program,
//STEP001 EXEC PGM=MYPROG

To run a DB2 program,
//STEP001 EXEC PGM=IKJEFT01
//SYSTSIN DD *
DSN SYSTEM(….)
RUN PROGRAM(MYPROG)
PLAN(…..) LIB(….) PARMS(…)
/*
如何从JCL运行一个COBOL批处理程序，如何运行一个COBOL/DB2
非DB2
//STEP001 EXEC PGM=MYPROG
DB2
//STEP001 EXEC PGM=IKJEFT01
//SYSTSIN DD *
DSN SYSTEM(….)
RUN PROGRAM(MYPROG)
PLAN(…..) LIB(….) PARMS(…)
/*

Q43) What is STEPLIB, JOBLIB? What is it used for? – GS
A43) Specifies that the private library (or libraries) specified should be searched before the default system libraries in order to locate a program to be executed. STEPLIB applies only to the particular step, JOBLIB to all steps in the job.
甚么是STEPLIB, JOBLIB?如何用他们
为作业作业步指定一个私有库（或库），查找时只有在私有库没有的情况下再去搜索系统默认库。
STEPLIB的应用仅限于该作业步，而JOBLIB则对于整个作业都有效

Q44) What is order of searching of the libraries in a JCL? – GS
A44) First any private libraries as specified in the STEPLIB or JOBLIB, then the system libraries such as SYS1.LINKLIB. The system libraries are specified in the link list.
在JCL中查找库的顺序是怎样的
首先查找私有库，当私有库没有的情况下再去查找系统库。例如SYS1.LINKLIB。系统库在连接表中是指定的

Q45) What happens if both JOBLIB and STEPLIB is specified ?
A45) JOBLIB is ignored.
当一个JCL中既定义了JOBLIB，又定义了STEPLIB，则会怎样
JOBLIB被忽略

Q46) When you specify mutiple datasets in a JOBLIB or STEPLIB, what factor determines the order? – GS
A46) The library with the largest block size should be the first one.
当在JOBLIB 或 STEPLIB指定多个数据集时，顺序由甚么因素决定
有最大块的LIB为第一个specify

Q47) How to change default PROCLIB?
A47) //ABCD JCLLIB ORDER=(ME.MYPROCLIB,SYS1.PROCLIB)
如何改变默认的PROCLIB
//ABCD JCLLIB ORDER=(ME.MYPROCLIB,SYS1.PROCLIB)

Q48) The disp in the JCL is MOD and the program opens the file in OUTPUT mode. What happens ? The DISP in the JCL is SHR and the program opens the file in EXTEND mode. What happens ?
A48) Records will be written to end of file (append) when a WRITE is done in both cases.
数据集的状态是MOD，在OUTPUT状态下打开文件，将会发生甚么。当为SHR时，在EXTEND状态下打开文件，将会发生甚么。
记录将会写在数据集的结尾？？？？？？

Q49) What are the valid DSORG values ?
A49) PS – QSAM, PO – Partitioned, IS – ISAM

Q50) What are the differences between JES2 & JES3 ?
A50) JES3 allocates datasets for all the steps before the job is scheduled. In JES2, allocation of datasets required by a step are done only just before the step executes.
JES2 & JES3有甚么区别
Scheduled作业时JES3为所有的作也步分配数据集
JES2则在作业步执行前为需要的作业步分配数据集
Q41) How do you overcome this limitation ?
A41) One way is to code SYSIN DD DUMMY in the PROC, and then override this from the JCL with instream data.
怎么样克服这个局限？
一种方法是在过程中使用SYSIN DD DUMMY语句，然后在JCL中的流内语句中调用他。

（来源：http://www.newcoin.info）

Q42) How do you run a COBOL batch program from a JCL? How do you run a COBOL/DB2 program?
A42) To run a non DB2 program,
//STEP001 EXEC PGM=MYPROG

To run a DB2 program,
//STEP001 EXEC PGM=IKJEFT01
//SYSTSIN DD *
DSN SYSTEM(….)
RUN PROGRAM(MYPROG)
PLAN(…..) LIB(….) PARMS(…)
/*

Q43) What is STEPLIB, JOBLIB? What is it used for? – GS
A43) Specifies that the private library (or libraries) specified should be searched before the default system libraries in order to locate a program to be executed. STEPLIB applies only to the particular step, JOBLIB to all steps in the job.
指定一个（或多个）私有的库，为了找到被执行的程序，指定应该在系统默认库之前。STEPLIB只应用于特定的STEP，JOBLIB则应用于JOB里的所有STEP。

Q44) What is order of searching of the libraries in a JCL? – GS
A44) First any private libraries as specified in the STEPLIB or JOBLIB, then the system libraries such as SYS1.LINKLIB. The system libraries are specified in the link list.
在JCL里寻找库的顺序是什么？
首先在STEPLIB或JOBLIB指定的库中找，然后再系统库中找，例如SYS1。LINKLIB。系统库在连接表中指定。

Q45) What happens if both JOBLIB and STEPLIB is specified ?
A45) JOBLIB is ignored.
如果在JOBLIB和STEPLIB中都指定了库会怎么处理？
JOBLIB语句无效。
Q46) When you specify mutiple datasets in a JOBLIB or STEPLIB, what factor determines the order? – GS
A46) The library with the largest block size should be the first one.
当在JOBLIB或STEPLIB中指定了多个DATASET库，什么因素决定（访问）顺序
block size值最大的库应该最先访问。
Q47) How to change default PROCLIB?
A47) //ABCD JCLLIB ORDER=(ME.MYPROCLIB,SYS1.PROCLIB)
怎么改变默认的PROCLIB
//ABCD JCLLIB ORDER=(ME.MYPROCLIB,SYS1.PROCLIB)

Q48) The disp in the JCL is MOD and the program opens the file in OUTPUT mode. What happens ? The DISP in the JCL is SHR and the program opens the file in EXTEND mode. What happens ?
A48) Records will be written to end of file (append) when a WRITE is done in both cases.
JCL中DISP为MOD并且程序以OUTPUT模式打开文件，将会怎么样？如果DISP为SHR，打开模式为EXTEND呢？
WRITE模式在这两种情况下记录都将会追加到文件末尾。
Q49) What are the valid DSORG values ?
A49) PS – QSAM, PO – Partitioned, IS – ISAM

Q50) What are the differences between JES2 & JES3 ?
A50) JES3 allocates datasets for all the steps before the job is scheduled. In JES2, allocation of datasets required by a step are done only just before the step executes.

Q51) What are the causes for S0C1, S0C4, S0C5, S0C7, S0CB abends ?
A51) S0C1-May be due to 1.Missing or misspelled DD name 2.Read/Write to unopened dataset 3.Read to dataset opened
output 4.Write to dataset opened input 5.Called subprogram not found
S0C4-may be due to 1.Missing Select statement(during compile) 2.Bad Subscript/index 3.Protection Exception
4.Missing parameters on called subprogram 5.Read/Write to unopened file 6.Move data from/to unopened file
S0C5-May be due to 1.Bad Subscript/index 2.Closing an unopened dataset 3.Bad exit from a perform 4.Access to I/O
area(FD) before read
S0C7-may be due to 1.Numeric operation on non-numeric data 2.Un-initialize working-storage 3.Coding past the
maximum allowed sub script
S0CB-may be due to 1.Division by Zero
引起SOC1，SOC4，SOC5，SOC7，SOCB异常终止的原因有哪些？
SOC1：可能有几点。1，没写DD名或DD名拼写错误。2，读/写一个未打开的DATASET，3将开着的DATASET数据输出，4，往打开的DATASET写入数据。5，调用的子程序没找到
SOC4：可能有几点：1，没有选择语句。2，关闭一个未打开的DATASET。3，错误的下标/目录。
4，调用子程序没有参数。5，向没有打开的文件里写数据。6，向未打开的文件里移动DATASET。
SOC5：可能有几点：1,错误的下标/目录.2关闭一个未打开的DATASET。3，PERFORM语句出口不对。4，访问IO。
SOC7：可能有几点：1，对非数字型数据进行数字运算2，没有初始化WORK-STORAGE。3，下标越界。
SOCB： 用0分隔。

Q52) What are the kinds of job control statements?
A52) The JOB, EXEC and DD statement.

Q53) What is the meaning of keyword in JCL? What is its opposite?
A53) A keyword in a JCL statement may appear in different places and is recognized by its name, eg. MSGCLASS in the JOB statement. The opposite is positional words, where their meaning is based on their position in the statement, eg. in the DISP keyword the =(NEW,CATLG,DELETE) meanings are based on first, second and third position.
JCL里的关键字是什么？写其相对应的是什么？
JCL里的关键字出现在不同的位置都可以被识别。例如：MSGCLASS。写其他对应的是位置参数。在不同的位置意思不同。例如：在DISP里的三个位置的意思都不一样
。
Q54) Describe the JOB statement, its meaning, syntax and significant keywords?
A54) The JOB statement is the first in a JCL stream. Its format is // jobname, keyword JOB, accounting information in brackets and keywords, MSGCLASS, MSGLEVEL, NOTIFIY, CLASS, etc.

Q55) Describe the EXEC statement, its meaning, syntax and keywords?
A55) The EXEC statement identifies the program to be executed via a PGM= program name keyword. Its format is //jobname EXEC PGM= program name. The PARM= keyword can be used to pass external values to the executing program.
描述EXEC语句，它的意义，语法和关键字？
EXEC语句使用“PGM=程序名”指出了要执行的程序名。格式是//STEP名 EXEC PGM=程序名。
PARM参数用来传递要执行的程序的外部（实参）值。

Q56) Describe the DD statement, its meaning, syntax and keywords?
A56) The DD statement links the external dataset name (DSN) to the DDNAME coded within the executing program. It links the file names within the program code to the file names know to the MVS operating system. The syntax is // ddname DD DSN=dataset name. Other keywords after DSN are DISP, DCB, SPACE, etc.
描述DD语句，它的意义，语法和关键字？
DD语句用来将外部DATASET名传递到执行的程序当中。他将存放程序代码的文件和MVS操作系统的文件联接起来。跟在DSN后面的参数有DISP，DCB等。

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：字符型（这里指的是包含字母和数字），字母型，数字型

Q3) What does the INITIALIZE verb do? – GS
A3) Alphabetic, Alphanumeric fields & alphanumeric edited items are set to SPACES. Numeric, Numeric edited items set to ZERO. FILLER , OCCURS DEPENDING ON items left untouched.
Q：INITIALIZE这个词做了些什么
A：将字母，字符，数字区域都置成空格（置空），将数字区置0， FILLER和OCCURS DEPENDING ON项不处理

Q4) What is 77 level used for ?
A4) Elementary level item. Cannot be subdivisions of other items (cannot be qualified), nor can they be subdivided themselves.
Q：77层有什么作用
A：基本层数据项，不能用做细分别的层，也不能被细分
（来源：http://www.newcoin.info）

Q5) What is 88 level used for ?
A5) For condition names.
Q：88层有什么作用
A：条件逻辑层

Q6) What is level 66 used for ?
A6) For RENAMES clause.
Q：66层有什么作用
A：重命名层

Q7) What does the IS NUMERIC clause establish ?
A7) IS NUMERIC can be used on alphanumeric items, signed numeric & packed decimal items and unsigned numeric & packed decimal items. IS NUMERIC returns TRUE if the item only consists of 0-9. However, if the item being tested is a signed item, then it may contain 0-9, + and – .
Q：IS NUMERIC这个子句怎么确定（也就是说确定句子的真值）
A：IS NUMERIC用在字符项，带符号数字，浮点数，不带符号数。如果目标项只含0~9则返回TRUE。但是，如果待测项目是个带符号数，那么他就含有0-9还有+和-

Q8) How do you define a table/array in COBOL?
A8) ARRAYS.
05 ARRAY1 PIC X(9) OCCURS 10 TIMES.
05 ARRAY2 PIC X(6) OCCURS 20 TIMES INDEXED BY WS-INDEX
Q：COBOL中怎么建表/数组
A：如上.

Q9) Can the OCCURS clause be at the 01 level?
A9) No.
Q：OCCURS 子句能用在第一层吗
A：不能

（来源：http://www.newcoin.info）

Q10) What is the difference between index and subscript? – GS
A10) Subscript refers to the array occurrence while index is the displacement (in no of bytes) from the beginning of the
array. An index can only be modified using PERFORM, SEARCH & SET. Need to have index for a table in order to
use SEARCH, SEARCH ALL.
Q：索引和下标有什么区别
A：下标可以指定数组中任意中位置的元素（只要知道其下标），下标只能是数字型常量或者数字型变量（但是不能在指定的时候修改，如：A（K+1）这样是不行的，要修改的话要在指定的外部改，如：ADD 1 TO K，而索引的话是从表头/数组头开始检索（以BY N的指定检索规律往后滚）
再者，索引只能通过PERFORM, SEARCH 和SET来修改，如果要在一个表中使用SEARCH, SEARCH ALL，那这个表就要有索引（因为SEARCH, SEARCH ALL的参数中指定索引，所以即使其有很多限制还是得用它）

Q11) What is the difference between SEARCH and SEARCH ALL? – GS
A11) SEARCH – is a serial search.
SEARCH ALL – is a binary search & the table must be sorted ( ASCENDING/DESCENDING KEY clause to be used & data loaded in this order) before using SEARCH ALL.
Q：SERACH和SERACH ALL有什么区别
A：SEARCH是顺序查找
SERACH ALL 是2叉查找（相信数据结构学过2叉树的都不会陌生），在使用SEARCH ALL前表必须有一个递增/递减的KEY，并且表已经按照其KEY值排序了，这样才能使用SEARCH ALL

Q12) What should be the sorting order for SEARCH ALL? – GS
A12) It can be either ASCENDING or DESCENDING. ASCENDING is default. If you want the search to be done on an
array sorted in descending order, then while defining the array, you should give DESCENDING KEY clause. (You
must load the table in the specified order).
Q：为了使用SEARCH ALL，存贮顺序是怎么样的
A：他必须是递增或者是递减的，默认地政。如果你想在一个递减顺序存贮的表/数组使用搜索的话，那么当定义表/数组的时候你应该加一个DESCENDING KEY子句（这之前表要已经按指定的顺序排序了）

Q13) What is binary search?
A13) Search on a sorted array. Compare the item to be searched with the item at the center. If it matches, fine else repeat the process with the left half or the right half depending on where the item lies.
Q：什么是2叉查找
A：将你要找的目标项与数组的正中项比较，找到就结束搜索，没找到则继续如此循环（比较下一个中值），取哪一半取决于目标值大于中值还是小于中值
PS：联想2叉树的查找规律就很好理解，因为所谓的“表“本身也就是数组

Q14) My program has an array defined to have 10 items. Due to a bug, I find that even if the program access the
11th item in this array, the program does not abend. What is wrong with it?
A14) Must use compiler option SSRANGE if you want array bounds checking. Default is NOSSRANGE.
Q：我的程序有个数组定义了10项。因为有个BUG，我发现即使访问第11项，程序也不异常终止。那是出了什么问题
A：必须使用编译器的一个选项SSRANGE，如果你想检查数组的超界问题。默认是NOSSRANGE

Q15) How do you sort in a COBOL program? Give sort file definition, sort statement syntax and meaning. – GS
A15) Syntax: SORT file-1 ON ASCENDING/DESCENDING KEY key…. USING file-2 GIVING file-3.

USING can be substituted by INPUT PROCEDURE IS para-1 THRU para-2
GIVING can be substituted by OUTPUT PROCEDURE IS para-1 THRU para-2.

file-1 is the sort (work) file and must be described using SD entry in FILE SECTION.
file-2 is the input file for the SORT and must be described using an FD entry in FILE SECTION and SELECT
clause in FILE CONTROL.
file-3 is the out file from the SORT and must be described using an FD entry in FILE SECTION and SELECT
clause in FILE CONTROL.
file-1, file-2 & file-3 should not be opened explicitly.

INPUT PROCEDURE is executed before the sort and records must be RELEASEd to the sort work file from the input procedure.
OUTPUT PROCEDURE is executed after all records have been sorted. Records from the sort work file must be RETURNed one at a time to the output procedure.
Q：怎么在一个COBOL程序中排序？给出排序文件的定义，排序语法和意思
A：语法就是SORT file-1 ON ASCENDING/DESCENDING KEY key…. USING file-2 GIVING file-3.
USING后程序的输入接口，这个地方可以替换成一个输出过程，也就是说写一个过程往USING这个接口中导数据（要在这个过程中READ，AT END，……），这个过程在将数据释放到执行排序的文件中之前执行，GIVING后是输出借口，用法类似。
此例中输入文件是file-2输出文件是file3(这样个文件必须在文件区中用FD和在文件控制中用到SELECT)真正执行排序的file-1，这里需要注意的是file-1中的文件区不能用FD，应该用SD，file-2和3还是一样（用FD），具体可以看一下书上的例子

Q16) How do you define a sort file in JCL that runs the COBOL program?
A16) Use the SORTWK01, SORTWK02,….. dd names in the step. Number of sort datasets depends on the volume of data
being sorted, but a minimum of 3 is required.
Q：怎么在JCL中定义一个排序文件来跑这个COBOL程序
A：用SORTWK01, SORTWK02,…..作为DATA SET NAME。用多少取决于你要排序的数量，但是至少3个。

Q17) What is the difference between performing a SECTION and a PARAGRAPH? – GS
A17) Performing a SECTION will cause all the paragraphs that are part of the section, to be performed.
Performing a PARAGRAPH will cause only that paragraph to be performed.
Q：执行一个区和一个段有什么区别
A：简单来说的话就是区的概念比段大，执行一个区就要执行其内部所有段，执行段的话只执行该段。

（来源：http://www.newcoin.info）

Q18) What is the use of EVALUATE statement? – GS
A18) Evaluate is like a case statement and can be used to replace nested Ifs. The difference between EVALUATE and
case is that no ‘break’ is required for EVALUATE i.e. control comes out of the EVALUATE as soon as one match is
made.
Q：EVALUATE语句有什么作用
A：EVALUATE就象个CASE语句（多重开关语句，学过C的总知道吧），不同点在于EVALUATE不需要BREAK，一旦匹配就跳出EVALUATE语句了

Q19) What are the different forms of EVALUATE statement?
A19)
EVALUATE EVALUATE SQLCODE ALSO FILE-STATUS
WHEN A=B AND C=D WHEN 100 ALSO ‘00′
imperative stmt imperative stmt
WHEN (D+X)/Y = 4 WHEN -305 ALSO ‘32′
imperative stmt imperative stmt
WHEN OTHER WHEN OTHER
imperative stmt imperative stmt
END-EVALUATE END-EVALUATE

EVALUATE SQLCODE ALSO A=B EVALUATE SQLCODE ALSO TRUE
WHEN 100 ALSO TRUE WHEN 100 ALSO A=B
imperative stmt imperative stmt
WHEN -305 ALSO FALSE WHEN -305 ALSO (A/C=4)
imperative stmt imperative stmt
END-EVALUATE END-EVALUATE

Q20) How do you come out of an EVALUATE statement? – GS
A20) After the execution of one of the when clauses, the control is automatically passed on to the next sentence after the
EVALUATE statement. There is no need of any extra code.
Q：怎么跳出一条EVALUATE语句
A：象18题目说的那样，一旦匹配了某一个“WHEN“语句就自动跳出了，不需要什么额外的代码来跳出

Q21) In an EVALUATE statement, can I give a complex condition on a when clause?
A21) Yes.
Q：在一个EVALUATE语句的某个WHEN分支中能否再插入复杂的情况（也就是嵌套）
A：当然可以，当多个参数作为控制变量的时候1个WHEN内部可以嵌套更多的情况

Q22) What is a scope terminator? Give examples.
A22) Scope terminator is used to mark the end of a verb e.g. EVALUATE, END-EVALUATE; IF, END-IF.
Q：什么是结束终止符
A：结束终止符是搭配一些范围指令的，也就是标识一些范围指令的结束。如：EVALUATE, END-EVALUATE; IF, END-IF 如果没有该结束符，该条语句将终止不了

Q23) How do you do in-line PERFORM? – GS
A23) PERFORM … …

END-PERFORM
Q：怎么使用内嵌的PERFORM
A：PERFORM … …

END-PERFORM
所谓内嵌也就是PERFORM被嵌在某些比如循环语句中担当执行主体，同时通过UNTIL来指定结束判定

Q24) When would you use in-line perform?
A24) When the body of the perform will not be used in other paragraphs. If the body of the perform is a generic type of code
(used from various other places in the program), it would be better to put the code in a separate Para and use
PERFORM Para name rather than in-line perform.
Q：什么时候使用内嵌式PERFORM
A：当该段PERFORM的内容不被其他段用到，只在某些局部代码中（当然PERFORM的主体所用到的参数也都是局部的，例如循环）使用，如果PERFORM主体的代码是一般的（用到了别的程序段的变量），还是使用PERFORM Para name这样的形式比较好（也就是相对与内于PERFORM的外部PERFORM）。

Q25) What is the difference between CONTINUE & NEXT SENTENCE ?
A25) They appear to be similar, that is, the control goes to the next sentence in the paragraph. But, Next Sentence would
take the control to the sentence after it finds a full stop (.). Check out by writing the following code example, one if
sentence followed by 3 display statements (sorry they appear one line here because of formatting restrictions) If 1 > 0
then next sentence end if display ‘line 1′ display ‘line 2′. display ‘line 3′. *** Note- there is a dot (.) only at the end of
the last 2 statements, see the effect by replacing Next Sentence with Continue ***
Q：CONTINUE 和 NEXT SENTENCE有什么不同
A：两者比较相似，都是将程序控制权交给下一句，但是用NEXT SENTENCE的时候，只有当碰到句结束符（就是句末的‘.’）才会将执行下句
这道题我用了2个例子测试了一下：
1：IF TEST-NUMERIC > 0
THEN NEXT SENTENCE
END-IF
DISPLAY ‘LINE1′ DISPLAY ‘LINE2′. DISPLAY ‘LINE3′.（请注意代码中的‘.’号）
结果输出：LINE3
2：IF TEST-NUMERIC > 0
THEN CONTINUE
END-IF
DISPLAY ‘LINE1′ DISPLAY ‘LINE2′. DISPLAY ‘LINE3′.
结果输出：LINE1
LINE2
LINE3
相信已经区别已经比较明显了，NEXT SENTENCE是靠句末的结束符（也就是‘.‘）来判断下一句的，而CONTINUE是通过句头的保留字（这例中是DISPLAY）来判断下一句的
Q26) What does EXIT do ?
A26) Does nothing ! If used, must be the only sentence within a paragraph.
Q：EXIT语句有什么作用
A：什么都不做，如果用到的话，肯定是作为一段的唯一的一句话，注意：这里不是子程序中用的EXIT PROGRAME

（来源：http://www.newcoin.info）

Q27) Can I redefine an X(100) field with a field of X(200)?
A27) Yes. Redefines just causes both fields to start at the same location. For example:

01 WS-TOP PIC X(1)
01 WS-TOP-RED REDEFINES WS-TOP PIC X(2).
If you MOVE ‘12′ to WS-TOP-RED,
DISPLAY WS-TOP will show 1 while
DISPLAY WS-TOP-RED will show 12.
Q：能不能把X（100）的区域重定义成X（200）
A：可以，重定义只是相当于把两个区域的首地址放在一起，从上面这个例子也很好理解

A28) Can I redefine an X(200) field with a field of X(100) ?
Q31)1 Yes.
Q：能不能把X（200）的区域重定义成X（100）
A：可以，原因同上

Q31)2 What do you do to resolve SOC-7 error? – GS
Q31) Basically you need to correcting the offending data. Many times the reason for SOC7 is an un-initialized numeric item.
Examine that possibility first. Many installations provide you a dump for run time abend’s ( it can be generated also
by calling some subroutines or OS services thru assembly language). These dumps provide the offset of the last
instruction at which the abend occurred. Examine the compilation output XREF listing to get the verb and the line
number of the source code at this offset. Then you can look at the source code to find the bug. To get capture the
runtime dumps, you will have to define some datasets (SYSABOUT etc ) in the JCL. If none of these are helpful, use
judgement and DISPLAY to localize the source of error. Some installation might have batch program debugging
tools. Use them.
Q：怎么解决SOC-7错误
A：基本上你要看一下一些比较奇怪的数据，很多导致SOC7的原因都是因为数据项的初始化。
首先检查所有的可能性。某些功能可能提供一个空间用来存贮那些运行时间ABEND，并且提供最近一次运行时间ABEND的偏移量的说明（也就是位于队列中的位置），检查编译器的输出XREF队列以获得一些关键字。然后你就能看下源代码找出BUG。为了捕获一些运行时间的信息，你需要在JCL中建一个DATASET（象SYSABOUT这样的），如果这些都没用，那么再审查一下ERROR出现的位置判断一下原因。有些软件安装了会提供批处理程序调试工具，那么可以就可以用这些工具了。
PS：以上大意就是说SOC-7这个错误多半是因为数据项初始化造成的，然后你应该到运行后编译器的返回信息中去找这些ERROR出现的地方（我们常用的话应该就是走查LOG），查的时候多注意下数据项的初始化问题。

Q32) How is sign stored in Packed Decimal fields and Zoned Decimal fields?
Q32) Packed Decimal fields: Sign is stored as a hex value in the last nibble (4 bits ) of the storage.
Zoned Decimal fields: As a default, sign is over punched with the numeric value stored in the last bite.
Q：在内部十进制区域和显示十进制区域符号是怎么存贮的
A：内部十进制是一个数字占4位（半字节），内存中用16进制来存，最后在追加4位作为符号，如-4=01001101（末尾的1101表示负，1100表示正），而我们用于显示的十进制，符号并不占空间，只是在最后一位上标识一下

Q33) How is sign stored in a comp-3 field? – GS
Q33) It is stored in the last nibble. For example if your number is +100, it stores hex 0C in the last byte, hex 1C if
your number is 101, hex 2C if your number is 102, hex 1D if the number is -101, hex 2D if the number is -102 etc…
Q：COMP-3区怎么存储符号
A：COMP-3采用的是内部十进制的存储方式，所谓内部十进制就是压缩式的外部十进制存储方式，上题讲过外部十进制每个数值都用1个字节存储，但前4位是存符号的，这样比较浪费存储空间，所以内部十进制的存储方式就用半个字节（4位）存储一个数字，在最后增加4位作为符号（1100（C）为正，1101（D）为负）

Q34) How is sign stored in a COMP field ? – GS
Q34) In the most significant bit. Bit is ON if -ve, OFF if +ve.
Q：COMP区怎么存储符号
A：COMP是采用定点二进制的方式存储数据，也就是将一个十进制的数值转化成二进制再进行存储，因为机器存储的形式也是二进制，所以定点二进制的读取是最快速的，因为COMP型的数据是用做计算（也就是说不用再转化成十进制打印），使用定点二进制将会非常高效。这样的存储方式符号是保存在最高有效果位上，如：10=（00001010）₂，

-10=（00011010）₂

（来源：http://www.newcoin.info）

Q35) What is the difference between COMP & COMP-3 ?
Q35) COMP is a binary storage format while COMP-3 is packed decimal format.
Q：COMP和COMP-3什么区别
A：这之前讲过了，COMP采用定点二进制存储，COMP-3采用内部十进制存储

Q36) What is COMP-1? COMP-2?
Q36) COMP-1 – Single precision floating point. Uses 4 bytes.
COMP-2 – Double precision floating point. Uses 8 bytes.
Q：COMP-1是什么？什么是COMP-2
A：其实之所以定义计算型数据（COMP~COMP-3）以区别DISPLAY（能计算，但是要用于打印）是为了考虑效率，因为大家知道文件导入（也就是USER使用的数据）一般是十进制的，而机器存储都是二进制，那么当定义的数据光用来计算不用打印，处于效率考虑会把它定义成COMP型，当然就会衍生出几类COMP以适应不用的数据类型的存储。很明显，这里COMP-1就是采用内部短浮点（4个字节表示一个数，8位指数部分，24位表示数字部分），COMP-2用内部长浮点型（8个字节表示一个书，16位指数部分，48位表示数字部分）以适应浮点数据的存储，长浮点精确度更高.

Q37) How do you define a variable of COMP-1? COMP-2?
Q37) No picture clause to be given. Example 01 WS-VAR USAGE COMP-1.
Q:怎么定义一个COMP-1型？COMP-2型
A：不要用PICTURE描述，因为是确定分配多少内存的，直接用USAGE，如01 WS-VAR USAGE COMP-1

Q38) How many bytes does a S9(7) COMP-3 field occupy ?
Q38) Will take 4 bytes. Sign is stored as hex value in the last nibble. General formula is INT((n/2) + 1)), where n=7 in this
example.
Q：一个S9（7）的COMP-3型占用多少字节？
A：占用4字节。COMP-3用内部十进制存储，S9（7）中的S是要占空间的，符号占4位，7个数字，每个4位（半个字节），所以是（4+7*4）/8=4字节（字节和位的比例不要搞错了哦）

Q39) How many bytes does a S9(7) SIGN TRAILING SEPARATE field occupy ?
Q39) Will occupy 8 bytes (one extra byte for sign).
Q：一个S9(7) SIGN TRAILING SEPARATE区域占多少字节
A：这里是每个符号单独分配空间（也就是没个数值用1个字节表示，就象最常用的DISPLAY型的分配方式），算上S的空间，所以是7+1=8字节。一般情况省略的SIGN子句都是隐含SIGN IS TRAILING的

Q40) How many bytes will a S9(8) COMP field occupy ?
Q40) 4 bytes.
Q： 一个S9(8) COMP 区域占多少字节
A：如果之前关于COMP的解释听懂了的话，那很显然就是4字节了（定点二进制用2字节存储1~4，4字节存储5~9，……类推，你可以自己推下），如果这块还不懂的可以问我或者查下书