IDMSIN01

The IDMS module contains an IDMSIN01 entry point that provides miscellaneous CA IDMS functions to user programs. The parameters passed depend on what service is being called.
idmscu19
The IDMS module contains an IDMSIN01 entry point that 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 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, 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)
IDMSIN01 Timestamp Display
The following table displays the local and external timestamps of the GETDATE function:
Assembler Parameters
COBOL, ADS, PL/I Parameters
Input
Output
INTERNAL
0
Internal 8 byte DATETIME
26 bytes (1994-07-18-12.01.18.458382)
DISPLAY
1
 
Get current time 26 bytes (1994-07-18-12.01.18.458382)
EXTERNAL
2
26 bytes (1994-07-18-12.01.18.458382)
Internal 8 byte DATETIME
TIMEINT
3
 Internal 8 byte DATETIME
External time 8 bytes (HH.MM.SS)
TIMEEXT
4
External time (HH.MM.SS)
Internal 8-Byte DATETIME
DATEINT
5
Internal 8 byte DATETIME
Displayable 10 bytes Date (YYYY-MM-DD)
DATEEXT
6
Displayable 10 bytes Date (YYYY-MM-DD)
Internal 8 byte DATETIME
INTERNAL-UTC    
7
Internal 8 byte DATETIME
26 bytes (1994-07-18-12.01.18.458382) converted from UTC to local time.
A return code of zero indicates that the Output fields were modified.