I'd like to determine the CA IDMS DBKEY and PAGE-INFO without using additional CPU time by doing an ACCEPT or a FIND/OBTAIN. Is this possible?

Document ID : KB000027962
Last Modified Date : 14/02/2018
Show Technical Document Details

Introduction:

Determine the CA IDMS DBKEY and PAGE-INFO 

Question:

I'd like to determine the CA IDMS DBKEY and PAGE-INFO without using additional CPU time by doing an ACCEPT or a FIND/OBTAIN. Is this possible?

Environment: 

CA - IDMS 

Answer: 

Yes. There are pre-defined fields in CA Easytrieve that correspond to the DBKEY, PGINFO, PGINFGRP and PGINFDBK fields in the IDMSCOM (IDMS Communications Area). These fields are: IDMSKEY, IDMSPGINFO, IDMSPGGRP, and IDMSPGDBK, respectively. You may use these fields to display, save, and pass the DBKEY and PAGE-INFO information. 

Additional Information:

Example: (see page 3-30 and 3-31 in the Advantage CA Easytrieve CA IDMS/IDD Interface Option Guide for more information)

FILE FILEOUTOUT-PAGE                        1   4   BOUT-PAGE-GROUP    OUT-PAGE          2   B OUT-DBKEY-FORMAT  OUT-PAGE +2       2   BOUT-DBKEY                       5   4   B *DEFINE WS-DBKEY                 W   4   B  0  MASK HEX*JOBIDMS OBTAIN NEXT RECORD 'literal-2' AREA 'literal-3'DISPLAY IDMSPGINFODISPLAY IDMSKEYOUT-PAGE-GROUP = IDMSPGGRPOUT-DBKEY-FORMAT = IDMSPGDBKOUT-DBKEY = IDMSKEYPUT FILEOUTWS-DBKEY = IDMSKEYIDMSPGGRP = 0IDMSPGDBK = 8IDMS FIND DBKEY WS-DBKEY PAGE-INFO IDMSPGINFO