Article View: comp.lang.asm370
Article #1045Re: JCL Question about the RC system Variable
From: Kerry
Date: Fri, 14 Apr 2000 00:00
Date: Fri, 14 Apr 2000 00:00
84 lines
3269 bytes
3269 bytes
Surely you can use an idcams step to set LASTCC or MAXCC=0 ie file://STEP010 EXEC PGM=IDCAMS //SYSOUT //SYSIN * SET MAXCC=0 or LASTCC if you prefer /* Then //NEXTSTEP exec whatever proc/pgm, COND=(0,LT,STEP010) etc or use // (IF RC ?? value) . //NEXTSTEP exec whatever proc/pgm . // ENDIF You can also set PLIRETC = 0; in your PL1 program, which also may give you the result you require Kerry "DennisHarley" <LegacyBlue@email.msn.com> wrote in message news:e7yEi8xm$GA.257@cpmsnbbsa05... Don't know if this helps: 1) You can set the initial RC to 0 by executing IEFBR14. If you test RC before a program has been executed, it is null. 2) You can nest your conditional JCL. I think 15 levels is the max. 3) There is also an ELSE condition which you can Use 4) You can break your job stream up into several jobs, and use the internal reader to start them. 5) I don't know of any way to reset the RC for a JOB. Denis <grossnou@antispam.skynet.be> wrote in message news:8c1rst$dnl$1@hardcopy.ny.jpmorgan.com... > (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: > // 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: > > file://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 > file://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:
<8d5ma0$ev2$1@news6.svr.pol.co.uk>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailReferences:
<8c1rst$dnl$1@hardcopy.ny.jpmorgan.com> <e7yEi8xm$GA.257@cpmsnbbsa05>Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: f8131,42752b244b2e1d2d X-Google-Attributes: gidf8131,public 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 From: "Kerry" <kerry@hines-randle.greatxscape.net> Subject: Re: JCL Question about the RC system Variable Date: 2000/04/14 Message-ID: <8d5ma0$ev2$1@news6.svr.pol.co.uk> X-Deja-AN: 610893842 References: <8c1rst$dnl$1@hardcopy.ny.jpmorgan.com> <e7yEi8xm$GA.257@cpmsnbbsa05> X-Priority: 3 X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6600 X-Complaints-To: abuse@theplanet.net X-Trace: news6.svr.pol.co.uk 955669632 15330 62.137.32.130 (13 Apr 2000 23:47:12 GMT) Organization: Customer of Planet Online X-MSMail-Priority: Normal NNTP-Posting-Date: 13 Apr 2000 23:47:12 GMT Newsgroups: comp.lang.asm370,comp.lang.cobol,comp.lang.pl1,bit.listserv.tsorexx