🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.asm370
Article #1049

Re: JCL Question about the RC system Variable

#1049
From: docdwarf
Date: Fri, 31 Mar 2000 00:00
42 lines
2308 bytes
In article <8c1rst$dnl$1@hardcopy.ny.jpmorgan.com>,
Denis <grossnou@antispam.skynet.be> wrote:
>(I know that this question is off-topic but I do not know in which newsgroup
>to post-it)
>I have a JCL question: Is it possible to reset the RC system variable in a
>JCL ? for example, with a statement like:

Check into IDCAMS... as I recall one is able to do similar things with
statements like IF LASTCC = (n) THEN SET MAXCC = (o)

DD

>// SET RC=0
>Obviously this statement does not work as RC it is not a normal "variable"
>
>The goal is to have a JCL like the following:
>
>//S1 EXEC PGM=P1
>...
>//  IF (RC GE 8) THEN   <--- start of the "does not work" construction
>//   SET RC=4                 <--- does not work the idea is to "reset" the
>RC variable to 4
>// ENDIF                          <--- end of the "does not work"
>construction
>
>// IF (RC GE 4) THEN  <--- want to test with RC = 4 even if S1 ended with
>RC=8
>//S2 EXEC PGM=P2
>...
>// ENDIF
>
>This JCL is generated via FTINCL statements from a REXX/ISPF proc and has a
>(quite large) variable number of steps after the step S2. The idea is to
>avoid to have to generate very complex IF/THEN/ENDIF construction for the
>steps that follow S2 (for example by qualifying each test of RC with the
>step name...)
>
>Any idea?
>
>Many thanks in advance
>
>
Technical Details
Message-ID: <wM1F4.15816$0o4.93152@iad-read.news.verio.net>
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: 10d15b,42752b244b2e1d2d
X-Google-Attributes: gid10d15b,public
X-Google-Thread: 11415f,42752b244b2e1d2d
X-Google-Attributes: gid11415f,public
X-Google-Thread: 101deb,42752b244b2e1d2d
X-Google-Attributes: gid101deb,public
X-Google-Thread: f8131,42752b244b2e1d2d
X-Google-Attributes: gidf8131,public
From: docdwarf@clark.net ()
Subject: Re: JCL Question about the RC system Variable
Date: 2000/03/31
Message-ID: <wM1F4.15816$0o4.93152@iad-read.news.verio.net>
X-Deja-AN: 604788491
Distribution: inet
References: <8c1rst$dnl$1@hardcopy.ny.jpmorgan.com>
X-Complaints-To: abuse@verio.net
X-Trace: iad-read.news.verio.net 954509468 168.143.0.8 (Fri, 31 Mar 2000 13:31:08 GMT)
Organization: Clark Internet Services, Inc., Ellicott City, MD USA
NNTP-Posting-Date: Fri, 31 Mar 2000 13:31:08 GMT
Newsgroups: comp.lang.asm370,comp.lang.cobol,comp.lang.pl1,bit.listserv.tsorexx