*> ---------------------------------------------------------------------
*> Control block for CEPIS-JSON-GET. Internal.
*>
*> Set JS-FROM and JS-TO to the span of the object to search (JS-FROM on
*> its opening brace) and JS-KEY to the member wanted. On return JS-TYPE
*> says what was found:
*>
*>   S string   JS-VALUE holds it, escapes already decoded
*>   N number   JS-VALUE holds the literal text, for FUNCTION NUMVAL
*>   O object   JS-VSTART and JS-VEND span it; search it in turn
*>   A array    likewise
*>   B boolean, Z null
*>   space      the key is not in this object
*>   E          the text is not a JSON object
*> ---------------------------------------------------------------------
01  CEPIS-JSON-SCAN.
    05  JS-FROM                     PIC 9(9).
    05  JS-TO                       PIC 9(9).
    05  JS-KEY                      PIC X(32).
    05  JS-TYPE                     PIC X.
    05  JS-VALUE                    PIC X(1024).
    05  JS-VALUE-LEN                PIC 9(9).
    05  JS-VSTART                   PIC 9(9).
    05  JS-VEND                     PIC 9(9).