Declare below three variables in working storage section. 77 WS-C

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

Question Posted / srinivas

2 Answers
9080 Views
HP, I also Faced
E-Mail Answers

Answer Posted / srinivas

Declare below three variables in working storage section.

77 WS-COUNT PIC 99. VALUE ZEROS.
77 WS-VAR PIC X(10) VALUE "WELCOME".
77 WS-USERID PIC x(5) VALUE "AAAAA".
Decalre one indicator for end of file.
04 EOF-DB-FILE PIC X VALUE "N".
88 EOF-DB-FILE VALUE "Y".
Read each record from input file(Db file) and increase
count if the conditions are satisfied.
PROCEDURE DIVISION.
OPEN INPUT DB-FILE.
READ Db-file
AT END MOVE "Y" TO EOF-DB-FILE
GO TO 1000-EXIT.
IF FIELD1 = WS-VAR AND FIELD2 = WS-USERID
ADD 1 TO WS-COUNT
END-IF
GO TO 1000-EXIT.
DISPLAY WS-COUNT
CLOSE DB-FILE.
STOP RUN.

Is This Answer Correct ?

5 Yes

2 No

Post New Answer View All Answers

Please Help Members By Posting Answers For Below Questions

Explain the syntax of sort?

967

Define perform?

990

Define sort?

1163

Explain the difference between search and searchall?

862

What is sort?

945

Explain the input procedure and output procedure?

904

What is output procedure?

993

What is the actual use of fillers?

957

How to update data area in cobol 400 program?

1038

What is comp?

1142

Explain the difference between comp & comp-3?

951

Define perform? And its types?

979

Explain the syntax of redefine?

907

Define redefine and its syntax?

964

Explain how to update data area in cobol 400 program?

1012