Re: Flat file comparision -- MIDRANGE-L

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