Re: Using the QzshSystem Qshell API

["Chris Devous" <cdevous@xxxxxxxxxxx>]

David,

I think you need to null terminate your command string.  Try appending X'00 to
pcmdstr.

I am not in a position to try this right off, but I'd like to know if that's 
the issue.

--Chris


On 5 Apr 2002 at 10:57, David Morris wrote:

> Group,
>
> This was also posted to the Java-l
> list and is included here at the
> list moderator's suggestion:
>
> After creating an RPGIV procedure
> that calls QzshSystem, I can't seem to
> get it to work. I always get a return
> code of 7 and a message that the
> file was not found. My best guess is
> that it is expecting the command to
> be passed as ASCII. The API is pretty
> simple and I thought I would have
> this running in a few minutes, instead
> I have spent a couple of hours
> with no luck.
>
> I have tried various prototypes for
> the API, including
>
> DQzshSystemAPI    PR            10I 0 EXTPROC('QzshSystem')
> D PR_Cmd                          *   VALUE
>
> and
>
> DQzshSystemAPI    PR            10I 0 EXTPROC('QzshSystem')
> D PR_Cmd                      5000A   CONST
>
> and
>
> DQzshSystemAPI    PR            10I 0 EXTPROC('QzshSystem')
> D PR_Cmd                      5000A   VALUE OPTIONS(*STRING)
>
> I think any of these should work.
>
> Here is an example of what I have tried:
>
> C                   EVAL      CmdStrLen = %LEN(%TRIM(Cmd)) + 1
> C                   ALLOC     CmdStrLen     pCmdStr
> C                   EVAL      %STR(pCmdStr: CmdStrLen) = Cmd
> C                   EVAL      RtnCod = QzshSystemAPI(pCmdStr)
> C                   IF        RtnCod <> *ZEROS
> C                   CALLP     SndUnixErr('Error in Qsh Command: ' +
> C                                          %TRIM(Cmd))
> C                   EVAL      RtnErr = *ON
> C                   ENDIF
> C                   DEALLOC                 pCmdStr
>
> Does anyone have any ideas?
>
> Thanks,
>
> David Morris
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>