Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
Skeleton FTCLOSE problem

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
Author Message
amitava
Warnings : 1

Active User


Joined: 30 Oct 2005
Posts: 192
Location: India

PostPosted: Fri Aug 25, 2006 8:56 am    Post subject: Skeleton FTCLOSE problem
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
References
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 1973
Location: Israel

PostPosted: Fri Aug 25, 2006 1:49 pm    Post subject:
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: 192
Location: India

PostPosted: Mon Aug 28, 2006 12:40 pm    Post subject:
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
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1