MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Typing special characters in ISPF Editor

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL)
View previous topic :: View next topic  
Author Message
karthikbabudh
Beginner


Joined: 29 Apr 2005
Posts: 10
Topics: 6

PostPosted: Wed Aug 09, 2006 4:12 am    Post subject: Typing special characters in ISPF Editor Reply with quote

Hi,

Can anyone tell me what is the HEX Code for the symbol
_________________
Regards,
Karthik Babu.
Back to top
View user's profile Send private message
ofer71
Intermediate


Joined: 12 Feb 2003
Posts: 358
Topics: 4
Location: Israel

PostPosted: Wed Aug 09, 2006 6:22 am    Post subject: Reply with quote

As far as I know - there is no charcter for the trademark sign in EBCDIC. Please see IBM's official document.

O.
________
starcraft II replays


Last edited by ofer71 on Sat Feb 05, 2011 11:39 am; edited 1 time in total
Back to top
View user's profile Send private message Send e-mail
warp5
Intermediate


Joined: 02 Dec 2002
Posts: 429
Topics: 18
Location: Germany

PostPosted: Thu Aug 10, 2006 1:20 am    Post subject: Reply with quote

Hier is a routine that will show you the characters you have available:
Code:

/* rexx zeichen */                             
trace o                                       
parse arg p1 .                                 
if length(p1) = 2 then do                     
    say                                       
    say 'Eingegebene Hexwert: "'p1'"'         
    say '     ergibt Zeichen: "'x2c(p1)'"'     
    say                                       
    exit                                       
end                                           
if length(p1) = 1 then do                     
    say                                       
    say 'Eingegebene Zeichen: "'p1'"'         
    say '     ergibt Hexwert: "'c2x(p1)'"'     
    say                                       
    exit                                       
end                                           
i = 64                                         
do forever                                     
   d1t = ''                                   
   d2t = ''                                   
   do s = 1 to 16                             
       d1.s = s-1+i                           
       d2.s = ' 'd2c(d1.s)                     
       if length(d1.s) < 2 then d1.s = ' 'd1.s
       d1t = d1t!!d2x(d1.s)' '                 
       d2t = d2t!!d2.s' '                     
   end                 
   say d1t             
   say d2t             
   i = i + 16           
   if i > 255 then leave
end                     
exit                   

zeichen nn
Enter 2 characters for nn and it assumes it is hex and gives you the character, enter 1 character and it will give the hex value, just zeichen will show you a character/hex table.
Back to top
View user's profile Send private message Visit poster's website
Steve Coalbran
Beginner


Joined: 09 Mar 2005
Posts: 22
Topics: 0
Location: Stockholm, Sweden

PostPosted: Sun Aug 13, 2006 10:42 am    Post subject: Reply with quote

If your CodePage is anything like mine you won't have the
Back to top
View user's profile Send private message Send e-mail MSN Messenger
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL) All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group