MVSFORUMS.com

[Max]

Can someone help me write an easytrieve job to generate a report for all occurances for a field(eg NAFM-H-CUST-NBR ) in the file below.

The report Im trying to generate will contain:

NAFM-COACCT
NAFM-H-CUST-NBR

Please Note: NAFM-NO-OF-HOLDERS is a key field : if <=1 there is only one holder for the policy and hence one occurance of NAFM-H-CUST-NBR. If > 1, there is more than 1 holder and multiple occurences of NAFM-H-CUST-NBR.


FILE MLAHLDER
NAFM-HOLDER-REC 1 2736 A
NAFM-KEY 1 28 A HEADING(' ' 'KEY')
NAFM-COACCT 1 8 A HEADING('CO' 'ACCT')
NAFM-CO 1 1 A HEADING('CO' ' ')
NAFM-ACCT 2 7 A HEADING('ACCT' ' ')
NAFM-LVL 9 2 A HEADING('LVL' ' ')
NAFM-POLICY 11 18 A HEADING('POLICY' ' ')
NAFM-POLICY-DATA 29 10 A HEADING('PLCY' 'DATA')
NAFM-POLICY-TYPE 29 1 A HEADING('PLCY' 'TYPE')
NAFM-FILLER1 30 9 A HEADING(' ' ' ')
NAFM-HOLDER-AREA 39 291 A HEADING('HLDR' 'AREA')
NAFM-NO-OF-HOLDERS 39 2 P 0 HEADING('NO' 'HLDRS')
NAFM-HOLDER-TABLE 41 91 A, +
OCCURS (12) HEADING('HLDR' 'TBL')
NAFM-H-STATUS 41 2 A HEADING('HLDR' 'STATS')
NAFM-H-STATUS-DATE 43 5 P 0 HEADING('STS' 'DATE')
NAFM-H-CUST-NBR 48 15 A HEADING('CUST' 'NBR')
NAFM-H-TITLE 63 8 A HEADING('TITLE' ' ')
NAFM-H-GIVEN-NAME 71 20 A HEADING('GIVEN' 'NAME')

[vijay]

try something like this
=======