! This program will clear out R2 and R3 records in Report-IV forcing it to ! rephase all reports when they are run 00010 REM CLREPT - Clear out R2 & R3 records in REPORT-IV 00100 PRINT 'CS',; OPEN(10) "IDDBD"; K0$="q" 00110 READ (10,KEY=K0$,DOM=00120) 00200 K$=KEY(10); IF K$(1,1)<>K0$ IF K0$="q" K0$="r"; GOTO 00110 ELSE GOTO 00300 ELSE IF CVT(K$(4,6),128)="" REMOVE (10,KEY=K$); GOTO 00200 ELSE IF LEN(K$)=9 AND POS("IDQURY"=K$)<>2 READ RECORD (10,KEY=K$)R$; PRINT R$(73,2),"-",K$(2,8); DIM R1$(256,$00$); R$(73,2)="", R$(80,8)="", R1$(1,87)=R$; WRITE RECORD(10,KEY=K$) R1$ READ(10,KEY=K$(1,9)+"2",DOM=00200); PREAD (10); GOTO 00200 ELSE IF POS("IDQURY"=K$)=2 OR POS(K$(10,1)="16;@EJOTY^oh")=0 IF STL(K$)=9 PRINT " ",K$(2,8) ELSE PRINT K$(10,1),"-",K$(2,8) FI; REMOVE (10,KEY=K$); GOTO 00200 ELSE READ(10,KEY=K$); GOTO 00200