[open-cobol-list] FW: Error on index sequential file.

[Bill Klein]

My error.  I missed the FD REFFILE because the "FD" isn't in the A-margin.
That *is* a relatively common extension (but certainly NOT valid in the '85
Standard - but is valid in '02).

You don't check the file-status after the OPEN (of REFFILE or any of the
files) Nor do you have a DECLARATIVE.  Are you assuming that the system will
"fail" at OPEN if there is a problem?  you might want to check that the
OPENs all work. 

-----Original Message-----
From: address@hidden
[mailto:address@hidden On Behalf Of John R.
Culleton
Sent: Thursday, April 12, 2007 5:41 PM
To: address@hidden
Subject: [open-cobol-list] Error on index sequential file.

The enclosed program and a previous program that created an index 
sequential file were compiled and run under Open Cobol. The first one 
ran OK but the second one shown below blew up with a STATUS 30 on the 
second access to the IS file.  The first access worked. 

I recompiled both programs using Tiny and ran them. (Tiny and OC have 
different IS file layouts.) Both programs executed without error and 
the expected results were achieved. 

Here is the error I got from OC
:libcob: Permanent file error (STATUS=30) File : 'pfbref'
WARNING - Implicit CLOSE of REFFILE ("pfbref")
WARNING - Implicit CLOSE of OUTFILE ("pfbfound")
WARNING - Implicit CLOSE of INFILE ("pdftex.map")
and here is the program:

000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. TEMPLATE.
000030 AUTHOR. JOHN CULLETON.
000040 INSTALLATION. WEXFORDPRESS
000045            Eldersburg MD.
000047*SECURITY. Copyright 2006 John R. Culleton, Jr. 
000050*REMARKS.
000060*    THIS IS A TEMPLATE FOR OPEN COBOL AND HTCOBL.  
000070 ENVIRONMENT DIVISION.
000080 
000090 CONFIGURATION SECTION.
000100 SOURCE-COMPUTER.  
000110      Linux.
000120 OBJECT-COMPUTER. 
000230      Linux.
000140 
000150 INPUT-OUTPUT SECTION.
000160 FILE-CONTROL.
             SELECT INFILE ASSIGN TO "pdftex.map" ORGANIZATION IS LINE
                  SEQUENTIAL.
             SELECT REFFILE ASSIGN TO "pfbref" ORGANIZATION IS 
                   INDEXED SEQUENTIAL 
                   ACCESS IS DYNAMIC RECORD KEY IS PFBKEY.
             SELECT OUTFILE ASSIGN TO "pfbfound" ORGANIZATION IS 
                   INDEXED SEQUENTIAL 
                   ACCESS IS DYNAMIC RECORD KEY IS TFMKEY.

000180 DATA DIVISION.
000190
000200 FILE SECTION.
000210 FD  INFILE.
             01 INREC PICTURE X(240).
            FD  REFFILE.
            01 REFREC.
              02 PFBKEY PICTURE X(40).
       FD  OUTFILE.
             01 OUTREC.
              02 TFMKEY PICTURE X(40).
              02 PFBALT PICTURE X(40).
              02 DESC PICTURE X(240).
                
000220 WORKING-STORAGE SECTION.
             77  END-FILE-FLAG PICTURE X VALUE "N".
                  88 END-FILE VALUE "Y".
            77  INVALID-FLAG PICTURE X VALUE "N".
                   88 INVALIDD VALUE "Y".
            01  FIELDS.
000230     02  FIELDA   PICTURE X(40).
                 02  FIELDB   PICTURE X(200). 
                 02  FIELDC  PICTURE X(40). 
000240 PROCEDURE DIVISION.
000250 001-MAIN-PROCEDURE.
000260     OPEN INPUT INFILE OUTPUT OUTFILE I-O REFFILE.
                 PERFORM 100-READIT UNTIL END-FILE.
                 CLOSE INFILE OUTFILE REFFILE.
                 STOP RUN.
000270 100-READIT. 
           READ INFILE AT END MOVE "Y" TO END-FILE-FLAG.
           IF NOT END-FILE PERFORM 200-RECORD-ANALYSIS.
       200-RECORD-ANALYSIS.
           MOVE SPACES TO OUTREC FIELDS.
           MOVE "N" TO INVALID-FLAG. 
           UNSTRING INREC DELIMITED BY SPACE INTO FIELDA FIELDB. 
           UNSTRING INREC DELIMITED BY " <" INTO FIELDB FIELDC.
      *     DISPLAY FIELDA FIELDC.
      *     ACCEPT INVALID-FLAG.  
           MOVE FIELDC TO PFBKEY.
           READ REFFILE INVALID KEY MOVE "Y" TO INVALID-FLAG.
           IF NOT INVALIDD PERFORM 300-WRITE.
       300-WRITE. 
           MOVE FIELDA TO TFMKEY.
           MOVE FIELDC TO PFBALT.
           MOVE INREC TO DESC.
           WRITE OUTREC. 


Please assume that the left hand spacing was correct in the original.

Any thoughts on why the OC run errored off? 
-- 
John Culleton
Able Indexing and Typesetting
Precision typesetting (tm) at reasonable cost.
Satisfaction guaranteed. 
http://wexfordpress.com



_________________________________________________________________
Need personalized email and website? Look no further. It's easy
with Doteasy $0 Web Hosting! Learn more at www.doteasy.com

-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys-and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
open-cobol-list mailing list
address@hidden
https://lists.sourceforge.net/lists/listinfo/open-cobol-list