× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



 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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.