Answers

Question and Answer:

  Home  IBM COBOL400

⟩ 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

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.

 168 views

More Questions for you: