Re: Template DS subfield types not as expected...

Mark has already covered the RCDFMT keyword in SQL so I'll just cover the second point.

This is off the top of my head with no testing as I'm kind busy today but ... RPG should only care if you are using native READ/WRITE operations. Even then, I seem to recall that if you use the QUALIFIED keyword on the file then you don't have to worry about the format name.

On 2013-07-05, at 8:15 AM, "Briggs, Trevor (TBriggs2)" <TBriggs2@xxxxxxxxxxx> wrote:

Jon, you say:
"By the way - you don't need to rename formats in RPG you can give it
the name you want in SQL..."

In my (fuzzy) recollection, an RPG program wouldn't compile if the file
and format names were the same. Is this only true if you are using
native I/O on the file and therefore not necessary if you are only using
it for field definitions?

Trevor Briggs
Analyst/Programmer
Lincare, Inc.
(727) 431-1246
TBriggs2@xxxxxxxxxxx
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jon Paris
Sent: Wednesday, July 03, 2013 7:59 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: Template DS subfield types not as expected...

You've already had the answer. i.e. this is what RPG has always done -
nothing to do with Template or ...

But you _could_ use a different approach which is to make the file a
template and then use LikeRec to define the DS.

Haven't time to test but this should work.

Ftestfile1 if e disk Template
d pi

d t_ds ds template

LikeRec(testfile1)

By the way - you don't need to rename formats in RPG you can give it the
name you want in SQL off the top of my head the keyword is RCDFMT I
think.


On 2013-07-03, at 4:03 PM, Robert Rogerson <rrogerson@xxxxxxxxxxx>
wrote:

Hi all,
I created a short program which shows my problem. I am coding a

template

DS but the subfields defined (using like the file fields which are

zoned)

are showing as packed. I don't know why this is happening. Can

anyone

explain it?
Also, if I comment out the file and uncomment the external DS

pointing to

the file all the fields are zoned as expected.

To create the test table:
CREATE TABLE MYLIB/TESTFILE1 (
"ITEM" NUMERIC(6,0) NOT NULL,
"STORE" NUMERIC(3,0) NOT NULL
)

The test program:
Hoption(*nodebugio:*srcstmt)
Ftestfile1 if e disk Rename(testfile1:

testfile1r)

d pi
d*testfile1Ds e ds extname(testfile1)
d t_ds ds template
d field1 like(item)
d field2 like(store)
d myDs ds likeds(t_ds)
d
/free
*inlr = *on ;
Return;
/end-free

And a few lines from the compile listing which compiles with no

errors.

Also, I am on V7R1:

000001=ITESTFILE1R
000002=I S 1 6 0ITEM
000003=I S 7 9 0STORE

Global Field References:
Field Attributes References (D=Defined
M=Modified)
*RNF7031 FIELD1 P(6,0) 000600D
TEMPLATE
*RNF7031 FIELD2 P(3,0) 000700D
TEMPLATE
*RNF7031 ITEM P(6,0) 000600

1000002D

*RNF7031 MYDS DS(6) 000800D
*RNF7031 STORE P(3,0) 000700

1000003D

*RNF7031 T_DS DS(6) 000500D 000800
TEMPLATE

I'm really stumped on this one and figured if anyone would know

they'd be

here.

Thanks,

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

Jon Paris

www.partner400.com
www.SystemiDeveloper.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.

************************************************************************************************************************************************************************************************************
This message originates from Lincare Holdings Inc. It contains information which may be confidential or privileged and is intended only for the individual or entity named above.
It is prohibited for anyone else to disclose, copy, distribute or use the contents of this message.
All personal messages express views solely of the sender, which are not to be attributed to Lincare Holdings Inc., and may not be copied or distributed without this disclaimer.
If you received this message in error, please notify us immediately at MailAdmin@xxxxxxxxxxx or (800) 284-2006.
************************************************************************************************************************************************************************************************************

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

Jon Paris

www.partner400.com
www.SystemiDeveloper.com