midrange.com code scratchpad |
Name:
Call to CL from RPG
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
01/18/2010 04:54:17 pm
|
IP:
Logged
|
|
Description:
Module CLLE bound to RPGLE
|
Code:
- D AcqSysNm PR EXTPROC ( *CL : 'SYS000£' )
- D LIKE ( DFN_SYSNM )
-
- // In myPgm
- gSysNm = AcqSysNm ( );
-
- //Module SYS000£
- PGM PARM(&OSYSNM)
-
- DCL VAR(&SYSNAME) TYPE(*CHAR) LEN(10)
- DCL VAR(&OSYSNM) TYPE(*CHAR) LEN(10)
-
- RTVNETA SYSNAME(&SYSNAME)
- CHGVAR &OSYSNM VALUE(&SYSNAME)
-
- ENDPGM
-
|
|
|