The following report is returned when you specify output-format code CD (Changes Report). It shows only the changes between the two files: that is, those lines that are in file-2 but not in file-1 (marked with %INSERT), or those lines that are missing from file-2 that were in file-1 (marked with %DELETE).
volser CA, INC. DATE TIME PAGE nn.n C A - E N D E V O R / D B mm/dd/yy 15:06:59 00001 NDVRCOMP FILE COMPARE UTILITY COMPARE COLUMN 1 TO 72 RECORD TYPE FIXED LENGTH 80 PAD = BLANK OUTPUT = CHANGES FORMAT = DISPLAY SIZE = 250 . INSERT ADD MODULE NAME IDMS-STATUS VERSION 2 LANGUAGE IS COBOL 000001 DELETE ADD MODULE NAME IDMS-STATUS VERSION 1 LANGUAGE IS COBOL 000001 INSERT IF DB-STATUS-OK GO TO IDMS-STATUS-EXIT. 000007 DELETE IF DB-STATUS-OK GO TO ISABEX. 000007 INSERT IF ERROR-STATUS = '0295' OR '0895' OR '0995' OR '1295' 000009 INSERT DISPLAY 'CA-ENDEVOR/DB AUTHORIZATION ERROR' 000010 INSERT UPON CONSOLE 000011 INSERT GO TO IDMS-STATUS-EXIT. 000012 INSERT DISPLAY 000013 INSERT 'PROGRAM ' PROGRAM-NAME ' ABORTING WITH ' 000014 INSERT 'ERROR STATUS ' ERROR-STATUS 000015 INSERT ' - NOTIFY DATABASE ADMINISTRATION GROUP' 000016 INSERT UPON CONSOLE. 000017 DELETE DISPLAY '**************************' 000009 DELETE ' ABORTING - ' PROGRAM-NAME 000010 DELETE ', ' ERROR-STATUS 000011 DELETE ', ' ERROR-RECORD 000012 DELETE ' **** RECOVER IDMS ****' 000013 DELETE UPON CONSOLE. 000014 INSERT IDMS-STATUS-EXIT. 000028 INSERT EXIT. 000029 DELETE ISABEX. EXIT. 000025 %****** RECORDS: FILE 1 = 00026 FILE 2 = 00030 INSERTS = 00013 DELETES = 00009 ******
The following report is returned when you specify output-format code HD (History Report). It lists the contents of file-2, highlighting inserts from file-2 and deletes from file-1.
volser CA, INC. DATE TIME PAGE nn.n C A - E N D E V O R / D B mm/dd/yy 15:08:14 00001 NDVRCOMP FILE COMPARE UTILITY COMPARE COLUMN 1 TO 72 RECORD TYPE FIXED LENGTH 80 PAD = BLANK OUTPUT = HISTORY FORMAT = DISPLAY SIZE = 250 . %INSERT ADD MODULE NAME IDMS-STATUS VERSION 2 LANGUAGE IS COBOL 000001 %DELETE ADD MODULE NAME IDMS-STATUS VERSION 1 LANGUAGE IS COBOL 000001 MODULE SOURCE 000002 ****************************************************************** 000003 IDMS-STATUS SECTION. 000004 ****************************************************************** 000005 IDMS-STATUS-PARAGRAPH. 000006 %INSERT IF DB-STATUS-OK GO TO IDMS-STATUS-EXIT. 000007 %DELETE IF DB-STATUS-OK GO TO ISABEX. 000007 PERFORM IDMS-ABORT. 000008 %INSERT IF ERROR-STATUS = '0295' OR '0895' OR '0995' OR '1295' 000009 %INSERT DISPLAY 'CA-ENDEVOR/DB AUTHORIZATION ERROR' 000010 %INSERT UPON CONSOLE 000011 %INSERT GO TO IDMS-STATUS-EXIT. 000012 %INSERT DISPLAY 000013 %INSERT 'PROGRAM ' PROGRAM-NAME ' ABORTING WITH ' 000014 %INSERT 'ERROR STATUS ' ERROR-STATUS 000015 %INSERT ' - NOTIFY DATABASE ADMINISTRATION GROUP' 000016 %INSERT UPON CONSOLE. 000017 %DELETE DISPLAY '**************************' 000009 %DELETE ' ABORTING - ' PROGRAM-NAME 000010 %DELETE ', ' ERROR-STATUS 000011 %DELETE ', ' ERROR-RECORD 000012 %DELETE ' **** RECOVER IDMS ****' 000013 %DELETE UPON CONSOLE. 000014 DISPLAY 'PROGRAM NAME ------ ' PROGRAM-NAME. 000018 DISPLAY 'ERROR STATUS ------ ' ERROR-STATUS. 000019 DISPLAY 'ERROR RECORD ------ ' ERROR-RECORD. 000020 DISPLAY 'ERROR SET --------- ' ERROR-SET. 000021 DISPLAY 'ERROR AREA -------- ' ERROR-AREA. 000022 DISPLAY 'LAST GOOD RECORD -- ' RECORD-NAME. 000023 DISPLAY 'LAST GOOD AREA ---- ' AREA-NAME. 000024 DISPLAY 'DML SEQUENCE ------ ' DML-SEQUENCE. 000025 ROLLBACK. 000026 CALL 'ABORT'. 000027 %INSERT IDMS-STATUS-EXIT. 000028 %INSERT EXIT. 000029 %DELETE ISABEX. EXIT. 000025 MSEND. 000030 %****** RECORDS: FILE 1 = 00026 FILE 2 = 00030 INSERTS = 00013 DELETES = 00009 ******
|
Copyright © 2013 CA.
All rights reserved.
|
|