I am Swathi.
I am the begginer in DB2.
I got a doubt.
After select query i am getting the sql code 00000050J
I am not understanding the meaning for that.
My code is
ID DIVISION.
PROGRAM-ID. PG1.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
EXEC SQL
INCLUDE SQLCA
END-EXEC.
EXEC SQL
INCLUDE USR
END-EXEC.
EXEC SQL
DECLARE QD CURSOR WITH HOLD
FOR
SELECT PWD FROM USR7
WHERE UID = :HV-UID
FOR UPDATE OF PWD
END-EXEC.
PROCEDURE DIVISION.
MOVE 'SWATHI' TO HV-UID.
EXEC SQL
OPEN QD
END-EXEC.
EXEC SQL
FETCH QD INTO :HV-PWD
END-EXEC.
EVALUATE SQLCODE
WHEN 0
MOVE 'RADHIKA' TO HV-PWD
EXEC SQL
UPDATE USR7 SET PWD = :HV-PWD
WHERE CURRENT OF QD
END-EXEC
WHEN OTHER
DISPLAY SQLCODE
END-EVALUATE.
EXEC SQL
CLOSE QD
END-EXEC.
STOP RUN.
PROGRAM-ID. PG1.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
EXEC SQL
INCLUDE SQLCA
END-EXEC.
EXEC SQL
INCLUDE USR
END-EXEC.
EXEC SQL
DECLARE QD CURSOR WITH HOLD
FOR
SELECT PWD FROM USR7
WHERE UID = :HV-UID
FOR UPDATE OF PWD
END-EXEC.
PROCEDURE DIVISION.
MOVE 'SWATHI' TO HV-UID.
EXEC SQL
OPEN QD
END-EXEC.
EXEC SQL
FETCH QD INTO :HV-PWD
END-EXEC.
EVALUATE SQLCODE
WHEN 0
MOVE 'RADHIKA' TO HV-PWD
EXEC SQL
UPDATE USR7 SET PWD = :HV-PWD
WHERE CURRENT OF QD
END-EXEC
WHEN OTHER
DISPLAY SQLCODE
END-EVALUATE.
EXEC SQL
CLOSE QD
END-EXEC.
STOP RUN.
Can any one plzz help meee...........
Thanks in Advance,
Swathi.