JCL中使用SPACE参数指定在磁盘上创建新数据集时，为新数据集分配空间的大小，由系统指定磁道，语法如下。

SPACE=(磁道,( 首次分配数量, 次级分配数量, 目录))

磁道 —->   以磁道为单位分配空间。

首次分配数量   —->   分配数据空间时，首次分配是以以前指定的单位分配多少数目的磁道，柱面，块数或记录数。

次级分配数量—–> 向数据集写入数据时，如果已分配的空间使用完了系统会自动按照次级非配数量再分配出一定数量的空间给数据集使用。次级空间的分配次数是有限的，比如15次。如果已经分配了15个次级空间，数据集仍然写满，再写是会出错停止。

目录   —–>  指明目录空间要分配的大小，只在创建分区数据集（PDS）时需要指定，每个目录是一个256字节的记录。

计算式：

空间总数 = (1 *首次分配数量) + (15 *次级分配数量)

如果SPACE= (900,300),所需要的空间为 ( 900*1 + 15 *300) TRKS. = 5400 TRKS.

1 TRK = 47476 BYTES.

分配的总空间数  = ( 900*1*47476+ 15*300*47476)  = 5400 * 47476 BYTES = 256370400 BYTES

因此，你需要的空间数应为：

一个数据有61000条记录,长度为1541

需要空间=61000 *1541 = 94001000

浪费的空间 = 256370400 - 94001000 = 162369400 bytes..!!!! 通常我们保留一些额外空间（50%-100%）。

JCL Exam

(60 Minutes)

Name: _____________ Grade: ____________

1. What is the difference between the JOBLIB and the STEPLIB statements?

The position difference.joblib adapts whole job,steplib only exec.

2. Name some of the JCL statements that are not allowed in PROCs.

Job statements,dd * statements,dd data statements,/*,null statements

3. What does a dispositions of (NEW,CATLG, KEEP) means?

4. What are three major types of JCL statements? What are their functions?

Job,exec,dd statements.

5. What is the difference between catalogue procedure and In-Stream procedure?

Position,调用member name,pro name,

6. What is a COND parameter in JCL?

1,position (exec,job)2,

7. How do you check the syntax of a JCL without running it?

Typrun=scan

8. How do you override a specific DDNAME/SYSIN in PROC from a JCL?

调用时Dda  dsn=另外一个，dsn=,这样就是制空

9. A PROC has five steps.  Step 3 has a condition code.  How can you override or nullify this condition code?

指定到那个proc的作业步，cond(2,eq,),nullify用even

10. How do you create a temporary dataset?  Where will you use them?

Dsn=&&    参数（new,pass,delete）下去的,这样就是temporary

（http://www.newcoin.info)

DB2 Exam

(60 Minutes)

Name: _____________ Grade: ____________

1. How do you eliminate duplicate values in SELECT?

2. What do you accomplish by GROUP BY … HAVING clause?

3. Why SELECT * is not preferred in embedded SQL programs?

4. What is a cursor? Why should it be used? List the SQL statement for cursors.

5. What is a DB2 bind?

6. What is a host variable? How do you use it?

7. Is it mandatory to use DCLGEN? If not, why would you use it at all?

8. Give the COBOL definition of a VARCHAR field.

9. What does SQLCODE +100 means？

10. How do you run DB2 batch program? Write down the JCL statements.

（http://www.newcoin.info)

作业控制语言JCL(Job Control Language)

必须包含三个JCL基本语句：

（1）作业语句（JOB）：标识一个作业的开始，提供必要的运行参数。

（2）执行语句（EXEC）：标识一个作业步的开始，定义本作业步所要执行的程序或过程。

（3）数据定义语句（DD）：用于描述应用程序所需要的数据文件。

系统规定这三种语句行必须以“//”开头。下面是一个多步作业的例子：

//JOB1    JOB  …

//STEP1   EXEC …

//DD1     DD …      作业步1

//STEP2   EXEC …

//INDD1   DD …    作业步2

//INDD2   DD …

//

六种附加语句：

1）/* 语句：表示六内数据结束或调用JES控制语句；

2）//*语句：注释语句，由第4到第80列写出注释内容；

3）//语句：空语句，用以标记一个作业的结束；

4）PROC语句：流内过程（IN-STREAM  PROCEDURE）或编目过程（CATALOGED PROCEDURE）的起始标记。

5）PEND语句：标志一个流内过程的结束。

6）Command语句：操作员用这个语句在输入流中写入操作命令。

JCL实例:

//BACKUP JOB   ,’EXAMPLE JOB’

//************************

//*  IT IS A EXAMPLE!   *

//************************

//STEP1    EXEC  PGM=IEBGENER

//STEPLIB  DD    DSN=SYS1.LINKLIB,DISP=SHR

//SYSIN    DD    DUMMY

//SYSPRINT DD    SYSOUT=A

//SYSU1    DD    DSN=PR.MASTER,DISP=OLD

//SYSU2    DD    DSN=PR.MAILY.BACKUP,DISP=(NEW,CATLG),UNIT=TAPE,

//                 DCB=(RECFM=FB,LRECL=200,BLKSIZE=1000)

//

JCL的语法规则:

一、JCL字符集

（1）字母（共26个）

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

（2） 数字（共10个）

0  1  2  3  4  5  6  7  8  9

（3） 特殊字符（共10个）

,  .  /  ‘  (  )  *  &  +  -  =

（4）通配符（共6个）

@  $  #  （也可分别用X’7C’  X’5B’ 和 X’7B’表示）

（5） EBCDIC 可打印字符集

一般语句格式规范 :

分别是标识符区、名字区、操作符区、参数区和说明区.

名字区后必须跟一个或多个空格，可以选择名字表达出这个JCL语句的作用。下面给出几个正确与错误的名字区的例子：

正确的                                 错误的

//Z                                           //9Z

//BACKUP#1                         //TAPEBACKUP

//#99                                       //TEST*9

//$EXAM                               //EXAM(0)

操作符区位于名字区之后，规定了语句的类型：JOB、EXEC、DD、PROC、PEND，或操作员命令。

名字区后必须跟一个或多个空格。例如：

//EXAMPLE  JOB

//STEP1  EXEC

//INDD1  DD

参数区在操作符区之后，其中包括被逗号分隔的参数，参数由事先规定好的关键字组成，对于这些参数其数值必须是可被代换的变值。参数区没有固定的长度及列的要求。例如：

//EXAMPLE  JOB  2000，CLASS=A

//STEP1  EXEC  PGM=IEYFORT

//PRINT  DD  SYSOUT=A

说明区位于参数区后，用于对相应语句进行注释说明，它可以是任何需要的说明信息，注释区后必须跟一空格。需要注意的是，仅当参数出现时才能书写说明信息，不然容易与参数混淆。

//EXAMPLE  JOB  ，CLASS=A  IT IS A COMMENT

JCL只允许在参数区和说明区有续行，当需要续行时，在当前行的第71列前必须将某个参数或某个子参数以及参数后的逗号写完整，且下一行第1、2列为“//”，第3列为空格，续行的内容只能从4~16列开始，如从16列后开始，将被认为是注释语句。

//DATA  DD  DSN=SYS1。FORTLIB，

//  DISP=OLD

参数规则

在JCL中，参数区内的参数的类型分为两类：

(1)位置参数（positional）：与其他参数保持相对位置的参数；

(2)关键字参数（keyword）：由一个关键字和等号后面的可变数据组成。

如果在一个语句内既有位置参数又有关键字参数时，所有的关键字参数必须位于位置参数之后。例：

//EXAMPLE  JOB  2000, CLASS=A

位置参数  关键字参数

JCL语法实例

作业语句   //EXPJOB  JOB  ,’USERNAME’,MSGLEVEL=(1,1),   EXAMPLE

作业语句续行 //  MSGCLASS=Q,CLASS=A

//**********************

注释语句      //*  IT IS A EXAMPLE  *

//**********************

执行语句      //STEP1  EXEC  PGM=IEFBR14

DD语句         //DD1  DD    DSN=MJSN.TEAM01.ONE,DISP=(,CATLG),

DD语句续行 //  SPACE=(TRK,(5,2)), UNIT=SYSDA

DD语句         // DD1  DD    DSN=MJSN.TEAM01.TWO,DISP=(,KEEP),

DD语句续行 //  SPACE=(TRK,(1,1)), UNIT=SYSDA

JOB语句

JOB语句标志一个作业的开始、分配作业名并设置相关的位置参数及关键字参数，每个作业的第一个语句必须是JOB语句。

JOB语句的格式如下：

//作业名 JOB  位置参数[，关键字参数][，关键字参数]。。。[注释说明]

JOB语句中的关键字参数有如下几个:

1．ADDRSPC 作业所需之存贮类型

2.  BYTES  打印作业的系统输出数据集的最大千字节数

3. CLASS 参数规定了作业的类别 用字母A~Z及数字0~9表示 4．MSGCLASS  用于为作业日志（job log）设置输出类别。

//EXMP1  JOB  ,GEORGE,MSGCLASS=F

5．MSGLEVEL

用于控制JCL作业输出清单的内容

6．NOTIFY

用于请求系统在后台作业处理完毕时给指定用户发送信息。

7．PRTY

用于为相应的输入队列中的作业分配优先级。

8．REGION

用于指定作业所需的实存或虚存空间的大小，系统将在该作业中的每一作业步使用该值。

9．TIME

用于指定作业占用处理器的最长时间并可通过一些信息得知该作业占用处理器的时间。

10．TYPRUN

用于请求特殊的作业处理。

COND、GROUP、PASSWORD、PERFORM、RD、RESTART、SECLABEL、USER…

EXEC语句

EXEC语句标明作业或过程中的每一作业步的开始，并告知系统如何执行该作业步。

EXEC语句格式如下：

//[作业步名]  EXEC  位置参数[,关键字参数]…[符号参数=值]… [注释]

EXEC语句中的位置参数有两个：PGM和PROC。

每条EXEC语句必须有且仅有一个位置参数或过程名.

格式：

PGM={program-name}

{*.stepname.ddname}

{*.stepname.procstepname.ddname}

//JOBC   JOB  ,JOHN,MSGCLASS=H

//STEP2  EXEC  PGM=UPDT

//DDA   DD  DSNAME=SYS1.LINKLIB(P40),DISP=OLD

//STEP3  EXEC  PGM=*.STEP2.DDA

在上例中，名为STEP3的EXEC语句采用程序间接调用方式，所调用的程序名由作业步STEP2中的名为DDA的DD语句决定，在该DD语句中定义了系统库SYS1.LINKLIB，程序P40是该库的一个成员。“P40”即STEP3中要调用执行的程序名.

PROC 指明作业步所要运行的过程名。

格式：

{PROC=procedure-name}

{procedure-name      }

procedure-name：需要调用的过程名，过程名由1~8个字母或通配符开头的字符数字构成。所调用的过程名可以是：

·编目过程的成员名或别名。

·由PROC语句定义的流内过程的过程名，该流内过程必须在本作业内且本作业步前定义。

在设定该参数时，可直接写出过程名。

例：

//SP  EXEC  PROC=PAYWRKS

//BK EXEC  OPERATE

EXEC语句的关键字参数

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

关键字参数.过程步名=值

1．ACCT 作业步所需的一个或多个记账信息子参数

ACCT[.过程步名]=(记账信息)

例： //STP3  EXEC  PROC=LOOKUP,ACCT=(‘/83468’)

2．ADDRSPC作业步所需之存贮类型，它有两个子参数：VIRT及REAL

例：

//CAC1  EXEC  PGM=A,ADDRSPC=VIRT

//CAC2  EXEC  PROC=B,ADDRSPC=REAL,REGION=100K

REGION

作业步所需的实存或虚存空间的大小，系统仅在本作业步中使用该值。

REGION[.过程步名]={valueK}

={valueM}

例：

//MKBOYLE  EXEC  PROC=A,REGION=100K,ADDRSPC=REAL

//STEP6   EXEC  PGM=CONT,REGION=250K

TIME

用于指定作业步占用处理器的最长时间，并可通过作业输出清单得知该作业步占用处理器的时间

TIME[.过程步名]={([minutes][,seconds])}

={1440               }

={NOLIMIT     }

={MAXIMUM  }

值得注意的是：在JOB语句中不可设置TIME=0，而在EXEC语句中则可以设置TIME=0，当TIME=0时表示本作业步的执行时间由前面作业步的剩余执行时间决定。

COND

用于对先前作业步执行的返回码（return code）进行测试，以决定是否执行本作业步。

格式：

（1）COND[.过程步名]=(code,operator)

（2）COND[.过程步名]=((code,operator[,作业步名][,过程步名])

[,(code,operator[,作业步名][,过程步名])]…[,EVEN])

[,ONLY]

（3）COND=EVEN

COND=ONLY

//STEP6  EXEC  PGM=DISKUTIL,COND=(4,GT,STEP3)

在本例中如果STEP3的返回码小于4，系统将不执行STEP6。由于没有设置EVEN或ONLY，如果先前的作业步异常终止，系统将不会执行本作业步。

//TEST2  EXEC  PGM=DUMPINT,COND=(16,GE),(90,LE,STEP1),ONLY)

由于设置了ONLY子参数，系统只在以下两种情况满足时执行本作业步：

（1）先前作业步异常终止；

（2）返回值的测试条件都不满足。

那么对于本例来说，系统将会在以下三种情况都满足的情况下执行本作业步：

·一个先前作业步异常终止。

·所有先前作业步的返回码大于等于17。

·STEP1的返回码小于等于89。

PARM

用于向本作业步执行的程序传递变量信息。该程序必须有相应的指令接收这些信息，并使用它们。

格式：

PARM[.过程步名]= 子参数

PARM[.过程步名]=( 子参数, 子参数)

PARM[.过程步名]=(‘子参数’, 子参数)

PARM[.过程步名]=’子参数, 子参数’

括所有的逗号、撇号以及括号在内，所有子参数的总长度不得超过100个字符。当某子参数中含有特殊字符或空格时，可以将该子参数用撇号括起来，在其它子参数一起用括号括起来，或将所有在参数用撇号括起来。

子参数：包含传递给程序的变量信息。

例1．

//RUN3  EXEC  PGM=APG22,PARM=’P1,123,P2=5’

在本例中，系统将参数P1、123及P2=5传递给程序APG22。

例2．

// STP6  EXEC  PROC=ASFCLG,PARM.LKED=(MAP,LET)

在本例中系统将MAP、LET传递到过程ASFCLG中名为LKED的过程步。

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

DD语句

数据定义语句（DD语句）用于定义一个数据集以及该数据集所需的输入输出资源。

格式：

//[dd名        ]   DD  [位置参数][,关键字参数]… [注释]

[过程步名.dd名]

//[dd名        ]   DD

[过程步名.dd名]

DD语句的参数也分为位置参数及关键字参数，这些参数都是可选的。每个DD语句只能有一个位置参数，但根据需要可以有个关键字参数。位置参数有“*”、“DATA”和“DUMMY”。

参数“*”

参数“*”用于开始一个流内数据集。数据记录跟在“DD ”语句之后，其第一、二列不能是“//”或“/*”；该记录可以是任何编码，如EDCBIC。下列符号表明流内数据记录的结束：

·输入流中的“/*”。

·表示另一个JCL语句开始的“//”。

当数据记录中需以“//”开始时，就必须使用DATA参数来代替“*”参数。

DATA

用作一个流内数据集的开始，该流内数据集里含有以“//”开头的语句。数据记录紧跟在“DD DATA”语句之后；该数据记录可以是BCD或EDCBIC编码。数据记录将以“/*”作为结束。

格式：

//dd名  DD  DATA[,参数]… [注释]

DUMMY

DUMMY参数用于标明：

（1）没有设备或外存空间分配给该数据集。

（2） 对该数据集不进行状态处理。

（3） 对BASM或QSAM来说，不对该数据集作输入输出操作。

用户使用DUMMY参数对程序进行测试。当测试完成时，如果用户希望恢复对数据集的输入输出操作时，只需将DD  DUMMY参数替换成完整的数据集定义DD语句。

]]> http://www.newcoin.info/jcl%e8%af%ad%e8%a8%80%e5%9f%ba%e7%a1%80%e6%95%99%e7%a8%8b.html/feed 0 http://www.newcoin.info/%e5%a4%a7%e5%9e%8b%e6%9c%baispf%e5%bf%85%e5%a4%87%e6%93%8d%e4%bd%9c%e6%8c%87%e4%bb%a4.html http://www.newcoin.info/%e5%a4%a7%e5%9e%8b%e6%9c%baispf%e5%bf%85%e5%a4%87%e6%93%8d%e4%bd%9c%e6%8c%87%e4%bb%a4.html#comments Tue, 14 Apr 2009 01:33:04 +0000 newcoin http://www.newcoin.info/?p=27531

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)

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，……类推，你可以自己推下），如果这块还不懂的可以问我或者查下书