Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

ABEND CODE: S001 REASON CODE: 0001 when executing macro

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
Thirumurgann

New User


Joined: 13 Feb 2008
Posts: 36
Location: India

PostPosted: Fri Jun 08, 2012 12:59 pm    Post subject: ABEND CODE: S001 REASON CODE: 0001 when executing macro
Reply with quote

Hi Guys,

i am getting error messge when executing the below simple rexx. i even concatenated sysproc with the macro library. Guys can any one Please suggest how to reslove this.

Code:
 
/****REXX**********/               
DSN='CCS171.REXX.EXEC(TEST)'       
ADDRESS ISPEXEC                     
"EDIT DATASET('"DSN"') MACRO(MAC1)"


Error messgge:

Code:

 PHASE 1 PROCESSING OF CLIST OR REXX EXEC ENDED ABNORMALLY +   
 ABEND CODE: S001    REASON CODE: 0001                         
 ***                                                                                                       


My macro:
Code:

/* REXX */               
ADDRESS ISREDIT           
"MACRO"                   
"C ALL '@USER' 'CCS171'" 
"SAVE"                   
"END" 


Thanks,
Thiru
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Fri Jun 08, 2012 1:42 pm    Post subject:
Reply with quote

Any other error messages issued ???
Back to top
View user's profile Send private message
Thirumurgann

New User


Joined: 13 Feb 2008
Posts: 36
Location: India

PostPosted: Fri Jun 08, 2012 1:48 pm    Post subject: Reply to: ABEND CODE: S001 REASON CODE: 0001 when execut
Reply with quote

Expat,

When i executed i got the below messge. other than this i dint get any error messges. Also i m not able to execute any exec till i loggoff and login again.

Code:


EDIT       CCS171.REXX.EXEC(TEST) - 01.00                     MAC1 macro error
Command ===> MAC1                                             Scroll ===> CSR 
****** ***************************** Top of Data ******************************
000001 @USER                                                                   
****** **************************** Bottom of Data ****************************
                                                                               



Thanks,
Thiru
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Fri Jun 08, 2012 2:12 pm    Post subject:
Reply with quote

Have you run with TRACE to see exactly where the abend occurs
Back to top
View user's profile Send private message
Thirumurgann

New User


Joined: 13 Feb 2008
Posts: 36
Location: India

PostPosted: Fri Jun 08, 2012 3:15 pm    Post subject: Reply to: ABEND CODE: S001 REASON CODE: 0001 when execut
Reply with quote

Hi All,


The trace output is posted below. I guess the issue is with macro library concatenation. But i don have any idea on this abend.

Code:


      3 *-* DSN='CCS171.REXX.EXEC(TEST)'                           
      4 *-* ADDRESS ISPEXEC                                         
      5 *-* "EDIT DATASET('"DSN"') MACRO(MAC1)"                     
        >>>   "EDIT DATASET('CCS171.REXX.EXEC(TEST)') MACRO(MAC1)" 
 ***                                                               

 PHASE 1 PROCESSING OF CLIST OR REXX EXEC ENDED ABNORMALLY +       
 ABEND CODE: S001    REASON CODE: 0001                             
 ***                                                               
                                                                   



Thanks,
Thiru
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2422
Location: Netherlands, Amstelveen

PostPosted: Fri Jun 08, 2012 3:41 pm    Post subject:
Reply with quote

Try this :

Code:

address  ISREDIT "C ALL '@USER' 'CCS171'" 
address  ISREDIT "SAVE"                   
address  ISREDIT "END" 
Back to top
View user's profile Send private message
Thirumurgann

New User


Joined: 13 Feb 2008
Posts: 36
Location: India

PostPosted: Fri Jun 08, 2012 4:28 pm    Post subject: Reply to: ABEND CODE: S001 REASON CODE: 0001 when execut
Reply with quote

Thanks for all you reply.

Guys i don foresee any issues in code. i am 100% sure that there is a problem with macro library being concatenated to the sysproc. the same macro runs in my collegue machine without any issues. i am posting my dataset allocations to you.

Code:


                          Current Data Set Allocations            Row 57 of 94
Command ===>                                                  Scroll ===> PAGE
                                                                               
Blksz Lrecl RCFM Org  Act DDname   Data Set Name   Actions: B E V M F C I Q   
27920    80 FB   PO  >    ISP02491 CCS171.REXX.EXEC                           
27920    80 FB   PO  >    ISP02492 CCS171.REXX.EXEC                           
27920    80 FB   PO  >    ISP02493 CCS171.REXX.EXEC                           
27920    80 FB   PO  >    ISP02494 CCS171.REXX.EXEC                           
27920    80 FB   PO  >    ISP02512 CCS171.REXX.EXEC                           
27920    80 FB   PO  >    ISP02522 CCS171.REXX.EXEC                           
27920    80 FB   PO  >    ISP02523 CCS171.REXX.EXEC                           
 3120   255 VB   PO  >    SYSEXEC  DBSYS.TSO.REXX.VB                           
 3120   255 VB   PO  >             SYS1.TSO.REXX.VB                           
 3120   255 VB   PO  >             SYSTEMS.TSO.REXX.VB                         
 3120   255 VB   PO  >             SYSTEMS.PROD.REXX.VB                       
27998   255 VB   PO  >             ISP.SISPEXEC.VB                             
 3120   255 VB   PO  >             BPS.GAMMA.REXXEXEC                         
 3120   255 VB   PO  >             BPS.ATFA100.REXX                           
 3120   255 VB   PO  >             SYS5.PROD.REXX                             
 3120   255 VB   PO  >             SYS4.PROD.REXX                             
                     >    SYSIN    ---------- Allocated to the terminal -------
                     >    SYSPRINT ---------- Allocated to the terminal -------
27920    80 FB   PO  >    SYSPROC  CCS171.REXX.EXEC                           
Back to top
View user's profile Send private message
Thirumurgann

New User


Joined: 13 Feb 2008
Posts: 36
Location: India

PostPosted: Fri Jun 08, 2012 5:08 pm    Post subject: Reply to: ABEND CODE: S001 REASON CODE: 0001 when execut
Reply with quote

Hi All,

The macro libray was not allocated with correct parameters, it was merely a PDS. Now i changed its DCB parameters to the below. Now the macros are working superb.

Code:

  Management class . . : TSOSTD   
  Storage class  . . . : GENERIC   
   Volume serial . . . : FPM020   
   Device type . . . . : 3390     
  Data class . . . . . : DEFAULT   
   Organization  . . . : PO       
   Record format . . . : VB       
   Record length . . . : 84       
   Block size  . . . . : 27998     
   1st extent cylinders: 2         
   Secondary cylinders : 32       
   Data set name type  : PDS       



Thanks,
Thiru
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2019
Location: Silicon Valley

PostPosted: Fri Jun 08, 2012 9:08 pm    Post subject: Reply to: ABEND CODE: S001 REASON CODE: 0001 when execut
Reply with quote

Quote:
Any other error messages issued ???

and
Quote:
other than this i dint get any error messges.


and the MVS System Codes manual says:
Code:
Programmer Response:  Respond as indicated for message IEC020I.           
                                                                           
System Programmer Response:  If the error recurs and the program is not in error, look at the messages in the job log for more information. ...


While message IEC020I may not go to your TSO screen, it likely went to SYSLOG. Search in SYSLOG for any messages associated with your userid.
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 -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts PL/I code tuning/Performance improvement Virendra Shambharkar PL/I & Assembler 4 Mon Dec 05, 2016 11:57 am
No new posts What is the code in CLIST to enable t... jackzhang75 CLIST & REXX 1 Fri Dec 02, 2016 3:02 am
No new posts IDEAL - Code Retrieval yugendran CA Products 0 Fri Nov 25, 2016 3:27 pm
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts abend sort based on count records in ... anatol DFSORT/ICETOOL 5 Mon Oct 17, 2016 10:10 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us