RPG (3 et 4, free), CL, SQL, etc...
monthi
Messages : 80 Enregistré le : mar. 11 sept. 2018, 15:37:02
Localisation : Paris
Message
par monthi » jeu. 20 juin 2019, 08:50:02
bonjour
sur une v7r2 j'ai mis dans un source SQLRPGLE un
Code : Tout sélectionner
exec sql
set option commit=*none, datfmt=*iso, CLOSQLCSR=*endmod, dbgview=*SOURCE;
A la compilation j'ai une erreur 30
Code : Tout sélectionner
SQL0104 30 13 Position 60 Token DBGVIEW was not valid. Valid tokens:
COMMIT NAMING DECMPT DATFMT TIMFMT DATSEP TIMSEP SRTSEQ
LANGID DFTRDBCOL RDBCNNMTH ALWBLK ALWCPYDTA DLYPRP
DYNUSRPRF USRPRF CLOSQLCSR OPTLOB DYNDFTCOL SQLPATH
SQLCURRULE COMPILEOPT DECRESULT CNULRQD CNULIGN OUTPUT
DBGVIEW TGTRLS EVENTF.
Quelqu'un a t'il une idée?
Cdlt[/code]
nbonnet
Messages : 219 Enregistré le : mar. 11 sept. 2018, 08:20:13
Localisation : Lyon
Message
par nbonnet » jeu. 20 juin 2019, 09:26:16
Bonjour,
L'option DBGVIEW n'est pas disponible (malheureusement) en SQL embarqué, comme l'indique la documentation (
https://www.ibm.com/support/knowledgece ... option.htm ) :
Code : Tout sélectionner
Specifies whether the object can be debugged by the system debug facilities and the type of debug information to be provided by the compiler. The DBGVIEW parameter can only be specified in the body of SQL functions, procedures, and triggers.
Vous pouvez modifier la valeur par défaut sur la commande CRTSQLRPGI :
Code : Tout sélectionner
CHGCMDDFT CMD(CRTBNDRPG) NEWDFT('dbgview(*source)')
Nathanaël
monthi
Messages : 80 Enregistré le : mar. 11 sept. 2018, 15:37:02
Localisation : Paris
Message
par monthi » jeu. 20 juin 2019, 10:01:44
Bonjour Nathanaël
Dommage.
le texte de l'erreur retourné par le compilateur est perturbant car cet valeur est donnée dans la liste des valeurs permises
Code : Tout sélectionner
SQL0104 30 13 Position 60 Token DBGVIEW was not valid. Valid tokens:
COMMIT NAMING DECMPT DATFMT TIMFMT DATSEP TIMSEP SRTSEQ
LANGID DFTRDBCOL RDBCNNMTH ALWBLK ALWCPYDTA DLYPRP
DYNUSRPRF USRPRF CLOSQLCSR OPTLOB DYNDFTCOL SQLPATH
SQLCURRULE COMPILEOPT DECRESULT CNULRQD CNULIGN OUTPUT
[b] DBGVIEW[/b] TGTRLS EVENTF
Cdlt[/b]