Re: New Reporter question...>

Posted by Grant Foraker on January 09, 2014 at 14:08:29:

In Reply to: New Reporter question...> posted by Tom Fulton on January 09, 2014 at 13:10:28:

INPUT CASH.RECTS.REG
PRINTER LAG (SpoolMessage='CASH RECEIPTS REPORT')
TITLE CASH RECEIPTS REPORT
SELECTING SEQUENCE.NUMBER EQ "00"
SORT ON CHECK.NUMBER;AMOUNT
REPORT
DEFINE COUNT = 1;5.0;COUNT
PRINT ABM;CHECK.NUMBER;AMOUNT;UTILITY.ACCOUNT;PAYER.NAME;SERVICE.ADDRESS
TOTAL AMOUNT;COUNT
RUN QREPORTS,,"CASH.IBR,,!CashReport2"
!
!CashReport2
INPUT CASH.RECTS.REG
PRINTER LAG (SpoolMessage='CASH RECEIPTS (CASH ITEMS)')
TITLE CASH RECEIPTS (CASH ITEMS)
SELECTING SEQUENCE.NUMBER EQ "00" AND SUB(STRIP(CHECK.NUMBER),1,4) EQ 'CASH'
SORT ON CHECK.NUMBER;AMOUNT
REPORT
DEFINE COUNT = 1;5.0;COUNT
PRINT ABM;CHECK.NUMBER;AMOUNT;UTILITY.ACCOUNT;PAYER.NAME;SERVICE.ADDRESS
TOTAL AMOUNT;COUNT
RUN RPGEXIT

Follow Ups:

• Re: New Reporter question...> Tom Fulton 14:28:39 01/09/14 (1)
  • Re: New Reporter question...> Grant Foraker 15:12:52 01/09/14 (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.