IMS/Basic

   1 REM *P AM.ARCRPT2
  10 IF  ERR 0 STOP
  20 ENTER D1$,D2$
 100 DIM A$[116],A1$[49]
 102 DIM SP$[34],TM$[100],Z1$[20],DT$[20],3%,AMT,TOT
 104 DIM CR$[54],HDR$[49] \ LET HDR$="-",HDR$
 108 CALL 99,TM$ \ LET SP$=" ",SP$
 110 GOSUB 8000
 190 LET A1$=D1$[1,6]
 200 WHILE LST=0
 202   SEARCH #1,3,1;A1$,R1,LST
 204   IF LST=0 IF A1$>=D1$ IF A1$<=D2$
 206     MAT READ #1,R1,0;A$;
 208     IF A$[1,2]="10" OR A$[1,2]="11"
 290       IF CR$="" GOSUB 8000
 300       PRINT #0;TAB 3;A$[1,2];
 302       PRINT #0;TAB 10;A$[16,17];"/";A$[18,19];"/";A$[20,21];
 304       PRINT #0;TAB 20;A$[6,15];
 306       PRINT #0;TAB 36;A$[3,5];
 308       LET AMT=A$[99,107] \ IF A$[1,2]="11" LET AMT=AMT*(-1)
 310       PRINT #0;USING "---,---.##";TAB 48;AMT;
 312       PRINT #0;
 314       LET TOT=TOT+AMT
 316       LET CR$[1,1]=""
 318     ENDIF
 320   ENDIF
 390 WEND
 900 PRINT #0;TAB 48;"=========="
 902 PRINT #0;USING "---,---.##";TAB 48;TOT
 904 PRINT #0;TAB 48;"==========\14\";
 990 END
8000 REM
8004 IF PG PRINT #0;"\14\";
8005 LET PG=PG+1
8008 PRINT #0;USING "PAGE ##";TM$[1,12];SP$;PG
8010 PRINT #0;
8014 PRINT #0;"                  WEEKLY ARC SALES REPORT"
8016 PRINT #0;"  CREDIT CARD SALES AND REFUNDS FROM ";
8018 PRINT #0;D1$[3,4];"/";D1$[5,6];"/";D1$[1,2];" T0 ";
8020 PRINT #0;D2$[3,4];"/";D2$[5,6];"/";D2$[1,2]
8022 PRINT #0;
8024 PRINT #0;"  TRANS     DATE      DOCUMENT   AIRLINE       CREDIT CARD"
8026 PRINT #0;"  TYPE     ISSUED       NUMBER    NUMBER   SALES & REFUNDS"
8028 PRINT #0;"  --------------------------------------------------------"
8030 LET CR$=".",CR$
8090 RETURN