Re: Retrive messsage sent by commands executed by QCMDEXC

[rob@xxxxxxxxx]

Easy, this is not a valid compile:
c                   callp     $$CmdExc$$
c                              ('SBMJOB CMD(CALL PGM(DNGN)
c                   Eval      queuname = SDSJOB_NAME + '*LIBL'
The number of parenthesis don't match.

Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin



                                                                                
                                                         
                      "Jason F.                                                 
                                                         
                      Kleinemas"                 To:       rpg400-l 
<rpg400-l@xxxxxxxxxxxx>                                              
                      <JasonKleinemas@xxx        cc:                            
                                                         
                      cominc.com>                Fax to:                        
                                                         
                      Sent by:                   Subject:  Retrive messsage 
sent by commands executed by QCMDEXC                         
                      rpg400-l-bounces@xx                                       
                                                         
                      drange.com                                                
                                                         
                                                                                
                                                         
                                                                                
                                                         
                      08/21/2003 01:14 PM                                       
                                                         
                      Please respond to                                         
                                                         
                      RPG programming on                                        
                                                         
                      the AS400 / iSeries                                       
                                                         
                                                                                
                                                         





Try as I might I can't seem the get the message from the sbmjob. Attached
is some test code I'm testing with. Is this even close?


H DftActGrp(*No) ActGrp(*Caller) BndDir('QC2LE') DeBug(*Yes)
H DatFmt(*Iso)
D$$CmdExc$$       PR             7A
D  CMDSTR                     5000A   VALUE
DErr100           DS
D Err100BytePro                 10i 0
D Err100ByteAvl                 10i 0
D Err100ExptID                   7a
D Err100Reserved                 1a
DMYPSDS          SDS
D SDSJOB_NAME           244    253
dlen              s             10i 0 Inz
dfmt              s              8a   Inz('RCVM0100')
dqueuname         s             20a   Inz(*Blank)
dmsgtype          s             10a   Inz('*LAST')
dmagkey           s              4a   Inz(*Blank)
dwait_time        s             10i 0 Inz(0)
dmagact           s             10a   Inz('*SAME')
DQMHM010000       DS
D QMHBRTN                       10i 0
D QMHBAVL00                     10i 0
D QMHMS03                       10i 0
D QMHMI01                        7a
D QMHMT01                        2a
D QMHMK01                        4a
D QMHERVED10                     7a
D QMHSIDCS                      10i 0
D QMHCSIDR                      10i 0
D QMHDRTN                       10i 0
D QMHDAVL                       10i 0
D QMHMD                        200a
c                   callp     $$CmdExc$$
c                              ('SBMJOB CMD(CALL PGM(DNGN)
c                   Eval      queuname = SDSJOB_NAME + '*LIBL'
c                   Eval      len = %len(QMHM010000)
c                   Call      'QMHRCVM'
c                   Parm                    QMHM010000
c                   Parm                    len
c                   Parm                    fmt
c                   Parm                    queuname
c                   Parm                    msgtype
c                   Parm                    magkey
c                   Parm                    wait_time
c                   Parm                    magact
c                   Parm                    Err100
c                   dump
c                   eval      *inlr = *on
P$$CmdExc$$       B
D$$CmdExc$$       PI             7A
D  CMDSTR                     5000A   VALUE
D#qLen            S             15P 5 INZ(0)
C                   Eval      #qLen = %len(%trimr(CMDSTR))
C                   Call      'QCMDEXC'
C                   Parm                    CMDSTR
C                   Parm                    #qLen
C                   Return    *Blank
P$$CmdExc$$       E

Jason Kleinemas
Programmer/Analyst
Solcom Inc.
The Solutions Company http://www.solcominc.com
2516 E. 52nd St. N.
Sioux Falls, SD 57104
Desk Phone: 605-367-1546
Office Phone: 605-357-8212
AIM: JasonSolCom
jasonkleinemas@xxxxxxxxxxxxx
Certified twice....... but still a couple PTFs away from Nirvana.


_______________________________________________
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.