|
midrange.com
Thats just an cust and paste error. The program does compile.
8/21/2003 1:21:04 PM, rob@xxxxxxxxx wrote:
>
>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.
>
>
>
>_______________________________________________
>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.
>
>
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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
