Re: SQL Set Option

I want to put SQL Set Option options in an SQL COBOL program I am updating. My code is:

0103.00 ** Set SQL Options SQL Exec SQL Set Option SQL Commit = *None, SQL DecmPt = *Period, SQL Naming = *Sys, SQL DatFmt = *ISO, SQL TimFmt = *ISO, SQL UsrPrf = *Owner, SQL DynUsrPrf = *Owner
SQL End-Exec.
I put it at the beginning of the procedure division. This isn't going to work well as there are other SQL statements in the data division. The Set SQL Option is supposed to be the first executed but I don't know if putting that code ahead of the other SQL statements in the data division is the proper way to go. I tried it and got the following compile messages:
MSGID: LNC2913 SEVERITY: 30 SEQNBR: 010400 Message . . . . : Syntax error detected at 'EXEC'. MSGID: LNC0018 SEVERITY: 0 SEQNBR: 010400 Message . . . . : Input ignored starting with 'EXEC'. MSGID: LNC0001 SEVERITY: 10 SEQNBR: 010500 Message . . . . : Blank assumed before character 'N' in column 24.
MSGID: LNC0519 SEVERITY: 0 SEQNBR: 010500 Message . . . . : CODASYL COBOL reserved word 'NONE' has been accepted as a non-reserved word. MSGID: LNC0001 SEVERITY: 10 SEQNBR: 010600 Message . . . . : Blank assumed before character 'P' in column 24.
MSGID: LNC0001 SEVERITY: 10 SEQNBR: 010700 Message . . . . : Blank assumed before character 'S' in column 24.
MSGID: LNC0001 SEVERITY: 10 SEQNBR: 010800 Message . . . . : Blank assumed before character 'I' in column 24.
MSGID: LNC0001 SEVERITY: 10 SEQNBR: 010900 Message . . . . : Blank assumed before character 'I' in column 24.
MSGID: LNC0001 SEVERITY: 10 SEQNBR: 011000 Message . . . . : Blank assumed before character 'O' in column 24.

You can see the pattern here. I have no examples from which to work and the code I am using is from an SQLRPGLE program. SQL should work the same way in both places unless my punctuation for COBOL is wrong. How to proceed?

Thanks,



Robert Munday
Munday Software Consultants
Montgomery, AL
on assignment in Columbia, SC