RE: Ignore Data Decimal Errors

[Joel Fritz <JFritz@xxxxxxxxxxxxxxxx>]

If this is a one shot effort, and you can't use the bad records, you could
just delete them.  

If you want to skip the first 15 records, try this:

                     Override with Data Base File (OVRDBF)

 

Type choices, press Enter.

 

File being overridden  . . . . . FILE           xxx

Overriding to data base file . . TOFILE         yyyy

  Library  . . . . . . . . . . .

Overriding member  . . . . . . . MBR

Starting position in file:       POSITION

  Retrieve order . . . . . . . .                *RRN

  *RRN-rcd nbr *KEY-nbr key flds                16

  *KEY-rec format having key . .

  *KEY-key value . . . . . . . .

 

_______________________________________________________________

 

It should start you at record 16.  This assumes you're reading the file
sequentially.  

If the file has various access paths over it, and the file and its logicals
have names that can be represented by an expression with a wild card, you
can do a crtdupobj to another library creating empty clones of the entire
file family and copy only the good data to the clone physical.  

 

 

 

 ...


> -----Original Message-----
> From: VENU YAMAJALA [mailto:venu_yamajala@goodyear.com]
> Sent: Wednesday, March 10, 1999 2:20 PM
> To: MIDRANGE-L@midrange.com
> Subject: Re: Ignore Data Decimal Errors
> 
> 
> I already compiled the ILE with FIXNBR(*ZONED). Let me 
> explain what the exact
> problem is -
> 
> In my ILE pgm, I have a statement as
> 
> MOVEL(P) AMLAD       @@D(01)
> 
> @@D is a alpha data structure with each field length as 50. I 
> am reading AMLAD
> from a PF. This field is defined as 5 packed (0 decimals!!). 
> Some of the
> records in the file contain blanks in this AMLAD. The hex 
> value in this field
> is '000000' . (dsppfm, F10, F11) Surprisingly no sign bit!! I 
> beleive this
> record is written into the file as a single field instead of 
> moving valuies to
> each field. Now my ILE pgm, when reading this AMLAD is giving 
> me Data Decimal
> error.
> 
> Unfortunately, the first 15 records in the file have this 
> problem and the rest
> of the records are having good data. But due to this, I am 
> not able to go to
> the good data. Any help/suggestions is appreciated. TIA.
> 
> Rgds
> Venu
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to 
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: 
> david@midrange.com
> +---
> 
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---