From: jonathan@ucsvc.ucs.unimelb.edu.au
Newsgroups: news.software.anu-news
Subject: NEWSSKIM_ALT.6-OF-7
Date: 15 Oct 92 03:09:58 GMT
Organization: The University of Melbourne

-+-+-+-+-+-+-+-+ START OF PART 6 -+-+-+-+-+-+-+-+
X!`20Created:`09`204-MAR-1988`09R.`20L.`20Palamara
X
Xdefine`20verb`20forcex
X`09image`20sys_sysroot:`5Bsysexe.source.forcex`5Dforcex
X`09parameter`20p1,label=prcnam
X`09qualifier`20identification,nonnegatable,value(required)
X`09qualifier`20code,nonnegatable,value(required,type=$number)
X`09disallow`20prcnam`20and`20identification
$ call unpack FORCEX.CLD;1 1178154121 ""
$!
$ create 'f'
X`A8`000`00D`00X`00`00`00`00`000205`01`01`00`00`FF`FF`FF`FF`FF`FF`FF`FF`00`00
V`00`00(`00`00`01`B4`B8Ku`00`00`00`00`00`08`00`00h`DF`FE`7F`FA`05`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`06`00`00`00`00`00`00`00`01`00`00`00`00`00`00
V`00`00`00`00`00`06FORCEX`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`010`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`20#`B4`B8K`F5`90`00`0504-00`00`00`00`00`00`00`00`00`00`00
V`10`00`01`00`01`00`00`00`8A`00`00`00`02`00`00`00`10`00`02`00`02`00`00`00`80
V`00`00`00`03`00`00`00`10`00`01`00`04`00`00`00`0A`04`00`00`05`00`00`00`0C`00
V`14`00`EC`FF?`00`8C`00`00`FD`1F`00`82`00`00`00`00`00!`00`00`03`00`00`00`00`0D
V`00`00`01`0ALIBRTL_001`00`00`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF
V`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF
V`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF
V`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF
V`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF
V`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF
V`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF
V`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF
V`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF
V`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF
V`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF
X`0E`00`0E`01`08`02`00`00IDENTIFICATION`04`00`0E`01`1E`02`00`00CODE`06`00`0E
V`01*`02`00`00PRCNAM`00`00`00`00@`02`00`00`FF`00`00`00@`02`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`03`00`00`00`00`00`00`00`00`00`00`00`80`09`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
X<`00`9E`CE`60`FF`5E,`00n`00`1C`AD`E4`90`8FP`AD`E4`9E`FF;`04`00`00`AD`F4`9E`FF/
V`04`00`00`AD`F8`9F`AD`F0`9F`AD`EC`DD`AC`04`FB`03`FF`19`04`00`00`DD`5E`9F`AE
V`08`9F`AD`E4`FB`03`9F`18`DE`FE`7F`04`7C`00`9E`FF`01`04`00`00V`9E`CEX`FF`5E,
V`00n`00`1C`AD`E4`90`8FQ`AD`E4`9E`FF`F1`03`00`00`AD`F4`9E`FF`E5`03`00`00`AD`F8
V`9F`AD`F0`9F`AD`EC`DD`AC`04`FB`03f`DD`5E`9F`AE`10`9F`AD`E4`FB`03`9F`18`DE`FE
V`7F`D0PR`9F`AD`EC`DD`AC`08`FB`02`FF`B0`03`00`00`91l`03`1F$`D5`AC`0C`13`1F`9F
V`AE`08`9F`AE`08`DD`AC`08`FB`03f`B1`AE`04`AD`EC`1E`07`B0`AE`04`BC`0C`11`05`B0
V`AD`EC`BC`0C`D0RP`04`7C`00`9E`FF`7F`03`00`00V`9E`CED`FF`5E,`00n`00`1C`AD`C8
V`90`8FS`AD`C8`9E`FFo`03`00`00`AD`D8`9E`FFc`03`00`00`AD`DC`95l`13`16`D5`AC`04
V`13`11`9F`AD`FC`9F`AD`F8`DD`AC`04`FB`03f`9E`AD`F8`AD`D4`D0`AC`08`AD`CC`91l`03
V`1F`05`D5`AC`0C`12`0A`91l`04`1F`15`D5`AC`10`13`10,`00n`00`14`AD`E4`D0`04`AD
V`E4`9E`AD`E4`AD`E0`91l`03`1F`0A`D5`AC`0C`13`05`D0`AC`0C`AD`E8`91l`04`1F`0A`D5
V`AC`10`13`05`D0`AC`10`AD`EC`91l`05`1F`11`D5`AC`14`13`0C`9F`AD`F4`9F`AD`F0`DD
V`AC`14`FB`03f`DD`5E`9F`AE`08`9F`AD`C8`FB`03`9F`18`DE`FE`7F`04<`00`9E`CE`60`FF
V`5E,`00n`00`1C`AD`E4`90`8FT`AD`E4`9E`FF`C5`02`00`00`AD`F4`9E`FF`B9`02`00`00
V`AD`F8`95l`13`0A`D5`AC`04`13`05`D0`AC`04`AD`F0`DD`5E`9F`AE`08`9F`AD`E4`FB`03
V`9F`18`DE`FE`7F`04<`00`9E`CE`60`FF`5E,`00n`00`1C`AD`E4`90`8FU`AD`E4`9E`FF`84
V`02`00`00`AD`F4`9E`FFx`02`00`00`AD`F8`9F`AD`F0`9F`AD`EC`DD`AC`04`FB`03`FFb`02
V`00`00`DD`5E`9F`AE`08`9F`AD`E4`FB`03`9F`18`DE`FE`7F`04`00`00?`EF.`FC
X`FF`FF`7F`EF0`FC`FF`FF`7F`EF`08`FC`FF`FF`FB`03`EF.`FE`FF`FF`E8P`0A`D1P`8F`F0
V`81`03`00`13`18`04`DF`EF(`FD`FF`FF`7F`EF`02`FC`FF`FF`FB`02`FF#`02`00`00`E8P
V`01`04?`EF`F1`FB`FF`FF`7F`EF`F3`FB`FF`FF`7F`EF`B5`FB`FF`FF`FB`03`EF`F1`FD`FF
V`FF`E8P`0A`D1P`8F`F0`81`03`00`13%`04`DF`EF`DB`FC`FF`FF`7F`EF`C5`FB`FF`FF`FB
V`02`FF`EA`01`00`00`E8P`01`04`DE`EF`C4`FC`FF`FF`EF`C7`FC`FF`FF`111?`EF`A7`FB
V`FF`FF`7F`EF`A9`FB`FF`FF`7F`EF`8D`FB`FF`FF`FB`03`EF`A7`FD`FF`FF`E8P`0A`D1P`8F
V`F0`81`03`00`13`0C`04`7E`EF`81`FB`FF`FF`EF`98`FC`FF`FF`FA`EF`8A`FC`FF`FF`9F
V`60`DF`FE`7F`04`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
X`00`00`00`00`00`00`00`00@`00`00`00@`00`00`00`00`00`00`00d`00`00`00p`00`00`00
V`02`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`06`00`00`00`01`00`00`00`98`06`00`00`60`06
V`00`00H`05`00`00P`05`00`00`B0`05`00`00`D0`05`00`00`00`00`00`00`01`00`00`00`00
V`06`00`00`01`00`0D`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00@`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`06LIBRTL`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00
X`0D`BC`00`00`00`00`00`06.MAIN.`0B`BE`00`FA`05`00`00`04MAIN`0F`B8`00`00`02`00
V`00`04DATAT`01`00`00`0F`B8`00`FA`05`00`00`04CODE`C6`00`00`00`01`BD`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
$ call unpack FORCEX.EXE;1 3878245812 "FORMAT FIX;SIZE 512"
$!
$ create 'f'
X1`20FORCEX
X`20`20Forces`20an`20Exit`20($EXIT)`20service`20call`20to`20be`20issued`20on
V`20behalf`20of
X`20`20the`20current`20image`20(if`20any)`20in`20a`20specified`20process.
X
X`20`20Format:
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20FORCEX`20`20`5Bprocess-name
V`5D
X
X`20`20Note:`20FORCEX`20is`20a`20local`20command.`20`20To`20use`20it`20you`20mu
Vst`20first`20add`20its
X`20`20definition`20to`20your`20command`20table`20with`20the`20command
X
X`20`20`20`20SET`20COMMAND`20SYS_SYSTEM:FORCEX.CLD
X2`20Parameters
X
X`20`20process-name
X
X`20`20Specifies`20the`20name`20of`20the`20process`20to`20be`20exited.`20`20The
V`20process`20must
X`20`20be`20in`20the`20same`20UIC`20group`20as`20the`20process`20running`20FORC
VEX.`20`20To`20exit
X`20`20a`20process`20outside`20of`20your`20UIC`20group,`20use`20the`20/IDENTIFI
VCATION=pid
X`20`20qualifier.
X
X`20`20Note:`20Normally`20you`20can`20only`20force`20exit`20processes`20running
V`20under`20your
X`20`20own`20UIC.`20`20Refer`20to`20the`20Privileges`20subtopic`20for`20further
V`20information.
X2`20Qualifiers
X/IDENTIFICATION
X
X`20`20/IDENTIFICATION=pid
X
X`20`20Specifies`20the`20process`20identification`20code`20(PID)`20of`20the`20p
Vrocess`20to
X`20`20be`20exited.
X
X/CODE
X
X`20`20/CODE=exit-status
X
X`20`20Specifies`20the`20exit`20status`20code.`20`20This`20should`20be`20specif
Vied`20as`20a
X`20`20decimal,`20octal`20or`20hexadecimal`20integer`20in`20DCL`20syntax.
X
X`20`20The`20default`20exit`20status`20code`20is`20%X00000980`20which`20is`20SS
V$_CLIFRCEXT,
X`20`20CLI`20forced`20exit.
X2`20Privileges
X`20`20No`20privilege`20is`20required`20to`20exit`20other`20processes`20with
V`20your`20UIC.
X
X`20`20GROUP`20privilege`20is`20required`20to`20exit`20other`20processes`20in
V`20the`20same
X`20`20group.
X
X`20`20WORLD`20privilege`20is`20required`20to`20exit`20other`20processes`20outs
Vide`20your
X`20`20group.
X2`20Examples
X`20`201.`20`20`20$`20FORCEX`20BATCH_0385
X
X`20`20This`20will`20force`20an`20exit`20with`20status`20code`20SS$_CLIFRCEXT
V`20for`20the
X`20`20process`20named`20BATCH_0385.`20`20Note`20that`20this`20process`20must
V`20be`20in
X`20`20your`20UIC`20group.
X
X`20`202.`20`20`20$`20FORCEX/ID=30A5/CODE=%X2C
X
X`20`20This`20will`20force`20an`20exit`20with`20status`20code`20SS$_ABORT`20for
V`20the`20process
X`20`20with`20identification`20code`2030A5.
$ call unpack FORCEX.HLP;1 1819827094 ""
$!
$ create 'f'
X;`20FORCEX.MAR`09Force`20the`20exit`20of`20a`20specified`20process
X;
X;`20Command`20syntax`20is:
X;
X;`09FORCEX`20`5B/INDENTIFICATION=pid`5D`20`5B/CODE=exit_status`5D`20`5Bprcnam
V`5D
X;
X;`20The`20process`20can`20be`20specified`20by`20process`20id`20or`20by`20proce
Vss`20name`20(if`20the
X;`20process`20is`20in`20the`20same`20UIC`20group).`20`20Specifying`20both`20/I
VDENTIFICATION=pid
X;`20and`20prcnam`20is`20disallowed.`20`20If`20neither`20is`20specified`20then
V`20the`20default`20is
X;`20the`20current`20process.`20`20The`20exit`20status`20code`20defaults`20to
V`20SS$_CLIFRCEXT.
X;
X;`20Command`20interface`20is`20the`20CLI.
X;
X;`20Created:`09`204-MAR-1988`09R.`20L.`20Palamara
X;`20--------------------------------------------------------------------------
V---
X;
X`09.psect`09data,wrt,noexe,long
X;
Xidentification_dx:`09`09`09;CLI`20labels
X`09.ascid`09/IDENTIFICATION/
Xcode_dx:
X`09.ascid`09/CODE/
Xprcnam_dx:
X`09.ascid`09/PRCNAM/
X`09.align`09long
X;
Xvalue_dx:`09`09`09`09;Descriptor`20for`20value`20returned`20by`20CLI
X`09.blkl
X`09.address`20value_buf
Xvalue_buf_dx:`09`09`09`09;Descriptor`20for`20value`20buffer
X`09.long`09255
X`09.address`20value_buf
Xvalue_buf:`09`09`09`09;Buffer`20to`20hold`20value
X`09.blkb`09255
X`09.align`09long
X;
Xpid:`09.blkl`09`09`09`09;Optional`20process`20id
X;
Xforcex_arglst:`09`09`09`09;Argument`20list`20for`20$FORCEX`20service
X`09$forcex`09pidadr=0,`09-
X`09`09prcnam=0,`09-
X`09`09code=ss$_clifrcext
X;`09`09
X;`20Get`20value`20of`20an`20entity`20from`20the`20CLI
X;
X`09.macro`09get_value`20entity_desc,absent_rtn,?cont
X`09pushaw`09value_dx
X`09pushaq`09value_buf_dx
X`09pushaq`09entity_desc
X`09calls`09#3,g`5Ecli$get_value
X`09blbs`20`09r0,cont
X`09cmpl`09r0,#cli$_absent
X`09beql`09absent_rtn
X`09ret`09`09`09`09;Return`20with`20status`20
Xcont:
X`09.endm
X;
X`09.psect`09code,nowrt,exe
X`09.entry`09main,`5Em<>
X`20`20`20`20`09get_value`20code_dx,10$`09`09;Get`20status`20code`20value
X`09pushal`09forcex_arglst+forcex$_code
X`09pushaq`09value_dx
X`09calls`09#2,g`5Eots$cvt_ti_l`09;Convert`20to`20signed`20decimal`20to`20longw
Vord
X`09blbs`09r0,10$
X`09ret
X10$:
X`09get_value`20identification_dx,30$
X`09pushal`09pid
X`09pushaq`09value_dx
X`09calls`09#2,g`5Eots$cvt_tz_l`09;Convert`20hexadecimal`20to`20longword
X`09blbs`09r0,20$
X`09ret
X20$:`09moval`09pid,`09-`09`09;Set`20process`20id`20in`20argument`20list
X`09`09forcex_arglst+forcex$_pidadr
X`09brb`0940$
X30$:
X`09get_value`20prcnam_dx,40$`09`09;NB:`20PRCNAM`20must`20be`20done`20last
X`09movaq`09value_dx,`09-`09;Set`20process`20name`20in`20argument`20list
X`09`09forcex_arglst+forcex$_prcnam
+-+-+-+-+-+-+-+-  END  OF PART 6 +-+-+-+-+-+-+-+-