FOR RFILE IN MPEXFILESET ALREADYSORTED (ACCOUNT:8, GROUP:8) ONBREAKBEFORE 2 BEGIN WRITELN ; WRITELN ("ACCOUNT = ", ACCOUNT, " GROUP = ", GROUP); WRITELN ; WRITELN ("FILENAME CODE SIZE EOF LIMIT SECTS", " REL CRE-DATE MOD-DATE ACC-DATE "); WRITELN ; END DO BEGIN WRITELN (FILE:8, FMTOPENED:2, CODE:6, (IF ISASCII THEN RECSIZE ELSE RECSIZE/2):4, 'WB'[ASCII], EOF:8, FLIMIT:8, SECTORS:8, (IF SAVABLESECTORS=0 THEN ' ' ELSE '*'):1, (IF ISRELEASED THEN ' Y ' ELSE ' '):3, CREDATE:' MM/DD/YY ', MODDATE:' MM/DD/YY ', ACCDATE:' MM/DD/YY '); END ONBREAKAFTER 2 BEGIN WRITELN ; WRITELN (" ", TOTAL(2,SECTORS):8, " SECTORS, ", TOTAL(2,SAVABLESECTORS), " SAVABLE"); END FINALLY BEGIN WRITELN ; WRITELN (" GRAND TOTAL: ", TOTAL(0,SECTORS):8, " SECTORS, ", TOTAL(0,SAVABLESECTORS), " SAVABLE"); END