IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

difference between check-idms-status and idms-status


IBM Mainframe Forums -> IDMS/ADSO
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
athulvijay

New User


Joined: 01 Jul 2010
Posts: 17
Location: PUNE

PostPosted: Fri Aug 20, 2010 2:27 am
Reply with quote

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?
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19245
Location: Inside the Matrix

PostPosted: Fri Aug 20, 2010 3:31 am
Reply with quote

Hello and welcome to the forum,

What is the difference in the code that has these performs?
Back to top
View user's profile Send private message
Meenakshi Selvaraj

New User


Joined: 30 Oct 2009
Posts: 36
Location: Chennai

PostPosted: Mon Aug 23, 2010 1:37 pm
Reply with quote

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.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> IDMS/ADSO

 


Similar Topics
Topic Forum Replies
No new posts check if two PD values are equal, no ... DFSORT/ICETOOL 4
This topic is locked: you cannot edit posts or make replies. Check if it is certain hour, then pro... JCL & VSAM 25
No new posts Numeric check on packed signed and un... COBOL Programming 4
No new posts Difference between VALIDPROC and CHEC... DB2 3
This topic is locked: you cannot edit posts or make replies. Sort card help to prepare status report DFSORT/ICETOOL 13
Search our Forums:

Back to Top