* BACKORDR.SIG 08/18/83
* if you want printer codes - add them here
ERASE
GOTO TOP
STORE 0 TO pageno
STORE t TO more
STORE 0 TO TOTAL
STORE 0 TO AMOUNT
SET MARGIN TO 0
DO WHILE more
STORE pageno + 1 TO pageno
STORE 7 TO lineno
ERASE
EJECT
? ' '
? '======================SIG/M BACK ORDERS ============================='
? ' '
? '   AS OF  ' + date() + '                       PAGE: ' + str(pageno,3)
? ' '
? '     LAST NAME             ENTERED      SHIPPED    BACKORDER SHIPPED   AMOUNT'
? ' '
DO WHILE lineno <55
IF  COMP = 'N'
STORE total + 1 TO TOTAL
STORE amount + amt TO amount
? '      '+ lname +' ' + entered + '     '+ shipped +'   ';
+ bo:ship + bo2:ship +' '+ STR(amt,8,2)
? 'ORDERED: ' + TRIM(vol1)
? 'BACK ORDERED: ' +TRIM(bo) + '            ' + 'CATALOG: ' + ' ' + catalog
? ' '
STORE lineno + 6 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 COMP= 'N'
ENDDO while lineno > 55
ENDDO more
? '----------------------------------------------------------------------------'
? ' '
? '      TOTALS:         NUMBER OF ORDERS WITH BACK ORDERS: ' + STR(total,4,0)
? '                      DOLLAR AMOUNT OF BACK ORDERS: ' + STR(amount,8,2)
EJECT
SET PRINT OFF
RELEASE ALL
STORE t TO more
STORE t TO first