Re: JCL Question about the RC system Variable

Article View: comp.lang.asm370

Article #1058

#1058

From: Alex Vrenios
Date: Fri, 31 Mar 2000 00:00

37 lines
2152 bytes

In article <8c2drm$ir1$1@hardcopy.ny.jpmorgan.com>,
Denis <grosnou@antispam.skynet.be> wrote:
>Thanx for your answers, but this does not answer my question
>The solutions you propose (COBOL, asm or IDCAMS) allows me to write a
>program for which the RC of the execution step will be 4.
>
IEFSETRC CSECT
         STM   14,12,12(13)
         LR    12,15
         USING IEFSETRC,12
         SR    15,15         ASUME RC 0
         L     1,0(,1)
         LTR   1,1           ANY PARM?
         BNZ   DONE
*
         IC    15,0(,1)      YES: GET PARM BYTE
         N     15,=F'15'     AND SET RC FROM PARM
DONE     L     14,12(,13)
         LM    0,12,20(13)
         BR    14
         END   IEFSETRC

Now you can use

         // EXEC IEFSETRC,PARM='0'
or
         // EXEC IEFSETRC,PARM='4'
or
         // EXEC IEFSETRC,PARM='8'

But I'm a bit rusty at this. Maybe someone can get you 12 and 16 by
making some small change. Hope this helps.

-- 
Regards,

Alex V.

Technical Details

Message-ID: <8c2fs1$d3k$1@eninet.eas.asu.edu>

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

References:

<8c1rst$dnl$1@hardcopy.ny.jpmorgan.com> <8c28kc$2a5k$1@newssvr04-int.news.prodigy.com> <38E4B15C.B33B23C6@dignus.com> <8c2drm$ir1$1@hardcopy.ny.jpmorgan.com>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: fd4af,c33c463b6179897e
X-Google-Attributes: gidfd4af,public
X-Google-Thread: 10d15b,42752b244b2e1d2d
X-Google-Attributes: gid10d15b,public
X-Google-Thread: 101deb,42752b244b2e1d2d
X-Google-Attributes: gid101deb,public
X-Google-Thread: 11415f,42752b244b2e1d2d
X-Google-Attributes: gid11415f,public
X-Google-Thread: f8131,42752b244b2e1d2d
X-Google-Attributes: gidf8131,public
From: vrenios@enuxsa.eas.asu.edu (Alex Vrenios)
Subject: Re: JCL Question about the RC system Variable
Date: 2000/03/31
Message-ID: <8c2fs1$d3k$1@eninet.eas.asu.edu>
X-Deja-AN: 604833416
Distribution: inet
References: <8c1rst$dnl$1@hardcopy.ny.jpmorgan.com> <8c28kc$2a5k$1@newssvr04-int.news.prodigy.com> <38E4B15C.B33B23C6@dignus.com> <8c2drm$ir1$1@hardcopy.ny.jpmorgan.com>
X-Complaints-To: usenet@ennews.eas.asu.edu
X-Trace: eninet.eas.asu.edu 954516161 13428 129.219.30.12 (31 Mar 2000 15:22:41 GMT)
Organization: Arizona State University, Tempe, AZ
NNTP-Posting-Date: 31 Mar 2000 15:22:41 GMT
Newsgroups: comp.lang.asm370,comp.lang.cobol,comp.lang.pl1,bit.listserv.tsorexx,bit.listserv.ibm-main

Reply to Parent Message