GETQUERYjBJ7RaBJFESSEL  0
BEGIN DECLARE SECTION
END DECLARE SECTION
DECLARE c1 CURSOR FOR s1
PREPARE s1 INTO :pda  FROM :CmdString
OPEN c1 USING DESCRIPTOR :pda 
FETCH c1 USING DESCRIPTOR :pda 
CLOSE c1
CmdString