IBM Mainframe Forum

Hi All,

I have an input dataset of DCB VB/260 and it contains the below information :





1. The starting position of the above record in VB input is 27(I mean the value 00:04:18.59 starts from position 27)
2. Input is a huge file and apart from the above information it has many other informations

My Requirement :

1. I want help in writing a Icetool control card.
2. It has to read the entire input and find the records with the keyword GSVC(GSVC is in position 57 of my VB input) and should place it in output along with the next three lines


My Required output :




With the below control card I am able to fetch the records, but I want the next three lines of the same record to be placed in output

My Copy Statement : COPY FROM(IN) TO(OUT) USING(GSVC)

My Controlcard :
OPTION VLSCMP
INCLUDE COND=(62,4,SS,EQ,C'GSVC')
OUTFIL VTOF,BUILD=(31,100,255:X)

My output file is of FB/255. Can somebody help me in this regard.

Thanks N Regards
Samvith

Hello and welcome to the forum,

Have you verified your system uses DFSORT? Is there some particular reason to use ICETOOL?

I believe you can do what you want with SORT. I also believe there are some examples of doing what you want in previous topics here on the forum.

Hi Dick,

Thank you in welcoming me. Yes, our system supports DFSORT. Can you please tell me where do I need to check for the previous examples. I will put my efforts to work with those examples.

Thanks N Regards

Hello,

Can you please tell me where do I need to check for the previous examples.

At the top of the page is a "search" feature. Suggest you look for PUSH and GROUP in the DFSORT/ICETOOL/ICEGENER part of the forum.

I would suggest you extend your stirng to match against as you have GSVC100W and GSVC201E but only the 100W records seem to match your criteria of having 3 records after them and your sample output appears to not want the 201E records.

Edit: please use the code tags to display your data. I have coded it for you and we can now see that the GSCV100W records start in a different column from the GSCV201E records. If you do not know how to use the code tags then lok around the forum.

Hi Nicc,

Thank you for your help in coding the tags. I have to learn on how to do it and will learn shortly.

Yes, I don't want the GSVC201E record and the subsequent line of it. I just wanted the records of GSVC100W and the subsequent 3 lines to be placed in output.

Thanks N Regards
Samvith

None of your output contains records less than 69 bytes long, so since you don't need them you can deal with them in OMIT/INCLUDE COND= and drop the VLSCMP

You have a single value (GSVC) which you search for in a field which is the same length. Use CH instead of SS (Sub-string Search).

You have 155 bytes of blanks on each output record. Is that necessary?

Also take NicC's comments into account.

You don't need ICETOOL to do this, a simple COPY in SORT will also work.



This defines a group of four records with a particular starting value. The starting value is copied to position five on each of the records of the group, and then only records with that value in position five are included in the OUTFIL.

Thanks Billy, for the above controlcard and suggestions. This controlcard worked out for me very well. Thanks once again.

Actually, as Dick suggested, I was looking on the older posts and in one of the posts I noticed commnents like"people post the query and wait for answers. They won't put their efforts in reading manuals". I felt it's true and I don't want be one of them and hence started searching for topics and trying to understand on PUSH/Group concept through manuls. In the mean time I saw your reply and tested it.

Thanks everyone for your support and suggestions.

Regards
Samvith

Samvith,

That is certainly a very good way to approach it. Find an example that you don't understand but which works. Then find out why it works. Then you'll understand, and be able to apply it to other situations.

I also suggest you look at using symbols/SYMNAMES. With these you give names to fields, rather than just the traditional start,length,type in the control cards.



This is the same set of control cards. I believe they are very much easier to read and maintain. Note that there is now no duplication of constants or record positions, and you know what everything is. Have a look, I think it'll save you much time - if your colleagues are OK with you knowing more than they do

Hi Billy,

The SYNAMES control card is also working fine for my requirement. Really, I learned a new concept through you in this forum. All these days I was using the traditional way of control cards and this is something new to me. Goingforward, I will try to use SYMNAMES for my future requirements.

Thanks once again.

Regards
Samvith