This article contains a sample IDMS PROCEDURE using a COBOL program as the implementing program.
Release: All supported releases
Component: IDMS SQL Option
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