View previous topic :: View next topic
|
Author |
Message |
Thirumurgann
New User
Joined: 13 Feb 2008 Posts: 36 Location: India
|
|
|
|
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 |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
Any other error messages issued ??? |
|
Back to top |
|
|
Thirumurgann
New User
Joined: 13 Feb 2008 Posts: 36 Location: India
|
|
|
|
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 |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
Have you run with TRACE to see exactly where the abend occurs |
|
Back to top |
|
|
Thirumurgann
New User
Joined: 13 Feb 2008 Posts: 36 Location: India
|
|
|
|
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 |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009 Posts: 2481 Location: Netherlands, Amstelveen
|
|
|
|
Try this :
Code: |
address ISREDIT "C ALL '@USER' 'CCS171'"
address ISREDIT "SAVE"
address ISREDIT "END"
|
|
|
Back to top |
|
|
Thirumurgann
New User
Joined: 13 Feb 2008 Posts: 36 Location: India
|
|
|
|
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 |
|
|
Thirumurgann
New User
Joined: 13 Feb 2008 Posts: 36 Location: India
|
|
|
|
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 |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
|
|
|
|
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 |
|
|
|