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

     Seq    Name_________ Description______________________
      10    AGEYER        Age in years
      20    AGEMTH        Age in months

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