1. Start the DB file with field1 and field2. 2. Read the DB file next reco

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

Question Posted / mithun paul

2 Answers
8171 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

Please Help Members By Posting Answers For Below Questions

What is the syntax of sort?

850

What is comp?

1087

How to detect record is locked in cobol/400?

915

What are the types of perform?

945

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

857

Explain the difference between comp & comp-3?

898

Explain the output procedure?

966

What are fillers?

974

What is sort? And its syntax?

980

Explain the input procedure and output procedure?

857

why icetool be used in programmer view?

2508

How to update data area in cobol 400 program?

981

Explain the types of perform?

922

What are fillers? What is the actual use of fillers? With mall/simple example?

932

What is input procedure?

948