How to find the occurences of a literal.

abdulrafi · Posted: Tue Oct 13, 2009 7:04 pm

I have a file with two records which is like the one mentioned below:

record1: ABDUL00000000000000ABDULMMMMMMMMMMMMMMMABDULJJJJJJJJJJJJJJJ
record2: OOOOOOOOOOABDULIIIIIIIIIIIABDULNNNNABDULQQQQQQQQQQQQQQQ

Kindly give me a jcl to find the occurences of the name "ABDUL" from the two records so that the ouput should be 6. Note that the literal "ABDUL" is placed at different columns in the two records given

dick scherrer · Posted: Tue Oct 13, 2009 8:41 pm

Hello,

Why is this posted again here?

What about the same request in the IMS part of the forum. . .

d

Frank Yaeger · Posted: Tue Oct 13, 2009 9:34 pm

Abdul,

What is the RECFM and LRECL of the input file?

What is the maximum number of times ABDUL can be found in a record?

Is 2 the maximum number of records?

Would the output just be one record with the count? Or would it be the original records with an extra record with the count? Or what? Show the exact expected output for your input example.

abdulrafi · Posted: Fri Oct 16, 2009 3:59 pm

The RECFM is FB with LRECL as 80. There can be at the maximum of 100 records. I just want to find the count of "ABDUL" in each record.

This is my requirement.

Frank Yaeger · Posted: Fri Oct 16, 2009 9:02 pm

Again:

abdulrafi · Posted: Mon Oct 19, 2009 4:01 pm

The input should be as the one i have posted:
Input file:
ABDUL00000000000000ABDULMMMMMMMMMMMMMMMABDULJJJJJJJJJJJJJJJ
OOOOOOOOOOABDULIIIIIIIIIIIABDULNNNNABDULQQQQQQQQQQQQQQQ

Output file:
Count of "ABDUL" is : 6

This is how my output file has to look. Please give me a JCL to find it out

Frank Yaeger · Posted: Mon Oct 19, 2009 9:37 pm

You can use a DSORT job like the following to do what you asked for:

abdulrafi · Posted: Tue Oct 27, 2009 10:28 am

Hi,

Thanks for your help. The code is working fine.

Is there a more optimistic way to perform my operation or is this the only way we can?.

dick scherrer · Posted: Tue Oct 27, 2009 7:54 pm

Hello,

"optimistic" - possibly optimal?

What in the provided code do you want to change?

expat · Posted: Tue Oct 27, 2009 8:00 pm

If you take to mind that Frank is the guy that develops and maintains DFSORT / ICETOOL within IBM and he gives a solution to a problem, then his way will most certainly be the most optimal / optimistic / opthalmic solution.

Frank Yaeger · Posted: Tue Oct 27, 2009 9:34 pm

abdulrafi · Posted: Wed Oct 28, 2009 9:52 am

Ok frank. I have executed only your code. Thanks a lot.

Shaheen Kalokhe · New User Joined: 21 Feb 2008 Posts: 21 Location: India

Frank what eaxctly will the following statements do

IFTHEN=(WHEN=INIT,PARSE=(%01=(STARTAT=C'ABDUL',FIXLEN=5),
%02=(STARTAT=C'ABDUL',FIXLEN=5),
%03=(STARTAT=C'ABDUL',FIXLEN=5),
%04=(STARTAT=C'ABDUL',FIXLEN=5),
%05=(STARTAT=C'ABDUL',FIXLEN=5),
%06=(STARTAT=C'ABDUL',FIXLEN=5),
%07=(STARTAT=C'ABDUL',FIXLEN=5),
%08=(STARTAT=C'ABDUL',FIXLEN=5),
%09=(STARTAT=C'ABDUL',FIXLEN=5),
%10=(STARTAT=C'ABDUL',FIXLEN=5),
%11=(STARTAT=C'ABDUL',FIXLEN=5),
%12=(STARTAT=C'ABDUL',FIXLEN=5),
%13=(STARTAT=C'ABDUL',FIXLEN=5),
%14=(STARTAT=C'ABDUL',FIXLEN=5),
%15=(STARTAT=C'ABDUL',FIXLEN=5),
%16=(STARTAT=C'ABDUL',FIXLEN=5)),

What is the use of %01,%02....%16.

Frank Yaeger · Posted: Wed Oct 28, 2009 9:34 pm

For an Overview of DFSORT's PARSE function, see:

publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CG40/2.5?DT=20090519162426

DFSORT's PARSE function is explained in detail in my paper available at:

www.ibm.com/support/docview.wss?rs=114&uid=isg3T7000086

Shaheen Kalokhe · New User Joined: 21 Feb 2008 Posts: 21 Location: India

Thank you Frank for your reply. I will definetly have a look at the links given by you.