//REL EXEC CTMRELRS RELEASE RESOURCE TAPE 1
Figure 34 CTMRELRS Utility Example
LA R1,PARMCNDA
L R15,=V(CTMRLR)
BALR R14,R15
LTR R15,R15
BNZ ERROR
...
PARMCOND DC AL2(PARMCNDE-PARMCOND)
DC 'RELEASE RESOURCE ADABAS-POWER 0005'
PARMCNDE EQU *
PARMCNDA DC A(PARMCOND)
Note: The CTMRLR program works in 24-bit addressing mode.
CTMRELRS – Release Resources