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
- 7724 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / 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 |
Answer / mahendran
There can be 2 scenarios.
scenario #1
when field1 and field2 are keys on dbfile or keys of LF on
dbfiles
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. if the counter value is greater than zero then move the
counter value to Copybook field else move zeros to the
copybook fields.
scenario #2
when field1 and field2 are not keys on dbfile or not part
of keys of any LF on dbfiles
1.Read the file
2.If the field1 = WS-VAR and Field2 = WS-USERID then
increase the counter
value.
3. End the process, when end of file reached.
4. if the counter value is greater than zero then move the
counter value to Copybook field else move zeros to the
copybook fields.
| Is This Answer Correct ? | 1 Yes | 1 No |
Explain the input procedure and output procedure?
Trying to help a friend... How do you code screen I/O without a DDS? I know it can be done, because for a short time, I worked for a company that did it. It was just too long ago for me to remember what was involved.
What is comp?
Explain what all the conditiones required for using open opcode on a file?
define comp?
What is the actual use of fillers?
Code how to read 5th element of the array?
Explain the difference between comp & comp-3?
01 A PIC 9. 01 B PIC 99V1. 01 C PIC 99. MOVE 1 TO A. MOVE 0.2 TO B. COMPUTE C ROUNDED TO 3/3 + A.
Explain the types of perform?
Explain how to convert 2010/02/11 to m/dd/yyy.. With string and without string if any other method... Code?
How to Convert 2010/02/11 to m/dd/yyy.. with string and without string if any other method... code
RPG400 
