In our payroll system, eveyone has a seven-digit employee number with leading zeros being used to pad out the number. My employee number, for example, is 0014613. The leading zeros are necessary (payroll system is written in COBOL; employee number field is PIC X). Reading/writing the number from/to a text file preserves the leading zeros, but assigning that number to a variable results in the leading zeros being trucated. Is there a way to tell Reginald to preserve the leading zeros?
What you could do is, immediately after reading the number into some variable, append some letter to it (other than 'E') such as:
myvariable = myvariable || 'P'
Now MyVariable's value will be '0014613P' which REXX doesn't regard as a number, so no truncation of zeroes is performed. Of course, you can't then use it as a real number in REXX mathematical calculations.
And when you write it back out just clip off the last character:
搜索
论坛
Home
回顶部
1. Treating numeric strings as strings
g.yi.org Hits:0
