RE: What am I missing, or free-form data structures and the group data area.

It took me a while but now I remember what group job are.

I used them close to 25 years ago. In those time, we did not have PC, only twinax terminal with only one session available. I used group job to simulate multiple sessions.

The code/programs still using group job must be very old.

I would strongly suggest letting go of group job and use a regular data area to exchange information between programs instead.

Gee, I feel old right now.


Denis Robitaille
Chef de service TI - Solution Entreprise
Infrastructure et Opérations
Cascades Centre des technologies,
412 Marie Victorin
Kingsey falls(Québec) Canada J0A 1B0
T : 819 363 6130


-----Message d'origine-----
De : RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de Charles Wilt
Envoyé : 9 mars 2016 14:29
À : RPG programming on the IBM i (AS/400 and iSeries) <rpg400-l@xxxxxxxxxxxx>
Objet : Re: What am I missing, or free-form data structures and the group data area.

Yeah I found references to it...

But nothing about how to access it from RPG.

The RPG manuals just talks about the LDA and PDA...

Charles

On Wed, Mar 9, 2016 at 2:15 PM, Michael Ryan <michaelrtr@xxxxxxxxx> wrote:

https://www.ibm.com/support/knowledgecenter/ssw_i5_54/rbam6/grpda.htm


On Wed, Mar 9, 2016 at 2:14 PM, Michael Ryan <michaelrtr@xxxxxxxxx> wrote:

I'd have free form be a standard rather than using GDAs.

On Wed, Mar 9, 2016 at 2:11 PM, Charles Wilt
<charles.wilt@xxxxxxxxx>
wrote:

Interesting...in 20 years...never heard of a Group Data Area...

Neither the RPG/400 nor RPG IV manuals mention it.

How do you define it in fixed format?



On Tue, Mar 8, 2016 at 10:37 PM, Chris Pando
<chris.pando@xxxxxxxxx>
wrote:

Unless I have missed something, I have found a deficiency in the

free-form

data structure definition.

If I want to use the local data area, mapped to a data structure

defined by

an external (reference) file (e.g. LDA), my declaration would
look like:

Dcl-DS lda Ext DtaAra(*LDA) End-DS

No problem. But I can't do the same for the group data area
(which our

menu

system uses).

Dcl-DS gda Ext DtaAra(*GDA) End-DS

generates an RNF3343, which says only *LDA and *PDA are valid.

Have I found something free-from can't do (makes it sort of hard
to

argue

free-form should be the standard), or am I missing something?

chris@xxxxxxxxx
www.brilligware.com
--
This is the RPG programming on the IBM i (AS/400 and iSeries)

(RPG400-L)

mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please
take a moment to review the archives at
http://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

--
This is the RPG programming on the IBM i (AS/400 and iSeries)
(RPG400-L) mailing list To post a message email:
RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list
options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take
a moment to review the archives at
http://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

--
This is the RPG programming on the IBM i (AS/400 and iSeries)
(RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.