IDMS: S18A abend using ROLLBACK

Products

• IDMS
• IDMS - Database

Issue/Introduction

It is possible that the ROLLBACK utility can end with a S18A abend code if the input file (SYS001) is on disk.

Environment

Release : All supported releases.
Component : CA IDMS

Cause

ROLLBACK needs to read the input file backwards which is not possible in some operating systems if the file is on disk.

Resolution

Use the ROLLBACK3490 feature.

To do this, the input archive journal file must be sorted in descending order, and the ROLLBACK run with SYS001 assigned to the new file, and with ROLLBACK3490 in the SYSIDMS input file.

Use the following SORT parameters:

SORT FIELDS=(13,16,BI,D)

and for example, the following in SYSIDMS:

//SYSIDMS DD *
DMCL=your-dmcl-name
ROLLBACK3490

Additional Information

ROLLBACK Utility (scroll down to "Disk journal file").
KD 12556: Archive journal to disk
KD 22448: CASD203E WRONG LENGTH RECORD trying to sort an archive journal