%========================================================

%     Name: Juan C Ibarra Cuza

%     Panther-ID: x x x - 4175 (last 4 digits)

%     Course: COP 4710

%     Assignment#: 1

%     Due: Tue, Sep 8, 2020

%     I hereby certify that this work is my own and none of
%     it is the work of any other person.

%                             Signature: Juan C Ibarra
%     =========================================================

% Get all the books that have publisher code JP 
qBooks := project bookCode (select (publisherCode = 'JP') (book));

% Get the author number who wrote them
qWrote := project bookCode, authorNum (qBooks njoin wrote);

% Project the first and last name of those authors
authors(firstName, lastName) := project authorFirst, authorLast (qWrote njoin author);