Re: Flat file comparision -- MIDRANGE-L

Sorry I didn't post my question properly. I would have to insert the new code
CMPPFM NEWFILE(&LIB/ADM.FILE) OLDFILE(&LIB/ADMFILE) OUTPUT(*OUTFILE)
OUTFILE(&LIB/COMPARE)

in the below code before CALL PGM(ADMPGMC), I need to check to see if the differences 0 then send an email with SNDM (' files are same ')

or if different , do not do anything and proceed to next step CLRPFM FILE(&LIB/ADMPGMC).

So my question is since the COMPARE file is not column oriented file, how to read this file and  check for the difference ( if difference is 0)AND incorporate into the code 0 and send an email subsequently ?

      IF         COND(Z10_A = 'ADMFILE' & Z10_B = &LIB) THEN(DO)

ALCOBJ     OBJ((Z10_B/Z10_A *FILE *EXCL)) WAIT(500)
   MONMSG     MSGID(CPF1002 CPF1085) EXEC(GOTO CMDLBL(RETRY))
   CALL       PGM(ADMPGMC)
   CLRPFM     FILE(&LIB/ADM.FILE)
   MONMSG     MSGID(CPF3142) EXEC(CRTPF FILE(&LIB/ADM.FILE)

CPYF       FROMFILE(&LIB/ADMFILE) TOFILE(&LIB/ADM.FILE) MBROPT(*REPLACE)
   COMMANDC   P1(ADM.FILE) P2(&LIB)
   DLTF       FILE(&LIB/ADMFILE)
   ENDDO

________________________________
From: Gary Thompson <gthompson@xxxxxxxxxxx>
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Sent: Monday, 22 July 2013, 13:46
Subject: RE: Flat file comparision

Note that 187 lines "match"
Note that 0 lines are reported for each of the 7
    possible types of change (PAIRED+NONPAIRED,REFORMATTED,etc).

I hope this helps answer your question.

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of A Paul
Sent: Monday, July 22, 2013 11:38 AM
To: Midrange Systems Technical Discussion
Subject: Re: Flat file comparision

Thanks. I did CMPPFM , here is my *output into a file. Could you help me how to read this file and send message if there are no differences btw files.

File . . . . . . :   COMPARE             Library . . . . :   ADMLIB Member . . . . . :   COMPARE             Record . . . . . :   1 Control . . . . .                       Column . . . . . :   1 Find . . . . . .
.
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+....3
1      IBM COMPARE V6R1M0 080215                                      07/22/13    11:12                PAGE            1
NEW:      ADMLIB/ADMFILE(ADMFILE)                               OLD:
ADMLIB/ADM.FILE(ADM.FILE)

                      LINE COMPARE SUMMARY AND
STATISTICS

NUMBER OF LINE MATCHES...............................................:       187
TOTAL CHANGES (PAIRED+NONPAIRED
CHNG)................................:         0
REFORMATTED LINES....................................................:         0
PAIRED CHANGES (REFM+PAIRED INS/DEL).................................:         0
NEW FILE LINE INSERTIONS.............................................:         0
NON-PAIRED INSERTS...................................................:         0
OLD FILE LINE DELETIONS..............................................:         0
NON-PAIRED DELETIONS.................................................:         0
NEW FILE LINES
PROCESSED.............................................:       187
OLD FILE LINES PROCESSED.............................................:       187

LISTING-TYPE = DIFF     PHYSICAL-COMPARE-COLUMNS =    1:266    LONGEST LINE = 266
PROCESSING OPTIONS SPECIFIED :
NONE

________________________________
From: Mark S Waterbury <mark.s.waterbury@xxxxxxxxxxxxx>
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Sent: Saturday, 20 July 2013, 12:16
Subject: Re: Flat file comparision

CMPPFM does not look at "attributes" of the files, but just compares the
data in the physical file members.

Why not try this command, before ruling it out? =-O

On 7/20/2013 11:58 AM, A Paul wrote:
I believe CMPPFM display that two files are different(even if two files are identical in terms of contents of the files) if it finds differences in timestamp fields. My vendor sends a file everyday and it does not have date in it, I am only

looking to compare the content of the files and if both are identical throw an alert. I don't think CMPPFM may work.

File . . . . . . : COMPARE Library . . . . : ADMLIB
Member . . . . . : COMPARE Record . . . . . : 1
Control . . . . . Column . . . . . : 1
Find . . . . . . .
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+....3
1 IBM COMPARE V6R1M0 080215 07/22/13 11:12 PAGE 1
NEW: ADMLIB/ADMFILE(ADMFILE) OLD: ADMLIB/ADM.FILE(ADM.FILE)

LINE COMPARE SUMMARY AND STATISTICS

NUMBER OF LINE MATCHES...............................................: 187
TOTAL CHANGES (PAIRED+NONPAIRED CHNG)................................: 0
REFORMATTED LINES....................................................: 0
PAIRED CHANGES (REFM+PAIRED INS/DEL).................................: 0
NEW FILE LINE INSERTIONS.............................................: 0
NON-PAIRED INSERTS...................................................: 0
OLD FILE LINE DELETIONS..............................................: 0
NON-PAIRED DELETIONS.................................................: 0
NEW FILE LINES PROCESSED.............................................: 187
OLD FILE LINES PROCESSED.............................................: 187

LISTING-TYPE = DIFF PHYSICAL-COMPARE-COLUMNS = 1:266 LONGEST LINE = 266
PROCESSING OPTIONS SPECIFIED : NONE