In an IDMS cobol programming environment, a main program can pass its SUBSCHEMA-CTRL to a subroutine so that they share the same run-unit.
CA IDMS, all supported releases.
The attached .zip file contains sample code to do this.
Navigational DML Programming ReferenceDML Reference for Cobol