killms
New User
Joined: 17 Sep 2003 Posts: 16
|
|
|
|
hi,
I have a VSAM file in which the column 63 is value: 0 or 1 or 2 or 3.
Now, I want to change all the records in this file with 63 column are set to '1' where the 63 column values '0' now.
I.E. if there is a record in which the 63 column is '0', then change the record into '1' and other columns are kept unchanged.
Could ICEMAN do this job? |
|
priyesh.agrawal
Senior Member
Joined: 28 Mar 2005 Posts: 1448 Location: Chicago, IL
|
|
|
|
You can use this DFSORT/ICETOOL job:
Code: |
//S0P0 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=VSAM.FILE.NAME
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
//OUT DD DSN=VSAM.FILE.NAME
//TOOLIN DD *
COPY FROM(IN) TO(T1) VSAMTYPE(F) USING(CTL1)
COPY FROM(T1) TO(OUT)
/*
//CTL1CNTL DD *
OUTREC IFTHEN=(WHEN=(63,1,EQ,C'0'),OVERLAY=(63:C'1'))
/* |
Regards,
Priyesh. |
|