Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Display COMP-3 values in readable form

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
hsk

New User


Joined: 28 Nov 2006
Posts: 69
Location: India

PostPosted: Tue Feb 13, 2007 2:44 pm    Post subject: Display COMP-3 values in readable form
Reply with quote

I have 3 question,

1. IF we view a file containing COMP-3 values, the values are not in readable form. Can a REXX exec read and display those values? How?

2. I have 10 byte record with combination of COMP-3 values,Numeric Values in different layouts.
i.e. for one layout first 6 bytes may contain comp3 value while other layout may have 8bytes ...etc.
Can i read each byte and check whether it's comp3 value or normal numeric value which is readable!


3. Using PULL we can get data from user,
Can i ask user to press any key and perform task depending on his response,
e.g. Suppose i have a rexx to view one GDG.
The rexx will look something like this,
Code:

/* REXX  */                                     
ADDRESS TSO                                     
'ISREDIT MACRO'                                 
"ISPEXEC VIEW DATASET('USERID.MLQ.GDG.G0010V00')"

Now after this i want rexx to wt for user response,If user presses 'Down arrow key' then next generation of GDG (11) should be displayed, if 'Up arrow Key' previous generation (9) should be displayed .... for any other key end exec.

Is that possible??
Back to top
View user's profile Send private message

William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Tue Feb 13, 2007 4:12 pm    Post subject:
Reply with quote

If you had bothered th search this forum for comp-3 you would have found this http://ibmmainframes.com/viewtopic.php?t=17235&highlight=comp3
Back to top
View user's profile Send private message
hsk

New User


Joined: 28 Nov 2006
Posts: 69
Location: India

PostPosted: Tue Feb 13, 2007 5:26 pm    Post subject:
Reply with quote

Thanks,but
That i have seen already
2nd question is Imp.

The record in input file is AAAA 00000100.
The numeric part 00000100 is comp 3 so when i open the file in 3.4 and read i am not able to see the value as 00000100 .....
If my rexx is reading value from file word by word, how it will understand whether it's comp value or normal char value. Or there is know way rexx can understand that ?

I want my rexx to convert only 2nd word (in this case) and not 1st
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Tue Feb 13, 2007 5:33 pm    Post subject:
Reply with quote

If you look byte for byte, X'F0' thru X'F9' would be display and X'00' thru X'99' could be comp-3 and X'0F' thru X'9F' or X'0C' thru X'9C' would indicate the sign end of the field.
Back to top
View user's profile Send private message
hsk

New User


Joined: 28 Nov 2006
Posts: 69
Location: India

PostPosted: Wed Feb 14, 2007 8:59 am    Post subject: Re: Display COMP-3 values in readable form
Reply with quote

Ok .... gr8,
About the 3rd question?
Is it possible to accept 'key' from user?
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Wed Feb 14, 2007 9:16 am    Post subject:
Reply with quote

Hello,

If you change the keyboard mapping in the 3270 emulator you're using, you could map the up/down arrows to emulate pf7/pf8. Rather than that, i'd suggest teaching the users to use pfkeys that you provide. Some folks also map PageUp and PageDown to pf7&8.

You should be able to scroll via pfkeys (you don't have to use pf7/pf8). Keep in mind that the directional arrow keys are (typically) not interrupt keys but merely move the cursor on the screen.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Count the length of the record & ... sreekusr DFSORT/ICETOOL 4 Thu Mar 23, 2017 7:52 pm
No new posts Check Binary Values for symbols gandikk CA Products 3 Tue Mar 21, 2017 5:11 am
No new posts Display FTP Session Count within TSO Yolanda Harvey TSO/ISPF 3 Fri Mar 10, 2017 10:31 pm
No new posts To display values of multiple rows in... vinu78 DB2 2 Thu Mar 09, 2017 1:20 pm
No new posts Replacing same string with different ... vickey_dw DFSORT/ICETOOL 6 Wed Feb 22, 2017 10:44 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us