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
- 2 Answers
- 8279 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
Explain the types of perform?
What is sort? And its syntax?
Explain the difference between comp & comp-3?
How to detect record is locked in cobol/400? What is the solution for that?
What is input procedure?
Explain the syntax of sort?
What is output procedure?
What is redefine?
What are fillers?
Explain the syntax of redefine?
Explain what all the conditiones required for using open opcode on a file?
Explain the output procedure?
What are the types of perform?
How to detect record is locked in cobol/400?
seqence numbers in cobol
