home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol129 / db2sig / m.lbr / BACKORDR.SIG < prev    next >
Encoding:
Text File  |  1985-02-10  |  1.6 KB  |  54 lines
  1. * BACKORDR.SIG 08/18/83
  2. * if you want printer codes - add them here
  3. ERASE
  4. GOTO TOP
  5. STORE 0 TO pageno
  6. STORE t TO more
  7. STORE 0 TO TOTAL
  8. STORE 0 TO AMOUNT
  9. SET MARGIN TO 0
  10. DO WHILE more
  11.     STORE pageno + 1 TO pageno
  12.     STORE 7 TO lineno
  13.     ERASE
  14.     EJECT
  15.     ? ' '
  16.     ? '======================SIG/M BACK ORDERS ============================='
  17.     ? ' '
  18.     ? '   AS OF  ' + date() + '                       PAGE: ' + str(pageno,3)
  19.     ? ' '
  20.     ? '     LAST NAME             ENTERED      SHIPPED    BACKORDER SHIPPED   AMOUNT'
  21.     ? ' '
  22.     DO WHILE lineno <55
  23.         IF  BACK = 'Y'
  24.             STORE total + 1 TO TOTAL
  25.             STORE amount + amt TO amount
  26.             ? '      '+ lname +' ' + entered + '     '+ shipped +'   ' + bo:ship + bo2:ship +' '+ STR(amt,8,2)
  27.             ? 'ORDERED: ' + TRIM(vol1)
  28.             ? 'BACK ORDERED: ' +TRIM(bo) + '            ' + 'CATALOG: ' + ' ' + catalog
  29.             ? ' '
  30.             STORE lineno + 6 to lineno
  31.             SKIP
  32.             IF EOF
  33.                 STORE 60 TO lineno
  34.                 STORE f TO more
  35.             ENDIF EOF
  36.         ELSE
  37.             SKIP
  38.             IF EOF
  39.                 STORE 60 TO lineno
  40.                 STORE f TO more
  41.             ENDIF EOF
  42.         ENDIF BACK= 'Y'
  43.     ENDDO while lineno > 55
  44. ENDDO more
  45. ? '----------------------------------------------------------------------------'
  46. ? ' '
  47. ? '      TOTALS:         NUMBER OF ORDERS WITH BACK ORDERS: ' + STR(total,4,0)
  48. ? '                      DOLLAR AMOUNT OF BACK ORDERS: ' + STR(amount,8,2)
  49. EJECT
  50. SET PRINT OFF
  51. RELEASE ALL
  52. STORE t TO more
  53. STORE t TO first
  54.