DataMuseum.dk

Presents historical artifacts from the history of:

Regnecentalen RC-900

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Regnecentalen RC-900

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦c0b6c13e3⟧ TextFile

    Length: 844 (0x34c)
    Types: TextFile
    Notes: UNIX file
    Names: »RP_dbase1.rep«

Derivation

└─⟦c93a30372⟧ Bits:30004169/disk3.imd Uniplex II+ V.6 release 1.0 (dansk)
└─⟦c93a30372⟧ UNIX Filesystem
    └─⟦this⟧ »up/new/usr/UAP/demo/SAMPLES/RP_dbase1.rep« 

TextFile

#SECTION-company
:DATA
usql
invoke uk_sales
select Branch_name, First_name, Surname, Salary, PC -
       from branch b, sales_force s -
       where b.BNo = s.BNo -
       order by Branch_name, Surname, First_name
:LABEL
Branch;
Firstname,    strip;
Surname,      float;
Salary,       right, format=$ZZZ,ZZ9;
Commission,   right, format=Z9%;
:LOCAL
datestamp = !date;
:TEXT
.HE8
[datestamp_____________________________]
                         
                             COMPANY SALARIES REPORT              

                  This report contains details of all salespersons

BRANCH                SALESPERSON                          SALARY    COMMISSION

.FO2

                                       PAGE #
#SECTION employee
))

#SECTION-employee
:TEXT
[Branch____________]  [Firstname] [Surname]         [Salary_____]  [Commission]
))