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:
  1. D AcqSysNm        PR                  EXTPROC ( *CL : 'SYS000£' )     
  2. D                                     LIKE ( DFN_SYSNM )              
  3.  
  4. // In myPgm
  5.  gSysNm = AcqSysNm ( ); 
  6.  
  7. //Module SYS000£
  8. PGM        PARM(&OSYSNM)                       
  9.                                                
  10. DCL        VAR(&SYSNAME) TYPE(*CHAR) LEN(10)   
  11. DCL        VAR(&OSYSNM) TYPE(*CHAR) LEN(10)    
  12.                                                
  13. RTVNETA    SYSNAME(&SYSNAME)                   
  14. CHGVAR     &OSYSNM VALUE(&SYSNAME)             
  15.                                                
  16. ENDPGM                                         
  17.  
© 2004-2019 by midrange.com generated in 0.006s valid xhtml & css