COBOL经典面试题目

1、JCLJob Control Language(作业控制语言） JCL代表作业控制语言、JCL是一组控制语句，为需要处理的JOB提供必要的规范。 JCL 每行 80 个字符，至今未变 JCL必须包括3个JCL基本语句作业语句（JOB） ：表示一个作业的开始，提供必要的运行参数执行语句（EXEC） ：标识一个作业步的开始，定义本作业步所要执行的程序或过程数据定义语句（DD） ：用于描述应用程序所需要的数据文件。 /* 语句：表示流内数据结束或调用JES控制语句 JOB, 分隔符 （/*）, 或空语句JOBLIB 或 JOBCAT DDg句DD * 或 DATA句任何 JES2 或 JES3 控制

2、语句一个数据集的初次分配是什么数据集建立时的空间一个数据集的主分配和从分配有什么区别从分配是当要求更多空间时所分配的你如何创建一个临时数据集吗在哪里可以使用它们可以创建临时数据集通过不指定任何DSNAM或指定DSN = &TEMP我们把它们输出到在同意作业步上的工作。一旦作业完成，这个临时数据集就会被删除。 甚么是S0C4 错误存储违反错误由多种原因决定，例，READIN端一个美有打开的文件，SD37, SB37, SE37 abends 是甚么表示磁盘空间不足SD37 没有指定的从分配SB37 终止卷，并且没有根多的卷被指定SE37 已经分配到最大16 extents 甚么是 S322 ab

3、end需要更多的CPU时间程序已经超过了默认的为该作业分配的CPU寸间，陷入一个无限循环.TIME 参数的意思是甚么TIME=1440 表示甚么TIME当程序需要更多的 CPU寸间时用于克服 S322 abendsTIME=1440 表示作业的运行没有时间限制，即 24 小时。COND=EVEN即使先前作业步异常终止，本作业步都要执行COND=ONLY只有先前作业步异常终止，本作业步才执行如何在一个JCL 中检查是否有语法错误在 JOB过程中，TYPERUN=SCAN JSCAN.在PRO彷的流数据可以编码吗No如何解决这个限制呢在PROCJ编写SYSIN DD DUMMY然后从JCL用流数据

4、覆盖它当一个JCL中既定义了 JOBLIB,又定义了 STEPLIB,则会怎样JOBLIB 被忽略 在 JCL 里寻找库的顺序是什么首先在STEPLIB或JOBLIB指定的库中找，然后再系统库中找，例如 SYS1。 LINKLIB 。系统库在连接表中指定。DCB关键字是什么意思，与它相关的一些关键字有哪些DCB是在DD语句中用来描述 DATASET勺关键字，与其相关的关键字有BLKSIZE, DENLRECL。BLKSIZE和LRECLW什么不同LRECL是指逻辑记录长度。BLKSIZE指多个记录长度。 实用程序介绍：IEFBR14:什么也不做，返回码 0.例如：DD语句中创建数据集IEBGE

5、NER :建立顺序数据集，PDS打印顺序数据集IEBCOPY ：拷贝或合并分区数据集和扩展分区数据集COBOL & COBOL IIQ2) What are the different data types available in COBOLQ COBOLT哪些可用的数据类型A:字符型(这里指的是包含字母和数字)，字母型，数字型Q3) What does the INITIALIZE verb do - GSQ： INITIALIZE 这个词做了些什么A： 将字母，字符， 数字区域都置成空格 (置空) ， 将数字区置0， FILLER 和 OCCURSDEPENDINGONm不处理Q4) W

6、hat is 77 level used forQ： 77 层有什么作用A:基本层数据项，不能用做细分别的层，也不能被细分Q5) What is 88 level used forQ： 88 层有什么作用A:条件逻辑层Q6) What is level 66 used forQ： 66 层有什么作用A:重命名层Q7) What does the IS NUMERIC clause establishQ IS NUMERIC这个子句怎么确定(也就是说确定句子的真值)A IS NUMERI酰在字符项，带符号数字，浮点数，不带符号数。如果目标项只含09则返回TRUE但是，如果待测项目是个带符号数，那

7、么他就含有 0-9还有+和-Q8) How do you define a table/array in COBOLA8) ARRAYS.05 ARRAY1 PIC X(9) OCCURS 10 TIMES.05 ARRAY2 PIC X(6) OCCURS 20 TIMES INDEXED BY WS-INDEXQ COBO中怎么建表/数组A:如上.Q OCCUR订句能用在第一层吗A:不能Q10） What is the difference between index and subscript - GSQ索引和下标有什么区别A： 下标可以指定数组中任意中位置的元素 （只要知道其下标） ，

8、 下标只能是数字型常量或者数字型变量（但是不能在指定的时候修改，如： A （K+1）这样是不行的，要修改的话要在指定的外部改，如：ADD 1 TO K而索引的话是从表头/数组头开始本索（以 BY N的指定检索 规律往后滚）再者，索引只能通过PERFORM, SEARCH SET来修改，如果要在一个表中使用 SEARCH,SEARCH ALL那这个表就要有索引（因为SEARCH, SEARCH AL的参数中指定索引，所以即使其有很多限制还是得用它）Q11） What is the difference between SEARCH and SEARCH ALL - GSQ SERAC博口 SER

9、ACH ALlM什么区另A: SEARCH1顺序查找SERACH ALL 是 2 叉查找（相信数据结构学过2 叉树的都不会陌生） ，在使用 SEARCH ALL前表必须有一个递增/递减的KEY并且表已经按照其 KEY值排序了，这本才能使用 SEARCH ALLQ12） What should be the sorting order for SEARCH ALL - GSQ为了使用SEARCH ALL存贮顺序是怎么样的A： 他必须是递增或者是递减的，默认地政。 如果你想在一个递减顺序存贮的表/ 数组使用搜索的话，那么当定义表/数组的时候你应该加一个DESCENDINKEY子句（这之前表要已经按

10、指定的顺序排序了）Q14）My program has an array defined to have 10 items. Due to a bug, I find thateven if the program access the11th item in this array, the program does not abend. What is wrong with itQ我的程序有个数组定义了10项。因为有个 BUG我发现即使访问第11项，程序也不异常终止。那是出了什么问题A:必须使用编译器的一个选项SSRANGE如果你想检查数组的超界问题。默认是NOSSRANGEQ18） Wha

11、t is the use of EVALUATE statement - GS Q EVALUAT曲句有什么作用A: EVALUATE/个CASEg句（多重开关语句，学过 C的总知道吧），不同点在于EVALUATE 不需要BREAK 一旦匹配就跳出 EVALUAT曲句了Q20） How do you come out of an EVALUATE statement - GSQ怎么跳出一条 EVALUATE!A:象18题目说的那样，一旦匹配了某一个“WHEN语句就自动跳出了，不需要什么额外的代码来跳出Q21） In an EVALUATE statement, can I give a com

12、plex condition on a when clauseQ在一个EVALUAT曲句的某个 WHE的支中能否再插入复杂的情况（也就是嵌套）A:当然可以，当多个参数彳为控制变量的时候1个WHEN部可以嵌套更多的情况Q22） What is a scope terminator Give examples.Q什么是结束终止符A:结束终止符是搭配一些范围指令的，也就是标识一些范围指令的结束。如：EVALUATE,END-EVALUATE; IF, END-IF 如果没有该结束符，该条语句将终止不了Q23) How do you do in-line PERFORM - GSQ怎么使用内嵌的 PE

13、RFORMA： PERFORM . .END-PERFORM所谓内嵌也就是 PERFOR版嵌在某些比如循环语句中担当执行主体，同时通过UNTIL来指定结束判定Q24) When would you use in-line performQ什么时候使用内嵌式 PERFORMA:当t段PERFORM)内容不被其他段用到，只在某些局部代码中(当然PERFORM)主体所用到的参数也都是局部的，例如循环)使用，如果 PERFOR研体的代码是一般的(用到了别 的程序段的变量)，还是使用 PERFORM Para name这样的形式比较好(也就是相对与内于 PERFORM外部 PERFORMQ25) Wha

14、t is the difference between CONTINUE & NEXT SENTENCEQ CONTINUED NEXT SENTENC有什么不同A:两者比较相似，都是将程序控制权交给下一句，但是用 NEXT SENTENC的时候，只有当 碰到句结束符(就是句末的 . )才会将执行下句 这道题我用了 2 个例子测试了一下： 1： IF TEST-NUMERIC 0THEN NEXT SENTENCEEND-IFDISPLAY LINE1 DISPLAY LINE2. DISPLAY LINE3. (请注意代码中的 . 号)结果输出： LINE32： IF TEST-NUMERI

15、C 0THEN CONTINUEEND-IFDISPLAY LINE1 DISPLAY LINE2. DISPLAY LINE3.结果输出： LINE1LINE2LINE3相信已经区别已经比较明显了，NEXT SENTENCE!靠句末的结束符(也就是.)来判断下一句的，而 CONTINUE1通过句头的保留字(这例中是DISPLAY)来判断下一句的Q26) What does EXIT doQ： EXIT 语句有什么作用A:什么都不做，如果用到的话，肯定是作为一段的唯一的一句话，注意：这里不是子程序中用的 EXIT PROGRAMEQ27) Can I redefine an X(100) fi

16、eld with a field of X(200)Q能不能把X (100)的区域重定义成 X (200)A:可以，重定义只是相当于把两个区域的首地址放在一起，从上面这个例子也很好理解A28) Can I redefine an X(200) field with a field of X(100)Q能不能把X (200)的区域重定义成 X (100)A:可以，原因同上Q32) How is sign stored in Packed Decimal fields and Zoned Decimal fields Q32) Packed Decimal fields:Sign is store

17、d 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 valuestored in the last bite.Q在内部十进制区域和显示十进制区域符号是怎么存贮的A:内部十进制是一个数字占4位(半字节)，内存中用16进制来存，最后在追加4位作为符号，如 -4=01001101 (末尾的 1101 表示负， 1100 表示正) ，而我们用于显示的十进制，符 号并不占空间，只是在最后一位上

18、标识一下Q33) How is sign stored in a comp-3 field - GSQ COMP-3K怎么存储符号A: COMP-睬用的是内部十进制的存储方式，所谓内部十进制就是压缩式的外部十进制存储 方式， 上题讲过外部十进制每个数值都用 1 个字节存储， 但前 4 位是存符号的， 这样比较浪 费存储空间，所以内部十进制的存储方式就用半个字节( 4 位)存储一个数字，在最后增加 4位作为符号(1100 (C)为正，1101 (D)为负) Q34) How is sign stored in a COMP field - GSQ COMM怎么存储符号A: COM灌采用定点二进制

19、的方式存储数据，也就是将一个十进制的数值转化成二进制再进行存储，因为机器存储的形式也是二进制，所以定点二进制的读取是最快速的，因为 COMP 型的数据是用做计算 (也就是说不用再转化成十进制打印) ， 使用定点二进制将会非常高效。 这样的存储方式符号是保存在最高有效果位上，如： 10=( 00001010) ? ，-10=( 00011010) ?Q35) What is the difference between COMP & COMP-3Q COM侪口 COMP-3十么区另1JA:这之前讲过了，COM课用定点二进制存储，COMP-睬用内部十进制存储Q36) What is COMP-1

20、COMP-2Q COMP-1是什么彳f么是 COMP-2A:其实之所以定义计算型数据(COMPCOMP-城区别DISPLAY(能计算，但是要用于打印)是为了考虑效率，因为大家知道文件导入(也就是USER#用的数据)一般是十进制的，而机器存储都是二进制， 那么当定义的数据光用来计算不用打印， 处于效率考虑会把它定义成 COMPS,当然就会行T生出几类COMPA适应不用的数据类型的存储。很明显，这里 COMP-1就是采用内部短浮点( 4 个字节表示一个数， 8 位指数部分， 24 位表示数字部分) ， COMP-2 用内部长浮点型( 8 个字节表示一个书， 16 位指数部分， 48 位表示数字部分

21、)以适应浮点 数据的存储，长浮点精确度更高 . Q37) How do you define a variable of COMP-1 COMP-2 Q:怎么定义一个 COMP-俚COMP-21A:不要用 PICTURE苗述，因为是确定分配多少内存的，直接用 USAGE如01 WS-VARUSAGE COMP-1Q38) How many bytes does a S9(7) COMP-3 field occupyQ 一个 S9 (7)的COMP-理占用多少字节A:占用4字节。COMP-3g内部十进制存储，S9 (7)中的S是要占空间的，符号占 4位，7 个数字，每个4 位(半个字节) ，所以

22、是( 4+7*4 ) /8=4 字节(字节和位的比例不要搞错了哦)Q39) How many bytes does a S9(7) SIGN TRAILING SEPARATE field occupyQ 一个 S9SIGN TRAILING SEPARATE区域占多少字节A： 这里是每个符号单独分配空间 (也就是没个数值用 1 个字节表示， 就象最常用的 DISPLAY 型的分配方式) ，算上 S 的空间，所以是7+1=8 字节。一般情况省略的 SIGN 子句都是隐含SIGN IS TRAILING 的Q40) How many bytes will a S9(8) COMP field o

23、ccupyQ： 一个 S9(8) COMP 区域占多少字节A:如果之前关于COMP勺解释听懂了的话，那很显然就是4字节了(定点二进制用2字节存储14, 4字节存储59,类推，你可以自己推下)，如果这块还不懂的可以问我或者查 下书Q41) What is the maximum value that can be stored in S9(8) COMPQ41)Q S9 (8) COM陛最多存储的最大值是什么A:除了 8个数值外不忽略符号位Q43) What is the maximum size of a 01 level item in COBOL I in COBOL IIQ43) In

24、COBOL II:Q COBOL定义的01层最大大小是多少，COBOL II中A： COBOL II 中是，没什么说的，自己翻书Q44) How do you reference the following file formats from COBOL programs:Q COBO中如何涉及(引用调用)以下这些文件A:文件类型 这里是COBOLE文件控制区中的文件组织访问形式(SELEC*面那句)这里最好翻翻书或者事例代码反复记忆定长文件用 ORGANISATION IS SEQUENTIAL. Use RECORDING MODE ISF, BLOCK CONTAINS 0固定但是不是以

25、块的组织形式用 ORGANISATION IS SEQUENTIAL. Use RECORDING MODEIS F,不要使用BLOCK CONTAIN S因为不是以块的组织形式)变长文件用 ORGANISATIONIS SEQUENTIAL.Use RECORDINGMODEISV, BLOCK , CONTAINS 0.在之后的文件区中的文件描述FD中不要编码记录长度为 4字节变长但是不是以块的组织形式用 ORGANISATION IS SEQUENTIAL. Use RECORDINGESDS VSAM 文件KSDS VSAM 文件 ALTERNATE RECORD作为关键字的RRDSt

26、件打印文件MODE IS V,同样不要使用 BLOCK CONTAINS不要编码记录长度为 4字节(原因同上)用 ORGANISATION IS SEQUENTIAL用 ORGANISATION IS INDEXED, RECORD KEY IS,用 ORGANISATION IS RELATIVE, RELATIVE KEY IS用 ORGANISATION IS SEQUENTIAL. Use RECORDING MODE ISF, BLOCK CONTAINS 0. (Use RECFM=FBA in JCL DCB)Q45) What are different file OPEN m

27、odes available in COBOLQ COBO中有哪些OPENT式A:有 INPUT, OUTPUT I-O , EXTENDS些 OPENi式Q46) What is the mode in which you will OPEN a file for writing - GSQ当彳想OPEN-个文件用来写入的时候，这属于什么方式A: OUTPUT EXTENDQ48) Can you REWRITE a record in an ESDS file Can you DELETE a record from itQ能否REWRITE(重写)一个ESDSC件能否删除ESD汕的一条记

28、录A:能够重写(但是记录长度必须相同)，但是不能删除Q51) What is Static and Dynamic linkingQ什么是静态和动态连接A:在静态连接中，被调用的子程序是连接到调用程序，但是在动态连接中，被调用子程序和调用主程序的可执行模块是都存在的(分开的)。你可以在连接选项中选择 DYNA履者NODYNA则算你选择了 NODYNAMCALL标识符还是回把它自动转换成一个动态调用)。静态子程序下次被调用时不会再处于其初始状态，除非用INITIAL初始化或者用 CANCEL动态的都是以初始状态存在的。Q53) What compiler option would you use

29、 for dynamic linkingQ:如果要动态连接那么要用什么编译选项A： DYNAMQ62) What is an in line PERFORM Whewn ould you use it Anything else to say about itQ PERFORM1有什么作用什么时候使用简单介绍下它A: PERFORM END-PERFORM套使用，所有 COBO出 程序语句都在这两关键字之间。这和 COBOL勺PERFOR或者PERFORM THRU段是一样的意思。在 PERFORMS语句中只要没有内 部GOKM一直执行直到碰到 EXIT。在行PERFOR睡句中为了可读型不能超

30、过一页的长度， 他经常会引用到其他 PERFOR僦Q68) What is the linkage sectionQ LINKAGE SECTION什么A： “连接区”是一个被调用程序连接或者映射到调用程序工作单元的程序部分。 被调用程序中一些共享项被定义在“连接区”中(想象下子程序，主程序是没有连接区的)Q71) Explain the difference between an internal and an external sort, the pros and cons, internal sort syntax etc.Q解释下内部排序和外部排序的区别和内部排序的语法A:外部排序不是

31、COBOL他是通过JCL和PGM=SORT形式排序的。这种方式不引用代码却 容易理解。内部排序用两中语法： 1) USING GIVING,这种方式比得上外边排序，不用额外 的文件处理。2) INPUT PROCEDURE, UTPUFROCEDUR范种方式适用用文件操作，并且在 排序前后允许数据操作Q72) What is the difference between comp and comp-3 usage Explain other COBOL usage s.Q COM侪口 COMP-3W什么区另J解释下 COBO仲白USAGES句A: COM即的是定点二进制，COMP-3I的是内部

32、十进制(压缩)。其他的不同 USAGES句就是二进制和DISPLAY DISPLAY是默认情况。Q73) When is a scope terminator mandatoryQ什么时候范围终止符强制执行A:范围终止符在行内 PERFORM! EVALUAT曲句中强制执行。 为了程序的可读性， 编码规范 都建议写上这两个终止符。(也就是说 PERFOR硼EVALUATE算没有 END-PERFORIMPEND-EVALUATE会强制终止，但是为了可读性还是建议把 END-PERFORM END-EVALUATE! 上)Q75) In an EVALUTE statement is the o

33、rder of the WHEN clauses significantQ在EVALUATE!中，WHEIT句的顺序是否有意义A:当然有意义。EXALUATION!过WHE手句从头到尾的执行顺序会决定结果。Q76) What is the default value(s) for an INITIALIZE and what keyword allows for an override of the default.Q： INITIALIZE 默认是值是什么替代默认值的关键字是什么A:默认，f#况下INITIALIZE 将空格移到字符区，将零移到数字区。REPLACIN的为替代默认值的关键保留

34、字Q81) What will happen if you code GO BACK instead of STOP RUN in a stand alone COBOL program . aprogram which is not calling any other program.Q在COBO中如果你用 GO BACK弋替STOP RUN发生什么，该程序没有调用别的程序A当然是会无限循环下去Q83) What is the difference between a DYNAMIC and STATIC call in COBOL.Q COBO由动态动用和静态调用有什么区别A：所有被调用的

35、模块都不能单独跑除非这些模块要求程序通过连接区传递变量给他们。动态调用的模块就是那些在连接编辑时( LEWL) 没有被调用程序限定的模块， 这些模块在程序库(JOBLIB, STEPLIB)中被加载以连接 JOB要动态调用一个模块，DYNAM勺编译器选项要被选中，另外， 连接编辑器不能是可执行的， 因为他会要你处理所有的模块。一个静态调用在连接编辑时被调用程序限制，所以变成了可执行模块的一部分。Q85)What is the purpose of Identification DivisionA85)Documentation.Q写标识区是什么目的A:标识一些作者等信息，便于文档管理Q86)

36、What is the difference between PIC and 9v99Q PIC和9V99有什么区别A： PIC 是一块占用了 4 个位置的区域， 因为包括了一个小数点， 但是 9V99 只占用 3 个位置，因为V 不占位Q87) what is Pic 9v99 IndicatesQ： PIC 9V99 指什么A: PIC 9V99指一段含有一个不占位置的小数点的占三个位置的数值区域。小数点位置在第一个位置之后， V 表示一个隐含的小数点。Q90) What is the difference between SEARCHand SEARCHALL What is more

37、efficientQ SEARC博口 SEARCH ALlM什么区另哪个更高效A: SEARCH1顺序查找，从头到尾。SEARCH1二叉搜索。超过70个数据项的时候 SEARCHALL 效率更高Q95) Give some advantages of REDEFINES clause.Q说明REDEFINESF句的优点A: 1:你能用另一个 PICTURE(另一种类型)重定义之前的一种类型，并且以相同的起点:在工作单元区中能通过REDEFINE沏始化变量：能够通过重定义一个变量而重定义很多子变量。 (这个来解决Y2000 问题很方便)PS :在多维表的元素初始化中也用到REDEFINE不过这和

38、第3点作用类似Q96) What is the difference between static call & Dynamic callQ静态调用和动态调用有什么区别A:在静态调用的情况下，被调用的程序是单独的一段程序，他是一段可执行的程序。在跑程序的时候能够调用它。 而关于动态调用， 被调用程序并不是一段可执行程序， 但能通过调用程序而执行Q99) Whydo we code S9(4) comp. In spite of knowing comp-3 will occupy less space.Q既然已经知道 COMP-脍占用较少的空间，为什么还要编码S9 (4) COMPA:这里S9 (4) COMP1个小整数，所以 2个数值相当于一个字节，所以一共占用2字节。如果是S9 (4) COMP-3的