Re: Parameters -- RPG400-L

You're right, I didn't look closely enough at your RQSDTA. You are actually
building it with quotes around &GQBOOK, so it will always have the same
length regardless of content. Except maybe the occasional embedded
apostrophe<g>.

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: Wednesday, January 31, 2001 8:07 AM
Subject: Re: Parameters


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


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