Cobol Help

S

[SSA]HellSpawn

Veteran XV
In one of my classes I needed to write a program that opened two files and inputed their data into a master file. Everytime I try to open it though i get a unexpected error dealing with it opening the files, I'm not really sure where I messed up at. Any ideas would be appreciated.
Code: 
       IDENTIFICATION DIVISION.
       PROGRAM-ID. Program1 AS "McLaughlinproject4.Program1".
       AUTHOR.
           DANIEL MCLAUGHLIN.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT RENTAL-FILE
               ASSIGN TO 'D:\2381DATAFILES\CH0404A.DAT'
               ORGANIZATION IS LINE SEQUENTIAL.  
           SELECT SALES-FILE
               ASSIGN TO 'D:\2381DATAFILES\CH0404B.DAT'
               ORGANIZATION IS LINE SEQUENTIAL.  
           SELECT MASTER-FILE
               ASSIGN TO 'D:\2381DataFiles\MASTERFILE.DAT'
               ORGANIZATION IS LINE SEQUENTIAL.        
           
       DATA DIVISION.
       FILE SECTION.
       FD   RENTAL-FILE
            RECORD CONTAINS 23 CHARACTERS.
       01   RENTAL-OUTPUT-REC.
            05  RENTAL-ITEM-IN              PIC X(3).                 
            05  RENTAL-VIDEO-IN             PIC X(17).
            05  RENTAL-TAPES-IN             PIC X(3).
       FD   SALES-FILE 
            RECORD CONTAINS 23 CHARACTERS.
       01   SALES-OUTPUT-REC.
            05  SALES-ITEM-IN               PIC X(3).
            05  SALES-VIDEO-IN              PIC X(17).
            05  SALES-TAPES-IN              PIC X(3).
       FD   MASTER-FILE
            RECORD CONTAINS 26 CHARACTERS.
       01   MASTER-FILE-REC.
            05  MASTER-ITEM-OUT             PIC X(3).
            05  MASTER-VIDEO-OUT            PIC X(17).
            05  MASTER-RENTAL-OUT           PIC X(3).
            05  MASTER-TAPES-OUT            PIC X(3).
                    
       
       WORKING-STORAGE SECTION.
       01   MASTER-ITEM-IN                 PIC X(3).
       01   MASTER-VIDEO-IN                PIC X(17).
       01   MASTER-RENTAL-IN               PIC X(3).
       01   MASTER-TAPES-IN                PIC X(3).
       01   ARE-THERE-MORE-RECORDS         PIC X(3) VALUE 'YES'.
       
       PROCEDURE DIVISION.
       100-MAIN-MODULE.
           OPEN INPUT   RENTAL-FILE
                INPUT   SALES-FILE
                OUTPUT  MASTER-FILE
           PERFORM UNTIL ARE-THERE-MORE-RECORDS = 'NO '
                READ RENTAL-FILE
                   AT END
                       MOVE 'NO ' TO ARE-THERE-MORE-RECORDS
                   NOT AT END             
                       PERFORM 200-RENTAL-RTN
                END-READ  
                READ SALES-FILE
                   AT END
                       MOVE 'NO ' TO ARE-THERE-MORE-RECORDS
                   NOT AT END             
                       PERFORM 200-SALES-RTN
                       PERFORM 200-MASTER-RTN
                END-READ      
           END-PERFORM
           CLOSE RENTAL-FILE
                 SALES-FILE
                 MASTER-FILE
           STOP RUN.
       200-RENTAL-RTN.
           MOVE RENTAL-ITEM-IN   TO MASTER-ITEM-IN
           MOVE RENTAL-VIDEO-IN  TO MASTER-VIDEO-IN
           MOVE RENTAL-TAPES-IN  TO MASTER-RENTAL-IN.
       200-SALES-RTN.    
           MOVE SALES-TAPES-IN   TO MASTER-TAPES-IN.
       200-MASTER-RTN.    
           MOVE MASTER-ITEM-IN   TO MASTER-ITEM-OUT
           MOVE MASTER-VIDEO-IN  TO MASTER-VIDEO-OUT
           MOVE MASTER-RENTAL-IN TO MASTER-RENTAL-OUT
           MOVE MASTER-TAPES-IN  TO MASTER-TAPES-OUT
           WRITE MASTER-FILE-REC.                      
                                    
       END PROGRAM Program1.
 
OK. I don't know jack about COBOL, but are the folder names case-sensitive? Cause if so, you have an inconsistency at

SELECT MASTER-FILE
ASSIGN TO 'D:\2381DataFiles\MASTERFILE.DAT'
ORGANIZATION IS LINE SEQUENTIAL.

Anybody actually know COBOL around here? (I tried)
 
Are you using Microfocus to do that in a desktop environment? If so check their
documentation to see how to setup files for i\o. The syntax looks fine, it's probably something to do with how the compiler is expecting to see the files allocated.

I haven't touched cobol in about 10 years but thats my guess.
 
Mr Roboto said:
Jesus christ they still teach COBOL?!?!?!?
Click to expand...

You would be shocked at how many companies still have massive amounts of programs written in cobol. Almost all of UPS's mission critical applications are written in it, most major medical\pharmaceutical and dont even get started on government systems.
 
I took it when I was your age and that was a LOOOONG time ago:)
Don't remember shit about it though:(
Sorry.
 
Zear said:
OK. I don't know jack about COBOL, but are the folder names case-sensitive? Cause if so, you have an inconsistency at

SELECT MASTER-FILE
ASSIGN TO 'D:\2381DataFiles\MASTERFILE.DAT'
ORGANIZATION IS LINE SEQUENTIAL.

Anybody actually know COBOL around here? (I tried)
Click to expand...
Thanks for the help, i'll try this tomorrow.
 
You must log in or register to reply here.
Back
Top