[open-cobol-list] weird runtime error

[Matt Young]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

I just upgraded to .33 and I finnally compiled a subprogram but now my
programs are throwing strange file errors.

here is the error:
ibcob: Record overflow (STATUS=44) File : 'master.dat'
WARNING - Implicit CLOSE of master.dat

Here is the program source
 IDENTIFICATION DIVISION.
 PROGRAM-ID. init.
 AUTHOR. Matt Young.
 INSTALLATION. UNF.
 DATE-WRITTEN. 02-10-2006.
 DATE-COMPILED.

*************************************************************
*  FUNCTION:  Creates THE KEYED FILE USED FOR THE MASTER    *
*             FILE FOR LAB3                                 *
*  INPUT FILE:                                              *
*        MASTER      master.dat                             *
*************************************************************
 ENVIRONMENT DIVISION.

 CONFIGURATION SECTION.

 SOURCE-COMPUTER. PC.
 OBJECT-COMPUTER. PC.
 INPUT-OUTPUT SECTION.
 FILE-CONTROL.
     SELECT MASTER
            ASSIGN TO 'master.dat'
            ORGANIZATION IS RELATIVE
            ACCESS MODE IS SEQUENTIAL
            RELATIVE KEY IS MA-KEY.
 DATA DIVISION.
****************
 FILE SECTION.
 FD  MASTER
     LABEL RECORDS ARE STANDARD.
 01  MA-PAGE.
     05 MASTER-HEADER.
        10 MA-NEXT-OVFLO  PIC 99.
        10 MA-PAGE-NUM    PIC 99.
        10 MA-NUM-REC     REDEFINES MA-PAGE-NUM
                          PIC 99.
     05 MASTER-REC OCCURS 5 TIMES DEPENDING ON MA-NUM-REC
                          INDEXED BY MA-REC-IDX.
        10 MA-INV-NUM     PIC 9999.
        10 MA-PAT-NUM     PIC 999.
        10 MA-DOC-COD     PIC XX.
        10 MA-AMT-OWE     PIC S9(04).
        10 MA-DTE-VIS     PIC 9(8).




 WORKING-STORAGE SECTION.

 01  WS-KEYS.
     05 MA-KEY            PIC 999.

 01  WS-ERRORS.
     05 INVALID-KEY-ERR   PIC X(30).


 PROCEDURE DIVISION.
*********************
 0000-MAIN-MODULE.
     OPEN OUTPUT MASTER
        MOVE 1 TO MA-KEY
        MOVE 7 TO MA-NEXT-OVFLO
        MOVE 5 TO MA-PAGE-NUM
        WRITE MA-PAGE

        MOVE 2 TO MA-KEY

*       START MASTER KEY = 2
           PERFORM UNTIL MA-KEY >6
              PERFORM 1000-WRITE-PRIME-PAGE
              ADD 1 TO MA-KEY
              END-PERFORM
*           END-START

     CLOSE MASTER
     STOP RUN.

 1000-WRITE-PRIME-PAGE.
     MOVE 0 TO MA-NEXT-OVFLO
     MOVE 0 TO MA-NUM-REC
*     MOVE MA-KEY TO MA-INV-NUM (1)
     WRITE MA-PAGE.


- --

Cheers,
Matt Young
address@hidden
GPG Public Key: http://youngdev.net/?page=gpg
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.2 (GNU/Linux)
Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org

iD8DBQFD9QhWOLPtyzxdcQYRAhuDAJwJTZIkPu31YyUd/RgV6Pv+XEiZggCeKdY7
8NbBHQbtyaRtaGyziVN0XZw=
=LxDD
-----END PGP SIGNATURE-----