Re: Re:Another PL/I cant

From: Mark Yudkin (myudkinATcompuserveDOTcom_at_nospam.org)
Date: 08/27/04 

Date: Fri, 27 Aug 2004 16:26:15 +0200

Why don't you test your code, before repeating all three wrong answers?
Failure to test only proves your pathetic uselessness as a non-programmer.
Alternatively, ask somebody else to explain why the code won't work.

Correct - all three of your "solutions" don't work. Mere repetition won't
change that. Computers are logical - they'll do what they're told to each
time. Before you can prove anything - other than your fuckwittedness -
you'll have to write working code first!

Because all three of your samples are logically WRONG WRONG WRONG!

I've already issued the challenge to you: "why don't any of your routines
work on /390 systems?" You obviously have totally failed this challenge.

"Fuckwit Frank" <dave_frank@hotmail.com> wrote in message
news:DeFXc.5520$%D6.2359@twister.tampabay.rr.com...
>
> Whereas you have posted working code, I have incompetently showed 3
different
> statements that each completely fail to output the wanted string, for the
simple reason
> that I am totally incompetent and utterly incapable of programming correct
Fortran.
>
> For the general amusement of all real (mainframe) programmers, I repeat
the three
> dysfunctional "attempts".
>
> ! ---------------------------
> program hex_to_string
> character(38) :: hex = '5061746865746963204C6F736572732049626D'
> character(19) :: string
> integer :: digit(48:70) = [0,1,2,3,4,5,6,7,8,9,0,0,0,0,0,0,0, &
> 10,11,12,13,14,15]
>
> read (hex,'(<len(string)>z2)') (string(i:i),i=1,len(string))
> write (*,*) string
>
> forall(i=1:len(hex)-1:2) string(i/2+1:i/2+1) =
> char(digit(ichar(hex(i:i)))*16 +digit(ichar(hex(i+1:i+1))))
> write (*,*) string
>
> string =
>
transfer([(char(digit(ichar(hex(i:i)))*16+digit(ichar(hex(i+1:i+1)))),i=1,le
n(hex)-1,2)],string)
> write (*,*) string
> end program
>

Quantcast