'page layout' spam

2016-10-13 Thread Jean Snow
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.

Re: converting character to packed

2016-10-13 Thread Webster, Chris
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

Re: converting character to packed

2016-10-13 Thread Ze'ev Atlas
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 *       

Re: converting character to packed

2016-10-13 Thread Paul Gilmartin
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

Re: converting character to packed

2016-10-13 Thread Richard Rogers
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

Re: converting character to packed

2016-10-13 Thread John P. Hartmann
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

Re: converting character to packed

2016-10-13 Thread John McKown
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:

Re: converting character to packed

2016-10-13 Thread John P. Hartmann
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

Re: converting character to packed

2016-10-13 Thread Greg Gray
thanks Chuck, I will give that a try!!!

Re: converting character to packed

2016-10-13 Thread Hardee, Chuck
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

converting character to packed

2016-10-13 Thread Greg Gray
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?