RE: QCMDEXEC help, very confusing problem.

["Art Tostaine, Jr." <artjr@xxxxxxxxxxx>]

It's QCMDEXC


_________________
Art Tostaine, Jr.
CCA, Inc.
Jackson, NJ 08527

> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On
> Behalf Of Wills, Mike N. (TC)
> Sent: Wednesday, September 19, 2001 10:36 AM
> To: 'RPG400-L@midrange.com'
> Subject: QCMDEXEC help, very confusing problem.
>
>
> I am having a problem executing a command in a RPG program. I am using
> QCMDEXEC to execute a program. However as I am debugging it, I get this
> message.
>
> Message ID . . . . . . :   MCH3401       Severity . . . . . . . :   40
>
> Message type . . . . . :   Diagnostic
>
> Date sent  . . . . . . :   09/19/01      Time sent  . . . . . . :   09:23:31
>
>
>
> Message . . . . :   Cannot resolve to object QCMDEXEC. Type and Subtype
>   X'0201' Authority X'0000'.
> Cause . . . . . :   Either a system pointer or a data pointer can not be
>   resolved.
>     For a system pointer, it can not be resolved to object QCMDEXEC, type
> and
>   subtype X'0201', authorization X'0000', because either the named object
> was
>   not in any context referred to or the correct object was located but the
>   user profile did not have the required authority.
>     The object types for common type or subtype codes follow:
>     -- 0100-Access group, 0201-Program, 0401-Library,
>
>     For a data pointer, it can not be resolved because the named object is
> not
>   located within any program activation currently known to the process.
> Recovery  . . . :   Either specify the correct object name or specify the
>   correct authority for the object.
>
> Before I call this program I add the library that is needed for the command.
> Here is my code:
>
>  Evil      Cmd = 'SPL2STMF FILE(AP175_PRT) ' +  'JOB(' +
>              %Trim(JNum) + '/' + %Trim(JUser) +
>              '/' + %Trim(JName) + ') SPLNBR(' +
>              %Trim(SplNum) + ') FROM(' +
>              %Trim(FromPage) + ') TO(' + %Trim(ToPage) +
>              ') TOSTMF(' + Apos + %Trim(StreamFile) +
>              Apos + ') DIR(' + Apos + %Trim(DirName) +
>              Apos + ')'
>
>  Eval      Length = %Len(%Trim(Cmd))
>
>  Call      'QCMDEXEC'
>  Parm                    Cmd
>  Parm                    Length
>
> I know the command itself works, I have copied it and ran it.
> _______________________________________________
> 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.
>