$ ! ***************************************************************************
$ ! *                                                                         *
$ ! * (c) RUN_WSSIZE.COM                                                      *
$ ! *                                                                         *
$ ! ***************************************************************************
$ !
$ ! ------------------------------------------------------------***************
$ !
$ ! Copyright    : Barendse & Bosman Office Automation B.V.
$ !                C. Kouwenbergzoom 221     -------------
$ !                3065 GK  ROTTERDAM       | Info@BBI.nl |
$ !                The Netherlands           -------------
$ !
$ ! Description  : See WSSIZE.COM for details. This procedure shows an example
$ !                how to use WSSIZE.COM.
$ !                Specify (a part of) the process-name you want to display
$ !                in P1, the scale (Kb/chr) in P2 and the refresh-interval
$ !                (seconds) in P3.
$ !
$ ! ------------------------------------------------------------***************
$ !
$ main:                                                       ! MAINROUTINE
$    !
$    prcnam  = "''P1'"
$    scale   = P2
$    refresh = P3
$    !
$    IF scale   .EQ. 0 THEN scale   = 100
$    IF refresh .EQ. 0 THEN refresh =   3
$    !
$    prv = F$SETPRV( "WORLD" )
$    @WSSIZE      -
        'scale'   -
        'refresh' -
        " F$LOCATE( ""''prcnam'"", F$GETJPI( pid, ""PRCNAM"" ) ) .NE. F$LENGTH( F$GETJPI( pid, ""PRCNAM"" ) ) "
$    !
$    prv = F$SETPRV( prv )
$    !
$ EXIT                                                        ! ENDMAINROUTINE
$ !
$ ! ------------------------------------------------------------***************