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.
2 6862How 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
2 8201How 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
HP,
2 8961
Explain the output procedure?
What is perform?
Explain how to detect record is locked in cobol/400? What is the solution for that?
What are the types of perform?
How to update data area in cobol 400 program?
Explain the syntax of sort?
Define perform? And its types?
Explain the input procedure?
Explain how to update data area in cobol 400 program?
Define sort?
What is comp?
Explain the difference between search and searchall?
Define redefine?
How to detect record is locked in cobol/400?
Define redefine and its syntax?