×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
This definitely belongs in the RPG forum. It's a question about how to
do something in RPG...
To add column headings, just write a record containing the column
headings... Example follows:
**free
dcl-fPRODP disk;
dcl-dsprodrec likerec(PROD:*INPUT) inz;
dcl-dsheadings qualified;
col1 varchar(50) inz('Prod ID');
col2 varchar(50) inz('Product Name');
col3 varchar(50) inz('Description');
col4 varchar(50) inz('Price');
col5 varchar(50) inz('Image ID');
col6 varchar(50) inz('Stock Qty');
col7 varchar(50) inz('Cat1');
col8 varchar(50) inz('Cat2');
col9 varchar(50) inz('Cat3');
col10 varchar(50) inz('Spec');
end-ds;
setll*startPRODP;
readPRODP PRODREC;
data-gen *START %DATA( 'product list.csv':'doc=file')
%GEN('CSVGEN');
data-gen HEADINGS %DATA( 'product list.csv'
:'doc=file output=continue')
%GEN('CSVGEN');
downot%eof(PRODP);
data-gen PRODREC %DATA( 'product list.csv'
:'doc=file output=continue')
%GEN('CSVGEN');
readPRODP PRODREC;
enddo;
data-gen *END %DATA( 'product list.csv':'doc=file')
%GEN('CSVGEN');
*inlr= *on;
On 2/28/2024 1:10 PM, Greg Wilburn wrote:
Maybe this belongs in RPG forum?
I'm currently experimenting with Scott's CSVGEN using DATA-GEN, but I'm not sure how to get column headings using this method.
I was hoping it worked like YAJLDTAGEN that uses the DS names.
midrange.com
