How can i change the below code in SQL to cobol/400?
EXEC SQL
SELECT COUNT(*) INTO : WS-COUNT FROM Db file
WHERE Field 1 = : WS-VAR
AND Field 2 = : WS-USERID
END-EXEC
*
EVALUATE TRUE
WHEN SQLCODE = +000
MOVE WS-COUNT TO Copybook field
WHEN SQLCODE = +100
MOVE ZEROES TO Copybook field
- 2 Answers
- 7675 Views
- I also Faced
- E-Mail Answers
Answer Posted / mithun paul
1. Start the DB file with field1 and field2.
2. Read the DB file next record and increase the counter
value.
3. End the process, when end of file reached.
4. Move the counter value to Copybook field.
Mithun Paul
KMG Infotech Ltd., Kolkata
| Is This Answer Correct ? | 4 Yes | 1 No |
Post New Answer View All Answers
What are the types of perform?
What are fillers? What is the actual use of fillers? With mall/simple example?
Explain the difference between comp & comp-3?
What is comp?
Explain the output procedure?
Explain how to convert 2010/02/11 to m/dd/yyy.. With string and without string if any other method... Code?
How to detect record is locked in cobol/400?
Define sort?
Define redefine?
Explain the input procedure?
What is perform?
Explain the difference between search and searchall?
Explain the difference between section, paragraph and sentences?
Explain what all the conditiones required for using open opcode on a file?
What is output procedure?
