Online Unload functionality with Database Organizer for IMS for z/OS

Products

• Database Organizer for IMS for z/OS

Issue/Introduction

Is there a function for an online unload during Database Organizer processing? Currently using DBR ( DBRECOVERY ) command to prevent transactions or programs from accessing DL/I databases. And then do an unload. Is it possible to do an unload without DBR - so online unload? 

Environment

z/os IMS

Resolution

Database Organizer UNLOAD can be also run in an IMS BMP region, accessing database in an official way, thru DL/I GN (get next) calls.
This way the database can be accessed online, while shared by other applications, and the data are provided directly by IMS, so they are consistent.
EXEC PGM=DFSRRC00,PARM=(BMP,IDIDBO,PSBabcG,... etc.)
...
//DBOCTRL  DD *
FUNCTION=UNLOAD,
DBDNAME=D080600

Provide the PSB name that contains a DB PCB for that database, with PROCOPT specification that includes G (get).
There is a sample JCL in hlq.CIMTSAMP(JCLDBO2).

JCL