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

RC -3 in the REXX code in the Batch mode


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Pedro

Global Moderator


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

PostPosted: Tue Mar 31, 2009 12:59 am
Reply with quote

Use PROFILE MSGID command to see the message numbers.
Back to top
View user's profile Send private message
pradeepkit
Warnings : 1

New User


Joined: 25 Jun 2008
Posts: 60
Location: chennai

PostPosted: Tue Mar 31, 2009 1:12 pm
Reply with quote

Hi as you suggested i gave PRFILE MSGID and i am getting this msg.


SYS09090.T002634.RA000.AB60399R.R0222826 was preallocated (no free was done).
READY
PROFILE MSGID
READY
\*
IKJ56621I INVALID COMMAND NAME SYNTAX
READY
END

so for which it is saying that invalid command name . Can you tell me the way to find it as I have trace on even there I am not finding the error only in the last i am getting these error .
Back to top
View user's profile Send private message
Pedro

Global Moderator


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

PostPosted: Tue Mar 31, 2009 8:52 pm
Reply with quote

What is this?
Code:
\*


That is the line giving you the syntax problem.
Back to top
View user's profile Send private message
Pedro

Global Moderator


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

PostPosted: Tue Mar 31, 2009 11:12 pm
Reply with quote

TSO will not gather commands up and execute them as a bunch. Instead, it gets one command and process it, then looks for another.

Your clue is the 'READY'... that is when it is looking for another command. So, when you get an 'invalid syntax' message, you only have to look back to the last 'READY'
Back to top
View user's profile Send private message
pradeepkit
Warnings : 1

New User


Joined: 25 Jun 2008
Posts: 60
Location: chennai

PostPosted: Thu Apr 02, 2009 3:22 pm
Reply with quote

Hi thanks as i removed that \* and i am not getting any syntax error but still getting this preallocation error

29 *-* EXIT
SYS09092.T023428.RA000.AB60399R.R0204269 was preallocated (no free was done).
READY
PROFILE MSGID
READY
END

because of this my output is not coming correct even my job is getting over with cc 00.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Thu Apr 02, 2009 3:31 pm
Reply with quote

Quote:
SYS09092.T023428.RA000.AB60399R.R0204269 was preallocated (no free was done).
...
...
because of this my output is not coming correct even my job is getting over with cc 00.


ISPF normally allocates dynamically some datasets ( ISPCTL*, ... )
if it determines that those datasets were allocated thru jcl it simple gives an informatory message on the fact

is your output not correct, or is it not coming at all ??

in case 1 ( not correct ) the issue is not related to the allocation/deallocation

in case 2 there is mismatch/misunderstanding on the ddname beig used for Your output

but anyway to be sure treat case 1 as case 2
Back to top
View user's profile Send private message
pradeepkit
Warnings : 1

New User


Joined: 25 Jun 2008
Posts: 60
Location: chennai

PostPosted: Thu Apr 02, 2009 9:55 pm
Reply with quote

Hi . I am getting the output but the problem is some times i am getting the correct output but after first run it is not giving the correct output .

So i think this is because of this preallocation error . let me know if i am wrong.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Thu Apr 02, 2009 10:29 pm
Reply with quote

Yes icon_biggrin.gif
never had any problem with preallocated datasets

if it is not too big post Your rexx script ( use the bbcode tags )
Back to top
View user's profile Send private message
Pedro

Global Moderator


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

PostPosted: Fri Apr 03, 2009 4:28 am
Reply with quote

Quote:

29 *-* EXIT
SYS09092.T023428.RA000.AB60399R.R0204269 was preallocated (no free was done).
READY
PROFILE MSGID
READY
END

Please put the PROFILE MSGID before the message that you need to look up. (that is, you should be looking it up yourself, but you seem to want us to guess the message number and want us look up our guess).
Back to top
View user's profile Send private message
pradeepkit
Warnings : 1

New User


Joined: 25 Jun 2008
Posts: 60
Location: chennai

PostPosted: Sun Apr 05, 2009 3:14 pm
Reply with quote

Hi ,

these datasets for which this prealocation message are coming is generated by ISPLOG .

I removed ISPLOG from JCL and ran it it shows contention with AB60399.SPFLOG1.LIST datasets

ISPF system data set allocation error - press Enter to continue.
Log file allocation error - ISPF will operate without a log data set.
Data set 'AB60399.SPFLOG1.LIST' in use by another user, try later.

but i got the correct output .

but sometime this message is not coming and that time i am not getting the correct output .
Means if there is not contention then the output is not correct .

I have also tried to

//ISPLOG DD SYSOUT=A,
// DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)

then for the first time it gave the corrcet output but for the next time
i got the message

AB60399.AB60399R.JOB04008.D0000102.? was preallocated (no free was done).
and the output is incorrect .

could you please help me to come out of this situation....
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Sun Apr 05, 2009 6:31 pm
Reply with quote

Quote:
could you please help me to come out of this situation....


not until You post what was requested

post also the procedure used to run the rexx script
Back to top
View user's profile Send private message
pradeepkit
Warnings : 1

New User


Joined: 25 Jun 2008
Posts: 60
Location: chennai

PostPosted: Sun Apr 05, 2009 6:45 pm
Reply with quote

Sorry please find it

Code:
//JOBNAMER JOB (00017),'REXX',CLASS=A,REGION=4500K,           
//         MSGCLASS=Z,NOTIFY=&SYSUID,TIME=NOLIMIT             
//***********************************************************
//ISPFBACK EXEC PGM=IKJEFT01,DYNAMNBR=25,REGION=1024K         
//***********************************************************
//ISPPROF  DD DISP=(,DELETE),UNIT=SYSDA,SPACE=(TRK,(5,5,10)),
//            DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=3120)   
//ISPPLIB  DD DSN=WLP0.SYSC.ISRPLIB,DISP=SHR                 
//         DD DSN=WLP0.WLPPLIB,DISP=SHR                       
//         DD DSN=WLP1.ISRPLIB,DISP=SHR                       
//         DD DSN=SPPP.FILEAID.IMS.ISPPLIB,DISP=SHR           
//         DD DSN=ISP.SISPPENU,DISP=SHR                       
//         DD DSN=WLP1.CAI.CAIISPP,DISP=SHR                   
//         DD DSN=USER.ISP.ISPPLIB,DISP=SHR                   
//         DD DSN=WLP1.OPSMVS.WLP1.OPSPLIB,DISP=SHR           
//         DD DSN=WLP1.OPSMVS.WLP1.COMMON.ISPPLIB,DISP=SHR   
//         DD DSN=CBC.SCBCPNL,DISP=SHR                       
//         DD DSN=GDDM.SADMPNL,DISP=SHR                       
//         DD DSN=EOY.SEOYPENU,DISP=SHR                       
//         DD DSN=SYS1.SBPXPENU,DISP=SHR                     
//         DD DSN=SPPP.TBASE.V510.PANELS,DISP=SHR             
//ISPMLIB  DD DSN=WLP0.SYSC.ISRMLIB,DISP=SHR                 
//         DD DSN=ISP.SISPMENU,DISP=SHR                       
//         DD DSN=SPPP.FILEAID.IMS.ISPMLIB,DISP=SHR           
//         DD DSN=WLP1.CAI.CAIISPM,DISP=SHR                   
//         DD DSN=WLP1.ISRMLIB,DISP=SHR                       
//         DD DSN=USER.ISP.ISPMLIB,DISP=SHR               
//         DD DSN=WLP1.OPSMVS.WLP1.OPSMLIB,DISP=SHR       
//         DD DSN=WLP1.OPSMVS.WLP1.COMMON.ISPMLIB,DISP=SHR
//         DD DSN=CBC.SCBCIMG,DISP=SHR                     
//         DD DSN=GDDM.SADMMSG,DISP=SHR                   
//         DD DSN=EOY.SEOYMENU,DISP=SHR                   
//         DD DSN=SYS1.SBPXMENU,DISP=SHR                   
//         DD DSN=SPPP.TBASE.V510.MESSAGES,DISP=SHR       
//ISPSLIB  DD DSN=WLP0.SYSC.ISRSLIB,DISP=SHR               
//         DD DSN=ISP.SISPSLIB,DISP=SHR                   
//         DD DSN=SPPP.FILEAID.IMS.ISPSLIB,DISP=SHR       
//         DD DSN=ISP.SISPSENU,DISP=SHR                   
//         DD DSN=WLP1.CAI.CAIISPS,DISP=SHR               
//         DD DSN=WLP1.ISRSLIB,DISP=SHR                   
//         DD DSN=USER.ISP.ISPSLIB,DISP=SHR               
//         DD DSN=WLP1.OPSMVS.WLP1.OPSSLIB,DISP=SHR       
//         DD DSN=WLP1.OPSMVS.WLP1.COMMON.ISPSLIB,DISP=SHR
//         DD DSN=CBC.SCBCSKL,DISP=SHR                     
//         DD DSN=SPPP.TBASE.V510.SKELETON,DISP=SHR       
//ISPTLIB  DD DSN=WLP0.SYSC.ISRTLIB,DISP=SHR               
//         DD DSN=WLP1.ISP.SISPTENU,DISP=SHR               
//         DD DSN=SPPP.FILEAID.IMS.ISPTLIB,DISP=SHR       
//         DD DSN=ISP.SISPTENU,DISP=SHR                   
//         DD DSN=WLP1.CAI.CAIISPT,DISP=SHR               
//         DD DSN=WLP1.ISRTLIB,DISP=SHR                   
//         DD DSN=USER.ISP.TABLELIB,DISP=SHR               
//         DD DSN=WLP1.OPSMVS.WLP1.OPSTLIB,DISP=SHR         
//         DD DSN=WLP1.OPSMVS.WLP1.COMMON.ISPTLIB,DISP=SHR 
//         DD DSN=EOY.SEOYTENU,DISP=SHR                     
//         DD DSN=SYS1.SBPXTENU,DISP=SHR                   
//         DD DSN=SPPP.TBASE.V510.TABLE,DISP=SHR           
//*                                                         
//ISPLOG DD  DISP=(,DELETE),UNIT=SYSDA,SPACE=(TRK,(5,5,10)),
//           DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=3120) 
//*                                                         
//ISPLLIB  DD DISP=SHR,DSN=WLP0.SYSC.ISRLLIB               
//         DD DISP=SHR,DSN=SPPP.FILEAID.IMS.LOAD           
//         DD DISP=SHR,DSN=WLP1.ISRLLIB                     
//         DD DISP=SHR,DSN=USER.ISP.ISPLOAD                 
//         DD DISP=SHR,DSN=SYS3.NDM.LINKLIB                 
//SYSEXEC  DD DISP=SHR,DSN=WLP0.SYSC.ISREXEC               
//         DD DISP=SHR,DSN=WLP1.ISREXEC                     
//         DD DISP=SHR,DSN=WLP1.OPSMVS.WLP1.REXX           
//         DD DISP=SHR,DSN=WLP1.OPSMVS.WLP1.COMMON.USERREXX
//         DD DISP=SHR,DSN=WLP1.OPSMVS.WLP1.COMMON.ISPREXX 
//         DD DISP=SHR,DSN=SYS1.SBPXEXEC                   
//         DD DISP=SHR,DSN=USER.TEST.JCLCHEK1.TOOL         
//         DD DISP=SHR,DSN=ISP.SISPEXEC                     
//SYSPROC  DD DSN=WLP0.SYSC.ISRCLIB,DISP=SHR               
//         DD DSN=WLP1.ISRCLIB,DISP=SHR                     
//         DD DSN=ISP.SISPCLIB,DISP=SHR                     
//         DD DSN=USER.ISP.CLIST,DISP=SHR                       
//         DD DSN=WLP1.OPSMVS.WLP1.FBCLIST,DISP=SHR             
//         DD DSN=WLP1.OPSMVS.WLP1.COMMON.FBCLIST,DISP=SHR     
//         DD DSN=WLP1.CAI.CAICLIB,DISP=SHR                     
//         DD DSN=CBC.SCBCUTL,DISP=SHR                         
//         DD DSN=GDDM.SADMSAM,DISP=SHR                         
//         DD DSN=EOY.SEOYCLIB,DISP=SHR                         
//         DD DSN=SPPP.TBASE.V510.CLIST,DISP=SHR               
//SYSTSPRT DD SYSOUT=*                                         
//SYSTSIN  DD *                                                 
    PROFILE PREFIX(AB60399)                                     
    ISPSTART CMD(%JJCHECK3 ) -                                 
    AB60399.PACKAGE.JCFILE.S9253                               
/*                                                             
//*                                                             
//***********************************************************   
//STEP02   EXEC PGM=IEFBR14                                     
//***********************************************************   
//DD02     DD DSN=USER.TEST.JCLCHECK.REPORT,                   
//            DISP=(MOD,DELETE,DELETE),                         
//            UNIT=TESTDA,                                     
//            SPACE=(TRK,1)                                     
//*                                           


this is the jcl used by me to run the rexx code ,
here

ISPSTART CMD(%JJCHECK3 ) -
AB60399.PACKAGE.JCFILE.S9253

is replaced by the ISPSTART CMD(%JJCHECK3 dataset1 dataset 2)

thru rexx program i am using to invoke this jcl....
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Sun Apr 05, 2009 6:49 pm
Reply with quote

one of the reason for the error is that the isplog is a sequential dataset,
Your commented out allocation is for PO
Code:
//* //ISPLOG DD DISP=(,DELETE),UNIT=SYSDA,SPACE=(TRK,(5,5,10)),
// DCB=(DSORG=P,RECFM=FB,LRECL=80,BLKSIZE=3120)
//* 


try changing to a PS dataset
Back to top
View user's profile Send private message
pradeepkit
Warnings : 1

New User


Joined: 25 Jun 2008
Posts: 60
Location: chennai

PostPosted: Sun Apr 05, 2009 7:01 pm
Reply with quote

Hi ,

as suggested by you i changed the DSORG as PS and then try to tun my code

but still i am getting this error


SYS09095.T062738.RA000.AB60399R.R0723564 was preallocated (no free was done).
READY
END

I think this is the only problem why i am getting not correct output as when this message is not coming the macro i am using giving correct result.

please let me know if i am wrong....
Back to top
View user's profile Send private message
pradeepkit
Warnings : 1

New User


Joined: 25 Jun 2008
Posts: 60
Location: chennai

PostPosted: Fri Apr 10, 2009 4:20 pm
Reply with quote

Hi ,

I have a doubt please let me know the correct logic behind it .

i have seen one thing in my code i am assigning this dataset AB60399.SPFTEMP1.CNTL and when this dataset is getting deleted after execution then my output is coming correct but when this is not getting deleted then output is not correct the macro is returning wrong code .

this is a childish question but is there any link of this to getting correc output it is always assigned to a ddname ISP0*

please give me the reason....
Back to top
View user's profile Send private message
pradeepkit
Warnings : 1

New User


Joined: 25 Jun 2008
Posts: 60
Location: chennai

PostPosted: Mon Apr 20, 2009 11:12 am
Reply with quote

Hi ,

Please provede me a solution as i am still stuck in this tool .
This is working fine in the online mode only concern is batch.

Now i am using isplog as

//ISPLOG DD DISP=NEW,DSN=&TEMP,UNIT=3390

when i used this first time it worked fine for 3 , 4 times after that it stopeed working fine .

Jcl is not giving any error . I this JCL is not able to invoke the macro properly as only the macro is not giving correct solution ... it is giving RC as 16.

please help me.....
Back to top
View user's profile Send private message
MBabu

Active User


Joined: 03 Aug 2008
Posts: 400
Location: Mumbai

PostPosted: Mon Apr 20, 2009 11:34 am
Reply with quote

You may need to preallocate ISPCTL0 and ISPCTL1 also. See the ISPF planning and customization guide. The message about the data set not being freed probably has no bearing on if the macros work, but you can always create cataloged temporary data sets in a previous step and allocate them old,delete in the ISPF step

You said you start the program with
Code:
ISPSTART CMD(%JJCHECK3 ) -                                 
    AB60399.PACKAGE.JCFILE.S9253         

This will be invalid because the command is %JJCHECK3 and the AB60399.PACKAGE.JCFILE.S9253 will be an invalid parameter to ISPSTART. Put the data set name inside the parenthesis.
Back to top
View user's profile Send private message
pradeepkit
Warnings : 1

New User


Joined: 25 Jun 2008
Posts: 60
Location: chennai

PostPosted: Mon Apr 20, 2009 11:52 am
Reply with quote

Hi MBabu ,

Can you please tell me how to preallocate ISPCTL0 and ISPCTL1 .

I am searching in the ISPF planning and customizing guide it is taking much time . Can you help me ....
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Mon Apr 20, 2009 12:00 pm
Reply with quote

Quote:
I am searching in the ISPF planning and customizing guide it is taking much time


why do You think that Your time is more valuable than our' s
You are getting paid to do your job,
the help You are getting here is on our time and free of charge
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF Goto page 1, 2  Next

 


Similar Topics
Topic Forum Replies
No new posts Compile Several JCL JOB Through one r... CLIST & REXX 4
No new posts HILITE on Browse mode? TSO/ISPF 2
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
Search our Forums:

Back to Top