Function SETWEBP

LANSA

Function SETWEBP

********** COMMENT(=======================================================);
********** COMMENT(Copyright .....: (C) = LANSA SET Team =);
********** COMMENT(Process .......: S_SYSVAR);
********** COMMENT(Function ......: SETWEBP);
********** COMMENT(Type ..........: System Variable Evaluator);
********** COMMENT(Created by ....: SETUSER);
********** COMMENT(Created on ....: 25/05/00 at 10:58:30);
********** COMMENT(Description ...: This is a general purpose system);
********** COMMENT(variable evaluation program for the evaluation of);
********** COMMENT(AS/400 system variables for PCs);
********** COMMENT(=======================================================);
********** COMMENT(Function Mainline : SETWEBP);
********** COMMENT(=======================================================);
********** COMMENT();
FUNCTION OPTIONS(*DIRECT *NOMESSAGES *LIGHTUSAGE);
********** COMMENT();
********** COMMENT();
CASE OF_FIELD(#SYSVAR$NM);
WHEN VALUE_IS('= ''*S_IFSPATH''');
CHANGE FIELD(#SYSVAR$AV) TO(*S_IFSPATH);
WHEN VALUE_IS('= ''*S_HOSTURL''');
CHANGE FIELD(#SYSVAR$AV) TO(*S_HOSTURL);
WHEN VALUE_IS('= ''*S_HOSTPORT''');
CHANGE FIELD(#SYSVAR$AV) TO(*S_HOSTPORT);
WHEN VALUE_IS('= ''*S_190PID''');
CHANGE FIELD(#SYSVAR$NV) TO(*AUTONUM15S_190PID);
EXCHANGE FIELDS(#SYSVAR$NV);
RETURN;
OTHERWISE;
CHANGE FIELD(#SYSVAR$AV) TO('''System variable not known by SETWEBP''');
ENDCASE;
EXCHANGE FIELDS(#SYSVAR$AV);
********** COMMENT();
RETURN;

previous page start next page