COBOL题.docx
《COBOL题.docx》由会员分享,可在线阅读,更多相关《COBOL题.docx(45页珍藏版)》请在冰豆网上搜索。
COBOL题
COBOL&COBOLII
Q1)NamethedivisionsinaCOBOLprogram?
.
A1)IDENTIFICATIONDIVISION,ENVIRONMENTDIVISION,DATADIVISION,PROCEDUREDIVISION.
Q:
列举COBOL的DEVISION
A:
标识部,环境部,数据部,过程部
Q2)WhatarethedifferentdatatypesavailableinCOBOL?
A2)Alpha-numeric(X),alphabetic(A)andnumeric(9).
Q:
COBOL有哪些可用的数据类型
A:
字符型(这里指的是包含字母和数字),字母型,数字型
Q3)WhatdoestheINITIALIZEverbdo?
-GS
A3)Alphabetic,Alphanumericfields&alphanumericediteditemsaresettoSPACES.Numeric,NumericediteditemssettoZERO.FILLER,OCCURSDEPENDINGONitemsleftuntouched.
Q:
INITIALIZE这个词做了些什么
A:
将字母,字符,数字区域都置成空格(置空),将数字区置0,FILLER和OCCURSDEPENDINGON项不处理
Q4)Whatis77levelusedfor?
A4)Elementarylevelitem.Cannotbesubdivisionsofotheritems(cannotbequalified),norcantheybesubdividedthemselves.
Q:
77层有什么作用
A:
基本层数据项,不能用做细分别的层,也不能被细分
Q5)Whatis88levelusedfor?
A5)Forconditionnames.
Q:
88层有什么作用
A:
条件逻辑层
Q6)Whatislevel66usedfor?
A6)ForRENAMESclause.
Q:
66层有什么作用
A:
重命名层
Q7)WhatdoestheISNUMERICclauseestablish?
A7)ISNUMERICcanbeusedonalphanumericitems,signednumeric&packeddecimalitemsandunsignednumeric&packeddecimalitems.ISNUMERICreturnsTRUEiftheitemonlyconsistsof0-9.However,iftheitembeingtestedisasigneditem,thenitmaycontain0-9,+and-.
Q:
ISNUMERIC这个子句怎么确定(也就是说确定句子的真值)
A:
ISNUMERIC用在字符项,带符号数字,浮点数,不带符号数。
如果目标项只含0~9则返回TRUE。
但是,如果待测项目是个带符号数,那么他就含有0-9还有+和-
Q8)Howdoyoudefineatable/arrayinCOBOL?
A8)ARRAYS.
05ARRAY1PICX(9)OCCURS10TIMES.
05ARRAY2PICX(6)OCCURS20TIMESINDEXEDBYWS-INDEX
Q:
COBOL中怎么建表/数组
A:
如上.
Q9)CantheOCCURSclausebeatthe01level?
A9)No.
Q:
OCCURS子句能用在第一层吗
A:
不能
Q10)Whatisthedifferencebetweenindexandsubscript?
-GS
A10)Subscriptreferstothearrayoccurrencewhileindexisthedisplacement(innoofbytes)fromthebeginningofthe
array.AnindexcanonlybemodifiedusingPERFORM,SEARCH&SET.Needtohaveindexforatableinorderto
useSEARCH,SEARCHALL.
Q:
索引和下标有什么区别
A:
下标可以指定数组中任意中位置的元素(只要知道其下标),下标只能是数字型常量或者数字型变量(但是不能在指定的时候修改,如:
A(K+1)这样是不行的,要修改的话要在指定的外部改,如:
ADD1TOK,而索引的话是从表头/数组头开始检索(以BYN的指定检索规律往后滚)
再者,索引只能通过PERFORM,SEARCH和SET来修改,如果要在一个表中使用SEARCH,SEARCHALL,那这个表就要有索引(因为SEARCH,SEARCHALL的参数中指定索引,所以即使其有很多限制还是得用它)
Q11)WhatisthedifferencebetweenSEARCHandSEARCHALL?
-GS
A11)SEARCH-isaserialsearch.
SEARCHALL-isabinarysearch&thetablemustbesorted(ASCENDING/DESCENDINGKEYclausetobeused&dataloadedinthisorder)beforeusingSEARCHALL.
Q:
SERACH和SERACHALL有什么区别
A:
SEARCH是顺序查找
SERACHALL是2叉查找(相信数据结构学过2叉树的都不会陌生),在使用SEARCHALL前表必须有一个递增/递减的KEY,并且表已经按照其KEY值排序了,这样才能使用SEARCHALL
Q12)WhatshouldbethesortingorderforSEARCHALL?
-GS
A12)ItcanbeeitherASCENDINGorDESCENDING.ASCENDINGisdefault.Ifyouwantthesearchtobedoneonan
arraysortedindescendingorder,thenwhiledefiningthearray,youshouldgiveDESCENDINGKEYclause.(You
mustloadthetableinthespecifiedorder).
Q:
为了使用SEARCHALL,存贮顺序是怎么样的
A:
他必须是递增或者是递减的,默认地政。
如果你想在一个递减顺序存贮的表/数组使用搜索的话,那么当定义表/数组的时候你应该加一个DESCENDINGKEY子句(这之前表要已经按指定的顺序排序了)
Q13)Whatisbinarysearch?
A13)Searchonasortedarray.Comparetheitemtobesearchedwiththeitematthecenter.Ifitmatches,fineelserepeattheprocesswiththelefthalfortherighthalfdependingonwheretheitemlies.
Q:
什么是2叉查找
A:
将你要找的目标项与数组的正中项比较,找到就结束搜索,没找到则继续如此循环(比较下一个中值),取哪一半取决于目标值大于中值还是小于中值
PS:
联想2叉树的查找规律就很好理解,因为所谓的“表“本身也就是数组
Q14)Myprogramhasanarraydefinedtohave10items.Duetoabug,Ifindthateveniftheprogramaccessthe
11thiteminthisarray,theprogramdoesnotabend.Whatiswrongwithit?
A14)MustusecompileroptionSSRANGEifyouwantarrayboundschecking.DefaultisNOSSRANGE.
Q:
我的程序有个数组定义了10项。
因为有个BUG,我发现即使访问第11项,程序也不异常终止。
那是出了什么问题
A:
必须使用编译器的一个选项SSRANGE,如果你想检查数组的超界问题。
默认是NOSSRANGE
Q15)HowdoyousortinaCOBOLprogram?
Givesortfiledefinition,sortstatementsyntaxandmeaning.-GS
A15)Syntax:
SORTfile-1ONASCENDING/DESCENDINGKEYkey....USINGfile-2GIVINGfile-3.
USINGcanbesubstitutedbyINPUTPROCEDUREISpara-1THRUpara-2
GIVINGcanbesubstitutedbyOUTPUTPROCEDUREISpara-1THRUpara-2.
file-1isthesort(work)fileandmustbedescribedusingSDentryinFILESECTION.
file-2istheinputfilefortheSORTandmustbedescribedusinganFDentryinFILESECTIONandSELECT
clauseinFILECONTROL.
file-3istheoutfilefromtheSORTandmustbedescribedusinganFDentryinFILESECTIONandSELECT
clauseinFILECONTROL.
file-1,file-2&file-3shouldnotbeopenedexplicitly.
INPUTPROCEDUREisexecutedbeforethesortandrecordsmustbeRELEASEdtothesortworkfilefromtheinputprocedure.
OUTPUTPROCEDUREisexecutedafterallrecordshavebeensorted.RecordsfromthesortworkfilemustbeRETURNedoneatatimetotheoutputprocedure.
Q:
怎么在一个COBOL程序中排序?
给出排序文件的定义,排序语法和意思
A:
语法就是SORTfile-1ONASCENDING/DESCENDINGKEYkey....USINGfile-2GIVINGfile-3.
USING后程序的输入接口,这个地方可以替换成一个输出过程,也就是说写一个过程往USING这个接口中导数据(要在这个过程中READ,ATEND,……),这个过程在将数据释放到执行排序的文件中之前执行,GIVING后是输出借口,用法类似。
此例中输入文件是file-2输出文件是file3(这样个文件必须在文件区中用FD和在文件控制中用到SELECT)真正执行排序的file-1,这里需要注意的是file-1中的文件区不能用FD,应该用SD,file-2和3还是一样(用FD),具体可以看一下书上的例子
Q16)HowdoyoudefineasortfileinJCLthatrunstheCOBOLprogram?
A16)UsetheSORTWK01,SORTWK02,.....ddnamesinthestep.Numberofsortdatasetsdependsonthevolumeofdata
beingsorted,butaminimumof3isrequired.
Q:
怎么在JCL中定义一个排序文件来跑这个COBOL程序
A:
用SORTWK01,SORTWK02,.....作为DATASETNAME。
用多少取决于你要排序的数量,但是至少3个。
Q17)WhatisthedifferencebetweenperformingaSECTIONandaPARAGRAPH?
-GS
A17)PerformingaSECTIONwillcausealltheparagraphsthatarepartofthesection,tobeperformed.
PerformingaPARAGRAPHwillcauseonlythatparagraphtobeperformed.
Q:
执行一个区和一个段有什么区别
A:
简单来说的话就是区的概念比段大,执行一个区就要执行其内部所有段,执行段的话只执行该段。
Q18)WhatistheuseofEVALUATEstatement?
-GS
A18)EvaluateislikeacasestatementandcanbeusedtoreplacenestedIfs.ThedifferencebetweenEVALUATEand
caseisthatno'break'isrequiredforEVALUATEi.e.controlcomesoutoftheEVALUATEassoonasonematchis
made.
Q:
EVALUATE语句有什么作用
A:
EVALUATE就象个CASE语句(多重开关语句,学过C的总知道吧),不同点在于EVALUATE不需要BREAK,一旦匹配就跳出EVALUATE语句了
Q19)WhatarethedifferentformsofEVALUATEstatement?
A19)
EVALUATEEVALUATESQLCODEALSOFILE-STATUS
WHENA=BANDC=DWHEN100ALSO'00'
imperativestmtimperativestmt
WHEN(D+X)/Y=4WHEN-305ALSO'32'
imperativestmtimperativestmt
WHENOTHERWHENOTHER
imperativestmtimperativestmt
END-EVALUATEEND-EVALUATE
EVALUATESQLCODEALSOA=BEVALUATESQLCODEALSOTRUE
WHEN100ALSOTRUEWHEN100ALSOA=B
imperativestmtimperativestmt
WHEN-305ALSOFALSEWHEN-305ALSO(A/C=4)
imperativestmtimperativestmt
END-EVALUATEEND-EVALUATE
Q20)HowdoyoucomeoutofanEVALUATEstatement?
-GS
A20)Aftertheexecutionofoneofthewhenclauses,thecontrolisautomaticallypassedontothenextsentenceafterthe
EVALUATEstatement.Thereisnoneedofanyextracode.
Q:
怎么跳出一条EVALUATE语句
A:
象18题目说的那样,一旦匹配了某一个“WHEN“语句就自动跳出了,不需要什么额外的代码来跳出
Q21)InanEVALUATEstatement,canIgiveacomplexconditiononawhenclause?
A21)Yes.
Q:
在一个EVALUATE语句的某个WHEN分支中能否再插入复杂的情况(也就是嵌套)
A:
当然可以,当多个参数作为控制变量的时候1个WHEN内部可以嵌套更多的情况
Q22)Whatisascopeterminator?
Giveexamples.
A22)Scopeterminatorisusedtomarktheendofaverbe.g.EVALUATE,END-EVALUATE;IF,END-IF.
Q:
什么是结束终止符
A:
结束终止符是搭配一些范围指令的,也就是标识一些范围指令的结束。
如:
EVALUATE,END-EVALUATE;IF,END-IF如果没有该结束符,该条语句将终止不了
Q23)Howdoyoudoin-linePERFORM?
-GS
A23)PERFORM......
END-PERFORM
Q:
怎么使用内嵌的PERFORM
A:
PERFORM......
END-PERFORM
所谓内嵌也就是PERFORM被嵌在某些比如循环语句中担当执行主体,同时通过UNTIL来指定结束判定
Q24)Whenwouldyouusein-lineperform?
A24)Whenthebodyoftheperformwillnotbeusedinotherparagraphs.Ifthebodyoftheperformisagenerictypeofcode
(usedfromvariousotherplacesintheprogram),itwouldbebettertoputthecodeinaseparateParaanduse
PERFORMParanameratherthanin-lineperform.
Q:
什么时候使用内嵌式PERFORM
A:
当该段PERFORM的内容不被其他段用到,只在某些局部代码中(当然PERFORM的主体所用到的参数也都是局部的,例如循环)使用,如果PERFORM主体的代码是一般的(用到了别的程序段的变量),还是使用PERFORMParaname这样的形式比较好(也就是相对与内于PERFORM的外部PERFORM)。
Q25)WhatisthedifferencebetweenCONTINUE&NEXTSENTENCE?
A25)Theyappeartobesimilar,thatis,thecontrolgoestothenextsentenceintheparagraph.But,NextSentencewould
takethecontroltothesentenceafteritfindsafullstop(.).Checkoutbywritingthefollowingcodeexample,oneif
sentencefollowedby3displaystatements(sorrytheyappearonelineherebecauseofformattingrestrictions)If1>0
thennextsentenceendifdisplay'line1'display'line2'.display'line3'.***Note-thereisadot(.)onlyattheendof
thelast2statements,seetheeffectbyreplacingNextSentencewithContinue***
Q:
CONTINUE和NEXTSENTENCE有什么不同
A:
两者比较相似,都是将程序控制权交给下一句,但是用NEXTSENTENCE的时候,只有当碰到句结束符(就是句末的‘.’)才会将执行下句
这道题我用了2个例子测试了一下:
1:
IFTEST-NUMERIC>0
THENNEXTSENTENCE
END-IF
DISPLAY'LINE1'DISPLAY'LINE2'.DISPLAY'LINE3'.(请注意代码中的‘.’号)
结果输出:
LINE3
2:
IFTEST-NUMERIC>0
THENCONTINUE
END-IF
DISPLAY'LINE1'DISPLAY'LINE2'.DISPLAY'LINE3'.
结果输出:
LINE1
LINE2
LINE3
相信已经区别已经比较明显了,NEXTSENTENCE是靠句末的结束符(也就是‘.‘)来判断下一句的,而CONTINUE是通过句头的保留字(这例中是DISPLAY)来判断下一句的
Q26)WhatdoesEXITdo?
A26)Doesnothing!
Ifused,mustbetheonlysentencewithinaparagraph.
Q:
EXIT语句有什么作用
A:
什么都不做,如果用到的话,肯定是作为一段的唯一的一句话,注意:
这里不是子程序中用的EXITPROGRAME
Q27)CanIredefineanX(100)fieldwithafieldofX(200)?
A27)Yes.Redefinesjustcausesbothfieldstostartatthesamelocation.Forexample:
01WS-TOPPICX
(1)
01WS-TOP-REDREDEFINESWS-TOPPICX
(2).
IfyouMOVE'12'toWS-TOP-RED,
DISPLAYWS-TOPwillshow