Re: Generating text based IFS file with SQL

[Darren Strong <darren@xxxxxxxxx>]

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