Programming Forums > Application Development > Other Programming Languages

Ninjai · Oct 4th, 2004, 11:07 AM

Hi all

There's this program that I'm writing for school, and I get an error on the READIN part of the program, and I'm not sure why. Can someone pretty please help me out??

(Toggle Plain Text)

 * * * PROGRAM-ID. *ASSGN01.





 * * * ENVIRONMENT DIVISION.

 * * * INPUT-OUTPUT SECTION.

 * * * FILE-CONTROL.

 * * * SELECT FILEIN ASSIGN TO
 * * *-"H:\CPAN320\ASGN01.DAT"
 * * * ORGANIZATION IS LINE SEQUENTIAL.

 * * * SELECT PRFILE ASSIGN TO
 * * *-"H:\CPAN320\PRFILE.RPT"
 * * * ORGANIZATION IS LINE SEQUENTIAL.




 * * * DATA DIVISION.

 * * * FILE SECTION.

 * * * FD *FILEIN.

 * * * 01 *IN-RECORD * * * *PIC x(55).



 * * * FD *PRFILE.

 * * * 01 *PRINT-LINE * * * PIC x(133).





 * * * 01 *IN-EMP.
 * * * * * 05 *IN-EMP-NAME.
 * * * * * * * 10 *IN-EMP-FIRST-NAME * * PIC x(10).
 * * * * * * * 10 *IN-EMP-LAST-NAME * * *PIC x(10).
 * * * * * 05 *IN-EMP-ADDRESS * * * * * *PIC x(20).
 * * * * * 05 *IN-EMP-CITY * * * * * * * PIC x(15).



 * * * 01 *PR-EMP.
 * * * * * 05 * * * * * * * * * PIC x(6).
 * * * * * 05 *PR-EMP-NAME * * *PIC x(20).
 * * * * * 05 * * * * * * * * * PIC x(2).
 * * * * * 05 *PR-EMP-ADDRESS * PIC x(20).
 * * * * * 05 * * * * * * * * * PIC x(2).
 * * * * * 05 *PR-EMP-CITY * * *PIC x(15).

 * * * 01 *WS-EOF * * * * * * * PIC x(3) *VALUE 'NO '.
 * * * * * 88 EOF-REACHED * * * * * * * * VALUE 'YES'.




 * * * PROCEDURE DIVISION.

 * * * MAIN-PROC.
 * * * * * PERFORM INITIALIZATION.
 * * * [B]PERFORM READIN.[/B]
 * * * * * PERFORM HEADINGS.
 * * * * * PERFORM MAIN-LOOP
 * * * * * * * UNTIL EOF-REACHED.
 * * * * * PERFORM WRAPUP.
 * * * * * STOP RUN.



 * * * MAIN-LOOP.
 * * * * * PERFORM MOVE-FIELDS.
 * * * * * PERFORM PRINT-RECORD.



 * * * INITIALIZATION.
 * * * * * OPEN INPUT FILEIN
 * * * * * * * *OUTPUT PRFILE



 * *[B]READIN.[/B]
 * * * * * READ FILEIN INTO IN-EMP
 * * * * * * * * * AT END
 * * * * * * * * * * * MOVE 'YES' TO WS-EOF.



 * * * HEADINGS.
 * * * * * MOVE SPACES TO PR-EMP.
 * * * * * WRITE PRINT-LINE
 * * * * * * * FROM PR-EMP
 * * * * * * * * * AFTER ADVANCING PAGE.



 * * * MOVE-FIELDS.
 * * * * * MOVE SPACES TO PR-EMP.
 * * * * * MOVE IN-EMP-NAME TO PR-EMP-NAME.
 * * * * * MOVE IN-EMP-ADDRESS TO PR-EMP-ADDRESS.
 * * * * * MOVE IN-EMP-CITY TO PR-EMP-CITY.



 * * * PRINT-RECORD.
 * * * * * WRITE PRINT-LINE
 * * * * * * * FROM PR-EMP
 * * * * * * * * * AFTER ADVANCING 2 LINES.



 * * * WRAPUP.
 * * * * * MOVE SPACES TO PR-EMP.
 * * * * * WRITE PRINT-LINE
 * * * * * * * FROM PR-EMP
 * * * * * * * * * AFTER ADVANCING PAGE.
 * * * * * CLOSE FILEIN
 * * * * * * * * PRFILE.
 * * */

 * * * PROGRAM-ID. *ASSGN01.





 * * * ENVIRONMENT DIVISION.

 * * * INPUT-OUTPUT SECTION.

 * * * FILE-CONTROL.

 * * * SELECT FILEIN ASSIGN TO
 * * *-"H:\CPAN320\ASGN01.DAT"
 * * * ORGANIZATION IS LINE SEQUENTIAL.

 * * * SELECT PRFILE ASSIGN TO
 * * *-"H:\CPAN320\PRFILE.RPT"
 * * * ORGANIZATION IS LINE SEQUENTIAL.




 * * * DATA DIVISION.

 * * * FILE SECTION.

 * * * FD *FILEIN.

 * * * 01 *IN-RECORD * * * *PIC x(55).



 * * * FD *PRFILE.

 * * * 01 *PRINT-LINE * * * PIC x(133).





 * * * 01 *IN-EMP.
 * * * * * 05 *IN-EMP-NAME.
 * * * * * * * 10 *IN-EMP-FIRST-NAME * * PIC x(10).
 * * * * * * * 10 *IN-EMP-LAST-NAME * * *PIC x(10).
 * * * * * 05 *IN-EMP-ADDRESS * * * * * *PIC x(20).
 * * * * * 05 *IN-EMP-CITY * * * * * * * PIC x(15).



 * * * 01 *PR-EMP.
 * * * * * 05 * * * * * * * * * PIC x(6).
 * * * * * 05 *PR-EMP-NAME * * *PIC x(20).
 * * * * * 05 * * * * * * * * * PIC x(2).
 * * * * * 05 *PR-EMP-ADDRESS * PIC x(20).
 * * * * * 05 * * * * * * * * * PIC x(2).
 * * * * * 05 *PR-EMP-CITY * * *PIC x(15).

 * * * 01 *WS-EOF * * * * * * * PIC x(3) *VALUE 'NO '.
 * * * * * 88 EOF-REACHED * * * * * * * * VALUE 'YES'.




 * * * PROCEDURE DIVISION.

 * * * MAIN-PROC.
 * * * * * PERFORM INITIALIZATION.
 * * * [B]PERFORM READIN.[/B]
 * * * * * PERFORM HEADINGS.
 * * * * * PERFORM MAIN-LOOP
 * * * * * * * UNTIL EOF-REACHED.
 * * * * * PERFORM WRAPUP.
 * * * * * STOP RUN.



 * * * MAIN-LOOP.
 * * * * * PERFORM MOVE-FIELDS.
 * * * * * PERFORM PRINT-RECORD.



 * * * INITIALIZATION.
 * * * * * OPEN INPUT FILEIN
 * * * * * * * *OUTPUT PRFILE



 * *[B]READIN.[/B]
 * * * * * READ FILEIN INTO IN-EMP
 * * * * * * * * * AT END
 * * * * * * * * * * * MOVE 'YES' TO WS-EOF.



 * * * HEADINGS.
 * * * * * MOVE SPACES TO PR-EMP.
 * * * * * WRITE PRINT-LINE
 * * * * * * * FROM PR-EMP
 * * * * * * * * * AFTER ADVANCING PAGE.



 * * * MOVE-FIELDS.
 * * * * * MOVE SPACES TO PR-EMP.
 * * * * * MOVE IN-EMP-NAME TO PR-EMP-NAME.
 * * * * * MOVE IN-EMP-ADDRESS TO PR-EMP-ADDRESS.
 * * * * * MOVE IN-EMP-CITY TO PR-EMP-CITY.



 * * * PRINT-RECORD.
 * * * * * WRITE PRINT-LINE
 * * * * * * * FROM PR-EMP
 * * * * * * * * * AFTER ADVANCING 2 LINES.



 * * * WRAPUP.
 * * * * * MOVE SPACES TO PR-EMP.
 * * * * * WRITE PRINT-LINE
 * * * * * * * FROM PR-EMP
 * * * * * * * * * AFTER ADVANCING PAGE.
 * * * * * CLOSE FILEIN
 * * * * * * * * PRFILE.
 * * */

These are the 2 errors that I get:

- * 40-S Missing or illegal file name
- * 348-S Procedure name READIN undeclared, line 69 (first usage)

**The code that has the tags is where the errors point to**

Please help!

Kojiro · Dec 4th, 2004, 8:38 PM

i know COBOL the most of all my languages...

although i'm not sure what your error is...

here i'll code this out for you correctly...

(Toggle Plain Text)

 IDENTIFICATION DIVISION.
 PROGRAM-ID. ASSGN01.
*
 ENVIRONMENT DIVISION.
 SPECIAL-NAMES.     C01 IS TOP-OF-PAGE.
*
 INPUT-OUTPUT SECTION.
 FILE-CONTROL.
    SELECT FILEIN ASSIGN TO
   -"H:\CPAN320\ASGN01.DAT"
   ORGANIZATION IS LINE SEQUENTIAL.
   SELECT PRFILE ASSIGN TO
   -"H:\CPAN320\PRFILE.RPT"
   ORGANIZATION IS LINE SEQUENTIAL.
*
 DATA DIVISION.
 FILE SECTION.
*
 FD FILEIN
    RECORD CONTAINS 55 CHARACTERS
    LABEL RECORDS ARE STANDARD
    DATA RECORD IS IN-RECORD.
*
 01  IN-RECORD.
    05 IN-EMP-NAME.
       10 IN-EMP-FIRST-NAME   PIC X(10).
       10 IN-EMP-LAST-NAME   PIC X(10).
    05 IN-EMP-ADDRESS       PIC X(20).
    05 IN-EMP-CITY           PIC X(15).
*
 FD PRFILE
    RECORD CONTAINS 133 CHARACTERS
    LABEL RECORDS ARE OMITTED
    DATA RECORD IS PRINT-LINE.
 01 PRINT-LINE    PIC x(133).
*
 WORKING-STORAGE SECTION.
*
 01 PR-EMP.
     05 FILLER           PIC X(6).
     05 PR-EMP-NAME     PIC X(20).
     05 FILLER          PIC X(2).
     05 PR-EMP-ADDRESS  PIC X(20).
     05 FILLER          PIC X(2).
     05 PR-EMP-CITY     PIC X(15).
*
 01 WS-EOF        PIC x(3) VALUE 'NO '.
    88 EOF-REACHED        VALUE 'YES'.
*
 PROCEDURE DIVISION.
 MAIN-PROC.
     OPEN INPUT FILEIN, OUTPUT PRFILE.
     READ FILEIN AT END MOVE 'YES' TO WS-EOF.
     PERFORM HEADINGS.
     PERFORM MAIN-LOOP.
     PERFORM WRAP-UP.
 MAIN-LOOP.
     PERFORM MOVE-FIELDS.
     PERFORM PRINT-RECORD.
 HEADINGS.
     MOVE SPACES TO PR-EMP.
     WRITE PRINT-LINE FROM PR-EMP AFTER TOP-OF-PAGE.
 MOVE-FIELDS.
     MOVE SPACES TO PR-EMP.
     MOVE IN-EMP-NAME TO PR-EMP-NAME.
     MOVE IN-EMP-ADDRESS TO PR-EMP-ADDRESS.
     MOVE IN-EMP-CITY TO PR-EMP-CITY.
 PRINT-RECORD.
     WRITE PRINT-LINE FROM PR-EMP AFTER 2.
 WRAPUP.
     MOVE SPACES TO PR-EMP.
     WRITE PRINT-LINE FROM PR-EMP AFTER TOP-OF-PAGE.
     CLOSE FILEIN, PRFILE.

this should do what you had intended... and it's guarantee to be error-free... i never confuse a compiler lol only when i make things myself lol

Dec 4th, 2004, 8:38 PM	#2
Kojiro Newbie Join Date: Dec 2004 Posts: 5 Rep Power: 0	i know COBOL the most of all my languages... although i'm not sure what your error is... here i'll code this out for you correctly... (Toggle Plain Text) IDENTIFICATION DIVISION. PROGRAM-ID. ASSGN01. * ENVIRONMENT DIVISION. SPECIAL-NAMES. C01 IS TOP-OF-PAGE. * INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT FILEIN ASSIGN TO -"H:\CPAN320\ASGN01.DAT" ORGANIZATION IS LINE SEQUENTIAL. SELECT PRFILE ASSIGN TO -"H:\CPAN320\PRFILE.RPT" ORGANIZATION IS LINE SEQUENTIAL. * DATA DIVISION. FILE SECTION. * FD FILEIN RECORD CONTAINS 55 CHARACTERS LABEL RECORDS ARE STANDARD DATA RECORD IS IN-RECORD. * 01 IN-RECORD. 05 IN-EMP-NAME. 10 IN-EMP-FIRST-NAME PIC X(10). 10 IN-EMP-LAST-NAME PIC X(10). 05 IN-EMP-ADDRESS PIC X(20). 05 IN-EMP-CITY PIC X(15). * FD PRFILE RECORD CONTAINS 133 CHARACTERS LABEL RECORDS ARE OMITTED DATA RECORD IS PRINT-LINE. 01 PRINT-LINE PIC x(133). * WORKING-STORAGE SECTION. * 01 PR-EMP. 05 FILLER PIC X(6). 05 PR-EMP-NAME PIC X(20). 05 FILLER PIC X(2). 05 PR-EMP-ADDRESS PIC X(20). 05 FILLER PIC X(2). 05 PR-EMP-CITY PIC X(15). * 01 WS-EOF PIC x(3) VALUE 'NO '. 88 EOF-REACHED VALUE 'YES'. * PROCEDURE DIVISION. MAIN-PROC. OPEN INPUT FILEIN, OUTPUT PRFILE. READ FILEIN AT END MOVE 'YES' TO WS-EOF. PERFORM HEADINGS. PERFORM MAIN-LOOP. PERFORM WRAP-UP. MAIN-LOOP. PERFORM MOVE-FIELDS. PERFORM PRINT-RECORD. HEADINGS. MOVE SPACES TO PR-EMP. WRITE PRINT-LINE FROM PR-EMP AFTER TOP-OF-PAGE. MOVE-FIELDS. MOVE SPACES TO PR-EMP. MOVE IN-EMP-NAME TO PR-EMP-NAME. MOVE IN-EMP-ADDRESS TO PR-EMP-ADDRESS. MOVE IN-EMP-CITY TO PR-EMP-CITY. PRINT-RECORD. WRITE PRINT-LINE FROM PR-EMP AFTER 2. WRAPUP. MOVE SPACES TO PR-EMP. WRITE PRINT-LINE FROM PR-EMP AFTER TOP-OF-PAGE. CLOSE FILEIN, PRFILE. IDENTIFICATION DIVISION. PROGRAM-ID. ASSGN01. * ENVIRONMENT DIVISION. SPECIAL-NAMES. C01 IS TOP-OF-PAGE. * INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT FILEIN ASSIGN TO -"H:\CPAN320\ASGN01.DAT" ORGANIZATION IS LINE SEQUENTIAL. SELECT PRFILE ASSIGN TO -"H:\CPAN320\PRFILE.RPT" ORGANIZATION IS LINE SEQUENTIAL. * DATA DIVISION. FILE SECTION. * FD FILEIN RECORD CONTAINS 55 CHARACTERS LABEL RECORDS ARE STANDARD DATA RECORD IS IN-RECORD. * 01 IN-RECORD. 05 IN-EMP-NAME. 10 IN-EMP-FIRST-NAME PIC X(10). 10 IN-EMP-LAST-NAME PIC X(10). 05 IN-EMP-ADDRESS PIC X(20). 05 IN-EMP-CITY PIC X(15). * FD PRFILE RECORD CONTAINS 133 CHARACTERS LABEL RECORDS ARE OMITTED DATA RECORD IS PRINT-LINE. 01 PRINT-LINE PIC x(133). * WORKING-STORAGE SECTION. * 01 PR-EMP. 05 FILLER PIC X(6). 05 PR-EMP-NAME PIC X(20). 05 FILLER PIC X(2). 05 PR-EMP-ADDRESS PIC X(20). 05 FILLER PIC X(2). 05 PR-EMP-CITY PIC X(15). * 01 WS-EOF PIC x(3) VALUE 'NO '. 88 EOF-REACHED VALUE 'YES'. * PROCEDURE DIVISION. MAIN-PROC. OPEN INPUT FILEIN, OUTPUT PRFILE. READ FILEIN AT END MOVE 'YES' TO WS-EOF. PERFORM HEADINGS. PERFORM MAIN-LOOP. PERFORM WRAP-UP. MAIN-LOOP. PERFORM MOVE-FIELDS. PERFORM PRINT-RECORD. HEADINGS. MOVE SPACES TO PR-EMP. WRITE PRINT-LINE FROM PR-EMP AFTER TOP-OF-PAGE. MOVE-FIELDS. MOVE SPACES TO PR-EMP. MOVE IN-EMP-NAME TO PR-EMP-NAME. MOVE IN-EMP-ADDRESS TO PR-EMP-ADDRESS. MOVE IN-EMP-CITY TO PR-EMP-CITY. PRINT-RECORD. WRITE PRINT-LINE FROM PR-EMP AFTER 2. WRAPUP. MOVE SPACES TO PR-EMP. WRITE PRINT-LINE FROM PR-EMP AFTER TOP-OF-PAGE. CLOSE FILEIN, PRFILE. this should do what you had intended... and it's guarantee to be error-free... i never confuse a compiler lol only when i make things myself lol

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Oct 4th, 2004, 11:07 AM	#1
Ninjai Newbie Join Date: Oct 2004 Posts: 1 Rep Power: 0	Hi all There's this program that I'm writing for school, and I get an error on the READIN part of the program, and I'm not sure why. Can someone pretty please help me out?? (Toggle Plain Text) * * * PROGRAM-ID. ASSGN01. * * ENVIRONMENT DIVISION. * * * INPUT-OUTPUT SECTION. * * * FILE-CONTROL. * * * SELECT FILEIN ASSIGN TO * * -"H:\CPAN320\ASGN01.DAT" * * ORGANIZATION IS LINE SEQUENTIAL. * * * SELECT PRFILE ASSIGN TO * * -"H:\CPAN320\PRFILE.RPT" * * ORGANIZATION IS LINE SEQUENTIAL. * * * DATA DIVISION. * * * FILE SECTION. * * * FD FILEIN. * * 01 IN-RECORD * * PIC x(55). * * FD PRFILE. * * 01 PRINT-LINE * * PIC x(133). * * * 01 IN-EMP. * * * * 05 IN-EMP-NAME. * * * * * * 10 IN-EMP-FIRST-NAME * PIC x(10). * * * * * * * 10 IN-EMP-LAST-NAME * PIC x(10). * * * * 05 IN-EMP-ADDRESS * * * * PIC x(20). * * * * 05 IN-EMP-CITY * * * * * * PIC x(15). * * * 01 PR-EMP. * * * * 05 * * * * * * * * * PIC x(6). * * * * * 05 PR-EMP-NAME * PIC x(20). * * * * 05 * * * * * * * * * PIC x(2). * * * * * 05 PR-EMP-ADDRESS PIC x(20). * * * * * 05 * * * * * * * * * PIC x(2). * * * * * 05 PR-EMP-CITY * PIC x(15). * * 01 WS-EOF * * * * * * PIC x(3) VALUE 'NO '. * * * * 88 EOF-REACHED * * * * * * * * VALUE 'YES'. * * * PROCEDURE DIVISION. * * * MAIN-PROC. * * * * * PERFORM INITIALIZATION. * * * [B]PERFORM READIN.[/B] * * * * * PERFORM HEADINGS. * * * * * PERFORM MAIN-LOOP * * * * * * * UNTIL EOF-REACHED. * * * * * PERFORM WRAPUP. * * * * * STOP RUN. * * * MAIN-LOOP. * * * * * PERFORM MOVE-FIELDS. * * * * * PERFORM PRINT-RECORD. * * * INITIALIZATION. * * * * * OPEN INPUT FILEIN * * * * * * * OUTPUT PRFILE [B]READIN.[/B] * * * * READ FILEIN INTO IN-EMP * * * * * * * * * AT END * * * * * * * * * * * MOVE 'YES' TO WS-EOF. * * * HEADINGS. * * * * * MOVE SPACES TO PR-EMP. * * * * * WRITE PRINT-LINE * * * * * * * FROM PR-EMP * * * * * * * * * AFTER ADVANCING PAGE. * * * MOVE-FIELDS. * * * * * MOVE SPACES TO PR-EMP. * * * * * MOVE IN-EMP-NAME TO PR-EMP-NAME. * * * * * MOVE IN-EMP-ADDRESS TO PR-EMP-ADDRESS. * * * * * MOVE IN-EMP-CITY TO PR-EMP-CITY. * * * PRINT-RECORD. * * * * * WRITE PRINT-LINE * * * * * * * FROM PR-EMP * * * * * * * * * AFTER ADVANCING 2 LINES. * * * WRAPUP. * * * * * MOVE SPACES TO PR-EMP. * * * * * WRITE PRINT-LINE * * * * * * * FROM PR-EMP * * * * * * * * * AFTER ADVANCING PAGE. * * * * * CLOSE FILEIN * * * * * * * * PRFILE. * * / * * PROGRAM-ID. ASSGN01. * * ENVIRONMENT DIVISION. * * * INPUT-OUTPUT SECTION. * * * FILE-CONTROL. * * * SELECT FILEIN ASSIGN TO * * -"H:\CPAN320\ASGN01.DAT" * * ORGANIZATION IS LINE SEQUENTIAL. * * * SELECT PRFILE ASSIGN TO * * -"H:\CPAN320\PRFILE.RPT" * * ORGANIZATION IS LINE SEQUENTIAL. * * * DATA DIVISION. * * * FILE SECTION. * * * FD FILEIN. * * 01 IN-RECORD * * PIC x(55). * * FD PRFILE. * * 01 PRINT-LINE * * PIC x(133). * * * 01 IN-EMP. * * * * 05 IN-EMP-NAME. * * * * * * 10 IN-EMP-FIRST-NAME * PIC x(10). * * * * * * * 10 IN-EMP-LAST-NAME * PIC x(10). * * * * 05 IN-EMP-ADDRESS * * * * PIC x(20). * * * * 05 IN-EMP-CITY * * * * * * PIC x(15). * * * 01 PR-EMP. * * * * 05 * * * * * * * * * PIC x(6). * * * * * 05 PR-EMP-NAME * PIC x(20). * * * * 05 * * * * * * * * * PIC x(2). * * * * * 05 PR-EMP-ADDRESS PIC x(20). * * * * * 05 * * * * * * * * * PIC x(2). * * * * * 05 PR-EMP-CITY * PIC x(15). * * 01 WS-EOF * * * * * * PIC x(3) VALUE 'NO '. * * * * 88 EOF-REACHED * * * * * * * * VALUE 'YES'. * * * PROCEDURE DIVISION. * * * MAIN-PROC. * * * * * PERFORM INITIALIZATION. * * * [B]PERFORM READIN.[/B] * * * * * PERFORM HEADINGS. * * * * * PERFORM MAIN-LOOP * * * * * * * UNTIL EOF-REACHED. * * * * * PERFORM WRAPUP. * * * * * STOP RUN. * * * MAIN-LOOP. * * * * * PERFORM MOVE-FIELDS. * * * * * PERFORM PRINT-RECORD. * * * INITIALIZATION. * * * * * OPEN INPUT FILEIN * * * * * * * OUTPUT PRFILE [B]READIN.[/B] * * * * READ FILEIN INTO IN-EMP * * * * * * * * * AT END * * * * * * * * * * * MOVE 'YES' TO WS-EOF. * * * HEADINGS. * * * * * MOVE SPACES TO PR-EMP. * * * * * WRITE PRINT-LINE * * * * * * * FROM PR-EMP * * * * * * * * * AFTER ADVANCING PAGE. * * * MOVE-FIELDS. * * * * * MOVE SPACES TO PR-EMP. * * * * * MOVE IN-EMP-NAME TO PR-EMP-NAME. * * * * * MOVE IN-EMP-ADDRESS TO PR-EMP-ADDRESS. * * * * * MOVE IN-EMP-CITY TO PR-EMP-CITY. * * * PRINT-RECORD. * * * * * WRITE PRINT-LINE * * * * * * * FROM PR-EMP * * * * * * * * * AFTER ADVANCING 2 LINES. * * * WRAPUP. * * * * * MOVE SPACES TO PR-EMP. * * * * * WRITE PRINT-LINE * * * * * * * FROM PR-EMP * * * * * * * * * AFTER ADVANCING PAGE. * * * * * CLOSE FILEIN * * * * * * * * PRFILE. * * / These are the 2 errors that I get: - 40-S Missing or illegal file name - * 348-S Procedure name READIN undeclared, line 69 (first usage) The code that has the tags is where the errors point to Please help!

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Programming Forums > Application Development > Other Programming Languages

There Is This Error, I Don't Know What To Do...