IDMSIN01 › Overview

Overview

The IDMS module contains an IDMSIN01 entry point which provides miscellaneous CA IDMS functions to user programs. The parameters passed depend on what service is being called.

The following service functions are available by calling IDMSIN01:

• Activate/deactivate the DML or SQL trace.
• Establish/retrieve user profile information.
• Retrieve SQL error messages into a user buffer.
• Translate an internal 8-byte DATETIME stamp to a displayable format.
• Return current DATE and TIME in a displayable format.
• Translate an external 26-character DATE to an 8-byte DATETIME stamp.
• Translate an internal 8-byte TIME stamp to an 8-character display format.
• Translate an external 8-character TIME to an 8-byte TIME stamp.
• Translate an internal 8-byte DATE stamp to a 10-character display format.
• Translate an external 10-character DATE to an 8-byte DATE stamp.
• Retrieve the current USERID that is signed on.
• Establish the SYSCTL DDNAME to use for batch/CV processing.
• Turn transaction sharing on or off for the current task.
• Extract or set a private RRS context (CV only).
• Convert strings to and from EBCDIC and ASCII.
• Format dbkey as character string 'page number:line index'.
• IDMSIN01 enables you to programmatically override many SYSIDMS parameters, which are as follows:
  • Activating or de-activating a DML or SQL trace.
  • DBNAME.
• Return a block of runtime environment information (described in the following COBOL layout format)

  01 EVBLOCK.
    02  EV$SIZE  PIC S9(4) COMP VALUE +31. -- length of amount of data
                                              to be returned
    02  EV$MODE  PIC X.                    -- runtime mode
        88  LOCAL-MODE        VALUE 'L'.   -- batch local
        88  BATCH-TO-CV-MODE  VALUE 'B'.   -- batch to CV
        88  ONLINE-DC-MODE    VALUE 'D'.   -- DC online
        88  CICS-MODE         VALUE 'C'.   -- CICS
    02  EV$TAPE# PIC X(6).                 -- CA IDMS tape volser
    02  EV$REL#  PIC X(6).                 -- CA IDMS release number
    02  EV$SPACK PIC X(2).                 -- CA IDMS service pack number
    02  EV$DMCL  PIC X(8).                 -- DMCL name (blank for batch to CV mode)
    02  EV$NODE  PIC X(8).                 -- System node name (CICS and DC online,
                                              blank for batch local and batch to CV jobs)