home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / pocketbk / developmen / oplexamp / EX_REORD.OPL < prev    next >
Text File  |  1992-08-27  |  511b  |  27 lines
  1. PROC reorder:
  2.     LOCAL last%,e$(255),e%,lpos%,n$(128),c%
  3.     n$="\dat\*.dbf"
  4.     dINIT "Re-order Data file"
  5.     dFILE n$,"Filename",0
  6.     IF DIALOG REM returns 0 if cancelled
  7.         OPEN n$,a,a$
  8.         LAST :last%=POS
  9.         IF COUNT>0
  10.             WHILE last%<>0
  11.                 POSITION last% :e%=POS
  12.                 e$=UPPER$(a.a$)
  13.                 DO
  14.                     IF UPPER$(a.a$)<e$
  15.                         e$=UPPER$(a.a$) :e%=POS
  16.                     ENDIF
  17.                     lpos%=POS :BACK
  18.                 UNTIL pos=1 and lpos%=1
  19.                 POSITION e%
  20.                 PRINT e$
  21.                 UPDATE :last%=last%-1
  22.             ENDWH
  23.         ENDIF
  24.         CLOSE
  25.     ENDIF
  26. ENDP
  27.