Posted by Bob A on August 29, 2011 at 08:53:46:
I had to comment out the following because it did not work:
!       SELECT CASE SGN(WKPAYAMT)
!              CASE 1
!                   WKPAY.DR =     WKPAYAMT
!              CASE -1
!                   WKPAY.CR = 0 - WKPAYAMT
!       ENDSELECT
On the other hand... this worked fine
        IF SGN(WKPAYAMT) EQ 1 THEN
           WKPAY.DR =     WKPAYAMT
        ELSE
           WKPAY.CR = 0 - WKPAYAMT
        ENDIF
I realised that someplace else I encountered this and converted it into an ON/GOTO structure, because there I had to count the ZERO lines 
Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.