 |
 |
 |
MI program MEDIT - Edit numeric variable
This program has been compiled under V3R2MEDIT eases the use of the EDIT API's. On later releases we have the built-in functions %editc and %editw, but for those of you who haven't upgraded here it is:
| Nbr | Parameter | Length | Usage |
|---|---|---|---|
| 1 | Numeric variable | Any size and length | Input |
| 2 | Number of digits | Packed 2,0 | Input |
| 3 | Number of decimal positions | Packed 2,0 | Input |
| 4 | Variable type | Char 10 | Input |
| 5 | Edited string | Char 80 | Output |
| 6 | Edit code | Char 1 | Input |
| Optional parameter group | |||
| 7 | Edit word | Char 20 | Input |
| 8 | Edit word length | Packed 2,0 | Input |
Variable type can be *BINARY, *PACKED or *ZONED
This program with source is Freeware
Download (2 KB) MEDIT.
To install:
- create an empty save file on your AS/400
- start an ftp session and log on to you AS/400
- set binary transfer mode with the bin ftp command
- Unzip medit.zip using WinZip
- put medit.sav to the save file you just created
- restore MEDIT from the save file to any library. Save library is UTLSYS.