S
PL_
PL_
PL_GET_COOKIE{%}FROM{%}{WTHEN\ELSE}
*
      R$$$ = ''
      LOCATE('COOKIE',ST$HTTP.HDR,1;L$$$) THEN
         I1$$$ = DCOUNT(ST$HTTP.VAL<1,L$$$>,SVM)
         FOR I$$$ = 1 TO I1$$$
            J1$$$ = DCOUNT(ST$HTTP.VAL<1,L$$$,I$$$>,';')
            FOR J$$$ = 1 TO J1$$$
               T$$$ = FIELD(ST$HTTP.VAL<1,L$$$,I$$$>,';',J$$$)
               W$$$ = TRIMF(TRIMB(FIELD(T$$$,'=',1)))
               IF OCONV(W$$$,'MCU') = OCONV({%2},'MCU') THEN
                  R$$$<-1> = TRIMF(TRIMB(OCONV(T$$$,'G1=9999')))
               END
            NEXT J$$$
         NEXT I$$$
      END
*
      IF R$$$ <> '' THEN
         {%1} = R$$$
      END
*
      IF R$$$ <> '' {%3}
