RPG ILE or RPGIII in disguise?

Hey I'd like to start this discussion with the hope of benefitting from your constructive (or even distructive) critiscme.

Here's an example of a "function" that I have to write that I feel is written with an RPGIII approach as opposed to an ILE one.

A client subscribes to n products for a given period. N children are dependant upon the client.

At 2011-01-01, the subscription to a product may have come to its end date.
At 2011-01-01, a child may no longer be dependant because of his age.

I want to know, yes or no, if, at a given date there are the same number of products subscribed to by, and the same number of children dependent on, the client. That is, is the situation the same?

Input parameter client, date
Read subscribed products
if the product read has expired at the date received, break and return no.
Read children,
if the child read has reached required age, break and return no.
return yes

All this is in one <function>.
No other procedure would have access to the products or children of the client.

I would rather :
Function getProducts (client : dateNow)
Function getProducts (client : dateThen)
Function getChildren (client : dateNow)
Function getChildren (client : dateThen)

Then, (roughly speaking)
If ProductsNow <> ProductsThen or ChildrenNow <> ChildrenThen
NO
Else
YES

I have still not worked with service programs, but I'd like to think that there'd be one for getProducts and another for getChildren. Another procedure would be able to access any one of the children or products for the client at the date given. Would that be possible?