001: PA
002: *
003: START:
004: CLR
005: DISPLAY Example Report 2
006: DISPLAY
007: S02.SETPTR
008: *
009: IF @USER.RETURN.CODE = 'Q' THEN GO END
010: IF @USER.RETURN.CODE = 'E' THEN GO START
011: *
012: HHH <>
013: HHH <>
014: HHH <>
015: *
016: DELETE.LIST <<(V)alley or (C)rafton>>.CASH.RCPTS.RPT
017: *
018: SELECT CASH.RCPTS \
019: WITH CASH.RCPTS.ADDDATE = '<>' \
020: AND CASH.RCPTS.ADDOPR = <>
021: *
022: SAVE.LIST <<(V)alley or (C)rafton>>.CASH.RCPTS.RPT
023: GET.LIST <<(V)alley or (C)rafton>>.CASH.RCPTS.RPT
024: *
025: IF @USER.RETURN.CODE = 'P' THEN GO PRNT
026: *
027: LIST CASH.RCPTS \
028: RCPT.PAYER.ID RCPT.PAYER.DESC \
029: CASH.RCPTS.ADDDATE CASH.RCPTS.ADDOPR \
030: SELECT.ONLY \
031: HEADING "(S02.EXAMPLE2) Cash Receipts by Day by Operator (XXYZ) 'TL'
for Day <> Page 'PL
' for Operator <>
Save-List <<(V)alley or (C)rafton>>.CASH.RCT
PS.RPT 'L'"
032: <>
033: *
034: GO END
035: PRNT:
036: *
037: LIST CASH.RCPTS \
038: RCPT.PAYER.ID RCPT.PAYER.DESC \
039: CASH.RCPTS.ADDDATE CASH.RCPTS.ADDOPR \
040: SELECT.ONLY LPTR \
041: HEADING "(S02.EXAMPLE2) Cash Receipts by Day by Operator 'TL'
for Day <> Page 'P
L' for Operator <>
Save-List <<(V)alley or (C)rafton>>.CASH.RC
TPS.RPT 'L'"
042: END:
