* SHIPPED. SIG  08/18/83
* shipping report program
* add your own printer codes
ERASE
* get a starting  point
STORE DATE() TO stdat
@ 10,12 SAY 'Shipments after what date are to be listed'
@ 10,57 GET stdat PICTURE '99/99/99'
READ
* store date as YYMMDD
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 WHERE SHIPMENTS AFTER ' + stdat
? ' '
? '  CAT LAST NAME            ENTERED      SHIPPED    BACKORDER SHIPPED   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
STORE total + 1 TO TOTAL
STORE amount + amt TO amount
? '   ' + catalog + '  '+ lname +' ' + entered + '     ';
+ shipped +'     ' + bo:ship + bo2:ship +' '+ 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 WHERE SHIPMENTS: ' + STR(amount,8,2)
? '              NUMBER OF CATALOGS ORDERS WHERE SHIPMENTS: ' + STR(total-cat,4,0)
EJECT
SET PRINT OFF
RELEASE ALL
STORE t TO more
STORE t TO first