Previous Topic Next topic Print topic


GSAM Calls

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

Syntax:

IM-CLSE view
IM-OPEN view
IM-OPEN-INP view
IM-OPEN-OUT view
IM-OPEN-OUTA view
IM-OPEN-OUTM view
IM-GN PCBname [ssa1 [...ssa15]]
IM-GU PCBname ssa1 [...ssa15]
IM-ISRT PCBname [ssa1 [...ssa15]]

Parameters:

pcbname Data view; can be up to 20 characters. Default is IO-PCB.
ssa SSA (record search) arguments that trigger 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; set IM-IO-AREA-LEN in your program or DDISYMB member to override the length.
  Specify only one SSA per hierarchical level along a path. These arguments generate 8-byte records in Working-Storage to hold the corresponding values.
view Data view. Must correspond to a GSAM PCB.

Examples:

The following code
$IM-OPEN ("PARDBINP")
$IM-OPEN-INP ("PARDBINP")
$IM-GN ("PARDBINP")
Generates in the Procedure Division
CALL 'CBLTDLI' USING
... IM-OPEN PARDBINP-PCB
MOVE PARDBINP-STATUS TO IM-STATUS
MOVE 'INP' TO IM-IO-AREA
CALL 'CBLTDLI' USING
... IM-OPEN PARDBINP-PCB IM-IO-AREA
MOVE PARDBINP-STATUS TO IM-STATUS
CALL 'CBLTDLI' USING
... IM-GN PARDBINP-PCB GSAM-IN-IO-AREA
MOVE PARDBINP-STATUS TO IM-STATUS
Previous Topic Next topic Print topic