DataMuseum.dk

top - metrics - download

    Length: 1151 (0x47f)
    Types: TextFile
    Notes: UNIX file
    Names: »balance«

└─⟦657bff2be⟧ Bits:30004160/disk1.imd SW95860 UNIPLEX+ release 1.0 (dansk)
└─⟦657bff2be⟧ UNIX Filesystem
    └─⟦this⟧ »ua/new/usr/UAP/outlines/ureport/balance« 

TextFile

#SECTION-balance
:LABEL
amount,                                      right,format=($ZZ,ZZZ,ZZZ,ZZ9.99);
:LOCAL
crsum   = sum(if amount >= 0 then amount),   right,format=($ZZ,ZZZ,ZZZ,ZZ9.99);
dbsum   = sum(if amount <  0 then amount),   right,format=($ZZ,ZZZ,ZZZ,ZZ9.99);
balance = sum(amount),                       right,format=($ZZ,ZZZ,ZZZ,ZZ9.99);
:TEXT
                    CREDIT                    DEBIT

#SECTION entry

     =====================    =====================
     [crsum______________]    [dbsum______________]
     =====================    =====================
                                                                     BALANCE

                                                       =====================
                                                       [balance____________]
                                                       =====================
))

#SECTION-entry
:CONTROL
break;
:TEXT
#SECTION crentry
#SECTION dbentry
))

#SECTION-crentry
:CONTROL
if amount >= 0;
:TEXT
     [amount_____________]
))

#SECTION-dbentry
:CONTROL
if amount < 0;
:TEXT
                              [amount_____________]
))