Dear Group,
I am trying to compare two PDSEs. I found Example 8: Compare Two PDSEs in
the z/OS V1R12.0 DFSMSdfp Utilities (SC26-7414-07). I am trying to get
IEBCOMPR to work from REXX like I got IEBCOPY to work. We are running z/OS
V1R13.
"ALLOC FI(SYSUT1) DA('PMSBDH.VPS.LRS.AFP.V2R10.FDEFLIB') SHR"
"ALLOC FI(SYSUT2) DA('VPS.LRS.VPS.V2R10.FDEFLIB') SHR"
"ALLOC FI(SYSIN) UNIT(VIO) SPACE(15) BLKSIZE(80) LRECL(80) RECFM(F B)
DSORG(PS) NEW DELETE REUSE"
"NEWSTACK"
V1 = " COMPARE TYPORG=PO"
QUEUE V1
"EXECIO" queued() "DISKW SYSIN (FINIS"
"DELSTACK"
"TSOEXEC IEBCOMPR"
"FREE FI(SYSUT1 SYSUT2 SYSIN)"
>From the trace:
36 *-* "TSOEXEC IEBCOMPR"
>L> "TSOEXEC IEBCOMPR"
IEA995I SYMPTOM DUMP OUTPUT
SYSTEM COMPLETION CODE=0C4 REASON CODE=00000011
TIME=15.14.49 SEQ=63831 CPU=0000 ASID=018E
PSW AT TIME OF ERROR 078D1000 0006E474 ILC 6 INTC 11
ACTIVE LOAD MODULE ADDRESS=00069A38 OFFSET=00004A3C
NAME=IEBCOMPR
DATA AT PSW 0006E46E - B25A4270 B09BD2D3 60005002
GR 0: 00000000 1: 00066AC0
2: 00000000 3: 00066820
4: 8A2B202C 5: 00006F80
6: 00070EE6 7: FFFFD7D3
8: 00979AB8 9: 00D3C130
A: 0006E918 B: 4006E3DA
C: 000674A0 D: 0006E924
E: 80FD8D78 F: 0006E3B8
END OF SYMPTOM DUMP
IEBCOMPR ENDED DUE TO ERROR+
SYSTEM ABEND CODE 0C4 REASON CODE 0000
With IEBCOPY I could stack my input commands. With IEBCOMPR all I need is
"COMPARE TYPEORG=PO".
Q). Should this work stacking the "COMPARE"?
I tried passing "TSOEXEC IEBCOMPR" "COMPARE TYPEORG=PO" Blew up at the same
address and offset.
29 *-* "TSOEXEC IEBCOMPR" "COMPARE TYPORG=PO"
>L> "TSOEXEC IEBCOMPR"
>L> "COMPARE TYPORG=PO"
>O> "TSOEXEC IEBCOMPR COMPARE TYPORG=PO"
IEA995I SYMPTOM DUMP OUTPUT
SYSTEM COMPLETION CODE=0C4 REASON CODE=00000011
TIME=15.20.29 SEQ=63836 CPU=0000 ASID=018E
PSW AT TIME OF ERROR 078D1000 0006E474 ILC 6 INTC 11
ACTIVE LOAD MODULE ADDRESS=00069A38 OFFSET=00004A3C
NAME=IEBCOMPR
DATA AT PSW 0006E46E - B25A4270 B09BD2D3 60005002
Q). Should this work passing the "COMPARE"?
This is part of my IEBCOPY REXX that works:
QUEUE VJ
"EXECIO" queued() "DISKW SYSIN (FINIS"
"DELSTACK"
"TSOEXEC IEBCOPY"
"FREE FI(INDD1 OUTDD1 SYSIN)"
Thank you, Dave
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
