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
