COBOL File Processing Position wise
Posted: Sat Jan 05, 2013 12:53 am
Hi,
Please help me in getting answer for a question related to file processing in a COBOL program and create an output file. Input file has 10 message fields, i need to write an output records for 5 message. i.e. if file has data for only message1 field then need to write one o/p records, if file has data for message1,message2 then need to write two o/p records and so on. means everytime i need to check whether multiple error messages present or not. in detail-
if Record has multiple Error messages then we have to check and process only 1st 5 error messages
I. For first error message, i need to write source, Account No, id,ccode,message1 to the o/p file.
II. For subsequent 5 error messages, need to write only the error message on the next line leaving the other fields (source, account nu, ID, ccode) blank.
my input file layout is -
source x(3)
Account number length x(15)
id length x(8)
ccode x(3)
message1 x(30)
message2 x(30)
message3 x(30)
message4 x(30)
message5 x(30)
message6 x(30)
message7 x(30)
message8 x(30)
message9 x(30)
message10 x(30)
Please help me in getting answer for a question related to file processing in a COBOL program and create an output file. Input file has 10 message fields, i need to write an output records for 5 message. i.e. if file has data for only message1 field then need to write one o/p records, if file has data for message1,message2 then need to write two o/p records and so on. means everytime i need to check whether multiple error messages present or not. in detail-
if Record has multiple Error messages then we have to check and process only 1st 5 error messages
I. For first error message, i need to write source, Account No, id,ccode,message1 to the o/p file.
II. For subsequent 5 error messages, need to write only the error message on the next line leaving the other fields (source, account nu, ID, ccode) blank.
my input file layout is -
source x(3)
Account number length x(15)
id length x(8)
ccode x(3)
message1 x(30)
message2 x(30)
message3 x(30)
message4 x(30)
message5 x(30)
message6 x(30)
message7 x(30)
message8 x(30)
message9 x(30)
message10 x(30)