RE: Field Names

I don't think you supplied enough information about what you are attempting for me to be able to determine the viability of what you are seeking.

How's that for gobbledygook?

Duane

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Buddy McClean
Sent: Friday, June 7, 2019 11:11 AM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: Field Names

I was trying to avoid the compare/selects, hoping I was just missing something in a simple statement or 2.

Duane Scott <dscott@xxxxxxxxxxx> 6/7/2019 9:57 AM >>>

Would something like this work:


Select;
When Field1 = 'FIELD2';
<do something with FIELD2>
When Field2 = 'FIELD3';
<do something with FIELD3>;
Other;
<do entirely something else >;
Endsl;


Duane

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Buddy McClean
Sent: Friday, June 7, 2019 10:46 AM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: Field Names

Thanks, unfortunately I know zilch about SQL.

B Stone <bvstone@xxxxxxxxx> 6/7/2019 9:36 AM >>>

Dynamic SQL would probably be the best way. Build the select statement using the name of the field to select data from.


Bradley V. Stone
).

On Fri, Jun 7, 2019 at 9:33 AM Buddy McClean wrote:

Good Day,

Perhaps a silly question and an obvious answer, but I seem to have a
bit of fog about it.

What is the best way to translate a field that contains the name of
another field to be able to reference the second field. Other than do
a bunch of compares.

DCL-S Field1 char(8) INZ('FIELD2')

To be able to use FIELD2 in calculations. FIELD2 is an actual field in
a record, but I only have the literal name of the field.

CONFIDENTIALITY NOTICE: This electronic message transmission is intended only for the person or entity to which it is addressed and may contain information that is privileged, confidential or otherwise protected from disclosure. If you have received this transmission, but are not the intended recipient, you are hereby notified that any disclosure, copying, distribution or use of the contents of this information is strictly prohibited. If you have received this e-mail in error, please contact NALC Health Benefit Plan at 703-729-4677 and delete and destroy the original message and all copies.
--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: https://urldefense.proofpoint.com/v2/url?u=https-3A__lists.midrange.com_mailman_listinfo_rpg400-2Dl&d=DwICAg&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=LifWsbmXTz4aXbMMEwOi1aJ3sWD5nsP_QI4reJ8MbDM&m=eVB-DDyal555vCZKJ0hBGBAFI5wsMW9X6qJMpiLWv2I&s=W3-9sKaAwfQWjlv0F0esdWF5s2qziiEebSFYhGw3xzU&e=
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at https://urldefense.proofpoint.com/v2/url?u=https-3A__archive.midrange.com_rpg400-2Dl&d=DwICAg&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=LifWsbmXTz4aXbMMEwOi1aJ3sWD5nsP_QI4reJ8MbDM&m=eVB-DDyal555vCZKJ0hBGBAFI5wsMW9X6qJMpiLWv2I&s=KlcfhLPzJ_53-P2Z52tQYdCkZ2dPRJutJvEtLYJNjGo&e=.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support https://urldefense.proofpoint.com/v2/url?u=http-3A__midrange.com&d=DwICAg&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=LifWsbmXTz4aXbMMEwOi1aJ3sWD5nsP_QI4reJ8MbDM&m=eVB-DDyal555vCZKJ0hBGBAFI5wsMW9X6qJMpiLWv2I&s=HqhM_gxBI8eIlcMyAye2u-gG60zRODZua3u8FrZX9L8&e= by shopping at https://urldefense.proofpoint.com/v2/url?u=http-3A__amazon.com&d=DwICAg&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=LifWsbmXTz4aXbMMEwOi1aJ3sWD5nsP_QI4reJ8MbDM&m=eVB-DDyal555vCZKJ0hBGBAFI5wsMW9X6qJMpiLWv2I&s=T6xcwog0RKkia55UUqixUvKeN_IVoDNd7XwAUpW7lts&e= with our affiliate link: https://urldefense.proofpoint.com/v2/url?u=https-3A__amazon.midrange.com&d=DwICAg&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=LifWsbmXTz4aXbMMEwOi1aJ3sWD5nsP_QI4reJ8MbDM&m=eVB-DDyal555vCZKJ0hBGBAFI5wsMW9X6qJMpiLWv2I&s=PN3mM7SAbDg_xEN1UcHkzUVhj0PaHGg8SmdIOznKc3M&e=
--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: https://urldefense.proofpoint.com/v2/url?u=https-3A__lists.midrange.com_mailman_listinfo_rpg400-2Dl&d=DwICAg&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=LifWsbmXTz4aXbMMEwOi1aJ3sWD5nsP_QI4reJ8MbDM&m=eVB-DDyal555vCZKJ0hBGBAFI5wsMW9X6qJMpiLWv2I&s=W3-9sKaAwfQWjlv0F0esdWF5s2qziiEebSFYhGw3xzU&e=
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at https://urldefense.proofpoint.com/v2/url?u=https-3A__archive.midrange.com_rpg400-2Dl&d=DwICAg&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=LifWsbmXTz4aXbMMEwOi1aJ3sWD5nsP_QI4reJ8MbDM&m=eVB-DDyal555vCZKJ0hBGBAFI5wsMW9X6qJMpiLWv2I&s=KlcfhLPzJ_53-P2Z52tQYdCkZ2dPRJutJvEtLYJNjGo&e=.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support https://urldefense.proofpoint.com/v2/url?u=http-3A__midrange.com&d=DwICAg&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=LifWsbmXTz4aXbMMEwOi1aJ3sWD5nsP_QI4reJ8MbDM&m=eVB-DDyal555vCZKJ0hBGBAFI5wsMW9X6qJMpiLWv2I&s=HqhM_gxBI8eIlcMyAye2u-gG60zRODZua3u8FrZX9L8&e= by shopping at https://urldefense.proofpoint.com/v2/url?u=http-3A__amazon.com&d=DwICAg&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=LifWsbmXTz4aXbMMEwOi1aJ3sWD5nsP_QI4reJ8MbDM&m=eVB-DDyal555vCZKJ0hBGBAFI5wsMW9X6qJMpiLWv2I&s=T6xcwog0RKkia55UUqixUvKeN_IVoDNd7XwAUpW7lts&e= with our affiliate link: https://urldefense.proofpoint.com/v2/url?u=https-3A__amazon.midrange.com&d=DwICAg&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=LifWsbmXTz4aXbMMEwOi1aJ3sWD5nsP_QI4reJ8MbDM&m=eVB-DDyal555vCZKJ0hBGBAFI5wsMW9X6qJMpiLWv2I&s=PN3mM7SAbDg_xEN1UcHkzUVhj0PaHGg8SmdIOznKc3M&e=