Re: Parameters

[VWilliamson@xxxxxxxxxxx]

As I said earlier &GQBOOK is an external data structure in the RPG program.
All the subfields are different options that the user can enter for what
type of report they want.  The last position is a 1 byte field for an
option selection which may or may not be blank.  I looked at the wrong
external description before also.  This one is actually 80 bytes long.  I
may be wrong, but everything I have seen on this subject since V1R2 only
relates to the 32 byte length being a problem when you use the CMD
parameter on the SBMJOB.  Not the RQSDTA parm.  Looks like my copy/paste
might not have come through very clearly.  Sorry.

Valene M. Williamson
Glazers
Dallas, TX


----- Original Message -----



What's the value in &GQBOOK? As long as the last character is non-blank you
won't have a problem.

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

----- Original Message -----
From: <VWilliamson@glazers.com>
To: <RPG400-L@midrange.com>
Sent: Tuesday, January 30, 2001 1:42 PM
Subject: Re: Parameters


>
> I have seen many questions about passing long parameters with many
> different answers.  I have never seen anyone give this answer.  The
> following is a technique which we use that we originally used on the S38,
> because the SBMJOB command did not have a CMD parameter (at least not
> through release 6 the last one I was on).  It may not look pretty, but it
> works, and does not have the 32 character parm problem when using the CMD
> parameter.  This situation is an online RPGIV program, which calls a CLP,
> which submits itself to batch.  GQPARM is an externally defined data
> structure, which we use to pass data to a lot of programs, online and
> batch.  It is 201 bytes long with 52 fields.  This particular code was
> written on V1R2 and it still works.
>
> 0548.00 C*
> 0549.00 C                   Call      'GQ6010CL'
> 0550.00 C                   Parm                    GQBOOK
> 0558.00
>
C*************************************************************************
>  Columns . . . :    1 100                                      Browse
>  SEU==>
> 0092.00
> 0093.00              CHGVAR     VAR(&RQSDTA) VALUE('CALL PGM(GQ6010CL)
PARM
> (' +
> 0094.00                           *CAT '''' *CAT &GQBOOK *CAT '''' *CAT
> ')')
> 0095.00
> 0096.00              SBMJOB     JOB(QDBOOKPRNT) JOBQ(QDJOBQ) RQSDTA
> (&RQSDTA)
> 0097.00
> 0098.00              RETURN
> 0099.00
>
+---



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