The Retrieve  System Value  3 tool  provides a  program interface  that
accesses  several  commonly  used system  values.    This includes  the
system  date  (as  CYYMMDD and  in  system  format), time  (as  6  or 9
bytes), serial  number, model, date/time  editing characters,  currency
symbol, and the network attribute system name.

The data  is passed back  in a data  structure which can  be externally
described.

The  following RPG code  is in  a format ready  to be  copied into your
program:

     ISYSVAL    E DSTAAVALBP
     .
     .
     C                     CALL 'TAAVALBC'
     C                     PARM           SYSVAL

All of the fields begin  with the prefix VL.   Thus to use the  CYYMMDD
value, you would specify:

     C                     MOVE VLCYMD    xxxxxx

The following  fields are  available in  the externally  described data
structure:

        Field    Length  Description
        -----    ------  -----------

        VLCYMD      7    Date as CYYMMDD
        VLSYSD      6    Date in system format
        VLYEAR      4    Year in 4 digit format (e.g. 2006)
        VLDATF      3    QDATFMT system value (e.g. MDY)
        VLDATS      1    QDATSEP system value (e.g. /)
        VLTIM9      9    QTIME as HHMMSSmmm
        VLTIM6      6    QTIME as HHMMSS
        VLTIMS      1    QTIMSEP system value (e.g. :)
        VLCURS      1    QCURSYM system value (e.g. $)
        VLDECF      1    QDECFMT system value (e.g. 1)
        VLSRLN      8    QSRLNBR system value
        VLMODL      4    QMODEL system value (e.g. F95)
        VLSECR      2    QSECURITY system value (e.g. 30)
        VLEDTD      8    Edited date (e.g. nn/nn/nn)
        VLEDTT      8    Edited time (e.g. nn:nn:nn)
        VLSYSR      6    System release (e.g. VnRnMn)

Restrictions
------------

None.

Prerequisites
-------------

None.

Implementation
--------------

None, the tool is ready to use.

Objects used by the tool
------------------------

   Object        Type    Attribute      Src member    Src file
   ------        ----    ---------      ----------    ----------

   TAAVALBC      *PGM       CLP         TAAVALBC      QATTCL
   TAAVALBP      *FILE      PF          TAAVALBP      QATTDDS