IDMS: Sample PROCEDURE using a COBOL program
search cancel

IDMS: Sample PROCEDURE using a COBOL program

book

Article ID: 46519

calendar_today

Updated On:

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

Attachments

1626853533891__kd046519.txt get_app