Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

ISPG117 - abend code ISPFITLR

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

New User


Joined: 30 Aug 2006
Posts: 14
Location: Tampa, Florida

PostPosted: Thu Sep 28, 2006 12:30 am    Post subject: ISPG117 - abend code ISPFITLR
Reply with quote

On an FTOPEN in a REXX EXEC, I get the ISPG117 - abend code ISPFITLR.
I can't find this abend code; can anyone tell me what it is?

Immediately preceeding it, I got a RC=12 on an allocate statement. I was trying to allocate (ispfile) a JOB with an LRECL of 80 (recfm f b) and I suspect the generated lines went over 80 bytes but I can't tell.

Whatever the problem, it obviously caused the abend ISPFITLR but I can't find a description of that abend.

Also, when I get an RC=12 in REXX, is there a way to get a problem description? That is, I have no idea what caused the return code of 12- I'm just guessing it was the lrecl, after the symbolics in the lines were resolved.

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

UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 743
Location: Germany

PostPosted: Thu Sep 28, 2006 8:08 pm    Post subject:
Reply with quote

Hi !

An ISPFITLR seams to be an File-Tayloring-Service Error.
make shure that your Skeleton-lib is correctly allocatet to ISPSLIB.

If output from file tailoring is not to be placed in a temporary file, the
desired output file must be allocated to the ddname ISPFILE before
invoking this service. ISPFILE can designate either a library or a
sequential file. The skeleton files can contain variable-length records,
with a maximum record length of 255.

The simple way is, to write output to temporary file like ZTEMPF
or ZTEMPN.

Specifies that the output of the file tailoring process should
be placed in a temporary sequential file. Output is fixed-length
80-byte records. The file is automatically allocated by ISPF.
Its name is available in system variable ZTEMPF.

If this parameter is omitted, the output is placed in the
library or sequential file designated by ddname ISPFILE.

ZTEMPF contains a fully qualified data set name. ZTEMPN contains
the ddname. Generated JCL in this file can be substituted for
background execution by using the following TSO command: SUBMIT '&ZTEMPF'

Systemcode RC=12 using FTOPEN could be Output file in use; ENQ failed.

Here's a little FileTayloring example:

THEN DO
TEMPDSN = "IER1337.USER.JCL.S000"
TEMPJOB = "B92SPOOL"

ADDRESS TSO "ALLOC F(ISPFILE) DSN('"TEMPDSN"') SHR REUS"
ADDRESS ISPEXEC "FTOPEN "

ADDRESS ISPEXEC "FTINCL UMB92ALL"
ADDRESS ISPEXEC "FTINCL UMB92NAM"

ADDRESS ISPEXEC "FTCLOSE NAME("TEMPJOB")"
ADDRESS ISPEXEC "EDIT DATASET ('"TEMPDSN"("TEMPJOB")'"

ADDRESS TSO "FREE F(ISPFILE) "
END

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

New User


Joined: 30 Aug 2006
Posts: 14
Location: Tampa, Florida

PostPosted: Fri Sep 29, 2006 6:50 pm    Post subject: Re: ISPG117 - abend code ISPFITLR
Reply with quote

Thanx much! I found the problem on the prior "alloc" and it was in fact generating records greater than 80 bytes. Then the FTOPEN wouldn't work properly because the file was not allocated.

Part of the confusion was when I reran the REXX EXEC, I got a different error the next time, involving the FTOPEN. It turned out that logging out & back in again, made sure I only got the original error. Evidently after the failed allocation and FTOPEN, the file was left in some lurch and any attempts to run the EXEC again thus caused a different error and made things more confusing.

After fixing the alloc, the FTOPEN worked fine.

Thanx again,
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 How to Capture the Max return code of... anilkumar922 All Other Mainframe Topics 0 Thu Jan 12, 2017 12:02 pm
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm
No new posts PL/I code tuning/Performance improvement Virendra Shambharkar PL/I & Assembler 4 Mon Dec 05, 2016 11:57 am
No new posts What is the code in CLIST to enable t... jackzhang75 CLIST & REXX 1 Fri Dec 02, 2016 3:02 am
No new posts IDEAL - Code Retrieval yugendran CA Products 0 Fri Nov 25, 2016 3:27 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us