Download NS-ARPA/1000 User/Programmer Reference Manual

BEGIN {* password specified *}
strmove(rlen,rstring,1,Password,1);
END; {* password specified *}
IF (rlen < 0) THEN
PasswdLength := 0
ELSE
PasswdLength := rlen;
{}
{ Get working directory if any – optional parameter.
{}
rlen := GetRunString(4,rstring,MAX_RUN_STRING);
IF (rlen > 0) THEN
BEGIN {* directory specified. *}
strmove(rlen,rstring,1,WdOpt.WdPath,1);
END; {* directory specified. *}
IF (rlen < 0) THEN
rlen := 0;
Flags.int := 0;
OptNum := 0;
{ Flags not used, so clear array }
{ Initialize RpmOpt array . }
IF (rlen > 0) THEN
BEGIN {* need to add working directory also *}
INITOPT( RpmOpt,5,error );
IF error <> NO_ERROR THEN
BEGIN
CallName := ’INITOPT’;
OPT_ERROR( CallName,error );
END;
{}
{ Set child’s session working directory
{}
ADDOPT( RpmOpt,OptNum,RPMOPT_WD,rlen,WdOpt.Bytes,error );
OptNum := OptNum +1;
IF error <> NO_ERROR THEN
BEGIN
CallName := ’ADDOPT––WD Opt’;
OPT_ERROR(CallName,error);
END;
END
{* need to add work directory also *}
ELSE
BEGIN {* only 4 options to add *}
INITOPT( RpmOpt,4,error );
IF error <> NO_ERROR THEN
BEGIN
CallName := ’INITOPT’;
OPT_ERROR( CallName,error );
END;
END; {* only 4 options to add *}
{}
{ RP child with the ID ’CH1’
{}
:%#(((((( (