The following is a list of the valid keywords for the PRINTLOG command. For detailed information regarding these keywords, see Keywords:
This is an example of the full change log report including the header and summary information. This example prints EDIT changes to the customer file that were recorded in the change log file in CHARACTER format. The report that follows shows a record that was changed, inserted, and deleted. Changed characters are underlined with an asterisk (*).
PRINTLOG, LOGFILE(USER.LOGFILE)
Change Log Report File: USER.CUSTFILE FILE: USER.CUSTFILE LAYOUT DSN: USER.COPYLIB FILE TYPE: Sequential DATE: 2008/10/16 TIME: 11:22:58.45 AM Description: THIS TEST HAD A CHANGE, THEN AN INSERT, THEN A DELETE Changed Record Date: 2008/10/16 Time: 11:23:28.91 AM Change Old & New Record Length = 135 pos ----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+----9----+----0 Old Record 1 10000100JACK FROST ETHEL DR. NEW HAVEN CT06032-1234 B <H % @ jl a @ k @ New Record 1 10000100JACK FROST ETHEL DR. OLD HAVEN CT06032-1934 B @H % @ jl a @ k @ *** * * * 101 @ o * | 101 @ o * Deleted Record Date: 2008/10/16 Time: 11:23:40.92 AM Delete Old Record Length = 135 pos ----+----1----+----2----+----3----+----4----+----5----+ ----6----+----7----+----8----+----9----+----0 Old Record 1 10000100JACK FROST ETHEL DR. NEW HAVEN CT06032-1234 B <H % @ jl a @ k @ 101 @ o * Change Log Summary File: USER.CUSTFILE S U M M A R Y R E P O R T Records Changed 1 Records Inserted 1 Records Deleted 1 *** CAWA2101I DDNAME LOGFILE records read: 10, selected=10 *** CAWA2550I PRINTLOG completed RC = 0 High RC = 0 CAWA2001I SYSLIST output was directed to SYSPRINT CAWA2000I Utility ending, Max CC=0
This example of the PRINTLOG command shows the hex format equivalent of example 1. Changed characters are underlined with an asterisk.
PRINTLOG, FORMAT(HEX)
Change Log Report File: USER.CUSTFILE Changed Record Date: 2008/10/16 Time: 11:23:28.91 AM Change Old & New Record Length = 135 pos ----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+----9----+----0 Old Record 1 10000100JACK FROST ETHEL DR. NEW HAVEN CT06032-1234 B <H % @ jl a @ k @ FFFFFFFFDCCD4CDDEE44444CECCD4CD4444444444DCE4CCECD444CEFFFFF6FFFF5C1714C5645122740932299286769876721 1000010011320696230000053853049B00000000055608155500033060320093422C73C82C01C57C02C45C13C17C62C74C63 New Record 1 10000100JACK FROST ETHEL DR. OLD HAVEN CT06032-1934 B @H % @ jl a @ k @ FFFFFFFFDCCD4CDDEE44444CECCD4CD4444444444DDC4CCECD444CEFFFFF6FFFF5C1717C5645122740932299286769876721 1000010011320696230000053853049B00000000063408155500033060320193422C73C82C01C57C08C45C13C17C62C74C63 *** * * * 101 @ o * 75915444444444444444444444444444444 C963C000000000000000000000000000000 101 @ o * 75915444444444444444444444444444444 C963C000000000000000000000000000000 Change Log Report File: USER.CUSTFILE Inserted Record Date: 2008/10/16 Time: 11:23:28.91 AM Insert New Record Length = 135 pos ----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+----9----+----0 New Record 1 10000647LUCKY LINDY OVERLOOK DRIVE MYSTIC CT06032-1934 B @H % @ JL A @ K @ FFFFFFFFDECDE4DCDCE4444DECDDDDD4CDCEC4444DEEECC444444CEFFFFF6FFFF5C1717C56451227409322DD2C676D876721 1000064734328039548000065593662049955000048239300000033060320193422C73C82C01C57C08C45C13C17C62C74C63 101 @ o * 75915444444444444444444444444444444 C963C000000000000000000000000000000 Change Log Report File: USER.SEQ.CUSTFILE Deleted Record Date: 2008/10/16 Time: 11:23:40.92 AM Delete Old Record Length = 135 pos ----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+----9----+----0 Old Record 1 10000100JACK FROST ETHEL DR. NEW HAVEN CT06032-1234 B <H % @ jl a @ k @ FFFFFFFFDCCD4CDDEE44444CECCD4CD4444444444DCE4CCECD444CEFFFFF6FFFF5C1714C5645122740932299286769876721 1000010011320696230000053853049B00000000055608155500033060320093422C73C82C01C57C02C45C13C17C62C74C63 101 @ o * 75915444444444444444444444444444444 C963C000000000000000000000000000000
This example of the PRINTLOG command shows how the records in the previous example would be displayed in single record format mode. The ddname LAYOUTDD references a PDS that contains the COBOL record layout definitions. The report that follows shows only changes to the first record. Changed records are prefaced by a greater-than sign (>).
PRINTLOG, LAYOUTFILE(LAYOUTDD), FORMAT(SINGLE)
Change Log Report File: USER.CUSTFILE Changed Record Date: 2008/10/16 Time: 11:23:28.91 AM Change Old Record New Record Old Record Length = 135 New Record Length = 135 Pos *----------FIELD NAME-------------* FORMAT *---+----1----+----2----+----3----+----4 *---+----1----+----2----+----3----+----4 1 01 CUSTOMER-RECORD 160 1 03 CUST-REC-TYPE C 1 1 2 03 CUST-ID C 7 0000100 9 03 CUST-NAME C 15 JACK FROST 24 03 CUST-STREET C 18 ETHEL DR. 42> 03 CUST-CITY C 12 NEW HAVEN OLD HAVEN 54 03 CUST-STATE C 2 CT 56> 03 CUST-ZIP-CODE C 10 06032-1234 06032-1934 56 03 CUST-ZIP-CODE2 10 56 05 CUST-ZIP N 5 06032 61 05 FILLER C 1 - 62> 05 CUST-ZIP-PLUS N 4 1234 1934 66 03 CUST-MNTHLY-PYMNTS (1) PS 3.2 55.23 69> 03 CUST-MNTHLY-PYMNTS (2) PS 3.2 771.34 771.37 72 03 CUST-MNTHLY-PYMNTS (3) PS 3.2 981.01 75 03 CUST-MNTHLY-PYMNTS (4) PS 3.2 405.11 78 03 CUST-MNTHLY-PYMNTS (5) PS 3.2 252.77 81> 03 CUST-MNTHLY-PYMNTS (6) PS 3.2 400.29 400.89 84 03 CUST-MNTHLY-PYMNTS (7) PS 3.2 342.52 87 03 CUST-MNTHLY-PYMNTS (8) PS 3.2 919.32 90 03 CUST-MNTHLY-PYMNTS (9) PS 3.2 816.77 93 03 CUST-MNTHLY-PYMNTS (10) PS 3.2 669.28 96 03 CUST-MNTHLY-PYMNTS (11) PS 3.2 776.47 99 03 CUST-MNTHLY-PYMNTS (12) PS 3.2 261.37 102 03 CUST-TOTAL-MNTHLY-PYMNTS PS 5.2 59961.35 106 03 FILLER C 30 X'404040404040404040404040404040404040' 124 X'404040404040404040404040'
|
Copyright © 2015 CA Technologies.
All rights reserved.
|
|