can i give 9(10) in comp 3 instead of s9(10) ? if i can give wht would be ths ans
- 2 Answers
- 6459 Views
- DELL, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / m.m.senthil
adding s to 9(10) is nothing but intimating that paticular
value is of signed integer.
| Is This Answer Correct ? | 2 Yes | 1 No |
Explain Restart Logic in Cobol?
is it possible to pass an SQL query inside a jcl which is inside a cobol program?
which is faster either static call or dynamic call ? and specify the reasons for it ? reply fast
What is sqlca and why is it needed in any cobol-db2 program?
how we rectify soc7 and soc4 errors in project?
What is wrong with the following data declaration? 01 W-DATE PIC X(6). 05 DD PIC 99. 05 MM PIC 99. 05 YY PIC 99. (a) Nothing is wrong. (b) Under W-DATE all level 05 items are having a PIC 99 but level 01 has PIC X(6). (c) PIC can't be specified for a group item. (d) DD, MM, and YY are invalid datanames.
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.
Read filea And file b write the same records in both files? Records in a but not in b record in b but not in a
What is a report item?
What is the purpose of Identification Division?
What is an explicit scope terminator?
What is the Purpose of Pointer in the string?
COBOL 
