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.
OBTAIN NEXT EMPLOYEE WITHIN DEPT-EMPLOYEE.
MOVE ‘Y’ TO WS-END-SET
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.