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

Truncation in members created using File Tailoring


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

Senior Member


Joined: 29 Jul 2008
Posts: 1020
Location: India

PostPosted: Tue Feb 09, 2010 12:12 pm
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

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Tue Feb 09, 2010 12:20 pm
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: 1020
Location: India

PostPosted: Tue Feb 09, 2010 2:30 pm
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

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Tue Feb 09, 2010 2:32 pm
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: 1020
Location: India

PostPosted: Tue Feb 09, 2010 2:44 pm
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

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Tue Feb 09, 2010 2:48 pm
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: 1020
Location: India

PostPosted: Tue Feb 09, 2010 2:54 pm
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: 8797
Location: Welsh Wales

PostPosted: Tue Feb 09, 2010 3:19 pm
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: 1020
Location: India

PostPosted: Tue Feb 09, 2010 3:26 pm
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts Compare 2 files and retrive records f... DFSORT/ICETOOL 0
No new posts FTP VB File from Mainframe retaining ... JCL & VSAM 8
No new posts Extract the file name from another fi... DFSORT/ICETOOL 6
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
Search our Forums:

Back to Top