View previous topic :: View next topic
|
Author |
Message |
Nandananilchintala
New User
Joined: 25 Mar 2009 Posts: 19 Location: Hyderabad
|
|
|
|
I have treid to use LMCOPY and ISRSUPC in REXX exec.
in Step 1) I copied a module XXXX from dataset A to dataset B
step 2) I compared the Module XXXX in A and B.
I'm expecting the return code of ISRSUPC as zero. but the return code I am getting is one(changes found).
To cross check i compared the modules from the SuperC ispf panel. I have noted that some junk values. Could any one tell me how and why LMCOPY is producing this result
the other thing i noticed is, When i used the COMP commad in the command line the result is "no differences found". I could not make out why these reults are so confusing. please let me know if any information is needed. |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
I have just performed a copy using LMCOPY and then a compare using ISRSUPC and there are no discreprancies.
Quote: |
Could any one tell me how and why LMCOPY is producing this result |
Not without seeing how you have coded things, no.
Are there any differences between the attributes of the two PDS |
|
Back to top |
|
|
Nandananilchintala
New User
Joined: 25 Mar 2009 Posts: 19 Location: Hyderabad
|
|
|
|
Code: |
/* REXX */
DS11 = 'HLQ1.TEST.PLISQL'
DS22 = 'HLQ1.MYID.PLISQL'
DS2 = 'HLQ1.MYID.PLISQL(TESTPROG)'
DS1 = 'HLQ1.TEST.PLISQL(TESTPROG)'
MEM = 'TESTPROG'
ADDRESS TSO
ADDRESS ISPEXEC "LMINIT DATAID(INDD1) DATASET('"DS11"')"
ADDRESS ISPEXEC "LMINIT DATAID(OUTDD1) DATASET('"DS22"')"
ADDRESS ISPEXEC
"LMCOPY FROMID("INDD1") TODATAID("OUTDD1") FROMMEM("MEM")
TOMEM("MEM") REPLACE PACK"
SAY 'RETURN CODE OF COPY IS' RC
ADDRESS TSO
"ALLOC FI(NEWDD) DA('"DS1"') REUSE SHR "
"ALLOC FI(OLDDD) DA('"DS2"') REUSE SHR "
"ALLOC FI(SYSIN) DUMMY REUSE SHR "
OUTDAT = "MYID.TEMP10.DATASET.CHANGES"
IF "OK" == SYSDSN("'"OUTDAT"'") THEN
DO
SAY 'OUT DSET EXISTS TRYING TO DELETE'
ADDRESS TSO "DELETE '"OUTDAT"'"
SAY "RETURN CODE FOR DELETE IS " RC
IF RC ¬= 0 THEN
DO
SAY "CLOSE THE DSET :" OUTDAT
"FREE F(NEWDD,OLDDD,SYSIN)"
EXIT
END
END
ELSE DO
SAY 'THE OUTDAT DOESNOT EXISTS'
END
ADDRESS TSO "ALLOC DA('"OUTDAT"') F(OUTDD) NEW RECFM(F,B)",
"LRECL(80) SPACE(5,10) TRACK BLKSIZE(0)"
ADDRESS ISPEXEC "SELECT PGM(ISRSUPC)
PARM(DELTAL,LINECMP,SEQ)"
SAY 'RETURN CODE OF COMPARE IS' RC
|
|
|
Back to top |
|
|
Nandananilchintala
New User
Joined: 25 Mar 2009 Posts: 19 Location: Hyderabad
|
|
|
|
Hi expat,
above is the code I haev written.
and reagrding the attributes,both the datasets are PDS and The LRECL of both are same.
let me know if we need to check some other attributes as well? |
|
Back to top |
|
|
prino
Senior Member
Joined: 07 Feb 2009 Posts: 1306 Location: Vilnius, Lithuania
|
|
|
|
This is the culprit:
Code: |
LMCOPY FROMID("INDD1") TODATAID("OUTDD1") FROMMEM("MEM") TOMEM("MEM") REPLACE PACK" |
SuperC needs the CKPACKL to compare packed datasets. Edit and View automatically unpack datasets before displaying them.
Why do you use the PACK option of LMCOPY??? |
|
Back to top |
|
|
Nandananilchintala
New User
Joined: 25 Mar 2009 Posts: 19 Location: Hyderabad
|
|
|
|
Hi ,
Thanks a lot!!!
I removed the 'PACK' in LMCOPY and it is working fine now...
I have included because of ignorance |
|
Back to top |
|
|
|