Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
difference between check-idms-status and idms-status

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IDMS/ADSO
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    Post subject: difference between check-idms-status and idms-status
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

Site Director


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

PostPosted: Fri Aug 20, 2010 3:31 am    Post subject:
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    Post subject: Reply to: difference between check-idms-status and idms-stat
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    IBMMAINFRAMES.com Support Forums -> IDMS/ADSO All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Difference between EQUAL and EQUAL TO... jithinraghavan COBOL Programming 3 Thu Apr 19, 2018 2:22 am
This topic is locked: you cannot edit posts or make replies. GDG gen check using REXX raghuraman123 CLIST & REXX 6 Wed Apr 18, 2018 9:18 pm
No new posts How syntax check at Bind time is diff... Poha Eater DB2 5 Wed Mar 21, 2018 9:16 pm
No new posts OLDS frozen in BACKOUT status when On... lind sh IMS DB/DC 3 Tue Feb 13, 2018 7:12 pm
No new posts ISMF Difference between volume count ... upendrasri IBM Tools 2 Tue Dec 05, 2017 12:40 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us