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
 
Problem in REXX Program Execution

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

Active User


Joined: 08 Jun 2006
Posts: 356
Location: New York

PostPosted: Wed Nov 12, 2008 3:10 pm    Post subject: Problem in REXX Program Execution
Reply with quote

Hi,

I am learning REXX and written a small program(first program in REXX icon_lol.gif ). We have a Proc REXXCLG through which we can COMPILE, LINK EDITED and RUN the program.

When I was trying to execute this Proc, Compilation step executed successfully but PLKED step ( To PREPARE SYSLIN DATA SET FOR SUBSEQUENT LINK STEP) got abended with the following error.

Code:

IEF212I PLKED S1 SYSEXEC - DATA SET NOT FOUND


Code is as follows.

Code:

//SYSEXEC   DD DSN=&LIBXDSN,DISP=SHR

and
Code:

LIBXDSN='SYS1.IBM.SEAGCMD'


LIBXDSN is an IBM library for SAA REXX/370 EXEC Library. Please let me know if I am missing something.

Regards,
KSK
Back to top
View user's profile Send private message

Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1288
Location: Chennai, India

PostPosted: Wed Nov 12, 2008 5:46 pm    Post subject: Reply to: Problem in REXX Program Execution
Reply with quote

Ksk,

Quote:
I am learning REXX and written a small program(first program in REXX ).


Good. But why do you want to submit the REXX code from a JCL? As it is your first program just run it without using a JCL using

- EXEC command
- TSO execname after allcating it to SYSEXEC/PROC
- batch mode using IKJEFT01


In the 3rd case where you use the batch mode

//SYSEXEC DD DSN=XXXX.YYYY.ZZZZ,DISP=SHR

XXXX.YYYY.ZZZZ - Your REXX library

Try this.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Wed Nov 12, 2008 10:07 pm    Post subject:
Reply with quote

Hello,

Code:
IEF212I PLKED S1 SYSEXEC - DATA SET NOT FOUND
This is caused by a misspelled dataset name (or one that does not exist). For us to help, you need to post the expanded proc and the complete diagnostic info.
Back to top
View user's profile Send private message
ksk

Active User


Joined: 08 Jun 2006
Posts: 356
Location: New York

PostPosted: Thu Nov 13, 2008 12:20 pm    Post subject:
Reply with quote

Dick,

Following is my Proc.

Code:

//REXXCLG PROC STUB=MVS,                      TYPE OF STUB             
//             OPTIONS='XREF OBJECT NOCEXEC', REXX COMPILER OPTIONS     
//             COMPDSN='SYS1.SFANLMD', REXX COMPILER LOAD LIB           
//             LIBDSN='SYS1.IBM.SEAGLMD',  REXX LIBRARY LOAD LIB       
//*            LIBLPA='SYS1.IBM.SEAGLPA',  REXX LIBRARY LPA LIB         
//             LIBXDSN='SYS1.IBM.SEAGCMD'  REXX LIBRARY EXEC LIB       
//*                                                                     
//*-----------------------------------------------------------------   
//* COMPILE REXX PROGRAM.                                               
//*-----------------------------------------------------------------   
//*                                                                     
//REXX    EXEC PGM=REXXCOMP,PARM='&OPTIONS'                             
//STEPLIB   DD DSN=&COMPDSN,DISP=SHR                                   
//SYSPRINT  DD SYSOUT=*                                                 
//SYSTERM   DD SYSOUT=*                                                 
//*SYSIEXEC DD DUMMY                                                   
//*SYSDUMP  DD DUMMY                                                   
//*SYSCEXEC DD DUMMY                                           
//SYSPUNCH  DD DSN=&&OBJECT,DISP=(MOD,PASS),UNIT=SYSDA,         
//             SPACE=(800,(800,100))                           
//*                                                             
//*-------------------------------------------------------------
//* PREPARE SYSLIN DATA SET FOR SUBSEQUENT LINK STEP.           
//*-------------------------------------------------------------
//*                                                             
//PLKED   EXEC PGM=IRXJCL,PARM='REXXL &STUB',                   
//             COND=(9,LT,REXX)                                 
//*                                                             
//SYSEXEC   DD DSN=&LIBXDSN,DISP=SHR                           
//SYSIN     DD DSN=&&OBJECT,DISP=(OLD,DELETE)                   
//SYSTSPRT  DD SYSOUT=*                                         
//SYSOUT    DD DSN=&&SYSOUT,DISP=(MOD,PASS),UNIT=SYSDA,         
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=800),             
//             SPACE=(800,(800,100))                           
//*                                                               
//*----------------------------------------------------------------
//* LINK TOGETHER STUB AND PROGRAM.                               
//*----------------------------------------------------------------
//*                                                               
//LKED    EXEC PGM=HEWL,PARM='LIST,AMODE=31,RMODE=ANY,RENT,MAP',   
//             COND=((9,LT,REXX),(0,NE,PLKED))                     
//*                                                               
//SYSLIN    DD DSN=&&SYSOUT,DISP=(OLD,DELETE)                     
//SYSLIB    DD DSN=&LIBDSN,DISP=SHR                               
//SYSUT1    DD UNIT=SYSDA,SPACE=(1024,(200,20))                   
//SYSPRINT  DD SYSOUT=*                                           
//SYSLMOD   DD DSN=&&GOSET(GO),DISP=(MOD,PASS),UNIT=SYSDA,         
//             SPACE=(1024,(50,20,1))                             
//*                                                               
//*----------------------------------------------------------------
//* RUN THE COMPILED REXX PROGRAM.                                 
//*-----------------------------------------------------------------   
//*                                                                     
//GO      EXEC PGM=*.LKED.SYSLMOD,                                     
//             COND=((9,LT,REXX),(0,NE,PLKED),(0,NE,LKED))             
//*                                                                     
//* ACTIVATE STEPLIB ONLY IF &LIBLPA IS NOT IN THE SEARCH ORDER         
//*STEPLIB  DD DSN=&LIBLPA,DISP=SHR                                     
//SYSTSPRT  DD SYSOUT=*                                                 
**************************** Bottom of Data ****************************


Following is error description.

Code:

IEF373I STEP/REXX    /START 2008318.0139                                       
IEF374I STEP/REXX    /STOP  2008318.0139 CPU    0MIN 00.01SEC SRB    0MIN 00.00S
IEF212I TESTJOB PLKED S1 SYSEXEC - DATA SET NOT FOUND                           
IEF272I TESTJOB PLKED S1 - STEP WAS NOT EXECUTED.                               
IEF373I STEP/PLKED   /START 2008318.0139                                       
IEF374I STEP/PLKED   /STOP  2008318.0139 CPU    0MIN 00.00SEC SRB    0MIN 00.00S
IEF285I   SYS3.MVSV5.RUNTIME                           KEPT                     
IEF285I   VOL SER NOS= MCATPE.                                                 
IEF237I 8935 ALLOCATED TO SYS00001                                             
IEF285I   SYS08318.T013951.RA000.TESTJOB.R0583962      KEPT                     
IEF285I   VOL SER NOS= S2XYCJ.                                                 
IGD105I SYS08318.T013950.RA000.TESTJOB.OBJECT.H05    DELETED,   DDNAME=SYSPUNCH
IEF375I  JOB/TESTJOB /START 2008318.0139                                       
IEF376I  JOB/TESTJOB /STOP  2008318.0139 CPU    0MIN 00.01SEC SRB    0MIN 00.00S
******************************** BOTTOM OF DATA ********************************


I found SYS1.IBM.SEAGCMD does not exist. My question is if this does not exist, what should we provide here?
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu Nov 13, 2008 3:09 pm    Post subject:
Reply with quote

Hello,

You will need to name an existing library that you permitted to write new execs into or you will need to allocate a new library for execs.

Suggest you talk with your system support people to see if what you need already exists or how you should name a new library for this purpose.
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 LMINIT problem - not finding DDNAME Danielle.Filteau CLIST & REXX 7 Tue Sep 19, 2017 9:57 pm
No new posts ejck thru rexx to multiple jobs insid... Susanta All Other Mainframe Topics 5 Tue Sep 19, 2017 1:39 pm
This topic is locked: you cannot edit posts or make replies. Extract all "IF" Statements... Adarsh Damodaran CLIST & REXX 1 Wed Sep 06, 2017 9:28 am
No new posts Creating ISPF Screens with Scrname vi... Albireo20 TSO/ISPF 9 Tue Sep 05, 2017 4:24 pm
No new posts How to Run Rexx Macro? Kalaivignesh CLIST & REXX 5 Fri Sep 01, 2017 9:08 pm

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