MVSFORUMS.com

[binoy]

Hi,
I have a requirement as stated below:

I have to write a Rexx Macro that will help me edit a dataset.
The dataset will contain some data as below

----.----1----.----2----.----3----.----4----.----5-

****************************************************
0 B T S 3270 FORMATTED SCREEN IMAGE. MID/MOD= G

*01* SIGNOFF
3C- 30 3C
*02*

*03* SIGNOFF HAS COMPLETED SUCESSFULLY
****************************************************

Here i have to edit the dataset to keep only the blocks from *01*
to *02* with all the lines in between .

eg :
----.----1----.----2----.----3----.----4----.----5-

****************************************************
*01* SIGNOFF
3C- 30 3C
*02*
****************************************************

I feel this can be achieved by 2 ways : 1
by placing a label (a) on line on which we find *01*
similarly placing a label (b) on line on which we find *02*
and then xclude those line in the dataset keep doing this till end of
dataset.

or 2nd way is :

by placing a character "a" on column 1 of the line on which we find
*01*
similarly
by placing a character "b" on column 1 of the line on which we find
*02*
and then xclude those line in the dataset keep doing this till end of
dataset.

Could some on help me with the REXX code for the same.
and also if we could get the line number of the line on which we find
*01* we can use it for some processing.

Thanks & Regards,
Brij

[taltyman]

This should at least get you going...