Re: PDF copy speed

Posted by Grant Foraker on July 21, 2010 at 12:55:26:

In Reply to: Re: PDF copy speed posted by Grant Foraker on July 21, 2010 at 10:59:33:

The copy method also yields 50/min on my development PC. I'm awaiting the next billing run at the customers to see if the new method is faster.

The code for the copy method is quite long ...

!-------------------- OPEN FROM FILE -------------------------------------------
AX$ = "@3D42@" ! Set AX to "OPEN FILE"
CX$ = "@0000@" ! Set CX to null
DOSFC(AX$,CX$,PDFNAME$) EXCP = DOSERROR ! Perform DOSFC call
FROMHANDLE$ = AX$ ! Save file handle
!------------------- CREATE TO FILE --------------------------------------------
AX$ = "@3C00@" ! Set AX to "CREATE FILE"
CX$ = "@0000@" ! Set CX register to null
DOSFC(AX$,CX$,ARCNAME$) EXCP = DOSERROR ! Perform DOSFC call
TOHANDLE$ = AX$ ! Save file handle
!------------------ COPY TO ARCHIVE --------------------------------------------
AX$ = "@FFFA@" ! Set AX to "COPY FILE"
BX$ = "@0000@" ! Set BX to start of file
CX$ = FROMHANDLE$ ! Set CX to source file
DX$ = TOHANDLE$ ! Set DX to destination file
DOSMS(AX$,BX$,CX$,DX$) EXCP = DOSERROR
!------------------- CLOSE FROM FILE -------------------------------------------
AX$ = "@3E00@" ! Set AX to "CLOSE FILE"
BX$ = FROMHANDLE$ ! Set BX to source file
CX$ = "@0000@" ! Set CX to null
DX$ = "@0000@" ! Set DX to null
DOSMS(AX$,BX$,CX$,DX$) EXCP = DOSERROR
!------------------- CLOSE TO FILE -------------------------------------------
AX$ = "@3E00@" ! Set AX to "CLOSE FILE"
BX$ = TOHANDLE$ ! Set BX to destination file
CX$ = "@0000@" ! Set CX to null
DX$ = "@0000@" ! Set DX to null
DOSMS(AX$,BX$,CX$,DX$) EXCP = DOSERROR
!-------------------------------------------------------------------------------
!===============================================================================

Versus the MOVE method which, in addition, deletes the source file.

================================================================================
AX$ = "@FFF9@"
BX$ = "@0000@"
DOSMS(AX$,BX$,PDFName$,ARCName$) EXCP = DOSERROR
================================================================================

Could the copy process be shortened up to the same syntax as the MOVE? Like ...

AX$ = "@FFFA@"
BX$ = "@0000@"
DOSMS(AX$,BX$,PDFName$,ARCName$) EXCP = DOSERROR

================================================================================

The file operations seem to be the major component limiting the invoice/min rate. During testing, I've been printing the "hardcopy" bills to one big PDF. Speed on that file is roughly 1000/minute.

Follow Ups:

• Re: PDF copy speed Jim Guerber 14:57:59 07/21/10 (4)
  • Re: PDF copy speed Grant Foraker 14:09:27 07/22/10 (2)
    • Re: PDF copy speed Jim Guerber 14:18:04 07/22/10 (1)
      • Re: PDF copy speed Grant Foraker 14:54:51 07/22/10 (0)
  • Re: PDF copy speed Grant Foraker 06:14:38 07/22/10 (0)

Post a Followup

Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.