RE: avoid to use the wrong fields

LIKEREC auto qualifies the data structure.

What would work is another data structure that is not qualified and has
all the fields you need in it.

Here is how I've done this type of processing (on V7R1):

FCPA21AFM CF E WORKSTN INFDS(DSPFINFDS)
F SFILE(SCNSFL1:RRN1)

// This definition must be in the mainline otherwise it doesn't overlay
the proper fields. So, it cannot be inside a sub-procedure.
D InSCNSFL1 E DS EXTNAME(CPA21AFM:SCNSFL1)
// these definitions can be inside a sub-procedure.
D CurrSCNSFL1 DS LIKEREC(SCNSFL1:*ALL) INZ
D PriorSCNSFL1 DS LIKEREC(SCNSFL1:*ALL) INZ
D OutSCNSFL1 DS LIKEREC(SCNSFL1:*OUTPUT) INZ

// the chain populates the unqualified fields in InSCNSFL1
// the eval-corr Populates the matching fields between the qualified DS
and the unqualified DS.

CHAIN RRN1 SCNSFL1;
EVAL-CORR PriorSCNSFL1 =InSCNSFL1;

// read next rrn
RRN1 += 1;
CHAIN RRN1 SCNSFL1;
EVAL-CORR CurrSCNSFL1 =InSCNSFL1;

// go back to prior rrn.
RRN1 -= 1;
EVAL-CORR OutSCNSFL1 = PriorSCNSFL1;
UPDATE SCNSFL1 OutSCNSFL1;



Chris Hiebert
Programmer/Analyst
Disclaimer: Any views or opinions presented are solely those of the
author and do not necessarily represent those of the company.


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of p.caroti@xxxxxxxx
Sent: Thursday, August 08, 2013 11:16 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: avoid to use the wrong fields


Hi

i'm tryng to use data structure, to store informations about
WRITE/UPDATE/CHAIN both for Data Base files and Display files; example
for DSPF i code Data structure for every record format like this:
D S01Ds Ds LikeRec(S01:*All) Inz
Sfl
D C01Ds Ds LikeRec(C01:*All) Inz
SflCtl


then i when i write or update the records S01 or C01 i use :
write S01 S01Ds;
or
ExFmt C01 C01Ds;

but with this tecnique, i have the problem that i have to remember to
prefix all my file's fields as, if I use "customer_code" instead of
"S01Ds.customer_code" the program is generated with success, but the
data is not (in this example) displayed in the screen. Is there any
tecnique to avoid this or i'm wrong in something ? do you use this
tecnique ?

Thanks in advance for you suggestion.