Re: QCMDEXEC help, very confusing problem.

["Andrew Goade" <agoade@xxxxxxxxxxxx>]

Mike,
It looks like you just misspelled QCMDEXC.

Andy




                    "Wills, Mike N.
                    (TC)"                    To:     "'RPG400-L@midrange.com'" 
<RPG400-L@midrange.com>
                    <MNWills@taylorco        cc:
                    rp.com>                  Subject:     QCMDEXEC help, very 
confusing problem.
                    Sent by:
                    rpg400-l-admin@mi
                    drange.com


                    09/19/01 09:35 AM
                    Please respond to
                    rpg400-l






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.