Re: SQL Set Option

[R Bruce Hoffman <bruce.hoffman@xxxxxxxxxxxxxxxxx>]

also... if you want it in the Data Division... it should be in the 
Working-storage section.

Robert Munday wrote:
> 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
>
>
>