IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Rexx to execute spool commands


IBM Mainframe Forums -> CLIST & REXX
Post new topic   This topic is locked: you cannot edit posts or make replies.
View previous topic :: View next topic  
Author Message
upendrasri

Active User


Joined: 28 Sep 2017
Posts: 121
Location: India

PostPosted: Mon Oct 02, 2017 8:47 pm
Reply with quote

Hi All,

I have another issue am trying to execute a Rexx program using Jcl but its failing with the message

IEC020I EROPT IS 'ABE' OR NOT SPECIFIED

See the below full details .


My Rexx - SPLPERC1
Code:

/* REXX   */                                           
"ALLOC FI(ISFOUT) DA('TEST.INPUT1') SHR REUSE"         
"EXECIO 0 DISKW ISFOUT (OPEN FINIS"                   
"ALLOC DD(ISFOUT) DA('TEST.INPUT1')SHR REUSE"         
"ALLOC DD (ISFIN) NEW REU"                             
QUEUE "SP                                           " 
QUEUE "++ALL                                        " 
"EXECIO "QUEUED()" DISKW ISFIN (FINIS"                 
"CALL *(ISFAFD)"                                       
"FREE DD(ISFOUT)"                                     
"FREE DD(ISFIN)"                                       

The above Rexx working fine. Now I want to execute the above Rexx with JCL as below.

Job to execute my above Rexx
Code:

//STEP1 EXEC PGM=IKJEFT01,PARM='%SPLPERC1'     
//SYSEXEC DD DSN=IGCF.TSO.EXEC,DISP=SHR       
//SYSTSIN DD SYSOUT=*                           
//SYSTSPRT DD SYSOUT=*                         
//ISFOUT  DD DSN=TEST.INPUT1,DISP=SHR 
//ISFIN   DD DUMMY                             
//SYSIN   DD *                                 
SP                                             
++ALL                                           
/*         


TEST.INPUT1 Dataset Properties
Code:

General Data                           Current Allocation               
 Management class . . : NOMIG           Allocated tracks  . : 1         
 Storage class  . . . : STANDARD        Allocated extents . : 1         
  Volume serial . . . : TEST01                                         
  Device type . . . . : 3390                                           
 Data class . . . . . : DEFAULT                                         
  Organization  . . . : PS             Current Utilization             
  Record format . . . : FBA             Used tracks . . . . : 1         
  Record length . . . : 133             Used extents  . . . : 1         
  Block size  . . . . : 6118                                           
  1st extent tracks . : 1                                               
  Secondary tracks  . : 50             Dates                           
  Data set name type  :                 Creation date . . . : 2017/10/02

But When I submit the abvoe Job its failing with CC= 12 the below are the error messages from JESYSMSG

Code:

IEF237I JES2 ALLOCATED TO SYSTSIN                                               
IEF237I JES2 ALLOCATED TO SYSTSPRT                                             
IGD103I SMS ALLOCATED TO DDNAME ISFOUT                                         
IEF237I DMY  ALLOCATED TO ISFIN                                                 
IEF237I JES2 ALLOCATED TO SYSIN                                                 
IGD101I SMS ALLOCATED TO DDNAME (ISFIN   )                                     
        DSN (SYS17275.T160350.RA000.TESTSPLJ.R0138050    )                     
        STORCLAS (STANDARD) MGMTCLAS (        ) DATACLAS (TEMPDS)               
        VOL SER NOS= W0T103                                                     
IGD104I TTSS.SRSQ.SPL.INPUT1                         RETAINED,  DDNAME=ISFOUT   
IGD105I SYS17275.T160350.RA000.TTSYSPLJ.R0138050     DELETED,   DDNAME=ISFIN   
IEC020I 001-5,TESTSPLJ,STEP1   ,SYSTSIN ,JES                                   
IEC020I EROPT IS 'ABE' OR NOT SPECIFIED                                         
IEF142I TESTSPLJ STEP1 - STEP WAS EXECUTED - COND CODE 0012         

Error messages of SYSTSPRT

READY
UNRECOVERABLE COMMAND SYSTEM ERROR






Thanks!
Upendra.

Coded for the incapable
Back to top
View user's profile Send private message
steve-myers

Active Member


Joined: 30 Nov 2013
Posts: 917
Location: The Universe

PostPosted: Mon Oct 02, 2017 8:55 pm
Reply with quote

This is another issue, unrelated to your other issues.

However -

//SYSTSIN DD SYSOUT=*

The TSO Terminal Monitor program expects to read TSO commands from the data set specified by the DD statement with DD name SYSTSIN. I suspect that is rather difficult here.
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK

PostPosted: Mon Oct 02, 2017 9:09 pm
Reply with quote

You have been asked to use the code tags when posting stuff sfrom the screen - code, JCL, data etc. Please do so or you may find your topic locked.
Back to top
View user's profile Send private message
upendrasri

Active User


Joined: 28 Sep 2017
Posts: 121
Location: India

PostPosted: Mon Oct 02, 2017 9:12 pm
Reply with quote

Hi Steve,

Yeah this is other issue with My JCL. I have modified my JCS as below

//STEP1 EXEC PGM=IKJEFT01,PARM='%SPLPERC1'
//SYSEXEC DD DSN=IGCF.TSO.EXEC,DISP=SHR
//SYSTSIN DD DSN=TEST.CMD,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//ISFOUT DD DSN=TEST.INPUT1,DISP=SHR
//ISFIN DD DUMMY
//SYSIN DD DUMMY
/*

TEST.CMD File contains the below commands
SP
++ALL

But still getting the same error.

Thanks!
Back to top
View user's profile Send private message
upendrasri

Active User


Joined: 28 Sep 2017
Posts: 121
Location: India

PostPosted: Mon Oct 02, 2017 9:17 pm
Reply with quote

Hi Nic,

Sorry, Can you please let me know what do you mean by code tags? Am bit new to this forum.

Do you want me to open a new topic with new name?




Thanks!
Back to top
View user's profile Send private message
steve-myers

Active Member


Joined: 30 Nov 2013
Posts: 917
Location: The Universe

PostPosted: Tue Oct 03, 2017 12:42 am
Reply with quote

Use a search engine for phpbb code and follow some of those links. phpbb is the software that runs this forum and many other similar forums on the internet. When a moderator suggests you use code tags they mean to use phpbb tags that cause the software to emit ...
Code:
a block of text in a font with fixed width letters like this.

You can see what I did by clicking on the quote block at the upper right.
Back to top
View user's profile Send private message
Willy Jensen

Active Member


Joined: 01 Sep 2015
Posts: 712
Location: Denmark

PostPosted: Tue Oct 03, 2017 1:53 pm
Reply with quote

You say that the modified job ends with the same error messages. But messages from the first job had:
IEC020I 001-5,TESTSPLJ,STEP1 ,SYSTSIN ,JES
I don't think that you get that message again after you assigned SYSTSIN to a dataset.
SP and ++ALL belongs to the ISFIN DD, so I think that you JCL should look like this:
Code:
//STEP1 EXEC PGM=IKJEFT01,PARM='%SPLPERC1'
//SYSEXEC DD DSN=IGCF.TSO.EXEC,DISP=SHR
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//ISFOUT DD DSN=TEST.INPUT1,DISP=SHR
//ISFIN DD DSN=TEST.CMD,DISP=SHR
//SYSIN DD DUMMY
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Tue Oct 03, 2017 2:41 pm
Reply with quote

topic locked ...
a conclusion was not reached after 46 posts , I do not see any chances of getting one
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies. View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX Goto page Previous  1, 2

 


Similar Topics
Topic Forum Replies
No new posts Compile Several JCL JOB Through one r... CLIST & REXX 4
No new posts Running REXX through JOB CLIST & REXX 13
No new posts Error to read log with rexx CLIST & REXX 11
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
No new posts run rexx code with jcl CLIST & REXX 15
Search our Forums:

Back to Top