Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Edit macro inserting invalid characters

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
mmt_bit

New User


Joined: 15 Jan 2009
Posts: 14
Location: Bangalore

PostPosted: Thu Feb 12, 2009 11:19 am    Post subject: Edit macro inserting invalid characters
Reply with quote

Hi,

I have a utility that converts my production JCLs to test versions.

It calls edit macros which contain the change commands that are run on the production JCL.

After conversion, when I compare with the test with production version, I can find that many control charcaters are inserted as a result of conversion.

Could anyone let me know how this can be prevented.

Regards,
Rajiv
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: Thu Feb 12, 2009 11:37 am    Post subject:
Reply with quote

Hello and welcome to the forum,

It will help if you post the input jcl, the "bad" output jcl, and the code.

Please use copy/paste and the "Code" tag to post this info. Do not post screenshots.
Back to top
View user's profile Send private message
mmt_bit

New User


Joined: 15 Jan 2009
Posts: 14
Location: Bangalore

PostPosted: Thu Feb 12, 2009 12:02 pm    Post subject:
Reply with quote

Job card of Bad test JCL after conversion:

I - F &ý//DMMJCPR1 JOB x(SWP,,'ACROSS SYSTEMS - IPO',IS,0284,,), a // n'JCL MANAGEMENT 10.8', a// «MSGCLASS=V, a// gCLASS=3, a// iREGION=0M, a// iUSER=ISCU7

i/p Production JCL:

//DMLJCPR1 JOB (SWP,,'ACROSS SYSTEMS - IPO',IS,0284,,),
// 'JCL MANAGEMENT 10.8',
// MSGCLASS=S,
// CLASS=C,
// REGION=0M,
// USER=PDML01


The REXX invoked using TSO command copies JCL from Prod to Test Library and runs edit macro:

Code:
ADDRESS ISPEXEC                           
 "LMINIT DATAID(INDD) DATASET('"PRODLIB"')"
ADDRESS ISPEXEC                                           
"LMINIT DATAID(OUTDD) DATASET('"TESTLIB"')"               
ADDRESS ISPEXEC                                           
"LMCOPY FROMID("INDD") TODATAID("OUTDD") FROMMEM("MEMBER")
TOMEM("NEWMEM") REPLACE PACK"                             

PATH = TESTLIB || "(" || NEWMEM  || ")"

ADDRESS ISPEXEC "VPUT DEST"         
ADDRESS ISPEXEC                     
"EDIT DATASET('"PATH"') MACRO(CONVERT)" 



The macro 'CONVERT' has change commands to perform conversion like:


Code:
ADDRESS ISPEXEC "VGET DEST"
ADDRESS "ISREDIT"         
"MACRO"                   
"HI AUTO"                 
C ALL 'CLASS=C'     'CLASS=3'     
C ALL 'CLASS=E'     'CLASS=3'     
C ALL 'MSGCLASS=S'  'MSGCLASS=V'   
C ALL 'USER=PDML01' 'USER=ISCU7'   
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10375
Location: italy

PostPosted: Thu Feb 12, 2009 12:12 pm    Post subject: Reply to: Rexx edit macro inserting invalid characters
Reply with quote

try taking away the pack from the lmcopy

even if edit and browse should not show any difference
pack affects processing only when outside of ispf
Back to top
View user's profile Send private message
mmt_bit

New User


Joined: 15 Jan 2009
Posts: 14
Location: Bangalore

PostPosted: Thu Feb 12, 2009 2:20 pm    Post subject:
Reply with quote

Thanks enrico. It worked
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 -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. ISREDIT Macro is not returning back t... nico_neoz CLIST & REXX 21 Sat Nov 18, 2017 7:40 pm
No new posts line 52: Name or string > 250 char... Ashishpanpaliya CLIST & REXX 5 Sat Oct 14, 2017 2:29 am
No new posts Assembler Macro Copybook converted to... Ziquilix PL/I & Assembler 4 Tue Sep 26, 2017 3:07 am
No new posts exec macro in the end of edit anatol CLIST & REXX 8 Fri Sep 22, 2017 5:10 am
No new posts Binary to display characters Roy Ware SYNCSORT 3 Tue Sep 19, 2017 8:46 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us