John, Isn't this similar or the same as BPXWDYN....call to USS...
Regards, Scott IDF -----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of McKown, John Sent: Monday, February 11, 2008 3:20 PM To: [email protected] Subject: Re: Two COBOL questions > -----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 ---------------------------------------------------------------------- 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
