> -----Original Message-----
> From: IBM Mainframe Discussion List
> [mailto:[EMAIL PROTECTED] On Behalf Of Steve Comstock
> Sent: Monday, February 11, 2008 2:02 PM
> To: [email protected]
> Subject: Re: Two COBOL questions
>
[snip]
> 2. Using a call to ceeenv:
>
> select persnnl assign to people.
> ...
> 01 file-stuff.
> 02 update-req pic s9(9) binary value 5.
> 02 six pic s9(9) binary value 6.
> 02 file-name pic x(6) value 'PEOPLE'.
> 02 val-length pic s9(9) binary value 64.
> 02 val-ptr pointer.
> 02 env-val
> 03 pic x(4) value 'DSN('.
> 03 dsname pic x(60) value spaces.
> 02 fc pic x(12) value low-values.
> ...
> linkage section.
> 01 in-name pic x(55).
>
> procedure division using in-name.
> string in-name delimited by space
> ') SHR ' delimited by size into dsname
> set val-ptr to address of env-val
I think you have a bug in your call to CEEENV. You have:
> call 'ceeenv' using update-req, six, file-name,
> val-length, val-ptr, fc
call 'ceeenv' using update-req, six, file-name,
val-length, env-val, fc
> if fc = low-values
> continue
> else
> display 'Setting environment variable failed'
> stop run
> endif
> open input persnnl
>
> ---------
>
> You decide.
Either is OK by me. The compatability with pre-z/OS 1.8 environment
suggest that putenv() might be best for now.
>
>
> Kind regards,
>
> -Steve Comstock
> The Trainer's Friend, Inc.
--
John McKown
Senior Systems Programmer
HealthMarkets
Keeping the Promise of Affordable Coverage
Administrative Services Group
Information Technology
The information contained in this e-mail message may be privileged
and/or confidential. It is for intended addressee(s) only. If you are
not the intended recipient, you are hereby notified that any disclosure,
reproduction, distribution or other use of this communication is
strictly prohibited and could, in certain circumstances, be a criminal
offense. If you have received this e-mail in error, please notify the
sender by reply and delete this message without copying or disclosing
it.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
