HP3000-L Archives

September 2004, Week 4

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Reading an unnumbered file
From:
Dave Vorgang <[log in to unmask]>
Reply To:
Dave Vorgang <[log in to unmask]>
Date:
Tue, 28 Sep 2004 07:27:45 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (53 lines) 
I am having a problem reading a file in COBOL which contains the
following records: 
2004092420041005
2004120320041214
2005022520050308
2005042920050510

The file type is:
ACCOUNT=  SIS         GROUP=  DATA    

FILENAME  CODE  ------------LOGICAL RECORD-----------  ----SPACE----
                  SIZE  TYP        EOF      LIMIT R/B  SECTORS #X MX

VBM150F3           16B  FA           4          4 213       16  1  2

The fd is:
 FD PARM-FILE
 RECORD CONTAINS 16 TO 100 CHARACTERS.
 01 PF-REC.
     05 PF-PROGRESS-DATES          OCCURS 4 TIMES.
         10 PF-PROG-START-DATE     PIC X(08).
         10 PF-PROG-END-DATE       PIC X(08).

The open is:
*
*        Retrieve Progress Report dates.
*
     OPEN INPUT PARM-FILE.

     READ PARM-FILE AT END
         DISPLAY "VBM150F3 does not exist."
         STOP RUN
     END-READ.

     CLOSE PARM-FILE.

The file is being treated as a numbered file and it does not read in the
last 8 characters.

How do I read in all the data that is in this file?

Thanks,


Dave Vorgang
Senior (and getting older everyday) Programmer / Analyst
Medford School District - Information Technology
(541) 842-1021
mailto:[log in to unmask]

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2