SJLennon
6 lines
173 B
RPGLE
6 lines
173 B
RPGLE
**Free
|
|
dcl-pr USAdrVal likeds(USAdrValDs) extproc('USADRVAL');
|
|
inAddr likeds(USAdrValDS);
|
|
end-pr;
|
|
//=== End of USAdrVal Prototype =====================================
|