🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

2 total messages Started by Dave Gomberg Wed, 17 Apr 1996 14:37
Re: MVS REXX - ??How to read
#4739
Author: Dave Gomberg
Date: Wed, 17 Apr 1996 14:37
19 lines
1069 bytes
On Wed, 17 Apr 1996 04:14:51 -0400 you wrote:

>On Monday, 96/04/15, RAY wrote to All about "MVS REXX - ??How to
>R> How do I code to read an SMF file, read hex fields and compare them
>R> to a  character value?
>
>Depending on the type of SMF records you want to analyse, it could be
>a very arduous piece of coding to handle stuff like packed decimal

I don't THINK so.  Say Rec has a 3 byte packed field at offset 127 and
we
want its value in x.  Something like this will do:

Field=c2x(substr(Rec,128,3))
x=x2d(left(Field,5)); if right(field,1)<>'C' then x=-x

Save this sniplet, you may need it some day.

Dave Gomberg, Experimenta      San Francisco CA USA   gomberg@wcf.com
MVS REXX - ??How to r
#4755
Author: David Noon
Date: Thu, 18 Apr 1996 22:13
29 lines
1429 bytes
On Wednesday, 96/04/17, Dave Gomberg wrote to All about "MVS REXX -
??How to r" as follows:

DG> >Depending on the type of SMF records you want to analyse, it could be
DG> >a very arduous piece of coding to handle stuff like packed decimal
DG> 
DG> I don't THINK so.  Say Rec has a 3 byte packed field at offset 127
DG> and we want its value in x.  Something like this will do:
DG> 
DG> Field=c2x(substr(Rec,128,3))
DG> x=x2d(left(Field,5)); if right(field,1)<>'C' then x=-x

That's substr(), c2x(), left(), x2d() and right(). A total of 5
function calls to extract one number. I think I'll stick with PL/I,
Easytrieve Plus, or even SAS. [Well, perhaps not SAS.]

DG> Save this sniplet, you may need it some day.

I doubt it. It has a bug in it, since 'F' is a positive sign nybble.

Regards

Dave
<Team PL/I>

 * KWQ/2 1.2i * Other than that, how'd you like the play, Mrs. Lincoln?
-- 
+ Fidonet : David Noon 2:440/4
+ Internet: David.Noon@donor2.demon.co.uk
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads