01 NAME1 PIC X(13) VALUE "COBOL PROGRAMMING".
01 NAME2 PIC X(13).
now I want to display the value of NAME1 in reverse order
i.e value should be displayed as "GNIMMARGORP LOBOC"
HOW can I do that ??? please let me know if any one knows
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.
How to delete a front spaces in a data-name/variable in
01 data-name-1 PIC x(20) value " cobol language".
01 data-name-2 PIC x(20).
MOVE data-name-1 to data-name-2.
would like the value of data-name-2 is "cobol language".
How to resolve the soc4 & soc7
other than following answers.
Soc4 can resolved using mispleed dd name and dd name is not
matching with file
and soc7 check the sysdump and copy the offest address then
correct it in the program.
IN FILE1 HAVE 80 RECORDS ARE LIKE D1,D2,D3......D80. FILE2 HAVE 1000RECORDS ARE LIKE A1D1,A1D2,A3D3.....etc. I WANT MATCHING RECORDS IN FILE3 ? PLSE TELL ME THE MATCHING LOGIC???I WANT ANSWER ONLY IN COBOL ?NOT USING ANY TOOL OR JCL?
input 1 input2 ouput1 output2 output 3
1 re 300 1 re 200 1 re 300 3 rc 500 1 re 200
2 rr 400 1 re 300 2 rr 400 1 rc 400
3 rc 500 1 rc 400 2 rr 700
2 rr 700 5 tt 900
5 tt 900
2 inputs r in flat file and output 1 is matched
records,ouptput2 is unmatched of input1,output3 is
unmatched of input2! how vl u get the output files using
sequential order and to check with each and every records!
let me know the procedure division ?
I have a File that has duplicate records. I need only those records that occur more than