IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Edit macro inserting invalid characters


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
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
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

Moderator Emeritus


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

PostPosted: Thu Feb 12, 2009 11:37 am
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
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

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Thu Feb 12, 2009 12:12 pm
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
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts Substring number between 2 characters... DFSORT/ICETOOL 2
No new posts Reading dataset in Python - New Line ... All Other Mainframe Topics 22
No new posts Query on edit primary command CLIST & REXX 5
No new posts Query on edit primary command CLIST & REXX 1
No new posts PRINTOUT macro PL/I & Assembler 0
Search our Forums:

Back to Top