Example 3: Converting a Date of Birth to an Age

An employee master file contains field EMPDOB (date of birth). Using existing program GETAGE (convert date to age) derive virtual fields AGEYER (age in years) and AGEMON (age in months).

Step 1 - Define the Virtual Fields

 

 

Step 2 - Input RPG Section "Calculations After Input from File"

C*

C* VC_USING FIELDS(EMPDOB AGEYER AGEMTH)

C*

C                     CALL 'GETAGE'

C                     PARM           EMPDOB

C                     PARM           AGEYER

C                     PARM           AGEMTH