SETS/SETU call

The Set a Backout Point (SETS) call is used to set an intermediate backout point or to cancel all existing backout points.

The SET Unconditional (SETU) call operates like the SETS call, except that the SETU call is accepted even if unsupported PCBs exist or an external subsystem is used. For more information on the SETS and SETU calls, see the topic "Maintaining Database Integrity" in IMS Version 15.4 Application Programming.

Format

Read syntax diagramSkip visual syntax diagramSETSSETUi/o pcbaibi/o areatoken
Call Name DB/DC DBCTL DCCTL DB Batch TM Batch
SETS/SETU X X X X X

Parameters

i/o pcb
Specifies the I/O PCB for the call. SETS and SETU must refer to the I/O PCB. This parameter is an input and output parameter.
aib
Specifies the AIB for the call. This parameter is an input and output parameter. These fields must be initialized in the AIB:
AIBID
Eye catcher. This 8-byte field must contain DFSAIBbb.
AIBLEN
AIB lengths. This field must contain the actual length of the AIB that the application program obtained.
AIBRSNM1
Resource name. This 8-byte, left-justified field must contain the PCB name, IOPCBbbb.
AIBOALEN
I/O area length. This field must contain the length of the I/O area specified in the call list.
i/o area
Specifies the area in your program that contains the data to be returned on the corresponding ROLS call. This parameter is an input parameter.
token
Specifies the area in your program that contains a 4-byte identifier. This parameter is an input parameter.

Usage

The SETS and SETU format and parameters are the same, except for the call functions, SETS and SETU.

The SETS and SETU calls provide the backout points that IMS uses in the ROLS call. The ROLS call operates with the SETS and SETU call backout points.

The meaning of the SC status code for SETS and SETU is as follows:
SETS
The SETS call is rejected. The SC status code in the I/O PCB indicates that either the PSB contains unsupported options or the application program made calls to an external subsystem.
SETU
The SETU call is not rejected. The SC status code indicates either that unsupported PCBs exist in the PSB or the application program made calls to an external subsystem.

Restrictions

For function shipping in the CICS® environment, the local and remote CICS must both be DBCTL.

The SETS call is not valid when the PSB contains a DEDB or MSDB PCB, or when the call is made to a DB2® database. The SETU call is valid, but not functional, if unsupported PCBs exist in the PSB or if the program uses an external subsystem.

Before a ROLS call, you can specify a maximum of 255 SETS calls with the same token and still back out to the correct message level. After 255 SETS calls, the messages continue to back out, but only to the same message level as at 255th SETS call. The SETS token count resets to zero during sync point processing.