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
8353 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

seqence numbers in cobol

3124

Explain what all the conditiones required for using open opcode on a file?

968

Explain how to convert 2010/02/11 to m/dd/yyy.. With string and without string if any other method... Code?

1151

Explain the input procedure and output procedure?

918

What is redefine?

1234

Define redefine and its syntax?

985

Explain the input procedure?

951

What is comp?

1160

I like to know if possible to use %TRIM or any statement with prefiv "%" like RPG ile programs. thanks

2489

What are the types of perform?

1044

Explain the syntax of sort?

983

Define sort?

1188

What is sort?

962

Define redefine?

1131

Explain the types of perform?

1018