SUBROUTINE GETPARAM
INCLUDE #RW.INCLUDE.DEFS FROM /SYSFILES/REALWEB,BP
EQU AM TO CHAR(254)
NAME = ""
CALL RW_GET_PARAM("NAME", NAME)
VALID = 0
FOR I = 1 TO LEN(NAME)
VALID = 1
IF NAME[I, 1] >= "0" AND NAME[I, 1] <= "9" THEN VALID = 0
UNTIL VALID = 0
NEXT I
IF VALID = 1 THEN
CALL RW_START_HTML_PAGE("Name and Age check", "", "", "", "")
CALL RW_START_PARA("", "")
CALL RW_PUT("Name, " : NAME)
CALL RW_END_PARA
CALL RW_END_PAGE
END ELSE
CALL RW_SET_PARAM("ERRORS", "NAME")
CALL GETPARAMTEST
END
RETURN
NEC welcomes your feedback on our documentation.
If you have any comments about the current Reality Help, or want something to be added in a future revision, please contact your NEC Helpdesk.
If your comment relates to this particular Help topic, remember to include the following information:
|
Product:
|
RealityVersion 15.6
|
|
Help revision:
|
Revision 0
|
|
Help topic:
|
GETPARAM Example (RealWeb)
|
|
File name:
|
GETPARAM.htm
|