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