Interested to Buy Any Domain ? << Click Here >> for more details...
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
- 9227 Views
- HP, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
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.
Mithun Paul
KMG Infotech Ltd., Kolkata
| Is This Answer Correct ? | 5 Yes | 0 No |
Answer / 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 |
what is INPUT PROCEDURE and OUTPUT PROCEDURE?
What are the types of perform?
what is redefine and its syntax?
What is input procedure?
What is output procedure?
How to update data area in cobol 400 program?
seqence numbers in cobol
Explain the difference between section, paragraph and sentences?
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
01 A PIC 9. 01 B PIC 99V1. 01 C PIC 99. MOVE 1 TO A. MOVE 0.2 TO B. COMPUTE C ROUNDED TO 3/3 + A.
When search all is used in cobol program without sorted input data
What is sort?
RPG400 
