× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@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 thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.