RE: CL commands from within RPG

Yes and no ;-)

No, since you can't call commands, you can only CALL programs.

Yes, since you could wrap a given CL command in a CL program and just call that.

Bingo, no APIs used <grin>

However, the APIs aren't that difficult.  In particular, the C-runtime system() 
function is quite simple:
     h dftactgrp( *NO ) 
     h bnddir( 'QC2LE' )

      // system() - Execute a command, returns 0 if successful.  Sets 
gExcptMsgId on failure
     d SYSTEM_CALL_SUCCESSFUL...
     d                 c                   0
     d wkExcptMsgId    s              7a   import('_EXCP_MSGID')

     d System          pr            10i 0 extproc('system')
     d  command                        *   value options(*STRING)

      /free
         System( 'CLRPFM MYFILE ');
      
         *INLR = *ON';
      /end-free

HTH,

Charles Wilt
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of dpalme@xxxxxxxxxxx
> Sent: Thursday, April 07, 2005 10:24 AM
> To: RPG Group
> Subject: CL commands from within RPG
> 
> 
> Can someone tell me if there is a simple method of calling a 
> CL command from 
> within an RPG program without having to use API's?
> 
> 
> -- 
> This is the RPG programming on the AS400 / iSeries (RPG400-L) 
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
>