Interested to Buy Any Domain ? << Click Here >> for more details...
Following questions were asked in Capegemini on 8th sep,2012
mainframe test
1.)Condition code for dul recors in VSAM-
2.) Is NULL or =NULL in Select statement
3.)max size of CI
4.)What happens after CI is full
5.)Ques on COND parameter
6.)which among following can not be rolled back a)delete table
b.)droptable c)Update d.)insert
7.)groupby and orderby sql querries
8.)Max extents in VSAM file
9.)quesn on DPRTY=(1,10)
10.)range of condition codes in COBOL
11.)occurs clase can not be used at which level?
12.)delimiter in jcl
13.)sort card for file in PGM=SORT
14.)PIC(6) value 120056 possible?
15)question on BLKSIZE Is (20,20) and (20,10) possible?
16.)number of bytes in RDF
17.)Can we use index in WS-section or LK-section
18.)Verify command in IDCAMS used for?
19.)question on Alternate Index
20.)Return code of file attribute mismatch
21.)In which format COBOL variables stored?
22.)what is Alternate of HANDLE?
23.)can SUM,AVG,MIN,ROUND used in numeric and char variable
data types?
24.)What is the datatype of FILE STATUS codes in WS-section?
- 2 Answers
- 8958 Views
- Cap Gemini, I also Faced
- E-Mail Answers
Answer Posted / bejjanki
I'm answering those questions which i'm aware.
2) IS NULL is correct
6) Droptable
7) Groupby is used to club rows based on a condition, order
by is used to sort based on a column
8) 123 extents(Non-Contiguous locations)
9) Dprty is used to execute steps based on condition.
Dprty = 1 + (16*10) = 161
10) 0-4095
11) 01 Level
12) Delimiter(/*) is used to tell where our instream ends
13) sort fields=copy
14) There is a syntx error you have mentioned pic(6) here
you are not mentioning the data type..If it is PIc X(6)
Or PIC 9(6) then we can store 120056 in it.
15) Question is not clear
16) 4 bytes
17) We are not supposed to use index in WS or LK section
21) That depends on how u declare. By default it's is
stored in display format(character)
22) Handle? I haven't heard about this
23) It's used in Numeric or alphanumeric not in alphabetic
24) PIC 9(2) I mean 2 bytes
I have answered 15 out of 24...Let me know if you have any
questions - Mail me @ Mainframe.technology@gmail.com
| Is This Answer Correct ? | 2 Yes | 1 No |
Post New Answer View All Answers
What is the local-storage section?
how do you reference the ksds vsam file formats from cobol programs
What is report-item in COBOL?
How to print 10 to 1 if the input have only 10 digit number?
How to traceback if I am getting SOC7 or SOC4 abend? List down the steps
What is amode(31)
How to remove 2 duplicate records and copy only one using job control language?
A table has two indexes defined. Which one will be used by the SEARCH?
What is the utilization of copybook in cobol?
i want to learn mainframe..any websites and material to learn from basic..? my mail id : rajeswaribe2010@gmail.com
How do define dynamic array in cobol. how do you define single dimensional array and multidimensional array in your cobol?
How to remove the spaces at the end of each record in the output file of variable length, via cobol program?
How you can characterize tables in cobol?
IDENTIFICATION DIVISION. PROGRAM-ID. UPDT. AUTHOR.anbu. DATE-WRITTEN. AUG 13. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT CMSTR ASSIGN TO CINP1 ORGANIZATION IS INDEXED ACCESS IS SEQUENTIAL RECORD KEY CM2-KEY FILE STATUS IS WS-CMSTR-FST. SELECT CTAB ASSIGN TO CINP2 ORGANIZATION IS ACCESS IS SEQUENTIAL RECORD KEY VSAM-WHSE- KEY FILE STATUS IS WS-CTAB- FST. DATA DIVISION. FILE SECTION. FD CMSTR. COPY RXCYFC20. FD CTAB. COPY AITYWHSE. ************************************************************ ****** *** WORKING STORAGE VARIABLES *** ************************************************************ ****** WORKING-STORAGE SECTION. 01 WS- VARIABLES. 05 WS-EB PIC X(02) VALUE ZEROES. 05 WS-DIV PIC 9(03) VALUE ZEROES. 05 WS-CMF-RECS-REWRITTEN PIC 9(01) VALUE ZERO. *** FILE STATUS VARIABLES *** 05 WS- FILESTATUS. 10 WS-CMSTR-FST PIC 9(02) VALUE ZEROES. 10 WS-CTAB-FST PIC 9(02) VALUE ZEROES. *** END OF FILE VARIABLES *** 05 WS-CMSTR-EOF PIC X(01) VALUE 'N'. 88 WS-CMSTR-EOF-YES VALUE 'Y'. 88 WS-CMSTR-EOF-NO VALUE 'N'. 05 WS-CTAB-EOF PIC X(01) VALUE 'N'. 88 WS-CTAB-EOF-YES VALUE 'Y'. 88 WS-CTAB-EOF-NO VALUE 'N'. **** ERROR VARIABLES **** 05 WC-ABEND-900 PIC 9(03) VALUE 900. 05 WE-ERR-CODE PIC 9(02) VALUE ZEROES. 05 WE-ABEND-CODE PIC 9(03) VALUE ZEROES. ************************************************************ **** ********* PROCEDURE DIVISON ********** ************************************************************ **** PROCEDURE DIVISION. 0000- BEGIN. PERFORM 1000-INITIALISE THRU 1000- EXIT. PERFORM 2000-PROCESS THRU 2000- EXIT UNTIL WS-CMSTR-EOF- YES. DISPLAY 'WS-CMF-RECS-REWRITTEN :' WS-CMF-RECS- REWRITTEN. PERFORM 5000-CLOSE THRU 5000- EXIT. GOBACK. 0000- EXIT. EXIT. 1000- INITIALISE. OPEN I-O CMSTR. EVALUATE WS-CMSTR- FST WHEN 00 WHEN 97 CONTINUE WHEN OTHER DISPLAY 'ERROR IN READING INPUT FILE: ' DISPLAY WS-CMSTR-FST MOVE WS-CMSTR-FST TO WE-ERR-CODE PERFORM 9999-ABEND-PARA THRU 9999-EXIT END-EVALUATE. OPEN INPUT CTAB. EVALUATE WS-CTAB-FST WHEN 00 WHEN 97 CONTINUE WHEN OTHER DISPLAY 'ERROR IN READING INPUT FILE: ' DISPLAY WS-CTAB-FST MOVE WS-CTAB-FST TO WE-ERR-CODE PERFORM 9999-ABEND-PARA THRU 9999-EXIT END-EVALUATE. 1000-EXIT. EXIT. 2000-PROCESS. READ CMSTR. EVALUATE WS-CMSTR-FST WHEN 00 CONTINUE WHEN 10 SET WS-CMSTR-EOF-YES TO TRUE GO TO 2000-EXIT WHEN OTHER DISPLAY 'ERROR IN READING INPUT FILE: ' DISPLAY WS-CMSTR-FST MOVE WS-CMSTR-FST TO WE-ERR-CODE PERFORM 9999-ABEND-PARA THRU 9999-EXIT END-EVALUATE IF CM2-RECORD-TYPE-SOLD-TO MOVE CM2-ENTERING-BRANCH TO WS-EB PERFORM 3000-READ THRU 3000-EXIT UNTIL WS-CTAB-EOF-YES END-IF. 2000-EXIT. EXIT. 3000-READ. MOVE WS-EB TO VSAM-WHSE-CD. MOVE 'WHSE' TO VSAM-WHSE-ID. READ CTAB. EVALUATE WS-CTAB-FST WHEN 00 MOVE WHSE-DIV-CODE TO WS-DIV PERFORM 4000-REWRITE-CMF THRU 4000-EXIT WHEN 10 SET WS-CTAB-EOF-YES TO TRUE GO TO 3000-EXIT WHEN OTHER DISPLAY 'ERROR IN READING TABLE FILE: ' DISPLAY WS-CTAB-FST MOVE WS-CTAB-FST TO WE-ERR-CODE PERFORM 9999-ABEND-PARA THRU 9999-EXIT END- EVALUATE. 3000- EXIT. EXIT. 4000-REWRITE- CMF. IF WS-DIV = 250 OR 252 MOVE 'F' TO CM2-FREIGHT- TYPE MOVE 1 TO CM2-FREIGHT-THRESHOLD- AMT ADD +1 TO WS-CMF-RECS- REWRITTEN REWRITE CM2-SOLD-TO- RECORD DISPLAY 'RECORD UPDATED' END- IF. * EVALUATE WS-CMSTR- FST * WHEN 00 * CONTINUE * WHEN OTHER * DISPLAY 'FILE NOT UPDATED' * DISPLAY WS-CMSTR- FST * MOVE WS-CMSTR-FST TO WE-ERR-CODE * PERFORM 9999-ABEND-PARA THRU 9999-EXIT * GO TO 4000-EXIT * END-EVALUATE. 4000-EXIT. EXIT. 5000-CLOSE. CLOSE CMSTR CTAB. 5000-EXIT. EXIT. 9999-ABEND-PARA. COMPUTE WE-ABEND-CODE = WC-ABEND-900 + WE-ERR-CODE CALL 'ILBOABN0' USING WE-ABEND-CODE GO TO 5000-CLOSE. 9999-EXIT. EXIT. 5000-CLOSE. CLOSE CMSTR CTAB. 5000-EXIT. EXIT. 9999-ABEND-PARA. COMPUTE WE-ABEND-CODE = WC-ABEND-900 + WE-ERR-CODE CALL 'ILBOABN0' USING WE-ABEND-CODE GO TO 5000-CLOSE. 9999-EXIT. EXIT. //this program is giving maxcc=0, but not updating..
What rules are to be followed while using the corresponding options?
