Re: Indexed Sequental file - junk when created...

From: Thomas A. Li (tli_at_corporola.com)
Date: 12/16/03 

Date: Tue, 16 Dec 2003 20:22:18 GMT

The problem is that
either you changed the record length
or the file is crashed after opened as sequential file by Cobol program
or by manual edition.

Check for the original program for the same key and record length.

Thomas

"ritchie" <ritchie_s01@yahoo.com> wrote in message
news:3bee6ba6.0312161036.28edd6f8@posting.google.com...
> Hi
>
> Wanted to ask if anyone knew anything about this??
>
> I a trying to create a program where I open up an Indexed sequental
> file and write to it but when I look in the file it is filled with
> junk.
>
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> 000290 INPUT-OUTPUT SECTION.
> 000300 FILE-CONTROL.
> 000310 SELECT credit-ac ASSIGN TO "Credit-Details.dat"
> 000311 ORGANIZATION IS Indexed
> 000312 ACCESS MODE IS DYNAMIC
> 000313 RECORD KEY IS credit-ac-no
> 000314 ALTERNATE RECORD KEY IS credit-ac-last-name
> 000315 WITH DUPLICATES.
> .
> .
> .001530 OPEN I-O credit-ac.
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>
> Each time I run the program it get's filled with even more junk plus
> what I'm writing to it, and after a couple of runs, when I run the
> program I get an error.
> Has anybody had this problem before?
>
> Any help aprechiated,
> Thanks,
> Ritchie

Relevant Pages

  • sequential file formats
    ... a COBOL program on the ... mainframe will create a sequential file with a four byte header that ... report back the format of the file that is produced. ... if you can not hex dump on your selected ...
    (comp.lang.cobol)
  • Re: sequential file formats
    ... a COBOL program on the ... Have you noticed that a sequential file on the mainframe, ... >report back the format of the file that is produced. ...
    (comp.lang.cobol)
  • Re: COBOL program
    ... I'm in need of a COBOL program that makes the reading of a member in a partitioned data set. ... the file is just an 80-byte fixed length sequential file. ... For IBM-MAIN subscribe / signoff / archive access instructions, ... send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO ...
    (bit.listserv.ibm-main)
  • Re: How to skip records while reading
    ... > Skipping the last five records of a sequential file is difficult to do ... > in a COBOL program, unless you know in advance how many records are on ... PERFORM Count-MyFile ... OPEN INPUT MyFile ...
    (comp.lang.cobol)