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

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


Please Help Members By Posting Answers For Below Questions

What are the types of perform?

547


Explain how to detect record is locked in cobol/400? What is the solution for that?

507


Explain the input procedure?

513


How to detect record is locked in cobol/400? What is the solution for that?

505


Explain the difference between section, paragraph and sentences?

493






What are fillers?

505


Explain the output procedure?

554


Explain the types of perform?

506


What is sort? And its syntax?

648


What is the syntax of sort?

522


What is perform?

517


What is input procedure?

560


Explain the syntax of sort?

540


Define perform?

491


What is redefine?

532