$ SET SOURCEFORMAT"FREE" IDENTIFICATION DIVISION. PROGRAM-ID. DP196-93-Repeat-Exam. AUTHOR. Michael Coughlan.
ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT Student-Payment-File ASSIGN TO "STUDPAY.DAT" ORGANIZATION IS LINE SEQUENTIAL. SELECT Print-File ASSIGN TO "FEES.RPT". SELECT Student-Master-File ASSIGN TO "STUDMAST.DAT" ORGANIZATION IS INDEXED ACCESS MODE IS DYNAMIC RECORD KEY IS SM-Student-Number ALTERNATE RECORD KEY IS SM-Student-Name WITH DUPLICATES FILE STATUS IS SM-File-Status.
DATA DIVISION. FILE SECTION. FD Student-Payment-File. 01 SP-Rec. 88 End-Of-SPF VALUE HIGH-VALUES. 02 SP-Student-Number PIC 9(7).
@mars83 @magenciorek @rbielawski JESTESMY CHORZY ZARAZA SIE TAK ZE ZARAZA SIE OSOBY WSZYSTKIE KTORE NAS ZAWOLALY CZYLI JAK ZARAZISZ CHOREGO STAJESZ SIE CHORY A I CHORY MUSI POWIEDZIEC O TYM HAVE FUN ~ @wytrzzeszcz
TU MOŻECIE PISAĆ KONDOLENCJE, ZAWOŁAM JAK MNIE WYPUSZCZĄ