× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. November 2004

Re: Prototype Calls

Ron,

Here is the complete prototype and variables from the RPGNext library...

d sysCommand      pr                  extpgm('QCMDEXC')
d commandString               3000    const   
d commandLength                 15  5 const
d QcmdCmd         s           3000    inz
d QcmdLength      s             15  5 inz(%size(QcmdCmd))

Defining QcmdLength this way means you never have to do anything other
than use the parameter name (assuming you populate and use QcmdCmd...)

EX:
    c                   Eval      QcmdCmd = 'RMVLIBLE LIB(CVTSPLV4R1)'
    c                   CallP(E)  sysCommand( QcmdCmd : QcmdLength )

Of course, you can name "sysCommand" to something else if you prefer.  It would 
also be pretty simple to write your own wrapper procedure.  That way, you can 
call your 
own procedure and let it handle the size parameter.

Also, a lot of people use the "system" C api, but I don't have a prototype for 
that handy.  

HTH,

Joel
http://www.rpgnext.com


On Fri, 2004-11-05 at 15:29, RPower@xxxxxxxxxx wrote:
> Sorry,
> 
>     d Cmd             s           3000A 
> 
> Should I use Varying here?
> 
> Ron Power
> Programmer
> Information Services
> City Of St. John's, NL
> P.O. Box 908
> St. John's, NL
> A1C 5M2
> Tel: 709-576-8132
> Email: rpower@xxxxxxxxxx
> Website: http://www.stjohns.ca/
> ___________________________________________________________________________
> Success is going from failure to failure without a loss of enthusiasm. - 
> Sir Winston Churchill
> 
> 
> 
> 
> MWalter@xxxxxxxxxxxxxxx 
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 05/11/2004 11:49 AM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> 
> 
> To
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> cc
> 
> Subject
> Re: Prototype Calls
> 
> 
> 
> 
> 
> 
> 
> If cmd is defined as VARYING, there is no need to use %trimR(). I don't 
> see
> the definition of CMD.
> 
> Thanks,
> 
> Mark
> 
> Mark D. Walter
> Senior Programmer/Analyst
> CCX, Inc.
> mwalter@xxxxxxxxxx
> http://www.ccxinc.com
> 
> 
> |---------+----------------------------->
> |         |           RPower@xxxxxxxxxx |
> |         |           Sent by:          |
> |         |           rpg400-l-bounces@m|
> |         |           idrange.com       |
> |         |                             |
> |         |                             |
> |         |           11/05/2004 10:13  |
> |         |           AM                |
> |         |           Please respond to |
> |         |           RPG programming on|
> |         |           the AS400 /       |
> |         |           iSeries           |
> |---------+----------------------------->
>  
> >----------------------------------------------------------------------------------------------------------------------|
>   |                                               |
>   |       To:       RPG programming on the AS400 / iSeries 
> <rpg400-l@xxxxxxxxxxxx>                                       |
>   |       cc:                                               |
>   |       Subject:  Prototype Calls         |
>  
> >----------------------------------------------------------------------------------------------------------------------|
> 
> 
> 
> 
> Ahem,
> Writing a new program where I'm using QCMDEXC and I prototyped the call :)
>  First time I've used this, and I have to say.  Very KOOL.  No more coding
> Exsr over and over lol.  Be gentle it's my first one.
> 
>      D*--------------------------------------------------
>      D* Procedure name: Qcmdexc
>      D* Purpose:        To allow the running of CL commands
>      D* Returns:
>      D* Parameter:      Cmd => Command to run
>      D* Parameter:      CmdLen => Length of command to run
>      D*--------------------------------------------------
>      D Qcmdexc         PR                  EXTPGM('QCMDEXC')
>      D  Cmd                        3000A   Options(*VARSIZE) Const
>      D  CmdLen                       15P 5 Const
> 
>      ?* Remove library for CoolSpools just in case already there
>      c                   Eval      Cmd = 'RMVLIBLE LIB(CVTSPLV4R1)'
>      c                   CallP(E)  QCmdExc(Cmd:%Len(%TrimR(Cmd)))
> 
> This is the correct way yes?
> 
> 
> Ron Power
> Programmer
> Information Services
> City Of St. John's, NL
> P.O. Box 908
> St. John's, NL
> A1C 5M2
> Tel: 709-576-8132
> Email: rpower@xxxxxxxxxx
> Website: http://www.stjohns.ca/
> ___________________________________________________________________________
> Success is going from failure to failure without a loss of enthusiasm. -
> Sir Winston Churchill
> 
> 
> This e-mail communication and accompanying documents is intended only for
> the individual or entity to which it is addressed and may contain
> information that is confidential, privileged or exempt from disclosure
> under applicable law.  Any use of this information by individuals or
> entities other than the intended recipient is strictly prohibited.  If you
> have received this in error, please notify the sender and delete all the
> copies (electronic or otherwise) immediately.
> --
> 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.
> 
> 
> 
> 
> 
> --
> 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.
> 
> 
> 
> 
> This e-mail communication and accompanying documents is intended only for the 
> individual or entity to which it is addressed and may contain information 
> that is confidential, privileged or exempt from disclosure under applicable 
> law.  Any use of this information by individuals or entities other than the 
> intended recipient is strictly prohibited.  If you have received this in 
> error, please notify the sender and delete all the copies (electronic or 
> otherwise) immediately.
> --
> 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.

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.