View previous topic :: View next topic
|
Author |
Message |
Ramanan-R
New User
Joined: 21 Mar 2007 Posts: 66 Location: Chennai, Tamilnadu, India
|
|
|
|
Hi All ,
I have an input file of LRECL 1700. It has a COMP value at column 1386.
The requirement is to initialize it with zeros. Its in S9(8) COBOL data type.
Can we achieve this using ICETOOL?
Thanks in advance.
Regards,
Ramanan R |
|
Back to top |
|
|
murmohk1
Senior Member
Joined: 29 Jun 2006 Posts: 1436 Location: Bangalore,India
|
|
|
|
Ramanan,
Quote: |
Can we achieve this using ICETOOL? |
Sure.
Code: |
OUTREC FIELDS=(1386:8Z) |
The above code moves 8 binary zeroes at 1386 col. Please change according to your requirement. |
|
Back to top |
|
|
Ramanan-R
New User
Joined: 21 Mar 2007 Posts: 66 Location: Chennai, Tamilnadu, India
|
|
Back to top |
|
|
Binaya
New User
Joined: 03 Jul 2007 Posts: 77 Location: Hyderabad
|
|
|
|
You are correct Ramanan..
But as you mentioned " Its in S9(8) COBOL data type. "
Murali has Ignored that "It has a COMP" |
|
Back to top |
|
|
murmohk1
Senior Member
Joined: 29 Jun 2006 Posts: 1436 Location: Bangalore,India
|
|
|
|
Ramanan & Binaya,
Good point. |
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Code: |
OUTREC FIELDS=(1386:4Z)
|
This is the correct initialization value but the use of FIELDS will result in only having that one field in the output record. The rest of the input record will be lost. Here's a DFSORT job to init. just that field without changing the rest of the record:
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB/1700)
//SORTOUT DD DSN=... output file (FB/1700)
//SYSIN DD *
OPTION COPY
INREC OVERLAY=(1386:4Z)
/*
|
Quote: |
Can we achieve this using ICETOOL? |
If you want to use DFSORT's ICETOOL, you could use this job:
Code: |
//S2 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=... input file (FB/1700)
//OUT DD DSN=... output file (FB/1700)
//TOOLIN DD *
COPY FROM(IN) TO(OUT) USING(CTL1)
/*
//CTL1CNTL DD *
INREC OVERLAY=(1386:4Z)
/*
|
|
|
Back to top |
|
|
|