On Wed, 30 Apr 2008 11:54:37 -0500, David Eisenberg
<[EMAIL PROTECTED]> wrote:
>Is there a way to prevent the truncation, so that my application always
>receives a full eight-byte value, preferably blank-padded?
Bill Wilkie's program approach is the ideal; that being stated, here is how you
would do it:
REXX:
address ISPEXEC
"VGET (ZUSER) SHARED"
retc = rc
parm = substr(zuser,1,8,' ')
CLIST:
ISPEXEC VGET (ZUSER) SHARED
SET &RC=&LASTCC
SET &PARM=&SUBSTR(1:8,&STR(&ZUSER )) /* Seven trailing blanks.
The SKELS would look like
...PARM='&PARM'
Regards,
David L. Hempstead
Sr. Software Engineer
CA, MF Storage Mgmt
----------------------------------------------------------------------
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
