Interested to Buy Any Domain ? << Click Here >> for more details...
What is 77 level used for ?
- 12 Answers
- 65329 Views
- IBM, iGate, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / prakash shrivastava
lEVEL 77 IS ELEMENTARY DATA ITEM.CANNOT BE SUBDIVIDED TO
ANOTHER ITEM NOR THEY CANNOT SUBDIVIDED THEMSELVES.
| Is This Answer Correct ? | 98 Yes | 4 No |
Answer / saugata das
77 level variable is used for independent data item.So,it has no other sub level declaration.
| Is This Answer Correct ? | 29 Yes | 1 No |
Answer / santosh kumar kottakota
When ever we want to declare level number with uniquely,we
use 77 level number...That means,it dnot hae any sub level
numbers...
| Is This Answer Correct ? | 23 Yes | 1 No |
Answer / bhaskar reddy
77 level number used for indipendent items it can't be
subdivided into elementory items.
| Is This Answer Correct ? | 17 Yes | 1 No |
Answer / gadde.mohan krishna
Elementary level item. Cannot be subdivisions of other items
(cannot be qualified), nor can they be subdivided themselves.
| Is This Answer Correct ? | 12 Yes | 8 No |
I have PS flat file with 14 records. I want to read from 4th to 9th record and want to write those 6 records (4th record to 9th record) to another PS file (output file). there is no key defined in the input file. I just want read a certain Consecutive records. can any one please give me the procedure division Coding for this. I have coded the below coding but the READ-PARA is performing only 1 time even though I have 14 records in my input file (i.e FILE-1): PROCEDURE DIVISION. A000-SECTION. MOVE 0 TO I. OPEN INPUT FILE-1. IF CHECK-KEY1 > 0 DISPLAY "OPEN ERROR FOR FILE-1, CODE IS:" CHECK-KEY1 END-IF. OPEN EXTEND NEWFILE-1 IF CHECK-KEY3 > 0 DISPLAY "OPEN ERROR FOR NEWFILE-1 COD IS" CHECK-KEY3 END-IF. PERFORM READ-PARA THRU EXIT-PARA UNTIL EOF-REC = 'YES'. DISPLAY " FINALLY OUT OF LOOP" CLOSE FILE-1 CLOSE NEWFILE-1 STOP RUN. READ-PARA. ADD 1 TO I READ FILE-1 AT END MOVE 'YES' TO EOF-REC IF I > 3 AND < 10 PERFORM WRITE-PARA ELSE DISPLAY "NOT IN RANGE" END-IF. EXIT-PARA. EXIT. WRITE-PARA. WRITE NEW-REC FROM FILE1-REC.
What is 66 level number and where it is used in real time by software developers?
2 Answers ITC Indian Tobacco Company, TCS,
WHAT IS SOC3?HOW IT CAN BE RESOLVED?
can we declare occurs in 01 level?
If we use GO BACK instead of STOP RUN in cobol?
why we are using set in searchall?
What is an index for tables?
what is s013u000 for?
why mainframe we use not like java as frontend oracle as backend. or not word excel.In there also huge ammount data stored.
how to run sub programs using static and dynamic call ...
what is sort? whis is internal & external sort ?when do u go for inter sort & external sort? tell about some sort utilites?
What does EXIT do ?
COBOL 
