COBOL經典面試題庫中英文版

1、COBOL經典面試題庫（中英文版）Q1) Name the divisions in a COBOL program ?.A1) IDENTIFICATION DIVISION, ENVIRONMENT DIVISION, DATA DIVISION, PROCEDURE DIVISION.Q：列舉COBOL的DEVISIONA：標識部，環(huán)境部，數據部，過程部Q2) What are the different data types available in COBOL?A2) Alpha-numeric (X), alphabetic (A) and numeric (9).Q：COBOL有

2、哪些可用的數據類型A：字符型（這里指的是包含字母和數字），字母型，數字型Q3) What does the INITIALIZE verb do? - GSA3) 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：將字母，字符，數字區(qū)域都置成空格（置空）

3、，將數字區(qū)置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：基本層數據項，不能用做細分別的層，也不能被細分Q5) What is 88 level used for ?A5) For condition names.Q：88層有什么作用A：條件

4、邏輯層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 onl

5、y 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用在字符項，帶符號數字，浮點數，不帶符號數。如果目標項只含09則返回TRUE。但是，如果待測項目是個帶符號數，那么他就含有0-9還有+和-Q8) How do you define a table/array in COBOL?A8) ARRAYS.05 ARRAY1 PIC X(9) OCCURS

6、 10 TIMES.05 ARRAY2 PIC X(6) OCCURS 20 TIMES INDEXED BY WS-INDEXQ：COBOL中怎么建表/數組A：如上.Q9) Can the OCCURS clause be at the 01 level?A9) No.Q：OCCURS 子句能用在第一層嗎A：不能Q10) What is the difference between index and subscript? - GSA10) Subscript refers to the array occurrence while index is the displacement (in

7、 no of bytes) from the beginning of thearray. An index can only be modified using PERFORM, SEARCH & SET. Need to have index for a table in order touse SEARCH, SEARCH ALL.Q：索引和下標有什么區(qū)別A：下標可以指定數組中任意中位置的元素（只要知道其下標），下標只能是數字型常量或者數字型變量（但是不能在指定的時候修改，如：A（K+1）這樣是不行的，要修改的話要在指定的外部改，如：ADD 1 TO K，而索引的話是從表頭/數組

8、頭開始檢索（以BY N的指定檢索規(guī)律往后滾）再者，索引只能通過PERFORM, SEARCH 和SET來修改，如果要在一個表中使用SEARCH, SEARCH ALL，那這個表就要有索引（因為SEARCH, SEARCH ALL的參數中指定索引，所以即使其有很多限制還是得用它）Q11) What is the difference between SEARCH and SEARCH ALL? - GSA11) SEARCH - is a serial search.SEARCH ALL - is a binary search & the table must be sorted (

9、ASCENDING/DESCENDING KEY clause to be used & data loaded in this order) before using SEARCH ALL.Q：SERACH和SERACH ALL有什么區(qū)別A：SEARCH是順序查找SERACH ALL 是2叉查找（相信數據結構學過2叉樹的都不會陌生），在使用SEARCH ALL前表必須有一個遞增/遞減的KEY，并且表已經按照其KEY值排序了，這樣才能使用SEARCH ALLQ12) What should be the sorting order for SEARCH ALL? - GSA12) It

10、 can be either ASCENDING or DESCENDING. ASCENDING is default. If you want the search to be done on anarray sorted in descending order, then while defining the array, you should give DESCENDING KEY clause. (Youmust load the table in the specified order).Q：為了使用SEARCH ALL，存貯順序是怎么樣的A：他必須是遞增或者是遞減的，默認地政。如

11、果你想在一個遞減順序存貯的表/數組使用搜索的話，那么當定義表/數組的時候你應該加一個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 i

12、tem lies.Q：什么是2叉查找A：將你要找的目標項與數組的正中項比較，找到就結束搜索，沒找到則繼續(xù)如此循環(huán)（比較下一個中值），取哪一半取決于目標值大于中值還是小于中值PS：聯(lián)想2叉樹的查找規(guī)律就很好理解，因為所謂的“表“本身也就是數組Q14) My program has an array defined to have 10 items. Due to a bug, I find that even if the program access the11th item in this array, the program does not abend. What is wrong wi

13、th it?A14) Must use compiler option SSRANGE if you want array bounds checking. Default is NOSSRANGE.Q：我的程序有個數組定義了10項。因為有個BUG，我發(fā)現即使訪問第11項，程序也不異常終止。那是出了什么問題A：必須使用編譯器的一個選項SSRANGE，如果你想檢查數組的超界問題。默認是NOSSRANGEQ15) How do you sort in a COBOL program? Give sort file definition, sort statement syntax and mean

14、ing. - GSA15) 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-2GIVING 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 FI

15、LE SECTION.file-2 is the input file for the SORT and must be described using an FD entry in FILE SECTION and SELECTclause in FILE CONTROL.file-3 is the out file from the SORT and must be described using an FD entry in FILE SECTION and SELECTclause in FILE CONTROL.file-1, file-2 & file-3 should n

16、ot 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：怎么

17、在一個COBOL程序中排序？給出排序文件的定義，排序語法和意思A：語法就是SORT file-1 ON ASCENDING/DESCENDING KEY key. USING file-2 GIVING file-3.USING后程序的輸入接口，這個地方可以替換成一個輸出過程，也就是說寫一個過程往USING這個接口中導數據（要在這個過程中READ，AT END，），這個過程在將數據釋放到執(zhí)行排序的文件中之前執(zhí)行，GIVING后是輸出借口，用法類似。此例中輸入文件是file-2輸出文件是file3(這樣個文件必須在文件區(qū)中用FD和在文件控制中用到SELECT)真正執(zhí)行排序的file-1，這里需要

18、注意的是file-1中的文件區(qū)不能用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 databeing sorted, but a minimum of 3 is required.Q：怎么在JCL中定義一個排序文件來跑

19、這個COBOL程序A：用SORTWK01, SORTWK02,.作為DATA SET NAME。用多少取決于你要排序的數量，但是至少3個。Q17) What is the difference between performing a SECTION and a PARAGRAPH? - GSA17) Performing a SECTION will cause all the paragraphs that are part of the section, to be performed.Performing a PARAGRAPH will cause only that paragra

20、ph to be performed.Q：執(zhí)行一個區(qū)和一個段有什么區(qū)別A：簡單來說的話就是區(qū)的概念比段大，執(zhí)行一個區(qū)就要執(zhí)行其內部所有段，執(zhí)行段的話只執(zhí)行該段。Q18) What is the use of EVALUATE statement? - GSA18) Evaluate is like a case statement and can be used to replace nested Ifs. The difference between EVALUATE andcase is that no break is required for EVALUATE i.e. control

21、 comes out of the EVALUATE as soon as one match ismade.Q：EVALUATE語句有什么作用A：EVALUATE就象個CASE語句（多重開關語句，學過C的總知道吧），不同點在于EVALUATE不需要BREAK，一旦匹配就跳出EVALUATE語句了Q19) What are the different forms of EVALUATE statement?A19)EVALUATE EVALUATE SQLCODE ALSO FILE-STATUSWHEN A=B AND C=D WHEN 100 ALSO 00imperative stmt

22、imperative stmtWHEN (D+X)/Y = 4 WHEN -305 ALSO 32imperative stmt imperative stmtWHEN OTHER WHEN OTHERimperative stmt imperative stmtEND-EVALUATE END-EVALUATEEVALUATE SQLCODE ALSO A=B EVALUATE SQLCODE ALSO TRUEWHEN 100 ALSO TRUE WHEN 100 ALSO A=Bimperative stmt imperative stmtWHEN -305 ALSO FALSE WHE

23、N -305 ALSO (A/C=4)imperative stmt imperative stmtEND-EVALUATE END-EVALUATEQ20) How do you come out of an EVALUATE statement? - GSA20) After the execution of one of the when clauses, the control is automatically passed on to the next sentence after theEVALUATE statement. There is no need of any extr

24、a 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 t

25、erminator 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? - GSA23) PERFORM END-PERFORMQ：怎么使用內嵌的PERFORMA：PERFORM END-PERFORM所謂內嵌也就是PERFORM被嵌在

26、某些比如循環(huán)語句中擔當執(zhí)行主體，同時通過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 a

27、nd usePERFORM Para name rather than in-line perform.Q：什么時候使用內嵌式PERFORMA：當該段PERFORM的內容不被其他段用到，只在某些局部代碼中（當然PERFORM的主體所用到的參數也都是局部的，例如循環(huán)）使用，如果 PERFORM主體的代碼是一般的（用到了別的程序段的變量），還是使用PERFORM Para name這樣的形式比較好（也就是相對與內于PERFORM的外部PERFORM）。Q25) What is the difference between CONTINUE & NEXT SENTENCE ?A25) The

28、y appear to be similar, that is, the control goes to the next sentence in the paragraph. But, Next Sentence wouldtake the control to the sentence after it finds a full stop (.). Check out by writing the following code example, one ifsentence followed by 3 display statements (sorry they appear one li

29、ne here because of formatting restrictions) If 1 > 0then next sentence end if display line 1 display line 2. display line 3. * Note- there is a dot (.) only at the end ofthe last 2 statements, see the effect by replacing Next Sentence with Continue *Q：CONTINUE 和 NEXT SENTENCE有什么不同A：兩者比較相似，都是將程序控制

30、權交給下一句，但是用NEXT SENTENCE的時候，只有當碰到句結束符（就是句末的.）才會將執(zhí)行下句這道題我用了2個例子測試了一下：1：IF TEST-NUMERIC > 0THEN NEXT SENTENCEEND-IFDISPLAY LINE1 DISPLAY LINE2. DISPLAY LINE3.（請注意代碼中的.號）結果輸出：LINE32：IF TEST-NUMERIC > 0THEN CONTINUEEND-IFDISPLAY LINE1 DISPLAY LINE2. DISPLAY LINE3.結果輸出：LINE1LINE2LINE3相信已經區(qū)別已經比較明顯了，N

31、EXT 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 PROGRAMEQ27) Can I redefine an X(100) field with a field of X(200)?A2

32、7) 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 whileDISPLAY WS-TOP-RED will show 12.Q：能不能把X（100）的區(qū)域重定義成X（200）A：可以，重定義只是相當于把兩個區(qū)域的首地址放在一起，從上面這個例子也很好理解

33、A28) Can I redefine an X(200) field with a field of X(100) ?Q31)1 Yes.Q：能不能把X（200）的區(qū)域重定義成X（100）A：可以，原因同上Q31)2 What do you do to resolve SOC-7 error? - GSQ31) Basically you need to correcting the offending data. Many times the reason for SOC7 is an un-initialized numeric item.Examine that possibility

34、 first. Many installations provide you a dump for run time abends ( it can be generated alsoby calling some subroutines or OS services thru assembly language). These dumps provide the offset of the lastinstruction at which the abend occurred. Examine the compilation output XREF listing to get the ve

35、rb and the linenumber of the source code at this offset. Then you can look at the source code to find the bug. To get capture theruntime dumps, you will have to define some datasets (SYSABOUT etc ) in the JCL. If none of these are helpful, usejudgement and DISPLAY to localize the source of error. So

36、me installation might have batch program debuggingtools. Use them.Q：怎么解決SOC-7錯誤A：基本上你要看一下一些比較奇怪的數據，很多導致SOC7的原因都是因為數據項的初始化。首先檢查所有的可能性。某些功能可能提供一個空間用來存貯那些運行時間ABEND，并且提供最近一次運行時間ABEND的偏移量的說明（也就是位于隊列中的位置），檢查編譯器的輸出XREF隊列以獲得一些關鍵字。然后你就能看下源代碼找出BUG。為了捕獲一些運行時間的信息，你需要在JCL中建一個 DATASET（象SYSABOUT這樣的），如果這些都沒用，那么再審查一

37、下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 ni

38、bble (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：在內部十進制區(qū)域和顯示十進制區(qū)域符號是怎么存貯的A：內部十進制是一個數字占4位（半字節(jié)），內存中用16進制來存，最后在追加4位作為符號，如-4=01001101（末尾的1101表示負，1100表示正），而我們用于顯示的十進制，符號并不占空間，只是在最后一位上標識一下Q33) How is sign stored in a co

39、mp-3 field? - GSQ33) It is stored in the last nibble. For example if your number is +100, it stores hex 0C in the last byte, hex 1C ifyour number is 101, hex 2C if your number is 102, hex 1D if the number is -101, hex 2D if the number is -102 etcQ：COMP-3區(qū)怎么存儲符號A：COMP-3采用的是內部十進制的存儲方式，所謂內部十進制就是壓縮式的外部十

40、進制存儲方式，上題講過外部十進制每個數值都用1個字節(jié)存儲，但前4位是存符號的，這樣比較浪費存儲空間，所以內部十進制的存儲方式就用半個字節(jié)（4位）存儲一個數字，在最后增加4位作為符號（1100（C）為正，1101（D）為負）Q34) How is sign stored in a COMP field ? - GSQ34) In the most significant bit. Bit is ON if -ve, OFF if +ve.Q：COMP區(qū)怎么存儲符號A：COMP是采用定點二進制的方式存儲數據，也就是將一個十進制的數值轉化成二進制再進行存儲，因為機器存儲的形式也是二進制，所以定點二進

41、制的讀取是最快速的，因為COMP型的數據是用做計算（也就是說不用再轉化成十進制打?。褂枚c二進制將會非常高效。這樣的存儲方式符號是保存在最高有效果位上，如：10=（00001010）?，-10=（00011010）?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什么區(qū)別A：這之前講過了，COMP采用定點二進制存儲，COMP-3采用內部十進制存儲Q36)

42、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-2A：其實之所以定義計算型數據（COMPCOMP-3）以區(qū)別DISPLAY（能計算，但是要用于打?。┦菫榱丝紤]效率，因為大家知道文件導入（也就是 USER使用的數據）一般是十進制的，而機器存儲都是二進制，那么當定義的數據光用來計算不用打印，處于效率考慮會把它定義成COMP型，當然就會

43、衍生出幾類COMP以適應不用的數據類型的存儲。很明顯，這里COMP-1就是采用內部短浮點（4個字節(jié)表示一個數，8位指數部分，24位表示數字部分），COMP-2用內部長浮點型（8個字節(jié)表示一個書，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描述，因為是確定分配多

44、少內存的，直接用USAGE，如01 WS-VAR USAGE COMP-1Q38) 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 thisexample.Q：一個S9（7）的COMP-3型占用多少字節(jié)？A：占用4字節(jié)。COMP-3用內部十進制存儲，S9（7）中的S是要占空間的，符號占4位，7個數字，每個4位（

45、半個字節(jié)），所以是（4+7*4）/8=4字節(jié)（字節(jié)和位的比例不要搞錯了哦）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區(qū)域占多少字節(jié)A：這里是每個符號單獨分配空間（也就是沒個數值用1個字節(jié)表示，就象最常用的DISPLAY型的分配方式），算上S的空間，所以是7+1=8字節(jié)。一般情況省略的SIGN子句都是隱含SIGN IS TRAILING

46、的Q40) How many bytes will a S9(8) COMP field occupy ?Q40) 4 bytes.Q： 一個S9(8) COMP 區(qū)域占多少字節(jié)A：如果之前關于COMP的解釋聽懂了的話，那很顯然就是4字節(jié)了（定點二進制用2字節(jié)存儲14，4字節(jié)存儲59，類推，你可以自己推下），如果這塊還不懂的可以問我或者查下書Q41) What is the maximum value that can be stored in S9(8) COMP?Q41) 99999999Q：S9（8）COMP型最多存儲的最大值是什么A：除了8個數值外不要忽略符號位Q42) What is

47、 COMP SYNC?Q42) Causes the item to be aligned on natural boundaries. Can be SYNCHRONIZED LEFT or RIGHT. For binary dataitems, the address resolution is faster if they are located at word boundaries in the memory. For example, on mainframe the memory word size is 4 bytes. This means that each word wi

48、ll start from an address divisible by 4. If myfirst variable is x(3) and next one is s9(4) comp, then if you do not specify the SYNC clause, S9(4) COMP will startfrom byte 3 ( assuming that it starts from 0 ). If you specify SYNC, then the binary data item will start from address 4.You might see som

49、e wastage of memory, but the access to this computational field is faster.Q：COMP SYNC是什么A：使數據項按“自然邊界”排列。SYNCHRONIZED（簡寫SYNC）語句是同步安置語句。不同的機器會有一個機器字的概念（以一個WORD四個字節(jié)舉例，這個數字因機器各異，但往往是四個字節(jié)），兩個機器字之間就是這里說的“自然邊界”，也就是說機器每次從內存中取出二個字節(jié)長度的數據，但是一個數據項中含有的數值可能跨越幾個機器字或者未填滿機器字，這樣連續(xù)讀取雖然比較省空間，但是要引用某些機器字的時候要把多個拿出來重新組織（因為

50、一個數值可能跨越多個數據字，也可能未滿，機器就要判斷一個機器字中哪些是前一個數值哪些是下個數值）。如果向左對齊的話就是想左“自然邊界”靠，也就是說未滿一個數據字的用空格（對非數字項）或者零（數字項）填充，填充部分不能插入其他數據項的內容，同理向右對齊就是向機器字的右“自然邊界”靠，類似的在左邊的空余部分填充。按照自然邊界存儲相當與犧牲空間換取時間，存取效率，系統(tǒng)讀取的機器字兩段填充區(qū)域（0或者SPACE）之間就是一個數值，效率很高。Q43) What is the maximum size of a 01 level item in COBOL I? in COBOL II?Q43) In C

51、OBOL II: 16777215Q：COBOL1定義的01層最大大小是多少，COBOL II中？A：COBOL II中是16777215，沒什么說的，自己翻書Q44) How do you reference the following file formats from COBOL programs:Q44)Fixed Block File - Use ORGANISATION IS SEQUENTIAL. Use RECORDING MODE IS F,BLOCK CONTAINS 0 .Fixed Unblocked - Use ORGANISATION IS SEQUENTIAL.

52、Use RECORDING MODE IS F,do not use BLOCK CONTAINSVariable Block File - Use ORGANISATION IS SEQUENTIAL. Use RECORDING MODE IS V, BLOCKCONTAINS 0. Do not code the 4 bytes for record length in FD ie JCL rec length will be max rec length in pgm + 4Variable Unblocked - Use ORGANISATION IS SEQUENTIAL. Use

53、 RECORDING MODE IS V, do not useBLOCK CONTAINS. Do not code 4 bytes for record length in FD ie JCL rec length willbe max rec length in pgm + 4.ESDS VSAM file - Use ORGANISATION IS SEQUENTIAL.KSDS VSAM file - Use ORGANISATION IS INDEXED, RECORD KEY IS, ALTERNATE RECORD KEY IS RRDS File - Use ORGANISA

54、TION IS RELATIVE, RELATIVE KEY ISPrinter File - Use ORGANISATION IS SEQUENTIAL. Use RECORDING MODE IS F, BLOCKCONTAINS 0. (Use RECFM=FBA in JCL DCB).Q：COBOL中如何涉及（引用調用）以下這些文件A： 文件類型 這里是COBOL在文件控制區(qū)中的文件組織訪問形式（SELECT下面那句）這里最好翻翻書或者事例代碼反復記憶定長文件 用 ORGANISATION IS SEQUENTIAL. Use RECORDING MODE IS F, BLOCK

55、CONTAINS 0固定但是不是以塊的組織形式 用 ORGANISATION IS SEQUENTIAL. Use RECORDING MODE IS F, 不要使用BLOCK CONTAINS（因為不是以塊的組織形式）變長文件 用 ORGANISATION IS SEQUENTIAL. Use RECORDING MODE IS V，BLOCK ，CONTAINS 0.在之后的文件區(qū)中的文件描述FD中不要編碼記錄長度為4字節(jié)變長但是不是以塊的組織形式 用 ORGANISATION IS SEQUENTIAL. Use RECORDING MODE IS V，同樣不要使用BLOCK CONTA

56、INS也不要編碼記錄長度為4字節(jié)（原因同上）ESDS VSAM文件 用ORGANISATION IS SEQUENTIALKSDS VSAM文件 用ORGANISATION IS INDEXED, RECORD KEY IS, ALTERNATE RECORD作為關鍵字的RRDS文件 用ORGANISATION IS RELATIVE, RELATIVE KEY IS打印文件 用ORGANISATION IS SEQUENTIAL. Use RECORDING MODE IS F, BLOCK CONTAINS 0. (Use RECFM=FBA in JCL DCB)PS：這道題是闡述COB

57、OL怎么調用外部的各種文件，在文件控制區(qū)以及文件區(qū)中要定義的一些關鍵字，有我們最熟悉的FB（定長）和VB（變長）（當然我們的前提是這兩類都是以BLOCK（塊）為單位的）但是也有不為我們所知的文件類型（可能出現的情況很少，但是也確實存在，比如編譯出的MODULE放的 LOAD必須是V文件（文件組織形式是V）當然在不寫ORGANISATION這些關鍵字的時候都是默認為FB的，但是在處理一些復雜數據（比如 VSAM數據）還有和外部文件（比如JCL）的連接的時候這些保留字都是要指定的，關于更具體的還是要翻書加強記憶Q45) What are different file OPEN modes available in COBOL?Q45) Open for INPUT, OUTPUT, I-O, EXTEND.Q：COBOL中有哪些OPEN方式A：有INPUT，OUTPUT，I-O，EXTEND這些OPEN模式Q46) What is the mode in which you will OPEN a file for writing? - GSQ46) OUTPUT, EXTENDQ：當你想OPEN一個文件用來寫入的時候，這屬于什么方式A：OUTPUT，EX