Here is a REXX ISPF Edit Macro that will translate square brackets [] to
the correct hex codes. Put it in your CLIST concatination and from he
ISPF edit command line enter 'BRACK' (or whatever you choose to call
it):
/*REXX*****************************************************************/
/***                                                                  */
/*** ISPF/PDF edit macro to update sys1.aetnamod.jcl members          */
/**********************************************************************/
Trace                                                                   
Address ISPEXEC                                                         
'ISREDIT MACRO (PARM1) NOPROCESS'                                       
parm1 = translate(parm1)                                                
If parm1 = '?' Then                                                     
  Do                                                                    
    Call help                                                           
    Exit                                                                
  End                                                                   
If parm1 = 'TRACE' Then                                                 
  Do                                                                    
    trace ?R                                                            
  End                                                                   
    'isredit cursor = 1 '                                               
    "ISREDIT c x'ba' x'ad' all"                                         
    "ISREDIT c x'bb' x'bd' all"                                         


Jon L. Veilleux
[EMAIL PROTECTED]
(860) 636-2683 


-----------------------------------------
This e-mail may contain confidential or privileged information. If
you think you have received this e-mail in error, please advise the
sender by reply e-mail and then delete this e-mail immediately.
Thank you. Aetna

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to