Date: Fri, 27 Feb 1998 11:05:01 PST
Reply-To: CICS List <CICS-L@UGA.CC.UGA.EDU>
Sender: CICS List <CICS-L@UGA.CC.UGA.EDU>
From: Layne Bennett <laynebennett@HOTMAIL.COM>
Subject: Getting JOB# on CICS Batch Job Submission
Content-Type: text/plain
>From owner-cics-l@uga.cc.uga.edu Thu Feb 26 14:14:07 1998
>Received: from uga.cc.uga.edu by listmail.cc.uga.edu (LSMTP for Windows
NT v1.1a) with SMTP id <0.E25CC930@listmail.cc.uga.edu>; Thu, 26 Feb
1998 17:13:40 -0500
>Received: from UGA.CC.UGA.EDU (NJE origin LISTSERV@UGA) by
UGA.CC.UGA.EDU (LMail V1.2c/1.8c) with BSMTP id 2490; Thu, 26 Feb 1998
17:12:26 -0500
>Received: from UGA.CC.UGA.EDU by UGA.CC.UGA.EDU (LISTSERV-TCP/IP
release 1.8c)
> with spool id 4087 for CICS-L@UGA.CC.UGA.EDU; Thu, 26 Feb
1998
> 17:12:24 -0500
>Received: from UGA (NJE origin SMTPIN@UGA) by UGA.CC.UGA.EDU (LMail
V1.2c/1.8c)
> with BSMTP id 5860; Thu, 26 Feb 1998 17:11:56 -0500
>Received: from VM.MARIST.EDU (148.100.1.2) by uga.cc.uga.edu (IBM VM
SMTP V2R3)
> with TCP; Thu, 26 Feb 98 17:11:54 EST
>Received: from VM.MARIST.EDU by VM.MARIST.EDU (IBM VM SMTP V2R3) with
BSMTP id
> 7971; Thu, 26 Feb 98 17:12:50 EST
>Received: from VM.MARIST.EDU (NJE origin LISTSERV@MARIST) by
VM.MARIST.EDU
> (LMail V1.2b/1.8b) with BSMTP id 8856; Thu, 26 Feb 1998
17:12:51 -0500
>Received: from VM.MARIST.EDU by VM.MARIST.EDU (LISTSERV release 1.8c)
with NJE
> id 4897 for CICS-L@VM.MARIST.EDU; Thu, 26 Feb 1998 17:12:50
-0500
>Received: from MARIST (NJE origin SMTP@MARIST) by VM.MARIST.EDU (LMail
> V1.2b/1.8b) with BSMTP id 8044; Thu, 26 Feb 1998 16:57:49
-0500
>Received: from interlock.wdni.com by VM.MARIST.EDU (IBM VM SMTP V2R3)
with TCP;
> Thu, 26 Feb 98 16:57:44 EST
>Received: by interlock.wdni.com id AA10441 (InterLock SMTP Gateway 3.0
for
> CICS-L@VM.MARIST.EDU); Thu, 26 Feb 1998 13:57:57 -0800
>Received: by interlock.wdni.com (Internal Mail Agent-1); Thu, 26 Feb
1998
> 13:57:57 -0800
>X-Priority: 3
>Mime-Version: 1.0
>X-Mailer: Internet Mail Service (5.0.1458.49)
>Content-Type: text/plain
>Message-ID: <199802262157.AA10441@interlock.wdni.com>
>Date: Thu, 26 Feb 1998 13:53:00 -0800
>Reply-To: CICS List <CICS-L@UGA.CC.UGA.EDU>
>Sender: CICS List <CICS-L@UGA.CC.UGA.EDU>
>From: "Howe, John" <howej2@WDNI.COM>
>Subject: CICS Batch Job Submission
>To: CICS-L@UGA.CC.UGA.EDU
>
>We have a job submission program in CICS that submits jobs through an
>internal reader to JES. The internal reader is defined to CICS via a
>standard DCT entry. A number of our customers would like to have the
>job number returned to them and the ability to subsequently query the
>system as to the jobs status without leaving CICS. Has anyone else
been
>down this path? Are there any commercial products out there that do
>this?
>
>Environment:
>
>MVS 4.3
>CICS 4.1
>
>John A. Howe
>Weyerhaeuser Company
>Tacoma, Washington
>
This was the favorite of all the tricks given during our "Tricks for
CICS" presentation at the CICS Technical Conference on 4/8/97.
The trick of getting the job number back on a submit is to use a VSAM
SYSIRDR and the JOB number is returned in the RPL variable RPLRBAR after
the ENDREQ command and before the CLOSE. Of course, since the
environment is in CICS another trick must be used as to not put the CICS
QR MVS SUBTASK into a WAIT state. This second trick is to use you own
MVS SUBTASK to do the VSAM internal reader ALLOCATE, OPEN, PUTs, ENDREQ,
CLOSE, and DEALLOCATE.
Is anyone interested in the handouts? They include abbreviated assembler
examples of the CICS subtasking, JOB number back on submit, and many
other useful tricks.
By the way, thanks to Rich Peterson and Debbie Brunk for mentioning
CPMS/SYSD. Being one of the developers, I think its a pretty good
product as well.
Layne Bennett, VP Product Services
H&W Computer Systems, Inc.
http://www.hwcs.com
P.S. We also offer Consulting Services to speed up your implementation.
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
| 
