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