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
8932 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 how to detect record is locked in cobol/400? What is the solution for that?

858

How to update data area in cobol 400 program?

981

How to detect record is locked in cobol/400? What is the solution for that?

888

Explain how to update data area in cobol 400 program?

956

What is sort?

893

What is perform?

1047

What are fillers?

974

Explain the input procedure?

881

What is input procedure?

950

What is redefine?

1119

What is output procedure?

935

How to detect record is locked in cobol/400?

916

Define perform?

933

Define perform? And its types?

929

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

932