userconfig.cbl = SCREEN and INTERFACE for configuration and settings.
lib/std/get_age = STANDARD PROGRAM that use to calculate AGE based on DOB (date of birth)
IN userconfig.cbl once compiled, it will display as below:
USERNAME: _____________, data type PIC x(30)
EMAIL: _________________, data type PIC x(40)
DOB: __________________ (X), data type 99/99/9999 where (X) is the age should display calling get_age
HEIGHT: _______________, data type PIC 999V99
WEIGHT: _______________, data type PIC 999V99
EMAIL: _________________, data type PIC x(40)
DOB: __________________ (X), data type 99/99/9999 where (X) is the age should display calling get_age
HEIGHT: _______________, data type PIC 999V99
WEIGHT: _______________, data type PIC 999V99
My question is, the get_age object is ready to use and how to call and pass the value of DOB and return the (x) = age?
coded