RE: setting return code in cobol program
Aubrey Hayes
-----Original Message-----
From: owner...@Lehigh.EDU [mailto:owner...@Lehigh.EDU] On Behalf
Of bentley...@charter.net
Sent: Tuesday, August 16, 2005 1:51 PM
To: VSE Discussion List
Subject: setting return code in cobol program
I have found an additional issue.
I am trying to force wet the return code from within a cobol program.
ie. MOVE '55' TO RETURN-CODE.
DISPLAY '****RETURN CODE=' RETURN-CODE '='.
when it display it is 55
But when the program ends and I look at the $RC return code it is zero.
last client I was at if you set the return code within the program it
stayed set even after the program ended.
Here that is not occurring.
Any thoughts??
and no this has to be done from within cobol.
thanks
Bentley
>
> From: <bentley...@charter.net>
> Date: 2005/08/16 Tue PM 12:43:48 EDT
> To: "VSE Discussion List" <vs...@Lehigh.EDU>
> Subject: return code checking
>
>
> Good afternoon,
>
> I am trying to check the return code I am setting in the program.
>
> The problem I have is when I look at the console after the program
runs.
> I see the following displays
> There is a return code check after this.
>
> Then I see the final display This is the end of the job.
> It doe not display any of the other displays even though it shoud be
hitting at least one of them.
> any suggestions.
>
> Thanks
>
> Bentley
>
>
>
>
>
>
> // EXEC APB018
> /*
> * THERE IS A RETURN CODE CHECK AFTER THIS.
> /*
> // IF $RC = 0055 THEN
> * THE RETURN CODE IS 0055
> GOTO STEPEOJ
> /*
> // IF $RC = 55 THEN
> * THE RETURN CODE IS 55
> GOTO STEPEOJ
> /*
> * THE RETURN CODE IS NOT 55 OR 0055
> /*
> /. STEPEOJ
> * THIS IS THE END OF the job
> /*
>
This electronic message transmission contains information from Collegiate Funding Services, LLC or its subsidiaries or affiliates that may be confidential or privileged. The information is intended to be for the use of only the individual or entity named above. If you are not the intended recipient, be aware that any disclosure, copying, distribution or use of the contents of this information is strictly prohibited. If you have received this electronic transmission in error, please notify the sender by reply e-mail @cfsloans.com immediately and delete this e-mail and any attachments from your system and any copies you may have made, electronic or otherwise.
bentley...@charter.net
JPe...@deltadentalmn.org
========================================================================
========================================================================
THE BELOW WILL ALLOW A COBOLVSE TO RETURN TO VSE A RETURN CODE OTHER
ZERO BY MOVING A VALUE TO "RETURN-CODE" (Special Register) IN THE
COBOLVSE PROGRAM.
P.S. - IF YOU DO A 'CALL' AFTER SETTING RETURN-CODE, IT WILL BE
WIPED OUT AS COBOLVSE 'CALLS' USE REG 15
// EXEC DDPAT02B,SIZE=AUTO,PARM='/RETZERO(OFF)'
/|\
|
|----- Start of return code override
========================================================================
========================================================================
Joe Peters
Phone: 651-994-5495
E-mail: jpe...@decare.com
This e-mail and any files transmitted with it are intended solely for the
individual or entity to whom they are addressed. This communication may
contain material that is privileged, confidential and protected from
disclosure under the law. If you are not the intended recipient, any
disclosure, distribution, copying, or use of this information is strictly
prohibited and may be unlawful. If you have received this e-mail in error,
please reply immediately to the sender and delete it.
<bentleyhohensee@
charter.net>
Sent by: To
owner-vse-l@Lehig "VSE Discussion List"
h.EDU <vs...@Lehigh.EDU>
cc
08/16/2005 01:51 Subject
PM setting return code in cobol
program
Please respond to
vs...@Lehigh.EDU
Any thoughts??
thanks
Bentley
______________________________________________________________________
This e-mail has been scanned by MCI Managed Email Content Service, using
Skeptic(tm) technology powered by MessageLabs. For more information on
MCI's Managed Email Content Service, visit http://www.mci.com.
______________________________________________________________________
______________________________________________________________________
This e-mail has been scanned by MCI Managed Email Content Service, using Skeptic(tm) technology powered by MessageLabs. For more information on MCI's Managed Email Content Service, visit http://www.mci.com.
______________________________________________________________________
JPe...@deltadentalmn.org
Look at $RC....
// IF $RC<05 THEN
// GOTO STEP07
Joe Peters
Phone: 651-994-5495
E-mail: jpe...@decare.com
This e-mail and any files transmitted with it are intended solely for the
individual or entity to whom they are addressed. This communication may
contain material that is privileged, confidential and protected from
disclosure under the law. If you are not the intended recipient, any
disclosure, distribution, copying, or use of this information is strictly
prohibited and may be unlawful. If you have received this e-mail in error,
please reply immediately to the sender and delete it.
<bentleyhohensee@
charter.net>
Sent by: To
owner-vse-l@Lehig "VSE Discussion List"
h.EDU <vs...@Lehigh.EDU>
cc
08/16/2005 01:51 Subject
PM setting return code in cobol
program
Please respond to
vs...@Lehigh.EDU
Any thoughts??
thanks
Bentley
______________________________________________________________________
bfwd
01 RETURN-CODE GLOBAL PICTURE S9(4) USAGE BINARY VALUE ZERO
(a halfword value)
Here are examples of how to set the RETURN-CODE special register:
COMPUTE RETURN-CODE = 8
or
MOVE 8 to RETURN-CODE.
I suspect you should not use quotes around the literal value.
When used in nested programs, this special register is implicitly
defined in the outermost program.
You can specify the RETURN-CODE special register in a function wherever
an integer argument is allowed.
The RETURN-CODE special register will not contain return code
information from a service call for a Language Environment callable
service. For more information, see the COBOL/VSE Programming Guide and
LE/VSE Programming Guide.