× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. March 2016

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

The several data area CL commands can work with the *GDA - it's a shared space that each group job can see - CHGDTAARA can be used to change its contents - but it's CL-only - you won't be able to read it in RPG, but you can use QCMDEXC to change it.

On 3/9/2016 1:56 PM, Jeff Young wrote:
AFIK (haven't used the GDA data area in over 30 years), RPG has never had
the ability to read this.
This was used in conjunction with the Group Jobs (Transfer to Group Job
(TFRGRPJOB)) to record the group job names that were active so you could
transfer between them. When this function was used, the system created /
updated the GDA with the name of the group job being transferred to if it
was not already started, and removed it using the End Group Job (ENDGRPJOB)
command.


Jeff Young
Sr. Programmer Analyst

On Wed, Mar 9, 2016 at 2:43 PM, Doug Davie <dougdavie@xxxxxxxxx> wrote:

"...(makes it sort of hard to argue free-form should be the standard) ..."

According to the docs, *GDA isn't valid in fixed form either.
So dos that mean RPG shouldn't be the standard either?

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

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.

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



As an Amazon Associate we earn from qualifying purchases.

This thread ...
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.