Quantcast
Channel: IBM Mainframe Computers Forums
Viewing all articles
Browse latest Browse all 8500

DFSORT/ICETOOL :: RE: Converting Variable block file to Fixed block file

$
0
0
Author: Rohit Umarjikar
Posted: Fri May 19, 2017 10:23 pm (GMT 5.5)

Right Arun Raj, it was test data I tested with and did not change the include with TS stuff.
Code:
//JS040   EXEC PGM=ICETOOL                                 
//TOOLMSG  DD SYSOUT=*                                     
//DFSMSG   DD SYSOUT=*                                     
//IN       DD DSN=RX00510.TEST.VB,DISP=SHR                 
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
//T2 DD SYSOUT=*                                           
//TOOLIN   DD *                                           
   COPY FROM(IN) USING(CTL1)                               
   RESIZE FROM(T1) TO(T2) TOLEN(2) USING(CTL2)             
//CTL1CNTL DD *                                           
   OUTFIL FNAMES=(T1),VTOF,BUILD=(5,32746)                 
//CTL2CNTL DD *                                           
   OUTFIL FNAMES=(T2),INCLUDE=(1,80,CH,NE,C' ')

_________________
Regards,
Rohit Umarjikar
"Knowledge is knowing that a tomato is a fruit, but Wisdom is knowing not to put it in a fruit salad."icon_razz.gif


Viewing all articles
Browse latest Browse all 8500

Trending Articles