!*******************************************************

  macro module l_sysdat();

!*      Skriver ut systemdata.
!*
!*      In: Inget.
!*
!*      Ut: Inget.
!*
!*      (C)microform ab 13/9/95 J. Kjellander
!*
!*      1996-06-04 Engelska, J.Kjellander
!*
!*******************************************************

 beginmodule

   lst_ini(get_tstr(1546));        ! ANALYS - Systemdata

   lst_lin(get_tstr(1547) + act_varkon_vers());              ! Version
   lst_lin(get_tstr(1548) + str(act_varkon_serial(),-1,0));  ! Serienummer
   lst_lin(get_tstr(1549) + act_ostype());                   ! OS-typ
   lst_lin(get_tstr(1550) + act_host());                     ! Nodnamn

   lst_exi();

 endmodule

!*******************************************************