Follow Our FB Page << CircleMedia.in >> for Daily Laughter. We Post Funny, Viral, Comedy Videos, Memes, Vines...


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

Answers were Sorted based on User's Feedback



How can i change the below code in SQL to cobol/400? EXEC SQL SELECT COU..

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

How can i change the below code in SQL to cobol/400? EXEC SQL SELECT COU..

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

Post New Answer

More COBOL400 Interview Questions

how array can be declare in cobol?

6 Answers  


How we can update data area in cobol 400 program?

12 Answers   Accenture,


Code how to read 5th element of the array?

2 Answers   CGI,


can i anyone tell me how to use copybooks in cobol

1 Answers  


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  






What are Fillers ? What is the actual use of Fillers ? With small/simple Example..

1 Answers   Patni,


what is the difference between SEARCH and SEARCHALL?

2 Answers  


Define redefine?

0 Answers  


what is the difference between comp & comp-3?

4 Answers  


What is output procedure?

0 Answers  


It's possible use %TRIM statement like rpgile?

2 Answers  


what is redefine and its syntax?

6 Answers   HCL,


Categories