Passing Parameters to a program in SBMJOB

[ Converted text/html to text/plain ]

Hi all!



I am facing a problem.

There is a CL program CMBPR4F1 which passes parameters to another CL program
CMBPR4F. Following is the CL Program:

...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+..
           PGM        PARM(&PGUSER &PGRPID &RPT01 &RPT02 &RPT03 +
                        &RPT04 &RPT05 &JNBR)



           DCL        VAR(&PGUSER) TYPE(*CHAR) LEN(10)
           DCL        VAR(&RPT01) TYPE(*CHAR) LEN(1)
           DCL        VAR(&RPT02) TYPE(*CHAR) LEN(1)
           DCL        VAR(&RPT03) TYPE(*CHAR) LEN(1)
           DCL        VAR(&RPT04) TYPE(*CHAR) LEN(1)
           DCL        VAR(&RPT05) TYPE(*CHAR) LEN(1)
           DCL        VAR(&JNBR) TYPE(*CHAR) LEN(6)
           DCL        VAR(&PGRPID) TYPE(*DEC) LEN(2 0)

           SBMJOB     CMD(CALL PGM(CMBPR4F) PARM(&PGUSER &PGRPID +
                        &RPT01 &RPT02 &RPT03 &RPT04 &RPT05 +
                        &JNBR)) HOLD(*YES)

           ENDPGM

Now, CMBPR4F does not receive &PGRPID though it exists in CMBPRF1. Is it
because &PGRPID is numeric ?
Other parameters are received correctly.



Please advise.
Regards,

Hrishikesh Kotwal

>From: "Bill"
>Reply-To: rpg400-l@midrange.com
>To:
>Subject: Re: Barcode Printing
>Date: Thu, 6 Dec 2001 14:54:09 -0800
>
>Murtuza,
>
>The others have mentioned the use of the barcode keyword in DDS, which is the
>easiest way to go; so I'll take the other side of the coin and assume you are
>trying to send barcode data via printer escape codes or another similar
method.
>
>There are 2 keys to getting this to work:
>1. Use the data transparency command. This is the value of Hex 03 followed by
>a hex byte representation of the number of bytes to pass through to the
printer
>un-translated. ex: X'03041b105524' .
>2. The printer file must either be created as RplUnprt(*No) or Overridden to
>this value.
>
>Bill
>
> > I'm print Barcode form AS400.
> >
> > I'm Creating printing file with some data in it and
> > then send it to Printer Session for printing Barcode
> > but it is printing like a text not like a Barcode.
> > Kindly help me for this how can I print Barcode from
> > AS400 and to assign Barcode Printer to it. I'm using
> > ARGOX Barcode Printer.
>
>
>
>_________________________________________________________
>Do You Yahoo!?
>Get your free @yahoo.com address at http://mail.yahoo.com
>
>_______________________________________________
>This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
>To post a message email: RPG400-L@midrange.com
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
>or email: RPG400-L-request@midrange.com
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/rpg400-l.
>

------------------------------------------------------------------------------
Get your FREE download of MSN Explorer at http://explorer.msn.com[1]

===References:===
  1. http://go.msn.com/bql/hmtag_itl_EN.asp