Using File Mangaer in JCL to truncate chars above 50

kalyanp_80 · New User Joined: 03 Feb 2006 Posts: 41 Location: Hyderabad

Hi,

I am new to File Manager. But I have a requirement whcih asks me to use File Manager in JCL step.

My requirement is to create a FileManager batch job step to blank characters > 50 for column starting in 10 location and size is 70 characters. Suppose for a record if this column has 50 chars I should not touch this record, but if a record has anything greater than 50 I should delete characters after 50.

Thanks in advance!

Amith Patalay

guptae · Posted: Fri Feb 23, 2007 11:30 am

Hi There,

Would u please provide example of i/p & o/p?

kalyanp_80 · New User Joined: 03 Feb 2006 Posts: 41 Location: Hyderabad

Ekta,

My input record is lil big :-). I will try to illustrate my requirement with simple example:

Assume my input file is FB with RECL = 10 and it has following input:
AAAAAAAAAA
BBBBB
CCCCCCC
DDD

Now my requiremnt is to copy only 5 positions of input file to output file. It should truncate all the data above > 5. Out put will look lie below:

AAAAA
BBBBB
CCCCC
DDD

Thanks
Amith

abyss232006 · New User Joined: 31 Jan 2007 Posts: 3 Location: Kokata

Hi Amith,
You can do it using icetool or DFSORT and 'OUTREC' formatting
Please find the below example

//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD *
AAAAAAAAAAAAAAAAAAAAAAA
BBBBBBBBBBBB
CCCCCCCCCCCCCCCCCCCCCCCCC
//OUT DD SYSOUT=*
//TOOLIN DD *
*REFORMAT THE IN1 DATA SET SO IT CAN BE SPLICED
COPY FROM(IN1) TO(OUT) USING(CTL1)
/*
//CTL1CNTL DD *
*USE OUTFIL OUTREC TO REMOVE THE SEQUENCE NUMBER
OUTFIL FNAMES=OUT,OUTREC=(1,05)
/*
[/code]

In case of DFsort you can use the control statement accordingly