Re: JCL Question about the RC system Variable

Article View: comp.lang.asm370

Article #1063

#1063

From: Ken Foskey
Date: Fri, 31 Mar 2000 00:00

28 lines
1757 bytes

I assume that you look this up and maybe even tried it and it did not
work.  Ok here are a couple of suggestions:

1.  The RC variable can be associated to a step.  Might become painful
quickly though.

2.  Break the JCL up into two jobs.  The first does a iebgener (copy)
of the second JCL at the last step to the internal reader submitting
the job:
  //sysut2 dd sysout=(*,intrdr)

3.  WRite a simple program that simply calls the program in the
parameter, interrogates the return and changes an 8 to something
useful:

	procedure division using called-program.

	call called-program.
	
	if return-code = 8
	    move 1 to return-code
        end-if
	stop-run

Thanks
Ken Foskey
http://www.zipworld.com.au/~waratah/

Technical Details

Message-ID: <38E4A8B5.4CC1EBC@zip.com.au>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

References: <8c1rst$dnl$1@hardcopy.ny.jpmorgan.com>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 101deb,42752b244b2e1d2d
X-Google-Attributes: gid101deb,public
X-Google-Thread: 10d15b,42752b244b2e1d2d
X-Google-Attributes: gid10d15b,public
X-Google-Thread: 11415f,42752b244b2e1d2d
X-Google-Attributes: gid11415f,public
X-Google-Thread: f8131,42752b244b2e1d2d
X-Google-Attributes: gidf8131,public
From: Ken Foskey <waratah@zip.com.au>
Subject: Re: JCL Question about the RC system Variable
Date: 2000/03/31
Message-ID: <38E4A8B5.4CC1EBC@zip.com.au>
X-Deja-AN: 605088252
Content-Transfer-Encoding: 7bit
References: <8c1rst$dnl$1@hardcopy.ny.jpmorgan.com>
X-Accept-Language: en
Content-Type: text/plain; charset=us-ascii
X-Complaints-To: news@zipworld.com.au
X-Trace: the-fly.zip.com.au 954556116 5670 61.8.10.184 (1 Apr 2000 02:28:36 GMT)
Organization: Waratah Computing Australia Pty Ltd
Mime-Version: 1.0
NNTP-Posting-Date: 1 Apr 2000 02:28:36 GMT
Newsgroups: comp.lang.asm370,comp.lang.cobol,comp.lang.pl1,bit.listserv.tsorexx

Reply to Parent Message