home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 25 / CD_ASCQ_25_1095.iso / dos / tools / par330 / exampl02.pom < prev    next >
Text File  |  1995-09-06  |  2KB  |  58 lines
  1. ;
  2. ;   NOTE:  A quick-reference summary of POM commands appears in EXAMPL04.POM
  3. ;
  4. ;-------------------------------------------------------------------------------
  5. ;
  6. ;   Ignore lines that are less than 85 characters long
  7. ;
  8. MINLEN   "85"
  9. ;
  10. ;   Ignore lines that contain extraneous information ("^" means "contains")
  11. ;
  12. IGNORE   $FLINE ^ "Date: "
  13. IGNORE   $FLINE ^ "Order      Expected"
  14. IGNORE   $FLINE ^ "Date       Ship Date"
  15. IGNORE   $FLINE ^ "Item number/Description"
  16. ;
  17. ;   Change double-quotes (the " character) to single-quotes (').
  18. ;
  19. CHANGE   $FLINE """" "'"
  20. ;
  21. ;   Determine where we are
  22. ;
  23. IF       $FLINE[8] = " " THEN ItemCounter = ItemCounter+ ELSE "0"
  24. ;
  25. ;   Set variables
  26. ;
  27. BEGIN    ItemCounter  = "0"
  28.   SET    ReferenceNum = $FLINE[  1   8]
  29.   SET    CustomerCode = $FLINE[ 10  15]
  30.   SET    CustomerDesc = $FLINE[ 17  47]
  31.   SET    OrderDate    = $FLINE[ 49  57]
  32.   TRIM   ReferenceNum "B" " "
  33.   TRIM   CustomerCode "B" " "
  34.   TRIM   CustomerDesc "B" " "
  35.   TRIM   OrderDate    "B" " "
  36. END
  37.  
  38. BEGIN    ItemCounter  = "1"
  39.   SET    Price        = $FLINE[105 114]
  40.   SET    Quantity     = $FLINE[ 76  86]
  41.   SET    PartNumber   = $FLINE[ 10  32]
  42.   TRIM   Price        "B" " "
  43.   TRIM   Price        "A" ","
  44.   TRIM   Quantity     "B" " "
  45.   TRIM   PartNumber   "B" " "
  46.   IF     Price    = "" THEN Price = "0.00"
  47.   IF     Quantity = "" THEN Quantity   = "0"
  48. END
  49.  
  50. BEGIN    ItemCounter = "2"
  51.   SET    Description  = $FLINE[ 10  43]
  52.   TRIM   Description  "B" " "
  53.   OUT    |"{ReferenceNum}","{CustomerCode}",
  54.   OUT    |{Price},{Quantity},"{PartNumber}",
  55.   OUTEND |"{Description}"
  56.   SET    ItemCounter = "0"
  57. END
  58.