Re: Table Definitions DDS or SQL? -- RPG400-L

Actually, I did. But I am now just lurking to see where the conversation
goes. I am learning a lot.

On 10/9/06, rob@xxxxxxxxx <rob@xxxxxxxxx> wrote:


I think you started the thread, so when banging out a test file I often
name them after the initiator.
But perhaps JOEP, JOEP2 and JOEP3 were too close in name as to cause
confusion.

Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





Joep Beckeringh <joep@xxxxxxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
10/08/2006 07:04 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: Table Definitions DDS or SQL?






OK, I'm a bit late reading up on my mail, but next time you define a
file to allow crap into, would you mind terribly using a different name?
Otherwise I'll have to think hard what nasty thing to call Rob :-)

Joep Beckeringh


rob@xxxxxxxxx wrote:
> Like Denis, most of our files are defined using DDS.  But that's
packaged
> software for you.
> I define my new files using SQL.  Then again, I am probably the only
one.
>
> Here's something to chew over:
>
> Problem with DDS created files.  DDS created files are built to allow
crap
>
> in most fields.  Some legacy thing when people got off grunting,
thumping
> their chest and writing batch programs that checked fields down to the
> byte level for data that is right.  Like the first COBOL program I wrote

> in a class - make sure a field that is supposed to be numeric, is.  DDS
> files are fast to write to, but slow to read from because they don't
care
> what kind of data you write to them.  But they'll check the data quality

> on a read.  When you think about it, most of your data access is
reading,
> right?
> SQL created files check data on a write.  Not on a read.
> Recently saw a classic example of this.
> Compile this:
>                 R JOEPR
>                   MYCHAR         5A
>                   MYPACK         9P 2
> with CRTPF FILE(ROB/JOEP) SRCFILE(ROB/QDDSSRC)
> Run this command:  CRTPF FILE(ROB/JOEP2) RCDLEN(10)
> STRSQL
> INSERT INTO ROB/JOEP2 VALUES('NOWISTHETI')
>
> CREATE TABLE ROB/JOEP3
> (MYCHAR CHAR (5 ) NOT NULL WITH DEFAULT,
>  MYPACK DEC (9 , 2) NOT NULL WITH DEFAULT)
> RCDFMT JOEP3R
> (exit sql)
>
> CPYF FROMFILE(JOEP2) TOFILE(JOEP) MBROPT(*ADD) FMTOPT(*NOCHK)
> Notice:  Allowed crap into JOEP.  You have a packed decimal field with
> alpha characters in it.
>
> But CPYF FROMFILE(JOEP2) TOFILE(JOEP3) MBROPT(*ADD) FMTOPT(*NOCHK)
> Tells me to bugger off with CPF5035-Data mapping error on member JOEP3.
>
> Now if I attempt to read the corrupted DDS created file with a simple
> RPGLE cycle program
>      FJOEP      IP   E             DISK
>      FQSYSPRT   O    F   80        PRINTER
>      OQSYSPRT   D
>      O                       MYCHAR
>      O                                              ' '
>      O                       MYPACK
> I will get RNQ0907-Decimal-data error occurred.
>
> Verifying that DDS files check data integrity on read.  SQL created
files
> check data integrity on write.
>
> Rob Berendt

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