(defmacro query-string-macro (table fields &optional srl where-name where-value
&key (lrlname "KCUILRL") single distinct order like)
(let* ((%%fields (format nil "select ~A~{~:@(~A~)~^,~}"
(defmacro query-string-macro (table fields &optional srl where-name where-value
&key (lrlname "KCUILRL") single distinct order like)
(let* ((%%fields (format nil "select ~A~{~:@(~A~)~^,~}"