PowerCenter
- PowerCenter 10.5
- All Products
identification division. program-id. mead. environment division. select file-one assign to "fname". data division. file section. fd FILE-ONE. 01 SCHOOL-REC. 02 SCHOOL-ID PIC 9(15). 02 SCHOOL-NM PIC X(25). 02 CLASS-REC OCCURS 2 TIMES. 03 CLASS-ID PIC 9(5). 03 CLASS-NM PIC X(25). 03 STUDENT-REC OCCURS 5 TIMES. 04 STUDENT-ID PIC 9(15). 04 STUDENT-NM PIC X(25). 04 PARENT-REC OCCURS 2 TIMES. 05 PARENT-ID PIC 9(15). 05 PARENT-NM PIC X(25). 03 TEACHER-REC OCCURS 3 TIMES. 04 TEACHER-ID PIC 9(15). 04 TEACHER-NM PIC X(25). 02 SPORT-REC OCCURS 2 TIMES. 03 SPORT-TEAM PIC X(30). working-storage section. procedure division. stop run.