Re: Problems with submitting a job in CL

Richard,

replace the *BCAT with *TCAT.

*BCAT removes the leading blanks of your constant '/' and *inserts* one 
which makes your &JOBQS to 'QGPLblank/QPGMR'.

*TCAT will remove the trailing blanks of the library and insert none.

I like to use the !! for *CAT and !< for *TCAT and !> for *BCAT. The > 
points to the variable whose blanks are removed.

That's the reason for the CPD0078. Did you play around with the blank in 
your post? :-)

0.02 Euro
Anton Gombkötö


At 19:43 24.05.00, you 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
>+---

Mit freundlichen Grüssen / Best regards

Anton Gombkötö
mailto:Gombkoetoe@ASsoft.com

AS Software GmbH
http://www.assoft.com

Jedleseer Strasse 3
A-1210  Wien

Tel: +43 1 278 15 01-0
Fax:+43 1 278 15 01-22

+---
| 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
+---