Re: Simple COPY of SQL table definition

Hi Jon,

This is wat is being generated;

01 MYFILE-REC.
COPY DD-ALL-FORMATS OF MYFILE.
05 MYFILE-RECORD PIC X(35).
* I-O FORMAT:MYFILE FROM FILE MYFILE OF LIBRARY MYLIB
*
05 MYFILE REDEFINES MYFILE-RECORD.
06 USER PIC X(8).
06 DATW PIC S9(7).
06 APPN PIC X(1).
06 ENTN PIC S9(3).
06 TPRN PIC X(10).
06 TENT PIC X(1).
06 CADI PIC S9(1).
06 APPNLI PIC X(1).
06 ENTNLI PIC S9(3).

Maybe this is caused by the fact that it is an SQL table... I'll try to define another record-format.

Kind regards,
Paul
________________________________________
From: COBOL400-L <cobol400-l-bounces@xxxxxxxxxxxxxxxxxx> on behalf of Jon Paris <jon.paris@xxxxxxxxxxxxxx>
Sent: Tuesday, May 19, 2020 16:55
To: COBOL Programming on the IBM i (AS/400 and iSeries)
Subject: Re: [COBOL400-L] Simple COPY of SQL table definition

What are the actual generated lines it is complaining about?

On May 19, 2020, at 10:42 AM, Paul Nicolay <paul.nicolay@xxxxxxxxxx> wrote:

?Hi,


I'm trying to include the record layout of my SQL table as follows;


01 MYFILE-REC.
COPY DD-ALL-FORMATS OF MYFILE.

But I keep getting compile errors on it ?

LNC1203 Expected data-name/FILLER after level-number; found 'MYFILE'. Data description entry ignored.
LNC0239 PICTURE clause cannot be specified for group item 'MYFILE-RECORD'. PICTURE clause ignored.?

Am I missing something stupid ?

Kind regards,
Paul

--
This is the COBOL Programming on the IBM i (AS/400 and iSeries) (COBOL400-L) mailing list
To post a message email: COBOL400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/cobol400-l.

--
This is the COBOL Programming on the IBM i (AS/400 and iSeries) (COBOL400-L) mailing list
To post a message email: COBOL400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/cobol400-l.