process/one-off/fixchr13.p

   1 FOR EACH Note:
   2   DO WHILE INDEX( Note.Detail, CHR(13) ) > 0 :
   3     SUBSTRING( Note.Detail, INDEX( Note.Detail, CHR(13) ), 1) = CHR(10).
   4   END.
   5 END.
   6
   7 FOR EACH PostalDetail:
   8   DO WHILE INDEX( PostalDetail.Address, CHR(13) ) > 0 :
   9     SUBSTRING( PostalDetail.Address, INDEX( PostalDetail.Address, CHR(13) ), 1) = CHR(10).
  10   END.
  11   IF PostalDetail.City = ? AND INDEX( PostalDetail.Address, CHR(10)) > 0
  12   THEN DO:
  13     PostalDetail.City = ENTRY( NUM-ENTRIES( PostalDetail.Address,
  14                                             CHR(10)
  15                                           ),
  16                                PostalDetail.Address,
  17                                CHR(10)
  18                              ).
  19     PostalDetail.Address = SUBSTRING( PostalDetail.Address,
  20                                       1,
  21                                       INDEX( PostalDetail.Address,
  22                                              CHR(10),
  23                                              NUM-ENTRIES( PostalDetail.Address, CHR(10))
  24                                            ) - 1
  25                                     ).
  26   END.
  27 END.
  28
  29 FOR EACH Property:
  30   DO WHILE INDEX( Property.StreetAddress, CHR(253) ) > 0 :
  31     SUBSTRING( Property.StreetAddress, INDEX( Property.StreetAddress, CHR(253) ), 1) = CHR(10).
  32   END.
  33 END.
  34