isCOBOL Evolve : Appendices : Library Routines : C$SYSINFO
C$SYSINFO
The C$SYSINFO library routine returns information about the current operating system. It produces the same result of ACCEPT SYSTEM-INFORMATION FROM SYSTEM-INFO Statement.
The advantage of using this routine instead of the ACCEPT Statement is that the routine can return client system information if called by CALL CLIENT in Thin Client environment.
Syntax:
 CALL "C$SYSINFO" USING SYSTEM-INFORMATION
Parameters:
SYSTEM-INFORMATION
Group-item
 
 
Structure described in the iscobol.def copybook as follows:
 
01  system-information.
    03  operating-system                         pic x(10).
        88  os-is-msdos                          value "ms-dos".
        88  os-is-os2                            value "OS/2".
        88  os-is-vms                            values "vms", "vax/vms".
        88  os-is-unix                           value "Linux", "AIX", "HP-UX", "SunOS", "Solaris".
        88  os-is-linux                          value "Linux".
        88  os-is-aos                            value "aos/vs".
        88  os-is-windows                        values "Windows 95", "Windows 98", "Windows Me".
        88  os-is-win-nt                         values "Windows 20", "Windows XP", "Windows Vi", "Windows 7", "WINDOWS", "Windows Se", "Windows 8".
        88  os-is-win-family                     values "Windows 95", "Windows 98", "Windows Me", "Windows 20", "Windows XP", "Windows Vi", "WINDOWS", "Windows 7", "Windows Se", "Windows 8".
        88  os-is-amos                           value "amos".
        88  os-is-mpe                            value "MPE/iX".
        88  os-is-mpeix                          value "MPE/iX".
        88  os-is-mac                            value "Mac OS", "Mac OS X".
    03  user-id                                  pic x(12).
    03  station-id                               pic x(12).
    03  filler                                   pic x.
        88  has-indexed-read-previous            value "Y".
    03  filler                                   pic x.
        88  has-relative-read-previous           value "Y".
    03  filler                                   pic x.
        88  can-test-input-status                value "Y".
    03  filler                                   pic x.
        88  is-multi-tasking                     value "Y".
    03  runtime-version.
        05  runtime-major-version                pic 99.
        05  runtime-minor-version                pic 99.
        05  runtime-release                      pic 99.
    03  filler                                   pic x.
        88  is-plugin                            value "Y".
    03  serial-number                            pic x(20).
    03  filler                                   pic x.
        88  has-large-file-support               value "Y".
    03  filler                                   pic x.
    03  filler                                   pic x.
        88  is-64-bit                            value "Y".
Examples:
Example - Get the client system information in a thin-client environment
*> copy "iscobol.def" working-storage
 
call "c$sysinfo" using system-information
display operating-system