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

Skeleton FTCLOSE problem


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

Active User


Joined: 30 Oct 2005
Posts: 186
Location: India

PostPosted: Fri Aug 25, 2006 8:56 am
Reply with quote

Hi All,
I am trying to throw a JCL through my REXX program using the ISPF SKELETON, but I am getting the following error (With rc = 20 and showing the following reason) -

FTCLOSE : 20 Module ISPFITLR received decimal return code 12, decimal reason code 0 from the STOW macro.

Corresponding code is shown below -
Code:

jobname = = delstr(segname,length(segname) - 1) || 'RJ'
"ftincl runjcl"                             
"ftclose name("jobname")"                   
say 'FTCLOSE : 'rc zerrlm


The variable jobname is coming fine and obviously the segname also. But I am not being able to locate the source of error generated. Please help me out and I am in urgent crisis.[/b]
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2358
Location: Israel

PostPosted: Fri Aug 25, 2006 1:49 pm
Reply with quote

Take a look at the following APAR.

O.
Back to top
View user's profile Send private message
amitava
Warnings : 1

Active User


Joined: 30 Oct 2005
Posts: 186
Location: India

PostPosted: Mon Aug 28, 2006 12:40 pm
Reply with quote

Hi Ofer71 & all,
Actually I have already resolved the problem. I want to share the solution with you. So please note the point -
From the error message, it is sure that it is somehow getting the STOW problem. So I did qw STOW - and then there if you look into; you will get the reason code, return code and corresponding description as below -
Code:

+------------------------------------------------------------------------+
? Figure 52. STOW Completion Codes                                       ?
+----------------------------------------------------------------------------?
? Return  ?                ?                       ?                                        ?
? Code    ? Reason    ? Directory         ?                                        ?
? (15)     ? Code (0)  ? Action              ? Meaning                           ?
+---------+-----------+--------------+------------------------------------?
? 00      ? 00        ? A, C, D, R   ? The update of the directory was   ?
? (X'00') ? (X'00')   ?              ? completed successfully.                 ?
+---------+-----------+--------------+-----------------------------------?
?         ? 00        ? I            ? The directory was cleared                 ?
?         ? (X'00')   ?              ? (initialized) successfully.                  ?
+---------+-----------+--------------+-----------------------------------?
?         ? 00        ? DISC         ? Function successful.                      ?
?         ? (X'00')   ?              ?                                                      ?
+---------+-----------+--------------+-----------------------------------?


From that I came to know that the FILE library (used to save the member for SKELS) is suffering from low directory-blocks. I changed the properties of the dataset and the problem is solved.
I think, this is very helpful while analyzing a problem like I had encountered.
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

 


Similar Topics
Topic Forum Replies
No new posts Map Vols and Problem Dataset All Other Mainframe Topics 2
No new posts z/vm installation problem All Other Mainframe Topics 0
No new posts Job scheduling problem. JCL & VSAM 9
No new posts Problem with IFTHEN=(WHEN=GROUP,BEGIN... DFSORT/ICETOOL 5
No new posts Need to add field to copybook, proble... COBOL Programming 14
Search our Forums:

Back to Top