View previous topic :: View next topic
|
Author |
Message |
mmt_bit
New User
Joined: 15 Jan 2009 Posts: 14 Location: Bangalore
|
|
|
|
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 |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
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 |
|
|
mmt_bit
New User
Joined: 15 Jan 2009 Posts: 14 Location: Bangalore
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
|
|
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 |
|
|
mmt_bit
New User
Joined: 15 Jan 2009 Posts: 14 Location: Bangalore
|
|
|
|
Thanks enrico. It worked |
|
Back to top |
|
|
|