David Eisenberg wrote:
Anyone,
I'm working with a skeleton that generates an EXEC statement that looks like
this:
//STEP1 EXEC PGM=MYPROG,REGION=4M,PARM='&ZUSER'
I wish to pass the value in ZUSER to MYPROG, but I see that if the TSO userid
is < 8 characters long, the trailing blanks from the ZUSER variable are
truncated, and are not being passed to my assembler application. I.e., if the
userid is "USER1", I get a 5-byte parm string instead of an 8-byte parm string
padded with blanks (or nulls, or anything).
Is there a way to prevent the truncation, so that my application always
receives a full eight-byte value, preferably blank-padded?
Thank you!
David
If you are z/OS 1.8 or later, you can use the extended
built-in function &LEFT, like:
)SEL MYUSER=&LEFT(&ZUSER,8)
then use &MYUSER in your skeleton
Might be simpler just to do the work in your Assembler program, though.
<ad>
We offer a robust, full, rich course in Dialog Manager:
five fun-filled, thrill-packed days. Details here:
http://www.trainersfriend.com/TSO_Clist_REXX_Dialog_Mgr/a810descrpt.htm
</ad>
Kind regards,
-Steve Comstock
The Trainer's Friend, Inc.
303-393-8716
http://www.trainersfriend.com
z/OS Application development made easier
* Our classes include
+ How things work
+ Programming examples with realistic applications
+ Starter / skeleton code
+ Complete working programs
+ Useful utilities and subroutines
+ Tips and techniques
==> Check out the Trainer's Friend Store to purchase z/OS <==
==> application developer toolkits. Sample code in four <==
==> programming languages, JCL to Assemble or compile, <==
==> bind and test. <==
==> http://www.trainersfriend.com/TTFStore/index.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
