Previous Topic Next topic Print topic


$IM-POS

Access Data Entry Data Bases (DEDBs) only. Retrieve the location of a specific sequential dependent segment or the last inserted sequential dependent segment, or determine the amount of unused space within each DEDB area.
Restriction: This topic applies only when the AppMaster Builder AddPack has been installed, and applies only to Windows platforms.

Target:

IMS DB

Syntax:

$IM-POS DEDBview [SSA]

Parameters:

DEDBview

Data Entry Data Base PCB

SSA

Segment Search Argument, which triggers COBOL MOVEs to or from the generated I/O area IM-IO-AREA; default is IM-IO-AREA with a length of 32,000 bytes. To override the length, set IM-IO-AREA-LEN in your program or DDISYMB member.

 

Specify only one SSA per hierarchical level along a path. These arguments generate 8-byte records in Working Storage to hold the corresponding values.

Comments:

  • After an IM-POS call successfully executes, information returns in the field IM-POS-IO-AREA, which is defined 01 IM-POS-IO-AREA.
        05  IM-POS-LENGTH                 PIC S9(04) COMP.
        05  IM-POS-DATA-AREA-PONAME  OCCURS 240.
            10  IM-POS-AREA-DDNAME        PIC X(08).
            10  IM-POS-INFO
                15  IM-POS-CYCLS-COUNT    PIC S9(8) COMP.
                15  IM-POS-VSAM-RBA       PIC S9(8) COMP.
            10  IM-POS-UNUSED-SEQDEP-CIS  PIC S9(8) COMP.
            10  IM-POS-UNUSED-INDEP-CIS   PIC S9(8) COMP.
    
  • Refer to your IMS documentation for more information on $IM-POS.
Previous Topic Next topic Print topic