Interested to Buy Any Domain ? << Click Here >> for more details...
if we display var1 then what will b displayed in below
condition.
77 var1 pic s9(2) value -10.
77 var1 pic s9(2) value -11.
" " " -12.
" " " -13.
-14
...
...
-19.
- 2 Answers
- 6667 Views
- IBM, Steria, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / s
It will give Compilation error as the variable is not
uniquely defined
| Is This Answer Correct ? | 10 Yes | 0 No |
Answer / piyush mani
u r wrt but if we declare diff var for above values then result will b like
value result
-10 1{
-11 1J
-12 1K
-13 1L
.........
THANKS
| Is This Answer Correct ? | 5 Yes | 1 No |
how do you reference the printer file formats from cobol programs
what are difference organizations in cobol and access mode in cobol? can you expalin what organization means while declaring for ksds,esds,rrds?
what is the diff b/w select stsmt and cursor ?
where did you see the information regarding abend codes in jcl?
What is the difference between a binary search and a sequential search?
what is lrec=f,what is difference between f,fb,v,vb?what is default value?how do we came to know that records are in f,fb,v,vb?
If you were passing a table via linkage, which is preferable - a subscript or an index?
how do u list the abended jobs?
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.
Write a cobol program making use of the redefine clause.
Name the divisions in a COBOL program ?
i need the code for this program in cobol. 2 + 1 = 3 4+3=7 6+5=11 8+7=15 10+9=19
COBOL 
