🚀 go-pugleaf

Here is a simple Packed to Decimal routine I have called (I call it P2D)
that will work with standard definitions:
/* REXX */
hex = C2X(Arg(1));
result = Left(hex,Length(hex)-1);
If Right(hex,1) = 'D' Then Return '-'result; Else Return result;

and then to go back from decimal to packed (yep, called D2P), using only C
and D nibbles:
/* Rexx decimal to packed */
arg dec
If dec < 0 then s = 'D'; else s = 'C'
n = space(translate(dec,,'+-.')s,0)
Return X2C(right(n,length(n)+length(n)//2,'0'))

Billy



On Thu, May 9, 2013 at 1:16 PM, Paul Gilmartin <PaulGBoulder@aim.com> wrote:

> On 2013-05-09, at 11:02, Trimble, John wrote:
>
> > I have an assembler program I am converting to Rexx that issues the
> following:
> >
> >         SP    LASTEXDT,=P'1'           SUBTRACT 1 DAY
> >
> > Against a field defined like this:
> >
> > LASTEXDT DS    PL8
> >
> > This is packed Decimal data.
> >
> > How would I go about doing the same thing in Rexx?
> >
> Rexx's only numeric data type is decimal display.  You
> can use the c2x() builtin to convert packed decimal
> to decimal display.  Sort of.  You need some special
> tweaking to handle the last nybble which represents
> the sign.  It's almost but not quite entirely unlike
> UNPK.
>
> If you need to, reverse the process using x2c(),
> after fixing the sign.
>
> -- gil
>
> ----------------------------------------------------------------------
> For TSO-REXX subscribe / signoff / archive access instructions,
> send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX
>



--
Thank you and best regards,
*Billy Ashton*

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX