Fast Path Data Communication Calls

Restriction: This topic applies only when the AppMaster Builder AddPack has been installed, and applies only to Windows platforms.

Target:

IMS DC for single-platform applications

Syntax:

$IM-CHNG altview [destination]
$IM-CMD [PCBname] [msgarea]
$IM-GCMD [PCBname] [msgarea]
$IM-GN PCBname SSA1 [... SSA15]
$IM-GU PCBname SSA1 [... SSA15]
$IM-ISRT [PCBname]altview] SSA1 [... SSA15]
$IM-PURG [PCBname] [msgarea] [mod]

Parameters:

`altview`	Alternate view or IO PCB name.
`destina-tion`	Terminal destination; can be data name or literal in an 8-byte field.
`msgarea`	Area where IMS returns the message segment being processed; AMB treats this area as the first segment of a new message.
`mod`	Data name or literal in an 8-byte field naming the message output description.
`pcbname`	Data view (maximum 20 characters); default is IO-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 the 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.

Examples:

The following code:

$IM-CHNG ("ALT-IO", "YOUR-TERMINAL-NAME")

Generates in Working-Storage:

01  IM-DESTINATION-NAME    PIC X(8).

Generates in the Procedure Division:

MOVE YOUR-TERMINAL-NAME
... TO IM-DESTINATION-NAME
CALL 'CBLTDLI' USING
... IM-CHNG ALT-IO-PCB
... IM-DESTINATION-NAME
MOVE ALT-IO-STATUS
... TO IM-STATUS

The following code:

$IM-CHNG ("AOT-IO", "'YOURTERM'")

Generates in Working-Storage

01  IM-DESTINATION-NAME    PIC X(8).

Generates in the Procedure Division

 MOVE 'YOURTERM'
 ... TO IM-DESTINATION-NAME
 CALL 'CBLTDLI' USING
 ... IM-CHNG ALT-IO-PCB
 ... IM-DESTINATION-NAME
 MOVE ALT-IO-STATUS
 ... TO IM-STATUS