The Library Maintenance mode provides the only means for maintaining the Reporting Facility call library. Using this library enables you to catalog frequently used statements or groups of statements for later retrieval.
You can enter Library Maintenance mode only by specifying the LIBRARY command. If you specify the LIBRARY command, it must be the first command in the input source stream.
CA 16:28:10 24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS VERSION nn.n PAGE 1 1 NOTE ************************************************ 2 NOTE * * 3 NOTE * THIS REPORTING FACILITY PROGRAM ILLUSTRATES * 4 NOTE * THE LIBRARY MAINTENANCE FACILITY. * 5 NOTE * SPECIFICALLY, THE LOAD, DISPLAY, AND * 6 NOTE * CONDENSE FUNCTIONS. * 7 NOTE * * 8 NOTE DRTEST10 LOAD TO DRLIB
CA 16:28:10 24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS VERSION nn.n PAGE 2 DRLIB - REPORTING FACILITY LIBRARY FILE MAINTENANCE - LOAD CALL NAME = TRANFILE CHECK REGISTER TRANSACTION FILE *** MEMBER UPDATED *** TRANS: FILE CARD DEF TRANSACTION-CODE 1 THRU 2 X ' ' DEF ID-NUMBER 3 THRU 6 X ' ' DEF AMOUNT 7 THRU 13 N2 DEF ACTIVITY-DATE 14 THRU 21 X 'DATE OF' 'ACTIVITY' DEF CLEARED 22 X DEF PAYEE 23 THRU 42 X DEF REASON 44 THRU 75 X
CA 16:28:10 24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS VERSION nn.n PAGE 3 DRLIB - REPORTING FACILITY LIBRARY FILE MAINTENANCE - LOAD CALL NAME = PMF010 DATABASE PERSONEL MASTER FILE *** MEMBER UPDATED *** ▼ Macro substitute parameter ┌─────┐ PMF010: FILE DATACOM │ :01 │ RECORD=329 └─────┘ DEFINE DB-COMMAND 1-5 X DEFINE DB-KEY-NAME 6-10 X DEFINE DB-ELEMENT-LIST 191-201 X DEFINE EMPLOYEE-NUMBER 301-305 X 'EMPLOYEE' ' NUMBER ' DEFINE NAME 306-329 X
CA 16:28:10 24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS VERSION nn.n PAGE 4 DRLIB - REPORTING FACILITY LIBRARY FILE MAINTENANCE - LOAD CALL NAME = PAY010 DATABASE PAYROLL FILE *** MEMBER UPDATED *** PAY010: FILE DATACOM :01 RECORD=340 DEFINE DB-COMMAND 1-5 X DEFINE DB-KEY-NAME 6-10 X DEFINE DB-KEY-VALUE 11-15 X DEFINE DB-ELEMENT-LIST 191-201 X DEFINE EMPLOYEE-CODE 306 X DEFINE STATUS 307 X DEFINE CURRENT-RATE 308-315 N3 ' CURRENT ' 'PAY RATE' DEFINE YTD-WAGES 316-323 N2 'YEAR-TO-DATE' ' WAGES' PIC '$$$,$$9.99' DEFINE YTD-COMMISSION 324-331 N2 'YEAR-TO-DATE' ' COMMISSION ' DEFINE YTD-TAXES 332-339 N2 'YEAR-TO-DATE' ' TAXES'
CA 16:28:10 24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS VERSION nn.n PAGE 5 DRLIB - REPORTING FACILITY LIBRARY FILE MAINTENANCE - LOAD CALL NAME = DECODE1 ALPHANUMERIC MONTH TRANSLATION TABLE *** MEMBER UPDATED *** DECODE :01 INTO :02 01 = 'JANUARY' 02 = 'FEBRUARY' 03 = 'MARCH' 04 = 'APRIL' 05 = 'MAY' 06 = 'JUNE' 07 = 'JULY' 08 = 'AUGUST' 09 = 'SEPTEMBER' 10 = 'OCTOBER' 11 = 'NOVEMBER' ELSE 'DECEMBER'
CA 16:28:10 24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS VERSION nn.n PAGE 6 DRLIB - REPORTING FACILITY LIBRARY FILE MAINTENANCE - LOAD CALL NAME = CARDFILE CUSTOMER/SALESMAN DATA FILE *** MEMBER UPDATED *** INPT: FILE CARD DEFINE NAME 1 TO 2 X DEFINE CUSTOMER-NUMBER 3 TO 5 X 'CUSTOMER' 'NUMBER' DEFINE CITY 6 X DEFINE STATE 7 TO 8 X DEFINE ZIP-CODE 9 TO 13 X 'ZIP' 'CODE' DEFINE CUSTOMER-SALE-ID 14 TO 15 X 'SALESMAN' 'ID' DEFINE CREDIT-LIMIT 16 TO 23 N2 'CREDIT' 'LIMIT' PIC '$$$,$$9.99' DEFINE CURRENT-BALANCE 24 TO 30 N2 'CURRENT' 'BALANCE' PIC '$$,$$9.99' DEFINE SALESMAN-NAME 32 TO 39 X 'SALESMAN' 'NAME' DEFINE SALESMAN-ID 40 TO 41 X 'SALESMAN' ' ID ' DEFINE YTD-SALES 42 TO 49 N2 'YEAR-TO-DATE' 'SALES' PIC '$$$,$$9.99' DEFINE BRANCH-ID 50 TO 52 X 'BRANCH' ' ID '
CA 16:28:10 24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS VERSION nn.n PAGE 7 DRLIB - REPORTING FACILITY LIBRARY FILE MAINTENANCE - LOAD CALL NAME = DECODE2 STATE CODE TRANSLATION TABLE *** MEMBER UPDATED *** DECODE :01 INTO :02 'TX' EQ 'TEXAS' 'TN' EQ 'TENNESSEE' 'NC' EQ 'NORTH CAROLINA' 'GA' EQ 'GEORGIA' 'OK' EQ 'OKLAHOMA' 'NY' EQ 'NEW YORK' 'OH' EQ 'OHIO' 'NJ' EQ 'NEW JERSEY' 'CT' EQ 'CONNECTICUT' 'IL' EQ 'ILLINOIS' 'PN' EQ 'PENNSYLVANIA' 'MI' EQ 'MICHIGAN' 'CO' EQ 'COLORADO' 'WA' EQ 'WASHINGTON' 'CA' EQ 'CALIFORNIA' ELSE 'UNKNOWN' 'STATE' 'NAME'
CA 16:28:10 24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS VERSION nn.n PAGE 8 DRLIB - REPORTING FACILITY LIBRARY FILE MAINTENANCE - LOAD CALL NAME = DECODE3 CUSTOMER NAME TRANSLATION TABLE *** MEMBER UPDATED *** DECODE :01 INTO :02 '01' EQ 'HIGH-ROLLING INVESTMENT ' '02' EQ 'SOUTHERN FRIED FOODS ' '03' EQ 'LEGAL TOBACCO CO. ' '04' EQ 'SOUTHERN PINE INDUSTRIES' '05' EQ 'BARONIAL OIL CO. ' '06' EQ 'COSMOPOLITAN FASHIONS ' '07' EQ 'HEAVY METAL MACHINERY ' '08' EQ 'AIRPORT SERVICES CORP. ' '09' EQ 'STOLID INSURANCE CORP. ' '10' EQ 'INLAND GRAIN TERMINALS ' '11' EQ 'STEEL CURTAIN STEEL INC.' '12' EQ 'PERFECT BEARING CORP. ' '13' EQ 'MOUNTAIN STATES MINING ' '14' EQ 'NORTHWEST PLYWOOD MILLS ' '15' EQ 'ORIENTAL TRADING CO. ' '16' EQ 'WEST COAST LIFESTYLES ' OTHERWISE ' ' 'NAME'
CA 16:28:10 24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS VERSION nn.n PAGE 9 DRLIB - REPORTING FACILITY LIBRARY FILE MAINTENANCE - LOAD CALL NAME = DECODE4 CITY TRANSLATION TABLE *** MEMBER UPDATED *** DECODE :01 INTO :02 'A' EQ 'DALLAS' 'B' EQ 'MEMPHIS' 'C' EQ 'CHARLOTTE' 'D' EQ 'ATLANTA' 'E' EQ 'OKLAHOMA CITY' 'F' EQ 'NEW YORK' 'G' EQ 'CLEVELAND' 'H' EQ 'NEWARK' 'I' EQ 'HARTFORD' 'J' EQ 'CHICAGO' 'K' EQ 'PITTSBURGH' 'L' EQ 'DETROIT' 'M' EQ 'DENVER' 'N' EQ 'SEATTLE' 'O' EQ 'SAN FRANCISCO' 'P' EQ 'LOS ANGELES' ELSE ' ' 'CITY'
CA 16:28:10 24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS VERSION nn.n PAGE 10 DRLIB - REPORTING FACILITY LIBRARY FILE MAINTENANCE - DISPLAY INDEX ┌─────────┐ 1 │ JUNKG │ 2 │ JUNKH │ 3 │ JUNKI │ COMMENT-C 4 │ OFFDECOD│ 5 │ TRANFILE│CHECK REGISTER TRANSACTION FILE 6 │ PMF010 │DATABASE PERSONEL MASTER FILE 7 │ PAY010 │DATABASE PAYROLL FILE 8 │ DECODE1 │ALPHANUMERIC MONTH TRANSLATION TABLE 9 │ CARDFILE│CUSTOMER/SALESMAN DATA FILE 10 │ DECODE2 │STATE CODE TRANSLATION TABLE 11 │ DECODE3 │CUSTOMER NAME TRANSLATION TABLE 12 │ DECODE4 │CITY TRANSLATION TABLE └─────────┘ ▲ Members are displayed in the same sequence they were added to the library.
CA 16:28:10 24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS VERSION nn.n PAGE 11 DRLIB - REPORTING FACILITY LIBRARY FILE MAINTENANCE - DISPLAY DECODE4 CALL NAME = DECODE4 DECODE :01 INTO :02 'A' EQ 'DALLAS' 'B' EQ 'MEMPHIS' 'C' EQ 'CHARLOTTE' 'D' EQ 'ATLANTA' 'E' EQ 'OKLAHOMA CITY' 'F' EQ 'NEW YORK' 'G' EQ 'CLEVELAND' 'H' EQ 'NEWARK' 'I' EQ 'HARTFORD' 'J' EQ 'CHICAGO' 'K' EQ 'PITTSBURGH' 'L' EQ 'DETROIT' 'M' EQ 'DENVER' 'N' EQ 'SEATTLE' 'O' EQ 'SAN FRANCISCO' 'P' EQ 'LOS ANGELES' ELSE ' ' 'CITY'
CA 16:28:10 24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS VERSION nn.n PAGE 12 DRLIB - REPORTING FACILITY LIBRARY FILE MAINTENANCE - DISPLAY DECODE3 CALL NAME = DECODE3 DECODE :01 INTO :02 '01' EQ 'HIGH-ROLLING INVESTMENT ' '02' EQ 'SOUTHERN FRIED FOODS ' '03' EQ 'LEGAL TOBACCO CO. ' '04' EQ 'SOUTHERN PINE INDUSTRIES' '05' EQ 'BARONIAL OIL CO. ' '06' EQ 'COSMOPOLITAN FASHIONS ' '07' EQ 'HEAVY METAL MACHINERY ' '08' EQ 'AIRPORT SERVICES CORP. ' '09' EQ 'STOLID INSURANCE CORP. ' '10' EQ 'INLAND GRAIN TERMINALS ' '11' EQ 'STEEL CURTAIN STEEL INC.' '12' EQ 'PERFECT BEARING CORP. ' '13' EQ 'MOUNTAIN STATES MINING ' '14' EQ 'NORTHWEST PLYWOOD MILLS ' '15' EQ 'ORIENTAL TRADING CO. ' '16' EQ 'WEST COAST LIFESTYLES ' OTHERWISE ' ' 'NAME'
CA 16:28:10 24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS VERSION nn.n PAGE 13 DRLIB - REPORTING FACILITY LIBRARY FILE MAINTENANCE - DISPLAY DECODE2 CALL NAME = DECODE2 DECODE :01 INTO :02 'TX' EQ 'TEXAS' 'TN' EQ 'TENNESSEE' 'NC' EQ 'NORTH CAROLINA' 'GA' EQ 'GEORGIA' 'OK' EQ 'OKLAHOMA' 'NY' EQ 'NEW YORK' 'OH' EQ 'OHIO' 'NJ' EQ 'NEW JERSEY' 'CT' EQ 'CONNECTICUT' 'IL' EQ 'ILLINOIS' 'PN' EQ 'PENNSYLVANIA' 'MI' EQ 'MICHIGAN' 'CO' EQ 'COLORADO' 'WA' EQ 'WASHINGTON' 'CA' EQ 'CALIFORNIA' ELSE 'UNKNOWN' 'STATE' 'NAME'
CA 16:28:10 24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS VERSION nn.n PAGE 14 DRLIB - REPORTING FACILITY LIBRARY FILE MAINTENANCE - DISPLAY DECODE1 CALL NAME = DECODE1 DECODE :01 INTO :02 01 = 'JANUARY' 02 = 'FEBRUARY' 03 = 'MARCH' 04 = 'APRIL' 05 = 'MAY' 06 = 'JUNE' 07 = 'JULY' 08 = 'AUGUST' 09 = 'SEPTEMBER' 10 = 'OCTOBER' 11 = 'NOVEMBER' ELSE 'DECEMBER'
CA 16:28:10 24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS VERSION nn.n PAGE 15 DRLIB - REPORTING FACILITY LIBRARY FILE MAINTENANCE - DISPLAY CARDFILE CALL NAME = CARDFILE INPT: FILE CARD DEFINE NAME 1 TO 2 X DEFINE CUSTOMER-NUMBER 3 TO 5 X 'CUSTOMER' 'NUMBER' DEFINE CITY 6 X DEFINE STATE 7 TO 8 X DEFINE ZIP-CODE 9 TO 13 X 'ZIP' 'CODE' DEFINE CUSTOMER-SALE-ID 14 TO 15 X 'SALESMAN' 'ID' DEFINE CREDIT-LIMIT 16 TO 23 N2 'CREDIT' 'LIMIT' PIC '$$$,$$9.99' DEFINE CURRENT-BALANCE 24 TO 30 N2 'CURRENT' 'BALANCE' PIC '$$,$$9.99' DEFINE SALESMAN-NAME 32 TO 39 X 'SALESMAN' 'NAME' DEFINE SALESMAN-ID 40 TO 41 X 'SALESMAN' ' ID ' DEFINE YTD-SALES 42 TO 49 N2 'YEAR-TO-DATE' 'SALES' PIC '$$$,$$9.99' DEFINE BRANCH-ID 50 TO 52 X 'BRANCH' ' ID '
CA 16:28:10 24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS VERSION nn.n PAGE 16 DRLIB - REPORTING FACILITY LIBRARY FILE MAINTENANCE - DISPLAY PMF010 CALL NAME = PMF010 PMF010: FILE DATACOM :01 RECORD=329 DEFINE DB-COMMAND 1-5 X DEFINE DB-KEY-NAME 6-10 X DEFINE DB-ELEMENT-LIST 191-201 X DEFINE EMPLOYEE-NUMBER 301-305 X 'EMPLOYEE' ' NUMBER ' DEFINE NAME 306-329 X
CA 16:28:10 24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS VERSION nn.n PAGE 17 DRLIB - REPORTING FACILITY LIBRARY FILE MAINTENANCE - DISPLAY PAY010 CALL NAME = PAY010 PAY010: FILE DATACOM :01 RECORD=340 DEFINE DB-COMMAND 1-5 X DEFINE DB-KEY-NAME 6-10 X DEFINE DB-KEY-VALUE 11-15 X DEFINE DB-ELEMENT-LIST 191-201 X DEFINE EMPLOYEE-CODE 306 X DEFINE STATUS 307 X DEFINE CURRENT-RATE 308-315 N3 ' CURRENT ' 'PAY RATE' DEFINE YTD-WAGES 316-323 N2 'YEAR-TO-DATE' ' WAGES' PIC '$$$,$$9.99' DEFINE YTD-COMMISSION 324-331 N2 'YEAR-TO-DATE' ' COMMISSION ' DEFINE YTD-TAXES 332-339 N2 'YEAR-TO-DATE' ' TAXES'
CA 16:28:10 24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS VERSION nn.n PAGE 18 DRLIB - REPORTING FACILITY LIBRARY FILE MAINTENANCE - DISPLAY TRANFILE CALL NAME = TRANFILE TRANS: FILE CARD DEF TRANSACTION-CODE 1 THRU 2 X ' ' DEF ID-NUMBER 3 THRU 6 X ' ' DEF AMOUNT 7 THRU 13 N2 DEF ACTIVITY-DATE 14 THRU 21 X 'DATE OF' 'ACTIVITY' DEF CLEARED 22 X DEF PAYEE 23 THRU 42 X DEF REASON 44 THRU 75 X
CA 16:28:10 24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS VERSION nn.n PAGE 19 DRLIB - REPORTING FACILITY LIBRARY FILE REPORTING FACILITY LIBRARY FILE CONDENSE - COMPLETE LIBRARY MAINTENANCE COMPLETE
|
Copyright © 2014 CA.
All rights reserved.
|
|