RE: Free form question

Yep here's the entire program:

FSvcVHdL0 IF E K DISK

d idx s like(svcnum)
/free
idx = 230;
chain idx Svcvhdl0;
dsply svcnum;
chain (idx) Svcvhdl0;
dsply svcnum;
*INLR = *ON;
return;
/end-free

Here's the output:
DSPLY 230
DSPLY 230

The record with RRN# 230 has svcnum = 458.

Charles

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Lim Hock-Chai
Sent: Thursday, November 01, 2007 2:58 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Free form question

Charles,
Are you saying that on your F spec, myfile is coded as K on
RAT column and the compiler is not error out the "chain idx
myfile;" statement?


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Wilt, Charles
Sent: Thursday, November 01, 2007 1:45 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Free form question

Ok,

So I was wrong.

looks like
chain idx myfile;
chain (idx) myfile;

are both treated as chains by key field.

Sorry about the mis-information...

Charles

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Wilt, Charles
Sent: Thursday, November 01, 2007 2:31 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Free form question

No it won't.

RPG always allows access to a file via RRN. Even if it defined as
keyed.

Charles

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Lim Hock-Chai
Sent: Thursday, November 01, 2007 2:29 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Free form question

Depending on the F spec, compiler will error out one of those two
chain statements in your example.

I really not sure why compiler need developer to tell him

if the chain

is by key or by RRN. It should be able to know that from

the F spec,

just the fix format.

This e-mail transmission contains information that is

intended to be

confidential and privileged. If you receive this e-mail

and you are

not a named addressee you are hereby notified that you are not
authorized to read, print, retain, copy or disseminate this
communication without the consent of the sender and that

doing so is

prohibited and may be unlawful. Please reply to the message
immediately by informing the sender that the message was

misdirected.

After replying, please delete and otherwise erase it and any
attachments from your computer system. Your assistance in

correcting

this error is appreciated.

--
This is the RPG programming on the AS400 / 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.

This e-mail transmission contains information that is intended to be
confidential and privileged. If you receive this e-mail and
you are not
a named addressee you are hereby notified that you are not
authorized to
read, print, retain, copy or disseminate this communication
without the
consent of the sender and that doing so is prohibited and may be
unlawful. Please reply to the message immediately by informing the
sender that the message was misdirected. After replying,
please delete
and otherwise erase it and any attachments from your computer system.
Your assistance in correcting this error is appreciated.

--
This is the RPG programming on the AS400 / 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.


--
This is the RPG programming on the AS400 / 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.

This e-mail transmission contains information that is intended to be confidential and privileged. If you receive this e-mail and you are not a named addressee you are hereby notified that you are not authorized to read, print, retain, copy or disseminate this communication without the consent of the sender and that doing so is prohibited and may be unlawful. Please reply to the message immediately by informing the sender that the message was misdirected. After replying, please delete and otherwise erase it and any attachments from your computer system. Your assistance in correcting this error is appreciated.