Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Need help with 002-030 ABEND in TSO RECEIVE command.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
Terry Tallian

New User


Joined: 16 Mar 2018
Posts: 1
Location: USA

PostPosted: Sat Mar 17, 2018 1:13 am    Post subject: Need help with 002-030 ABEND in TSO RECEIVE command.
Reply with quote

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
View user's profile Send private message

hankoerlemans

New User


Joined: 25 Jan 2018
Posts: 5
Location: Australia

PostPosted: Mon May 21, 2018 7:02 am    Post subject: Reply to: Need help with 002-030 ABEND in TSO RECEIVE command.
Reply with quote

Try matching your output DCB correctly.

Formats are documented here:
https://www.ibm.com/support/knowledgecenter/SSLTBW_2.3.0/com.ibm.zos.v2r3.ikjb400/inmr02.htm
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Problem with Return or Exit from DCB ... Vishnu Priya M R PL/I & Assembler 6 Thu Aug 23, 2018 9:43 am
No new posts SDSF - SJ command not working properly mistah kurtz IBM Tools 5 Tue Jun 26, 2018 2:33 pm
No new posts SAS Work space - B37 abend santuece1 JCL & VSAM 15 Tue Jun 19, 2018 1:03 am
No new posts Need help on TDQ load from file using... subratarec CICS 4 Wed Jun 13, 2018 11:32 pm
No new posts JCL to set Return code when Time Out ... vinu78 JCL & VSAM 6 Wed May 30, 2018 11:27 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us