* COMPLETE.SIG 08/18/83
STORE CHR(PEEK(063)) TO DR
SET INDEX TO &dr.:orders
ERASE
* get a starting  point
STORE DATE() TO stdat
@ 10,00 SAY 'Shipments completed after what date are to be listed'
@ 10,57 GET stdat PICTURE '99/99/99'
READ
STORE $(stdat,7,2)+$(stdat,1,2)+$(stdat,4,2) TO stdate
GOTO TOP
STORE 0 TO pageno
STORE t TO more
STORE 0 TO TOTAL
STORE 0 TO CAT
STORE 0 TO AMOUNT
SET MARGIN TO 0
DO WHILE more
STORE pageno + 1 TO pageno
STORE 7 TO lineno
ERASE
EJECT
? ' '
? '======================SIG/M SHIPPING REPORT ========================'
? ' '
? '           ' + date() + '                       PAGE: ' + str(pageno,3)
? ' '
? '      ORDERS COMPLETED AFTER ' + stdat
? ' '
? '    NO     LAST NAME            SHIPPED    BACKORDER SHIPPED CAT AMOUNT'
? ' '
DO WHILE lineno <55
STORE $(shipped,7,2)+$(shipped,1,2)+$(shipped,4,2) TO stdate1
STORE $(bo:ship,7,2)+$(bo:ship,1,2)+$(bo:ship,4,2) TO stdate2
STORE $(bo2:ship,7,2)+$(bo2:ship,1,2)+$(bo2:ship,4,2) TO stdate3
IF stdate2 >=stdate1
STORE stdate2 TO stdate4
ELSE
store stdate1 TO stdate4
ENDIF
IF stdate3 >=stdate4
STORE stdate3 TO stdate5
ELSE
STORE stdate4 TO stdate5
ENDIF
IF stdate5 >= stdate  .AND.  COMP = 'Y'
STORE total + 1 TO TOTAL
STORE amount + amt TO amount
? order + '  '+ lname +' ' + shipped +'     ' + bo:ship;
+ bo2:ship +' '+ catalog + ' ' + STR(amt,7,2)
IF catalog = "N"
STORE cat + 1 TO cat
ENDIF catalog
STORE lineno + 1 to lineno
SKIP
IF EOF
STORE 60 TO lineno
STORE f TO more
ENDIF EOF
ELSE
SKIP
IF EOF
store 60 to lineno
store f TO more
ENDIF EOF
ENDIF STDATE
ENDDO while lineno > 55
ENDDO more
? '--------------------------------------------------------------------------'
? ' '
? '      TOTALS:         NUMBER OF SHIPMENTS: ' + STR(total,4,0)
? '                      DOLLAR AMOUNT OF ORDERS COMPLETED: ' + STR(amount,8,2)
? '                      NUMBER OF SHIPMENTS INCLUDING CATALOG: ' + STR(total-cat,4,0)
EJECT
SET PRINT OFF
RELEASE ALL
STORE t TO more
STORE t TO first