Re: CL Problems

["Peter Dow" <pcdow@xxxxxxxxx>]

Hi Mike,

You can specify a command on the SBMJOB command, in fact, that's what the
parameter is for calling a program as well, CMD().

    SBMJOB JOB(test) CMD(CALL PGM(PgmA) PARM(A 1))

would pass A as a 32-byte field, and 1 as a 15.5 packed decimal field. If
you defined a command, say cmdPgmA, with 3 parameters and PgmA as the
command processing program:

[source member for CmdPgmA]
    CMD    PROMPT('Program A')
    PARM   KWD(P1) TYPE(*CHAR) LEN(50)
    PARM   KWD(P2) TYPE(*DEC) LEN(3 0)

[create command command]
    CRTCMD CMD(*CURLIB/CmdPgmA) PGM(*LIBL/PgmA) SRCFILE(*LIBL/QCMDSRC)

then you could use

    SBMJOB JOB(test) CMD(cmdPgmA p1(A) p2(1))

and it would pass A as a 50-byte field, and 1 as a 3.0 packed decimal field.

hth,
Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax



----- Original Message -----
From: "Wills, Mike N. (TC)" <MNWills@taylorcorp.com>
To: <MIDRANGE-L@midrange.com>
Sent: Thursday, May 17, 2001 11:10 AM
Subject: RE: CL Problems


> Then just use QCMDEXEC to call it?
>
> -----Original Message-----
> From: James W. Kilgore [mailto:eMail@James-W-Kilgore.com]
> Sent: Thursday, May 17, 2001 11:34 AM
> To: MIDRANGE-L@midrange.com
> Subject: Re: CL Problems
>
>
> Mike,
>
> I see that you have received the 'work around' for passing parameters >
> 32 characters to a CL program.
>
> I would like to suggest a cleaner alternative.
>
> Write a command.
>
> So the RPG program calls a CL program, which retrieves some job
> attributes, then submits a command to the jobq which ...
>
> Using commands retains parameter length and you don't wind up with
> something that may confuse someone later on.
>
> "Wills, Mike N. (TC)" wrote:
> >
> > I have a RPG program that passes parameters to a CL program that
retrieves
> > some job attributes, then submits another CL to the jobq which will
build
> a
> > PDF file and put it on the IFS.
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---