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
8492 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 sort? And its syntax?

1094

Define perform?

1054

What is the actual use of fillers?

1013

What is the syntax of redefine?

1015

How to update data area in cobol 400 program?

1081

Define redefine and its syntax?

1035

Explain the input procedure and output procedure?

962

Explain the difference between comp & comp-3?

1022

Explain the difference between search and searchall?

919

What is sort?

1024

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

1010

What are the types of perform?

1108

What is perform?

1156

Define perform? And its types?

1059

Explain how to update data area in cobol 400 program?

1087