RDML Function SET181B
* =======================================================;
* Process ........: SET_181;
* Function .......: SET181B;
* Created on .....: 18/07/00 at 13:45:10;
* Description ....: File Upload;
* Version.........: 1;
*;
* Full Description: This function shows one way of;
* uploading a file to a nominated directory in the IFS.;
*;
*;
* Disclaimer: The following material is supplied as;
* sample material only. No warranty concerning the;
* material or its use in any way whatsoever is;
* expressed or implied.;
*;
* Minimum Release of LANSA: 8.0;
*;
* =======================================================;
* Function control options;
FUNCTION OPTIONS(*DIRECT *WEBEVENT);
* Group and field definitions;
*;
* #S_PATHNAM IS RECEIVED BY THE C PROGRAM SET181UPLO. TO;
* USE A DIFFERENT FIELD YOU MUST ALSO EDIT, CHANGE AND;
* RECOMPILE SET181UPLO.;
*;
GROUP_BY NAME(#PANELDATA) FIELDS((#S_PATHNAM *HIDDEN)(#S_IFSPATH));
*;
CHANGE FIELD(#S_IFSPATH) TO('/');
*;
* Mainline;
*;
REQUEST FIELDS(#PANELDATA) EXIT_KEY(*NO) MENU_KEY(*NO) PROMPT_KEY(*NO);
* =======================================================;
* Process ........: SET_181;
* Function .......: SET181B;
* Created on .....: 18/07/00 at 13:45:10;
* Description ....: File Upload;
* Version.........: 1;
*;
* Full Description: This function shows one way of;
* uploading a file to a nominated directory in the IFS.;
*;
*;
* Disclaimer: The following material is supplied as;
* sample material only. No warranty concerning the;
* material or its use in any way whatsoever is;
* expressed or implied.;
*;
* Minimum Release of LANSA: 8.0;
*;
* =======================================================;
* Function control options;
FUNCTION OPTIONS(*DIRECT *WEBEVENT);
* Group and field definitions;
*;
* #S_PATHNAM IS RECEIVED BY THE C PROGRAM SET181UPLO. TO;
* USE A DIFFERENT FIELD YOU MUST ALSO EDIT, CHANGE AND;
* RECOMPILE SET181UPLO.;
*;
GROUP_BY NAME(#PANELDATA) FIELDS((#S_PATHNAM *HIDDEN)(#S_IFSPATH));
*;
CHANGE FIELD(#S_IFSPATH) TO('/');
*;
* Mainline;
*;
REQUEST FIELDS(#PANELDATA) EXIT_KEY(*NO) MENU_KEY(*NO) PROMPT_KEY(*NO);