RE: Problems with submitting a job in CL

Thanks again to all that replied to my email.

Yes, the following line should have had JOBQ instead of OUTQ, must have been
a typing error.
>>For testing I used a valid OUTQ on our system called QPGMR, and the
library

Yes, also the *BCAT should have been *TCAT. Still received the same error
though, when I ran it.

The JOBQ(&JOBL/&JOBQ) works great!!! 

The reason we were stringing the variables together is because of the
following statement, which was after the statement in the CL that stringed
the variables together.
IF         COND(&JOBQ *EQ ' ') THEN(CHGVAR +   
                  VAR(&JOBQS) VALUE('*JOBD'))       

Would I need two submit statements conditioned by an IF statement, 
one with JOBQ(&JOBL/&JOBQ) for a non-blank JOBQ and *LIBL or valid library,
and the other submit statement with just JOBQ(&JOBQ) to cover the above IF
statement which changes
&JOBQS to *JOBD.

Thanks again.
Richard Hartman


> -----Original Message-----
> From: Paul Tuohy [SMTP:tuohyp@attglobal.net]
> Sent: Wednesday, May 24, 2000 4:47 PM
> To:   RPG400-L@midrange.com
> Subject:      Re: Problems with submitting a job in CL
> 
> Hi Richard,
> 
> Try changing the JOBQ paramter on the SBMJOB to JOBQ(&JOBL/&JOBQ).
> 
> hth
> 
> Paul Tuohy
> 
> Hartman Richard wrote:
> 
> > If a passed in parameter shows that the user wants to submit a report,
> the
> > following CL program is called  which submits it's self and later on in
> the
> > program it calls the report program.  The user can also specify what
> JOBQ
> > they want the program to run in when submitted, which is passed through
> the
> > LDA.
> >
> > For testing I used a valid OUTQ on our system called QPGMR, and the
> library
> > QGPL which is where it lives. Unfortunately, I am receiving the error at
> the
> > bottom of this email. The error also occurs when using a valid name and
> > *LIBL as the library list.
> >
> > Any advice on how I can fix the error would be greatly appreciated.
> >
> > Richard Hartman
> >
> > DCL        VAR(&JOBQ) TYPE(*CHAR) LEN(10)  /* JOBQ     */
> > DCL        VAR(&JOBL) TYPE(*CHAR) LEN(10)  /* JOBQ LIB */
> >
> > RTVDTAARA  DTAARA(*LDA (002 10)) RTNVAR(&JOBQ)
> > RTVDTAARA  DTAARA(*LDA (012 10)) RTNVAR(&JOBL)
> >
> > CHGVAR     VAR(&JOBQS) VALUE(&JOBL *BCAT '/' *CAT +
> >              &JOBQ)
> >
> > SBMJOB     CMD(CALL PGM(RCB430RC) PARM(&PBORI &PSTSFLG +
> >              &POVRFLG &PAPLYFLG &PAPLYDT &PORDER)) +
> >              JOB(RCB430RC) JOBQ(&JOBQS) +
> >              INLLIBL(*CURRENT) SCDDATE(&SCDT) +
> >              SCDTIME(&SCTM)
> >
> > Value 'QGPL/QPGMR ' for parameter JOBQ not a valid name.
> > Error found on SBMJOB command.
> > Function check. CPF0001 unmonitored by RCT381RC at statement 0000012800,
> >   instruction X'0000'.
> >
> > +---
> > | This is the RPG/400 Mailing List!
> > | To submit a new message, send your mail to RPG400-L@midrange.com.
> > | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> > | To unsubscribe from this list send email to
> RPG400-L-UNSUB@midrange.com.
> > | Questions should be directed to the list owner/operator:
> david@midrange.com
> > +---
> 
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---