$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.