/* Sample CL script that receives input through a parameter. */
/* The input is used to perform a dynamic database query by  */
/* redirecting to a URL that performs the query.             */
PGM (&VALUE)
DCL &VALUE  TYPE(*CHAR) LEN(20)
DCL &BUF    TYPE(*CHAR) LEN(100)
DCL &BYTIN  TYPE(*CHAR) LEN(4)
DCL &BYTOUT TYPE(*CHAR) LEN(4)
DCL &BUFLEN TYPE(*DEC)  LEN(5 0) VALUE(50)

   /* Build redirection URL that performs the query */
   CHGVAR &BUF +
      ('LOCATION: /QSYS/WWWSAMPLES/CUSTNAME?KEY(' +
       *CAT &VALUE *TCAT ')+KEYOPT(EQ)')

   /* Determine the length of the URL */
$FNDLEN:
   IF (%SST(&BUF &BUFLEN 2) *EQ '  ') GOTO $EFNDLEN
   CHGVAR &BUFLEN (&BUFLEN + 1)
   GOTO $FNDLEN
$EFNDLEN:
   CHGVAR &BUFLEN (&BUFLEN - 1)

   /* Return the URL using the WWWWRTHD API */
   CHGVAR %BIN(&BYTIN) &BUFLEN
   CALL WWWSERVER/WWWWRTHD PARM(&BUF &BYTIN &BYTOUT)

ENDPGM