|
> [Marvin Radding:] > What I have done is create a library named QUSRJOB where I create the > message queue. Then I can execute CL commands in any job that has > created the message queue. This is especially helpful in batch jobs > where a minor adjustment needs to be made that cannot be made any other > way. Like changing the current library or overriding a database as a > temporary fix to get the job to run. (Month end only comes once a > month). At one job, I went so far as to create a program to look at the > message queues, select the queue to send the message to, and syntax > check each command sent to a message queue. I left the code there and > have never attempt to recreate it. But this message queue technique has > CMA several times while I fixed the problem at my leisure. What I have done is to run a simple MI program that sets a workstation message queue in break mode with a break handling program 'on-the-fly': ENTRY *(XPLIST) EXT DCL SPCPTR WRKSTN-SPP PARM DCL DD WRKSTN CHAR(10) BAS(WRKSTN-SPP) DCL OL XPLIST(WRKSTN-SPP) PARM EXT DCL SYSPTR MSGQ-SYP AUTO DCL SPCPTR MSGQ-SPP AUTO DCL DD BRKPGM CHAR(10) BAS(MSGQ-SPP) POS(H'5E') DCL DD BRKPGMLIB CHAR(10) BAS(MSGQ-SPP) POS(H'68') DCL DD MODE CHAR(1) BAS(MSGQ-SPP) POS(H'72') DCL DD MSGQ-DS CHAR(34) AUTO DCL DD * CHAR(2) POS(1) DEF(MSGQ-DS) INIT(X'1902') DCL DD MSGQ-NAME CHAR(30) POS(3) DEF(MSGQ-DS) INIT(' ') DCL DD * CHAR(2) POS(33) DEF(MSGQ-DS) INIT(X'0000') CPYBLA MSGQ-NAME,WRKSTN RSLVSP MSGQ-SYP,MSGQ-DS,*,* SETSPPFP MSGQ-SPP,MSGQ-SYP CPYBLA BRKPGM,'CDSPBRKMSG' CPYBLAP BRKPGMLIB,'UTLSYS',' ' CPYBLA MODE,'B' /* *BREAK */ DEACTPG * RTX * PEND Then I can execute commands at will in any interactive job. It would of course not be a nice thing to do the above if the job already had a break handling program :)
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.