The guy (who probably had his account hacked) was set to review yesterday
after the message came through.
If you feel a need to complain about such stuff to the list, please do
not echo the spam message back to the list: this tends to get UGA's
Listserv blocked for frequently transmitting spam.
A modified version for current hardware. The storage references are kept to a
minimum.
LGHI 11,15 max digits
LGHI 15,0
IP010DS0H
LLGC 1,0(,8)
CLIJL 1,C'0',IP020 < zero
CLIJH 1,C'9',IP020 > nine
NILL 1,15 clear 'F'
AGR 15,1
ClassicWe sould make a.macro out of it :)ZA
Sent from Yahoo Mail on Android
On Thu, Oct 13, 2016 at 12:17 PM, Richard Rogers
wrote: Just a stab, FWIW
* R8 ==> INCOMING FIELD
* R9 = INCOMING FIELD LENGTH
* R10 ==> PL8 PACKED DECIMAL RESULT
*
On 2016-10-13, at 09:25, John P. Hartmann wrote:
> You did not say that is what you want, but then I didn't notice which forum
> you wrote to, so mea culpa.
>
> Anyhow, if your computer runs VM, you don't have to write assembler at all
> (and if it runs MVS, make your requirement known to
Just a stab, FWIW
* R8 ==> INCOMING FIELD
* R9 = INCOMING FIELD LENGTH
* R10 ==> PL8 PACKED DECIMAL RESULT
*R11 = WORK - DIGIT COUNT
*R12 ==> CL16 - WORK - SAVE DIGITS
INCMPACK DS0H INCOMING PACK
SRR11,R11 DIGIT COUNT
LA
You did not say that is what you want, but then I didn't notice which
forum you wrote to, so mea culpa.
Anyhow, if your computer runs VM, you don't have to write assembler at
all (and if it runs MVS, make your requirement known to IBM).
The instruction you want is PACK, but you must remove
On Thu, Oct 13, 2016 at 9:42 AM, John P. Hartmann
wrote:
> Aw, c'm on!
>
> (Untested:)
>
> pipe ... | change /$// | change /,// | spec 1-* c2p 1 | ...
>
> Do you guys still do bubble sorts?
That's not assembler code.
--
Heisenberg may have been here.
Unicode:
Aw, c'm on!
(Untested:)
pipe ... | change /$// | change /,// | spec 1-* c2p 1 | ...
Do you guys still do bubble sorts?
On 10/13/2016 04:22 PM, Greg Gray wrote:
I have character data in a field (ex. $13,501,298.01) and I need to remove the
special characters and convert field from char to
thanks Chuck, I will give that a try!!!
Given that the decimal position and commas are for you and me and not the
computer, I would set a field to all "0" and then start a loop on the right of
each field and if the character is >= "0" and <= "9", move it to the next
position in the output field. Decrement each pointer based upon
I have character data in a field (ex. $13,501,298.01) and I need to remove the
special characters and convert field from char to packed? Can someone give a
suggestion on the best and simplest way to do it, thanks?
11 matches
Mail list logo