RE: Problems with submitting a job in CL

You cannot combine a qualified "set" of parameters into one variable.  (Did
I say that right?)

Use JOBQ(&JOBL/&JOBQ) instead of JOBQ(&JOBQS).  You do not have to be
concerned whether the library named in &JOBL has any trailing blanks.  The
system takes care of that for you.

hth
- Dan Bale

> -----Original Message-----
> From: Hartman Richard [SMTP:richard.hartman@brctsg.com]
> Sent: Wednesday, May 24, 2000 1:44 PM
> To:   'RPG400-L@midrange.com'
> Subject:      Problems with submitting a job in CL
> 
> 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
+---