Hi :)
IT's possible to read and write a sequential file in Visual Cobol .net ?
Like in that sample ?
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT StudentFile ASSIGN TO "STUDENTS.DAT"
ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD StudentFile.
01 StudentDetails.
02 StudentId PIC 9(7).
02 StudentName.
03 Surname PIC X(8).
03 Initials PIC XX.
02 DateOfBirth.
03 YOBirth PIC 9(4).
03 MOBirth PIC 9(2).
03 DOBirth PIC 9(2).
02 CourseCode PIC X(4).
02 Gender PIC X
I get that sample in that link:
http://www.csis.ul.ie/cobol/examples/SeqWrite/SEQWRITE.htm
http://www.csis.ul.ie/cobol/examples/SeqRead/SEQREADno88.htm
Yes, Visual COBOL supports all of the standard COBOL file types like sequential, line sequential, relative
and indexed files.
These are supported in .NET managed code as well as in native code programs.
Please see the documentation under Programming-->Data Access-->File Handling for more information.
Hi :)
IT's possible to read and write a sequential file in Visual Cobol .net ?
Like in that sample ?
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT StudentFile ASSIGN TO "STUDENTS.DAT"
ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD StudentFile.
01 StudentDetails.
02 StudentId PIC 9(7).
02 StudentName.
03 Surname PIC X(8).
03 Initials PIC XX.
02 DateOfBirth.
03 YOBirth PIC 9(4).
03 MOBirth PIC 9(2).
03 DOBirth PIC 9(2).
02 CourseCode PIC X(4).
02 Gender PIC X
I get that sample in that link:
http://www.csis.ul.ie/cobol/examples/SeqWrite/SEQWRITE.htm
http://www.csis.ul.ie/cobol/examples/SeqRead/SEQREADno88.htm
good, but, have an specific location in source, to put the file division ???
Hi :)
IT's possible to read and write a sequential file in Visual Cobol .net ?
Like in that sample ?
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT StudentFile ASSIGN TO "STUDENTS.DAT"
ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD StudentFile.
01 StudentDetails.
02 StudentId PIC 9(7).
02 StudentName.
03 Surname PIC X(8).
03 Initials PIC XX.
02 DateOfBirth.
03 YOBirth PIC 9(4).
03 MOBirth PIC 9(2).
03 DOBirth PIC 9(2).
02 CourseCode PIC X(4).
02 Gender PIC X
I get that sample in that link:
http://www.csis.ul.ie/cobol/examples/SeqWrite/SEQWRITE.htm
http://www.csis.ul.ie/cobol/examples/SeqRead/SEQREADno88.htm
Are you referring to where in a class program do you place the file definitions?
Here is an example of what this could look like:
class-id managedfiles.Form1 is partial
inherits type System.Windows.Forms.Form.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT StudentFile ASSIGN TO "STUDENTS.DAT"
ORGANIZATION IS LINE SEQUENTIAL.
FILE SECTION.
FD StudentFile.
01 StudentDetails.
02 StudentId PIC 9(7).
02 StudentName.
03 Surname PIC X(8).
03 Initials PIC XX.
02 DateOfBirth.
03 YOBirth PIC 9(4).
03 MOBirth PIC 9(2).
03 DOBirth PIC 9(2).
02 CourseCode PIC X(4).
02 Gender PIC X.
working-storage section.
method-id ReadFile.
procedure division.
open input studentfile
read studentfile
at end
display "no more"
end-read
close studentfile
goback.
end method.
method-id NEW.
procedure division.
invoke self::InitializeComponent
goback.
end method.
method-id button1_Click final private.
procedure division using by value sender as object e as type System.EventArgs.
end method.
end class.
