question archive SELECT STUDENT-FILE-IN ASSIGN TO "C:UsersdavidDesktoptextSTUFILE
SELECT STUDENT-FILE-IN ASSIGN TO "C:UsersdavidDesktoptextSTUFILE
Subject:Computer SciencePrice: Bought3
SELECT STUDENT-FILE-IN
ASSIGN TO "C:UsersdavidDesktoptextSTUFILE.txt"
ORGANIZATION IS INDEXED
ACCESS IS SEQUENTIAL
RECORD KEY IS STUDENT-NUMBER.
FD STUDENT-FILE-IN.
01 STUDENT-RECORD-IN.
05 STUDENT-NUMBER PIC 9(6).
05 TUITION-OWED PIC 9(4)V99.
05 STUDENT-NAME PIC X(40).
05 PROGRAM-OF-STUDY PIC X(5).
05 COURSE-CODE1 PIC X(7).
05 COURSE-AVERAGE1 PIC 9(3).
05 COURSE-CODE2 PIC X(7).
05 COURSE-AVERAGE2 PIC 9(3).
05 COURSE-CODE3 PIC X(7).
05 COURSE-AVERAGE3 PIC 9(3).
05 COURSE-CODE4 PIC X(7).
05 COURSE-AVERAGE4 PIC 9(3).
05 COURSE-CODE5 PIC X(7).
05 COURSE-AVERAGE5 PIC 9(3).
111111100000JONES, WILLIAM COMPRCST8283090CST2234090CST2235090DAT1800090ENG1001090
111112200000SMITH, FRED COMTCCST8283090CST2234080CST2235080DAT1800080ENG1001080
111113092000CROMWELL, OLIVER COMSCCST8283070CST2234070CST2235070DAT1800070ENG1001070
111115150000HEHEINLEN, HERBERT COMPRCST8283090CST2234090CST2235090DAT1800090ENG1001090
111119005000ASSIMOV, ISAAC COMPRCST8283045CST2234046CST22350470DAT180048ENG1001049
211111100000JONES, WILLIAM COMPRCST8283090CST2234090CST2235090DAT1800090ENG1001090
211112200000SMITH, Bill COMTCCST8283090CST2234080CST2235080DAT1800080ENG1001080
311113092000CROMWELL, OLIVIA COMSCCST8283070CST2234070CST2235070DAT1800070ENG1001070
311115150000HEHEINLEN, HERBERT COMPRCST8283090CST2234090CST2235090DAT1800090ENG1001090
411119005000ASSIMOV, ISAAC COMPRCST8283045CST2234046CST22350470DAT180048ENG1001049
Details of file are above.
Question is how do I read the indexed sequential file populating the working storage with the data collected as an indexed sequential file?
