MVSFORUMS.com

sankar narayanan · Beginner Joined: 16 Oct 2007 Posts: 29 Topics: 12

Hi All,

I am having a input file of LRECL=1500.Here i am finding a particular string '12345' by using the PROC ISRSUPC.

Input:

Nic Clouston · Posted: Thu Jun 12, 2008 5:41 am Post subject:

As far as I am aware srchfor searches the entire file no matter what the LRECL - UNLESS YOU RESTRICT IT. I am not sure which option it is that speciifes the columns to be searched but "Help" should give you that.
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

sankar narayanan · Beginner Joined: 16 Oct 2007 Posts: 29 Topics: 12

Hi

Its finding the entire length.But the i need the output which appears in second line @ 361 column.

Nic Clouston · Posted: Thu Jun 12, 2008 5:51 am Post subject:

Then restrict the columns to be searched. CMPCLM or something like that springs to mind. I do not have an ISPF system to enquire on and the manuals are on a CD but my CD drive does not work so you will have to go into SRCHFOR and press the help key and find out for yourself
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

hari_uss · Posted: Thu Jun 12, 2008 5:44 pm Post subject:

Probably you are looking for LSTCOLM 361:365?

See complete list of SuperCE options at
http://publib.boulder.ibm.com/infocenter/zos/v1r9/index.jsp?topic=/com.ibm.zos.r9.f54u200/sceuo.htm

sankar narayanan · Beginner Joined: 16 Oct 2007 Posts: 29 Topics: 12

Hi

Actullay i am aware on LSTCOLM.But it never helps me on the excepted output.

Nic Clouston · Posted: Fri Jun 13, 2008 2:09 am Post subject:

No - you are not clear!!

Ah - but I think I understand what you are saying. Although search finds the line it only prints the first 72 columns. Nothing you can do about that because even using LONGLN it prints thenfirst 176 bytes only. No way around that using searchfor/superc - the output is designed for printng and printers have a limited width.

You could use DFSORT to search the record for your string (SS comes to mind) and output the rcord to a file if found. r you could write a little Rexx program to do a similar thing using INDEX or POS to find the string.
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

sankar narayanan · Beginner Joined: 16 Oct 2007 Posts: 29 Topics: 12

Hi Nic Clouston

If so can you please give me the JCL and REXX code on the same.

Nic Clouston · Posted: Mon Jun 16, 2008 3:28 am Post subject:

Have you got a Rexx manual?

No, I do not have a rexx program to hand. But it is very simple:

read the file (use EXECIO to read one record at a time)
do while rc = 0 (I think 400 is eof from EXECIO)
for each line use the POS or index function to find out if the string exists
if it does the write the line out to another file (ue EXECIO again)
read next record
end do
Exit

If your file is small you can read it in one go (use * with EXECIO) into a stem variable. stem.0 will be populated by EXECIO with the record count so your do loop becomes:

do i = 1 to stem.0

and you use POS or INDEX against stem.i

JCL is in the relevant manual and I am sure there are several examples on the board - seacrh for IKJEFT01 or even IKJEFT as there are different versions depending on the type of program being executed in batch.
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.