× 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 Peter - did not mean to suggest your idea was laughable - more meant to be light-hearted in my disagreement.

Email is so hard to convey intent with!

The discussion had gone to CMPPFM, so I focused on that. Rob rightly pointed out that this probably needs to be automated.

Now I did go look at the original post - seems the OP is receiving something, so it might be IFS. That isn't clear, since there's no CPY or CPYFRMIMPF or CPYFRMSTMF in the CL code he/she presented.

If it IS in the non-library IFS, your solution is very cool. I don't know if your approach can be used with PFs - maybe, if it is really a flat file as described - PF created with RCDLEN only.

Anyhow, apologies again!

Cheers
Vern

----- Original Message -----
Oh, I thought that flat file meant the discussion was about a stream file. My mistake.
I'm a bit disappointed that you find my suggestion laughable.

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Vern Hamberg
Sent: Tuesday, 23 July 2013 7:51 a.m.
To: Midrange Systems Technical Discussion
Subject: Re: Flat file comparision

LOL Peter - I do have to disagree about simplicity - option 54 and F4 in PDM, fill in a couple blanks, maybe choose the summary option - ba-da-boom!

----- Original Message -----
I still think it doesn't get much easier than the example I posted using the cmp command

CHGVAR &CMD ('cmp -s' *BCAT &FILE1 *BCAT &FILE2) QSH CMD(&CMD) RCVMSG MSGTYPE(*COMP) MSGDTA(&MSGDTA) MSGID(&MSGID) IF (&MSGID=QSH0005 *AND %BIN(&MSGDTA)=1 ) DO
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Files are different') ENDDO

Peter

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of A Paul
Sent: Tuesday, 23 July 2013 5:38 a.m.
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.


--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.

#####################################################################################

This correspondence is for the named person's use only. It may contain confidential or legally privileged information, or both. No confidentiality or privilege is waived or lost by any mistransmission. If you receive this correspondence in error, please immediately delete it from your system and notify the sender. You must not disclose, copy or rely on any part of this correspondence if you are not the intended recipient.
Any views expressed in this message are those of the individual sender, except where the sender expressly, and with authority, states them to be the views of Veda.
If you need assistance, please contact Veda on either :- Australia 1300-762-207 or New Zealand +64 9 367 6200
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.


#####################################################################################

This correspondence is for the named person's use only. It may contain confidential
or legally privileged information, or both. No confidentiality or privilege is waived
or lost by any mistransmission. If you receive this correspondence in error, please
immediately delete it from your system and notify the sender. You must not disclose,
copy or rely on any part of this correspondence if you are not the intended recipient.
Any views expressed in this message are those of the individual sender, except where
the sender expressly, and with authority, states them to be the views of Veda.
If you need assistance, please contact Veda on either :-
Australia 1300-762-207 or New Zealand +64 9 367 6200

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
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.