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
 

 

Truncation in members created using File Tailoring

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
sushanth bobby

Senior Member


Joined: 29 Jul 2008
Posts: 1013
Location: India

PostPosted: Tue Feb 09, 2010 12:12 pm    Post subject: Truncation in members created using File Tailoring
Reply with quote

Hi,

Following the skeleton,
Code:

---+----4----+----5----+----6----+----7----+----8
****** Top of Data ******************************
                                                 
-----------------------------------------------|
                                               |
        JOBNAME: &JNAME                        |
  DB2 SUBSYSTEM: &SSID                         |
        PROGRAM: &PNAME                        |
                                               |
                                               |


when looking into ISPF edit at the skeleton, the font color of the columns 73-79 is in yellow color and from 1-72 are in green, only the yellow portion is truncated in the members created using file tailoring.
Code:
--+----4----+----5----+----6----+----7----+----8
***** Top of Data ******************************
----------------------------------------       
                                               
       JOBNAME: DBKOCDNP                       
 DB2 SUBSYSTEM: DB2D                           
       PROGRAM: DSNUTILB                       
                                               


Can i know reason for the truncation & can you suggest me how can i resolve it ?

Thank You,
Sushanth
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10274
Location: italy

PostPosted: Tue Feb 09, 2010 12:20 pm    Post subject: Reply to: Truncation in members created using File Tailoring
Reply with quote

reading the manual would have given the reason
Quote:
Input records can have a maximum length of 255 bytes. For fixed-length records, the last eight character positions are considered to be a sequence number. The character preceding the last eight characters is considered to be the last input column. Variable-length input records are scanned up to the end of the record.


a quick and dirty google search with ispf file tailoring truncation
would have given the link to the manual
simple and effective, isn' t it icon_question.gif icon_cool.gif
Back to top
View user's profile Send private message
sushanth bobby

Senior Member


Joined: 29 Jul 2008
Posts: 1013
Location: India

PostPosted: Tue Feb 09, 2010 2:30 pm    Post subject:
Reply with quote

Hi enrico,

Since thats the case, i have extended the my skeleton size from 80 to 100 and output member size also to 100.

Below is the output, the lines in the right-side are not in proper order. Is there anything that can be done, to get it in proper order, like only the variables should be substituted, other character or space in the skeleton can be overlapped.
Code:
------------------------------------------------|           
                                                |           
         JOBNAME: DBKOCDNP                        |         
   DB2 SUBSYSTEM: DB2D                         |           
         PROGRAM: DSNUTILB                        |         
                                                |           

I also get this error while running rexx,
Code:
******************************************************************************
* ISPF156                                                                    *
*                                                                            *
* Output overflow                                                            *
* Line to be written greater than data set LRECL 100                         *
*                                                                            *
*                                                                            *
*                                                                            *
*                                                                            *
*                                                                            *
*                                                                            *
* File tailoring input line:                                                 *
* |  IMAGE COPY KOCDN DATABASE                                               *
*                                                                            *
* Enter HELP command for further information regarding this error.           *
* Press ENTER key to terminate the dialog.                                   *
*                                                                            *
*                                                                            *
*                                                                            *
*                                                                            *



Thank You,
Sushanth
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10274
Location: italy

PostPosted: Tue Feb 09, 2010 2:32 pm    Post subject: Reply to: Truncation in members created using File Tailoring
Reply with quote

is it so important to have the content of columns 73 to 80
Back to top
View user's profile Send private message
sushanth bobby

Senior Member


Joined: 29 Jul 2008
Posts: 1013
Location: India

PostPosted: Tue Feb 09, 2010 2:44 pm    Post subject:
Reply with quote

For this task, Yes Enrico. It happens to be the border of the document.

Sushanth
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10274
Location: italy

PostPosted: Tue Feb 09, 2010 2:48 pm    Post subject: Reply to: Truncation in members created using File Tailoring
Reply with quote

not the best way to get <flower boxes>
ispf skel processing IIRC does not do any alignment,
Your right side ( depending on the variable content) might look rippled!
Back to top
View user's profile Send private message
sushanth bobby

Senior Member


Joined: 29 Jul 2008
Posts: 1013
Location: India

PostPosted: Tue Feb 09, 2010 2:54 pm    Post subject:
Reply with quote

Thank You Enrico.

Have to do it manually, i guess.




Sushanth
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Tue Feb 09, 2010 3:19 pm    Post subject:
Reply with quote

What I usually do is to set the substituted variable to a particular length within the REXX code,

The skeleton looks like this
Code:
//*                                                   
//*        -------------------------------------------
//*        - JOB = &JOB -                             
//*        - DB2 = &DB2 -                             
//*        - XXX = &XXX -                             
//*        -------------------------------------------
//*                                                   
//STEP0010 EXEC PGM=IEFBR14                           

The REXX code sets lengths
Code:
JOB  = LEFT(JOBN,33)             
DB2  = LEFT('DB2NAME',33)         
XXX  = LEFT('SOME THING ELSE',33)

And the result is
Code:
//*                                                   
//*        -------------------------------------------
//*        - JOB = IEFB14                            -
//*        - DB2 = DB2NAME                           -
//*        - XXX = SOME THING ELSE                   -
//*        -------------------------------------------
//*                                                   
//STEP0010 EXEC PGM=IEFBR14                           
Back to top
View user's profile Send private message
sushanth bobby

Senior Member


Joined: 29 Jul 2008
Posts: 1013
Location: India

PostPosted: Tue Feb 09, 2010 3:26 pm    Post subject:
Reply with quote

Nice idea expat, Thanks
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 -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Fetching data from BAI File arunsoods JCL & VSAM 1 Wed Jul 19, 2017 4:28 pm
No new posts Write out NODUPS but just from one file Jay Villaverde DFSORT/ICETOOL 8 Fri Jul 14, 2017 12:44 am
No new posts How to add header with Date(YYMMDD) i... Rajan Moorthy DFSORT/ICETOOL 2 Thu Jul 06, 2017 11:44 pm
No new posts How to generate a new unique Input fi... for1ranjith CLIST & REXX 11 Sat Jul 01, 2017 12:09 pm
No new posts Writing a file using online program grvtomar PL/I & Assembler 3 Fri Jun 30, 2017 1:06 pm


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