difference between check-idms-status and idms-status

athulvijay · New User Joined: 01 Jul 2010 Posts: 17 Location: PUNE

Hi,

Please let me know the difference between perform check-idms-status and perform idms-status. Is there any other status checking function in IDMS?

dick scherrer · Posted: Fri Aug 20, 2010 3:31 am

Hello and welcome to the forum,

What is the difference in the code that has these performs?

Meenakshi Selvaraj · New User Joined: 30 Oct 2009 Posts: 36 Location: Chennai

Hi Athul,

As per my knowledge in Cobol-IDMS program, after each DML statement is executed to determine if the requested operation executed successfully, use the PERFORM IDMS-STATUS paragraph.

For example:

OBTAIN NEXT EMPLOYEE WITHIN DEPT-EMPLOYEE.
IF DB-STATUS-OK
DISPLAY EMP-NAME-0001
ELSE
IF DB-END-OF-SET
MOVE ‘Y’ TO WS-END-SET
ELSE
PERFORM IDMS-STATUS.

This PERFORM IDMS-STATUS paragraph performs error status code checking and abnormally terminates the program if a nonzero error status code is found. The IDMS-STATUS routine is brought into the program as a result of a COPY IDMS statement.

IDMS-STATUS is a module of source code usually stored in the IDMS data dictionary (IDD). It is copied into every program, and controls the final displays, ROLLBACK, and ABORT when the ERROR-STATUS is non-zero.

As dick told, let us inform the difference in the code that has these performs.