01 VAR1 PIC 9(2).
01 VAR2 PIC X(2).
MOVE VAR2 TO VAR1.
if i give 'PI' in var2 then what will b output of progr.
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):
MOVE 0 TO I.
OPEN INPUT FILE-1.
IF CHECK-KEY1 > 0
DISPLAY "OPEN ERROR FOR FILE-1, CODE IS:" CHECK-KEY1
OPEN EXTEND NEWFILE-1
IF CHECK-KEY3 > 0
DISPLAY "OPEN ERROR FOR NEWFILE-1 COD IS" CHECK-KEY3
PERFORM READ-PARA THRU EXIT-PARA UNTIL EOF-REC = 'YES'.
DISPLAY " FINALLY OUT OF LOOP"
ADD 1 TO I
AT END MOVE 'YES' TO EOF-REC
IF I > 3 AND < 10
DISPLAY "NOT IN RANGE"
WRITE NEW-REC FROM FILE1-REC.
I have a following requirement to write the cobol program.
I have to load the 129 variables from input sequential file
which are in excel sheet to the cobol inernal table. and
after loading into table i have to compare this data with
the business file. here compare means controlling the data
whether the format(numeric,alpha) is same in the business
file and in the table??? i have the same data in input and
could anyone please give me any idea of the logic?//
i have all the 129 different variables(129rows,1 column)is