IDMS: Sample PROCEDURE using a COBOL program

Products

• IDMS
• IDMS - Database

Issue/Introduction

This article contains a sample IDMS PROCEDURE using a COBOL program as the implementing program.

 

Environment

Release: All supported releases
Component: IDMS SQL Option

Resolution

The PROCEDURE provided in this sample makes a call to IDMSIN01 which can be used to determine the current IDMS release.

Download the source file attached to this article below.

Compile the program and follow the instructions in the comments section.

With the PROCEDURE implemented as described in the sample, the current IDMS release information can be retrieved with the following SQL select:

SELECT * FROM XXXXXXXX.RELEASE;
*+
*+ TAPE_NUMBER  RELEASE_LEVEL  SERVICE_PACK
*+ -----------  -------------  ------------
*+ GJJ04I       19.0           4
*+
*+ 1 ROW PROCESSED