home *** CD-ROM | disk | FTP | other *** search
/ Netware Super Library / Netware Super Library.iso / file_mgt / parse_m / exampl06.pom < prev    next >
Encoding:
Text File  |  1995-05-02  |  1.0 KB  |  38 lines
  1. ;
  2. ;   NOTE:  A quick-reference summary of POM commands appears in EXAMPL04.POM
  3. ;
  4. ;-------------------------------------------------------------------------------
  5. ;
  6. ;   CHOP up fixed-length record (i.e. no carriage returns or linefeeds)
  7. ;
  8. CHOP     1-123
  9. ;
  10. ;   Extract the fields
  11. ;
  12. SET      First     = $FLINE[  1  12]
  13. SET      LastName  = $FLINE[ 13  25]
  14. SET      Street    = $FLINE[ 26  46]
  15. SET      Phone     = $FLINE[ 47  59]
  16. SET      Job       = $FLINE[ 60  84]
  17. SET      Comments  = $FLINE[ 85 119]
  18. SET      Rating    = $FLINE[120 121]
  19. ;
  20. ;   Remove surrounding spaces
  21. ;
  22. TRIM     First      "B"   " "
  23. TRIM     LastName   "B"   " "
  24. TRIM     Street     "B"   " "
  25. TRIM     Phone      "B"   " "
  26. TRIM     Job        "B"   " "
  27. TRIM     Comments   "B"   " "
  28. TRIM     Rating     "B"   " "
  29. ;
  30. ;   Ignore any garbage bytes at end of file
  31. ;
  32. IF       Rating = "" THEN Okay = "N" ELSE "Y"
  33. ;
  34. ;   Build output line
  35. ;
  36. OUT      Okay = "Y" |"{First}","{LastName}","{Street}","{Phone}",
  37. OUTEND   Okay = "Y" |"{Job}","{Comments}",{Rating}
  38.