DFIINUPDgBCOLXMIUSERID  0
BEGIN DECLARE SECTION
END DECLARE SECTION
BEGIN DECLARE SECTION 
END DECLARE SECTION 
UPDATE LANM.SYSTEM_PARAMETERS          SET ADAPT_NO           = :chAdpNum      ,              HOST_CONNECTION    = :chHstCon      ,              TRACING_AUTH       = :chTrace       ,              SERVICE_PT_NAME    = :achSrvPntName 
COMMIT      
sql_info
chHstCon
chAdpNum
chTrace
achSrvPntName