Re: Generating text based IFS file with SQL

If you don't want to mess with the APIs to just create a stream file, maybe
you could use CPYTOSTMF from an empty PF to the new stream file and set the
CCSID that way.

Just a thought..




Bradley V. Stone
www.bvstools.com
MAILTOOL Benefit #19 <https://www.bvstools.com/mailtool.html>: The ability
to turn off "Strict SSL" settings. This means no importing Certificate
Authorities (CAs) unless you want to.

On Wed, Oct 11, 2017 at 7:45 AM, Birgitta Hauser <Hauser@xxxxxxxxxxxxxxx>
wrote:

If you need the IFS file in ASCII, you need to create it first (for example
by using one of the unix_type APIs) and then override it ( DSNAME_FO set to
SQFOVR).

Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"
„Train people well enough so they can leave, treat them well enough so they
don't want to.“ (Richard Branson)


-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Darren
Strong
Sent: Mittwoch, 11. Oktober 2017 14:39
To: RPG programming on the IBM i (AS/400 and iSeries)
<rpg400-l@xxxxxxxxxxxx>
Subject: Re: Generating text based IFS file with SQL

No-go on the CLOB and CCSID. Changing to the following definition does
create a better formatted output when viewed in WRKLNK, but its still
EBSCDIC CCSID(37).


dcl-s FromBLOB SQLTYPE(CLOB_File);
dcl-s ToBLOB SQLTYPE(CLOB_File) CCSID(819);

___________________________________
Darren Strong
Dekko





From: Charles Wilt <charles.wilt@xxxxxxxxx>
To: "RPG programming on the IBM i (AS/400 and iSeries)"
<rpg400-l@xxxxxxxxxxxx>
Date: 10/10/2017 04:18 PM
Subject: Re: Generating text based IFS file with SQL
Sent by: "RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx>



If it's character data...why a binary large object (BLOB) instead of a
character large object? (CLOB)..


I'd expect the CLOB() function with the optional 3rd parm of CCSID would be
able to convert from ebcdic to ASCII...

Alternatively, if the output IFS file exists and is tagged as ASCII, the
system might convert automatically.

Charles


On Tue, Oct 10, 2017 at 1:53 PM, Darren Strong <darren@xxxxxxxxx> wrote:

I'm playing around with generating a text based IFS file as shown
below, from an example I received a few years ago. The issue I had
then, and

am

still having now, is that I'd like the resulting IFS file, copied from
a source member in this case as a test, to be ASCII, rather than
EBCDIC (sp?). Does anyone know a way to control the conversion

differently?

//****************************************************************
// Definition Specifications
//****************************************************************
dcl-s FromBLOB SQLTYPE(BLOB_File);
dcl-s ToBLOB SQLTYPE(BLOB_File);
dcl-s IFSFile varchar(256) inz('/home/darren/BLOBFILE.txt');
dcl-s FromFile varchar(256)
inz('/QSYS.LIB/DARREN.lib/QRPGLESRC.file/TSTIFS.mbr');
//****************************************************************
// Begin Calculation Specifications
//****************************************************************
*InLR = *On;

FromBLOB_Name=%trim(FromFile);
FromBLOB_NL=%len(%trim(FromBLOB_Name));
FromBLOB_FO=SQFRD;

toBLOB_Name=%trim(IFSFile);
toBLOB_NL=%len(%trim(toBLOB_Name));
toBLOB_FO=SQFOVR;

exec sql set :toBLOB=:FromBLOB;

return;


___________________________________
Darren Strong
Dekko

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

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD

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

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD


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

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link:
http://amzn.to/2dEadiD

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

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD