Retrive messsage sent by commands executed by QCMDEXC

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.