RE: Parameters

["Andrew Borts" <andrewb@xxxxxxxxxxxxxxxxxxx>]

Actually - I had a similar problem with large fields going to a CL program,
but I used the length parameter, and took advantage of the %BIN function in
CL to read the length, then trap the size and substring it out into the data
that I wanted instead of a HUGE mess...

-Andrew B.
Work (561) 994-2660x2211
Home (954) 349-0312
Work E-mail Andrewb@setacorporation.com
Home E-mail adborts@attglobal.net
Palm E-mail andrewb@omnisky.net

-----Original Message-----
From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]On
Behalf Of Peter Dow
Sent: Tuesday, January 30, 2001 11:28 PM
To: RPG400-L@midrange.com
Subject: Re: Parameters

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

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