IDMS System Tasks and Operator commands are typically executed online at the "Enter Next Task Code" prompt however there are times when there is a need to execute them in batch. This document provides JCL and commands for the System Task command OPER and LOCKMON using the UCF batch program RHDCUCFB and DCUF SIMULATE.
Release: All supported releases.
//UCFBATCH EXEC PGM=RHDCUCFB
//STEPLIB DD DISP=SHR,DSN=IDMS.CV01.DBA.LOADLIB
// DD DISP=SHR,DSN=IDMS.CV01.CUSTOM.LOADLIB,DISP=SHR
// DD DISP=SHR,DSN=IDMS.CV01.CAGJLOAD
//SYSLST DD SYSOUT=*
//SYSCTL DD DISP=SHR,DSN=IDMS.CV01.SYSCTL
//SYSIDMS DD *
DMCL=CV01DMCL
//SYSIPT DD *
SIGNON userid
SET OPTIONS INPUT 1 THRU 72
DCUF SIMULATE 43X80
OPER WATCH DB %ENTER
%CLEAR
DCUF SIMULATE OFF %ENTER
BYE
/*
The data from the commands will be in the UCFBATCH.SYSLST:
V1 ENTER NEXT TASK CODE: CA IDMS RELEASE 19.0 TAPE GJJ04I node SYSTEM01
?
SIGNON userid
IDMS DC259001 V1 USER userid SIGNED OFF LTERM UCFLT01 AT 14:31:31.
IDMS DC258003 V1 USER userid SIGNED ON LTERM UCFLT01 AT 14:31:31.1
IDMS DC402009 V1 DICTNAME SYSDICT HAS BEEN SET
IDMS DC402009 V1 DBNAME EMPDEMO HAS BEEN SET
V1700 ENTER NEXT TASK CODE: CA IDMS RELEASE 1
9.0 TAPE GJJ04I node SYSTEM01
?
SET OPTIONS INPUT 1 THRU 72
DCUF SIMULATE 43X80
IDMS DC401001 V1 SIMULATION COMMAND ACCEPTED
V1 ENTER NEXT TASK CODE: CA IDMS RELEASE 1
9.0 TAPE GJJ04I node SYSTEM01
?
- (CURSOR)
OPER WATCH DB %ENTER
TASK ID ORIG IDMSPROG SUBSCHEM PRI STA V# PAGEREAD PAGEWRIT CALLIDMS
0000000012 DBDC RHDCLGSD IDMSNWK9 253 A 56 00000000 00000000 00000003
0000000011 DBDC RHDCLGSD IDMSNWK9 253 A 56 00000000 00000000 00000003
0000000010 DBDC RHDCLGSD IDMSNWK9 253 A 56 00000000 00000000 00000003
0000000009 DBDC RHDCRUAL IDMSSECQ 253 A 54 00000000 00000000 00000003
Example for LOCKMON:
//SYSIPT DD *
SIGNON userid
SET OPTIONS INPUT 1 THRU 72
DCUF SIMULATE 43X80
LOCKMON %ENTER
STATUS %ENTER
%CLEAR
DCUF SIMULATE OFF %ENTER
BYE
/*