How to use System Tasks and Operator commands OPER and LOCKMON in batch.

Document ID : KB000020568
Last Modified Date : 14/02/2018
Show Technical Document Details

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.