🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.asm370
Article #1050

Re: JCL Question about the RC system Variable

#1050
From: Denis
Date: Fri, 31 Mar 2000 00:00
55 lines
2587 bytes
Thanks for for your answer but...

The IDCAMS/SET MAXCC instructions does not works because its sets the MAXCC
for the AMS instructions executed during the IDCAMS step (DELET, DEFINE
CLUSTER...), it does not reset the RC of the whole JCL. Only the RC of the
IDCAMS is affected

docdwarf@clark.net wrote in message ...
>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: <8c29vb$hkj$1@hardcopy.ny.jpmorgan.com>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <8c1rst$dnl$1@hardcopy.ny.jpmorgan.com> <wM1F4.15816$0o4.93152@iad-read.news.verio.net>

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 11415f,42752b244b2e1d2d
X-Google-Attributes: gid11415f,public
X-Google-Thread: 10d15b,42752b244b2e1d2d
X-Google-Attributes: gid10d15b,public
X-Google-Thread: 101deb,42752b244b2e1d2d
X-Google-Attributes: gid101deb,public
X-Google-Thread: f8131,42752b244b2e1d2d
X-Google-Attributes: gidf8131,public
From: "Denis" <grosnou@antispam.skynet.be>
Subject: Re: JCL Question about the RC system Variable
Date: 2000/03/31
Message-ID: <8c29vb$hkj$1@hardcopy.ny.jpmorgan.com>
X-Deja-AN: 604792581
Distribution: inet
References: <8c1rst$dnl$1@hardcopy.ny.jpmorgan.com> <wM1F4.15816$0o4.93152@iad-read.news.verio.net>
X-MimeOLE: Produced By Microsoft MimeOLE V4.72.2106.4
Organization: J.P. Morgan & Co
Newsgroups: comp.lang.asm370,comp.lang.cobol,comp.lang.pl1,bit.listserv.tsorexx