prog1.cbl

identification division.
program-id. prog1.
working-storage section.
01  err-code    pic x(2).
01  err-message   pic x(60).
01  customer-info.
     05  requested-age.
        10  low-age               pic x(2).
        10  high-age              pic x(2).
     05  age-group-count           pic 9(3).
procedure division.
main-logic.
     move "35" to low-age.
     move "39" to high-age.
     call "prog2" using customer-info
        on exception
           perform exception-handling
        end-call.
     display "Number of customers between " low-age " and "
        high-age ": " age-group-count.
     accept omitted.
     stop run.
exception-handling.
     call "C$CALLERR" using err-code, err-message.
     display "Error#: " err-code ", " err-message.
     accept omitted.
     stop run.