My first attempt to run SQL from a CL program, but it fails. Any ideas ?
CL CODE
JOB LOG:
STRSQL Query that I copied into the CL works fine:
CL CODE
Code:
DCL VAR(&SQL_STMT) TYPE(*CHAR) LEN(5000) CHGVAR VAR(&SQL_STMT) VALUE('INSERT INTO + MYLIB/DRTESTFD SELECT + CHAR(DATE(TIMESTAMP_FORMAT(MBRDAT,''YYMMDD'+ ')),ISO) ,TIME(''00:00:00'') + + CAST(MBRTIM AS DEC(6,0)) , MBLIB, MBFILE, + MBNRCD, MBTXT, MBFTYP FROM + MYLIB/DRTESTFDX WHERE MBNRCD > 0') (line 76.00) RUNSQL SQL(&SQL_STMT)
JOB LOG:
Code:
Buffer length longer than record for member DRTESTFD. Member DRTESTFD not journaled to journal *N. DRTESTFD in MYLIB not valid for operation. RUNSQLSTM or RUNSQL command failed. SQL9010 received by DRTESTC2 at 7600. (C D I R) D Processing command failure, refer to job log for details.
Code:
insert into MYLIB/drtestfd SELECT char(date(timestamp_format(MBRDAT,'YYMMDD')),iso) , TIME('00:00:00') + CAST(mbrtim AS DEC(6,0)) , MBLIB, MBFILE, mbnrcd, mbtxt, mbftyp FROM MYLIB/drtestfdx
Comment