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



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.


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.