-
Notifications
You must be signed in to change notification settings - Fork 44
Open
Description
I created a test file.
CREATE TABLE RROGERSON.TESTFILE (
COL1 CHAR(1) CCSID 37 NOT NULL DEFAULT '' ,
COL2 CHAR(6) CCSID 37 NOT NULL DEFAULT '' ,
COL3 CHAR(6) CCSID 37 NOT NULL DEFAULT '' ,
PRIMARY KEY( COL1 ) )
RCDFMT TESTFILER ;
I then used Generate SQL from Schemas to create a CREATE statement.
-- Generate SQL
-- Version: V7R4M0 190621
-- Generated on: 12/16/25 12:52:27
-- Relational Database: Myi
-- Standards Option: Db2 for i
CREATE TABLE RROGERSON.TESTFILE (
COL1 CHAR(1) CCSID 37 NOT NULL DEFAULT '' ,
COL2 CHAR(6) CCSID 37 NOT NULL DEFAULT '' ,
COL3 CHAR(6) CCSID 37 NOT NULL DEFAULT '' ,
CONSTRAINT RROGERSON.Q_RROGERSON_TESTFILE_COL1_00001 PRIMARY KEY( COL1 ) )
RCDFMT TESTFILER ;
GRANT ALTER , DELETE , INDEX , INSERT , REFERENCES , SELECT , UPDATE
ON RROGERSON.TESTFILE TO ME WITH GRANT OPTION ;
GRANT DELETE , INSERT , SELECT , UPDATE
ON RROGERSON.TESTFILE TO PUBLIC ;
I then pasted the CREATE statement into an SQLRPGLE member test1.sqlrpgle and tried to compile
**free
ctl-opt dftactgrp(*no);
Exec SQL
SET OPTION COMMIT=*none, DYNUSRPRF=*owner, NAMING=*sys,
DLYPRP=*yes, CLOSQLCSR=*endmod, Datfmt=*ISO;
Exec SQL
CREATE TABLE RROGERSON.TESTFILE (
COL1 CHAR(1) CCSID 37 NOT NULL DEFAULT '' ,
COL2 CHAR(6) CCSID 37 NOT NULL DEFAULT '' ,
COL3 CHAR(6) CCSID 37 NOT NULL DEFAULT '' ,
PRIMARY KEY( COL1 ) )
RCDFMT TESTFILER ;
return;
The problem is there is a TAB before COL1, COL2, COL3, PRIMARY and RCDFMT. If I delete the TAB and replace with two spaces the program compiles without error.
Is this specific to me do others have this issue? Can/should this be fixed?
Thanks,
Rob
Metadata
Metadata
Assignees
Labels
No labels