I have the following task to do:

PS file, VB records, different types.
Two types are in scope of interest:
SUMeeeeeeeNAME123456eeeeeeeeeee...
ABCeeeeeeeeeeeeeeeeeNAME123456eeeee

SUM and ABC are record identifiers.
NAME123456 is 10-char field I need to analyze
eeeee is irrelevant content.


The goal is to get list of NAMEs from ABC record, but only if exist SUM record with same NAME value.
Example:
input file
SUM       JOHN123456
SUM       BILL123456
ABC                              JOHN123456 anything
ABC                              JOHN123456 anythin2
XYZ irrelevant record
ABC                              MARIA23456 eeeeeee
WW$ another irrelevant record
ABC                              JOHN123456 anythin3
...
NAME in SUM is (10,10) - (offset,lentgh)
NAME in ABC is (92,10)
RECFM=VB  => add 4 to offset

desired output:
ABC                              JOHN123456 anything
ABC                              JOHN123456 anythin2
ABC                              JOHN123456 anythin3

MARIA and BILL are excluded


The only idea which come to my mind is to prepare two extracts and then use REXX script, which is far from efficient.

Any clue?


--
Radoslaw Skorupka
Lodz, Poland

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to