Re: Unpacking data from SQLVAR

["Beppe Costagliola" <beppecosta@xxxxxxxx>]

Provided that you have set the address of the variable into SQLDATA
corresponding element of SQLDA, when fetching records you can directly move
the packed data into a dummy field with a memory copy function (like
cpybla):

d* Column sizes
d cSQLLEN         s              5i 0
d pSQLLEN         ds                  inz
d  pPrecis                1      4b 0
d   aPrecis               4      4
d  pScale                 5      8b 0
d   aScale                8      8

d FldPack          s             30p 0

when SQLTYPE = 484 or SQLTYPE = 485;
  FldPack = 0;
  aPrecis = Precis;
  cSQLLEN = (pPrecis / 2) + 1;
  Cpybla(%addr(FldPack) + 16 - cSQLLEN: SQLDATA: cSQLLEN);

Then write MyFld with the right decimal position:
   MyFld = FldPack/10**pScale);

Same thing for signed, binary, integers, etc.
-----
Giuseppe


----- Original Message ----- 
From: "Buckridan, Stephanie" <Stephanie.Buckridan@xxxxxxxx>
To: "RPG Help (E-mail)" <rpg400-l@xxxxxxxxxxxx>
Sent: Thursday, July 31, 2003 12:14 PM
Subject: Unpacking data from SQLVAR


> I'm a bit new to SQL and have managed to create a dynamic variable column
> sql program.  I can retrieve the character fields with no problems, but am
> coming unstuck with the packed/zoned data.
>
> I have retrieved the data into a long data structure in order to parse it
> out and have managed to get the precision and scale of the numeric field
> into a usable version.  I need to know how to parse the packed/zoned data
> out of the data structure and then move to the next column's data.
>
> Any help/examples would be greatly appreciated.
>
> Thanks
> Steph
>
>
> ----------------------------------------------------------------------
> If you have received this e-mail in error or wish to read our e-mail
> disclaimer statement and monitoring policy, please refer to
> http://www.drkw.com/disc/email/ or contact the sender.
> ----------------------------------------------------------------------
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.