What is COMP-1? COMP-2?
Answers were Sorted based on User's Feedback
Answer / mahathiaz
COMP-1 - Single precision floating point. Uses 4 bytes.
COMP-2 - Double precision floating point. Uses 8 bytes
| Is This Answer Correct ? | 19 Yes | 0 No |
Answer / karan
comp-1 is single floatig item where as
comp-2 is double floating item.
comp-1,comp-2 we are not using pic clause.
| Is This Answer Correct ? | 5 Yes | 0 No |
Answer / purushothr
comp 1:single precision floating point//4 bytes
comp 2:double precision floating point//8 bytes
| Is This Answer Correct ? | 2 Yes | 0 No |
Answer / jay
COMP1 - Single precision floating point. Uses 4 bytes.
COMP2 - Double precision floating point. Uses 8 bytes
| Is This Answer Correct ? | 0 Yes | 0 No |
Which of the following paragraphs is compulsory in every COBOL program? (a) SPECIAL-NAMES (b) PROGRAM-ID (c) FILE-CONTROL (d) OBJECT-COMPUTER
What is the different between index and subscript?
what is the result of the following? DIVIDE A INTO B GIVING C. a.C=A/B b.the reminder of B/A is stored in C c.C=B/A d.the reminder of A/B is stored in C
How can i write a comp-3 variable into a sequential file should i declara the field in the file description as comp- 3?
what is the purpose of linkage section?
How do you come out of an EVALUATE statement?
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.
how many bytes do SPPPP999 will store?
Give some examples of command terminators?
How to remove 2 duplicate records and copy only one using job control language?
what is jcl approach for programming?
What are the different ways to run a COBOL DB2 program using JCL?