How to find whether a Flat file is empty or not without
Reading a file in COBOL Program. (not using JCL)
Answer Posted / srini
You can do with IDCAMS. Use input as your file and output
is dummy file and have repro count(1) in sysin dd *, if the
file is empty, you will get condition code 4 otherwise you
will get cc '0'.
| Is This Answer Correct ? | 5 Yes | 5 No |
Post New Answer View All Answers
Explain how you can characterize tables in cobol?
How can you get the ksds file records into your cobol program?
Our issue is there seems to be a disconnect, or no link, between our SELECT statement and our SD. We had SELECT SORT-FILE and SELECT SORT-FILE ASSIGN TO SORTWRK. ASSIGN TO SORTWRK1 SORTWRK2 SORTWRK3 SORTWRK4. with SD SORT_FILE RECORD CONTAINS 7833 CHARACTERS. In either case, at run time, the system ignored our SORTWRK# DD statements and allocated 16 sort works with the SORTWK## naming convention. Any ideas why the system does not recognize the connection? We do not even need the SORTWRK DD statements. Thanks
Which division and paragraphs are mandatory for a COBOL program?
Write a cobol program making use of the redefine clause.
can anybody post me about file-aid and changemen tools pls and give me reference if any mainframe guys are there
What is the difference between structured cobol programming and object alternativelyiented cobol?
Is it possible that the redefines clause has different picture clauses compared to the one it redefined?
What the difference is between continue and next sentence?
here is my requirement A1 is alphanumeric with value 'A1B2C3D4' as defined below 05 A1 PIC X(8) VALUE IS 'A1B2C3D4' but i need to have A2,A3 as ABCD & 1234 repectively...... A2 = ABCD A3 = 1234 Can you please explain me what are the different ways to do it?
) How do u handle errors in BMS macro?
EXPLAIN MAIN FRAME TESTING PROCESS...HOW TO FIX THE MAINFRAME BUGS?
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 ?
Give some examples of command terminators?
How to change size of Initial number of records to *NOMAX for ALL PF files from perticular library, how can I do that