home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-386-Vol-2of3.iso / p / pom232.zip / EXAMPLE2.POM < prev    next >
Text File  |  1993-02-08  |  1KB  |  51 lines
  1. MINLEN "85"
  2. ;
  3. IGNORE $FLINE[ 01  08] "Date: "
  4. IGNORE $FLINE[ 49  67] "Order      Expected"
  5. IGNORE $FLINE[ 49  68] "Date       Ship Date"
  6. IGNORE $FLINE[ 10  32] "Item number/Description"
  7. ;
  8. ; Tidy up file line
  9. ;
  10. CHANGE $FLINE """" "'"
  11. ;
  12. ; Determine where we are
  13. ;
  14. IF     $FLINE[8] = " " THEN ITEMCNTR = ITEMCNTR+ ELSE "0"
  15. ;
  16. ; Set variables
  17. ;
  18. IF     ITEMCNTR  = "0" THEN REFNUM   = $FLINE[  1   8]
  19. IF     ITEMCNTR  = "0" THEN CUSTCODE = $FLINE[ 10  15]
  20. IF     ITEMCNTR  = "0" THEN CUSTDESC = $FLINE[ 17  47]
  21. IF     ITEMCNTR  = "0" THEN ORDRDATE = $FLINE[ 49  57]
  22. IF     ITEMCNTR  = "0" THEN MSTRCVDT = $FLINE[ 60  68]
  23. IF     ITEMCNTR  = "1" THEN PRICE    = $FLINE[105 114]
  24. IF     ITEMCNTR  = "1" THEN QTY      = $FLINE[ 76  86]
  25. IF     ITEMCNTR  = "1" THEN PARTNUM  = $FLINE[ 10  32]
  26. IF     ITEMCNTR  = "2" THEN DESCRIP  = $FLINE[ 10  43]
  27. ;
  28. ; Tidy up variables
  29. ;
  30. TRIM   REFNUM   "B" " "
  31. TRIM   CUSTCODE "B" " "
  32. TRIM   CUSTDESC "B" " "
  33. TRIM   ORDRDATE "B" " "
  34. TRIM   MSTRCVDT "B" " "
  35. TRIM   PRICE    "B" " "
  36. TRIM   PRICE    "A" ","
  37. TRIM   QTY      "B" " "
  38. TRIM   PARTNUM  "B" " "
  39. TRIM   DESCRIP  "B" " "
  40. IF     PRICE     = "" THEN PRICE = "0.00"
  41. IF     QTY       = "" THEN QTY   = "0"
  42. ;
  43. ; Output
  44. ;
  45. OUT    ITEMCNTR = "2" |"{REFNUM}","{CUSTCODE}",{PRICE},{QTY},"{PARTNUM}",
  46. OUTEND ITEMCNTR = "2" |"{DESCRIP}"
  47. ;
  48. ; Reset item counter
  49. ;
  50. IF     ITEMCNTR = "2" THEN ITEMCNTR = "0"
  51.