Marso
Active User
Joined: 13 Mar 2006
Posts: 281
Location: Israel
|
|
|
|
"Before" shows what I found in somebody else REXX programs.
"After" shows what I used instead...
| Code: |
Len = Length(Output_Db2) + 1 /* Before: */
To_L = 8 - Len + 1
Output_Db2 = OVERLAY(' ',Output_Db2,Len,To_L)
Output_Db2 = Left(Output_Db2,8) /* After: */ |
| Code: |
Len = Length(MAX_DB2) /* Before: */
If Len = 1 Then
MAX_DB2 = '00'||MAX_DB2
If Len = 2 Then
MAX_DB2 = '0'||MAX_DB2
MAX_DB2 = Right(MAX_DB2,3,'0') /* After: */ |
|
|
