View previous topic :: View next topic
|
Author |
Message |
Terry Tallian
New User
Joined: 16 Mar 2018 Posts: 1 Location: USA
|
|
|
|
I did a search and didn't find anything related. I am trying to RECEIVE a file that I uploaded from my PC. I get an ABEND 002 REA 30. I cannot recreate the file as the originating system is gone forever.
I had 35 of these files, all but 9 restored. I did an ISPF compare byte of one file that worked versus one that didn't and there was only a couple of minor differences in what I take to be the control records.
Code: |
ISRSUPC - MVS/PDF FILE/LINE/WORD/BYTE/SFOR COMPARE UTILITY- ISPF FOR z/OS 2018/03/15 15.33 PAGE 1
NEW: I383581.#0000017.BIN OLD: I383581.#0000002.BIN
LISTING OUTPUT SECTION (BYTE COMPARE)
ID NEW-OFFSET / HEX-DATA * EBCDIC TEXT * ID OLD-OFFSET
0------- 4------- 8------- C------- 0------- 4------- 8------- C------- *0---4---8---C---0---4---8---C---*
000040/F2F1F5F1 F1F4 10 2F000100 01011026 0000 E0 C9D5D4D9 F0F20000 00011028 *215114 ........... \INMR02......* 000040
I - 000040/ F8 6D * 8 _ * I -
DR- 000040/ F2 6F * 2 ? * DR- 000046
000060/00010007 C9C5C2C3 D6D7E810 2C000100 0400 003C00 01000202 00801200 *....IEBCOPY....... ...........* 000060
I - 000060/ 0C8E DC * ... * I -
DR- 000060/ 4578 00 * ... * DR- 000072
000080/010001 00420001 00040000 00500030 00010004 0000 00490001 00029000 *... .........&........ ........* 000080
I - 000080/ 00 6D10 * . _. * I -
DR- 000080/ 80 7FD0 * . "} * DR- 000083
0000A0/000C0001 00030000 000200 030003E2 D4E200 *........ ......SMS. * 0000A0
I - 0000A0/ 19 03 * . . * I -
DR- 0000A0/ 01 05 * . . * DR- 0000A8
D - 0000A0/ C2C1 * BA * D - 0000B4
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . |
Is there anything I can do to recover these files?
Thank you
Coded for you |
|
Back to top |
|
|
hankoerlemans
New User
Joined: 25 Jan 2018 Posts: 61 Location: Australia
|
|
Back to top |
|
|
|