Versions Compared

Old Version 2

changes.mady.by.user user-2c621

Saved on

compared with

New Version Current

changes.mady.by.user Fabiola Arias Navia

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

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