There's a C function called atoi() that would probably work. Note the H-specs, specifically DFTACTGRP and BNDDIR.
here's the code...(I have no idea how this will look to you so I apologize in advance if it's difficult to read/copy))
H dftactgrp(*no) actgrp(*caller) bnddir('QC2LE')
*
* Prototype of a c-function used to convert alpha to integer
D atoi pr 10i 0 extproc('atoi')
D str * value options(*string)
*.----------------------------------------------------------------+
D Char s 5 inz('55555')
D Numeric s 10 0
*.----------------------------------------------------------------+
/free
Numeric = atoi(Char);
dsply Numeric;
*inlr = *on;
return;
/end-free
Glenn Hopwood
Sr Programmer/Analyst
Electric Mobility
856-468-1000 x2545
llandreth@xxxxxxxxx
llandreth@xxxxxxxxx
Sent by: owner-ftpapi@xxxxxxxxxxxxx 10/31/2005 03:44 PM
|
|