Description:
IDMS System Tasks and Operator commands are typically executed as 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.
Solution:
IDMS System Tasks and Operator commands are typically executed as 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.
//UCFBATCH EXEC PGM=RHDCUCFB
//STEPLIB DD DISP=SHR,DSN=IDMS.IDMS170.DBA.LOADLIB
// DD DSN=IDMS.IDMS170.LOADLIB,DISP=SHR
// DD DISP=SHR,DSN=IDMS.IDMS170.LOADLIB
//SYSDUMP DD SYSOUT=*
//SYSLST DD SYSOUT=*
//SYSCTL DD DISP=SHR,DSN=IDMS.IDMS170.SYSCTL
//SYSIDMS DD *
DMCL=DMCL1700
//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:
V1700 ENTER NEXT TASK CODE: CA IDMS RELEASE 17.0 TAPE GJH01M NODE
?
SIGNON userid
IDMS DC259001 V1700 USER userid SIGNED OFF LTERM UCFLT01 AT 14:31:31.
IDMS DC258003 V1700 USER userid SIGNED ON LTERM UCFLT01 AT 14:31:31.1
IDMS DC402009 V1700 DICTNAME SYSDICT HAS BEEN SET
IDMS DC402009 V1700 DBNAME EMPDEMO HAS BEEN SET
V1700 ENTER NEXT TASK CODE: CA IDMS RELEASE 17.0 TAPE GJH01M NODE
?
SET OPTIONS INPUT 1 THRU 72
DCUF SIMULATE 43X80
IDMS DC401001 V1700 SIMULATION COMMAND ACCEPTED
V1700 ENTER NEXT TASK CODE: CA IDMS RELEASE 17.0 TAPE GJH01M NODE
?
- (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
/*
For more information about DCUF SIMULATE see CA IDMS SYSTEMS OPERATIONS Appendix F: Simulating 3270-Type Terminals.
%E is the abbreviation for %ENTER, % is the default escape character.
References:
CA IDMS System Operators Guide, Appendix F: Simulating 3270-Type Terminals, Batch Simulator
TEC482114 UCFBATCH with a DCMT VARY PROGRAM gets MULTIPLE PROGRAMS SATISFY CRITERIA. How to get over this with UCFBATCH.