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

What is sort? And its syntax?

995

What is redefine?

1139

What is the actual use of fillers?

913

Define perform? And its types?

938

Explain the syntax of sort?

938

What is comp?

1102

why icetool be used in programmer view?

2524

Explain the difference between search and searchall?

826

What is sort?

900

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

1106

Explain the difference between section, paragraph and sentences?

922

What are fillers? What is the actual use of fillers? With mall/simple example?

949

What are the types of perform?

966

What is perform?

1058

Explain how to update data area in cobol 400 program?

972