Transcript IBI Overhead Transparency Template

FOCUS For S/390 - Version 7.1.0
FOCUS Product Management
i-business changes everything
DN 9602 000.0099
Copyright © 1999 Information Builders, Inc.
1
FOCUS Release 7.1.0 New Features
Introducing ---
New Database Enhancements
New Reporting Enhancements
And More
DN 9602 000.0099
Copyright © 1999 Information Builders, Inc.
2
FOCUS Release 7.1.0 New Features
New Database Enhancements!
1)
2)
3)
4)
DN 9602 000.0099
2-Gigabyte physical FOCUS files
Intelligent Partitioning (500-gigabyte logical database)
Allocate the file within the Master itself
New DATETIME data type
Copyright © 1999 Information Builders, Inc.
3
FOCUS Release 7.1.0 New Features
New Reporting Enhancements!
1)
2)
3)
4)
5)
6)
7)
8)
9)
DN 9602 000.0099
Screen on independent paths in the database
Comma-suppress and Percent-edit options
Write functions in FOCUS 4GL language
Write functions in the REXX language
Sort by calculated fields in one pass
Specify more fields on one report
Use any character as field delimiter
Put Text fields in headings
Byte-compress extract files
Copyright © 1999 Information Builders, Inc.
4
FOCUS Release 7.1.0 New Features
Other Valuable Enhancements!
1)
2)
3)
4)
5)
6)
DN 9602 000.0099
Eliminate trailing blanks in Dialog Manager &’s
FILEDEF can control where HOLD files are saved
Enhanced CRTFORM handling for WEB390
New AutoTool for IMS
ADABAS Write
Redirect Oracle index space
Copyright © 1999 Information Builders, Inc.
5
FOCUS Release 7.1.0 New Features
New
Database
Enhancements
DN 9602 000.0099
Copyright © 1999 Information Builders, Inc.
6
FOCUS Release 7.1.0 New Features
2-Gigabyte FOCUS Database
 FOCUS database may now grow to 2 gigabytes
 With 7.1.0, no change at all needed to go past 1 gigabyte
 Up to 500 gigabytes with partitioning
 Same as FUSION without MDI
FOCUS
Database
FOCUS
Database
DN 9602 000.0099
Copyright © 1999 Information Builders, Inc.
7
FOCUS Release 7.1.0 New Features
Partitioned FOCUS Database
 FOCUS database can now be partitioned with intelligence
 New ACCESS File specifies the separate data files that
make up the database
 WHERE clauses describe the data in each partition
 Up to 250 partitions, each up to 2-gig
 That’s a 500 Gigabyte FOCUS Database!
FOCUS
Database
DN 9602 000.0099
FOCUS
Database
Copyright © 1999 Information Builders, Inc.
8
FOCUS Release 7.1.0 New Features
Partitioned FOCUS Database – ACCESS File
What is an ACCESS File ??
The ACCESS File insulates the physical location
of the data files from the Master File
DN 9602 000.0099
MASTER File
ACCESS File
Data File
Describes logical
construction of
data file. Gives
pseudo-name
Points to
physical name of
data file and
partitions
Copyright © 1999 Information Builders, Inc.
Data
File
Data
DataFile
File
Partitions
9
FOCUS Release 7.1.0 New Features
Partitioned FOCUS Database
FILE=PORD2000, SUFFIX=FOC, ACCESS=PORDER …
MASTER PORD2000
PORDER ACCESS File
DATANAME 'PMSDJG.ORDERS.FOCUS.JAN2000'
WHERE ORDERDATE FROM 20000101 TO 20000131;
DATANAME 'PMSDJG.ORDERS.FOCUS.FEB2000'
WHERE ORDERDATE FROM 20000201 TO 20000229;
DATANAME 'PMSDJG.ORDERS.FOCUS.MAR2000'
WHERE ORDERDATE FROM 20000301 TO 20000331;
January
2000
DN 9602 000.0099
February
2000
Copyright © 1999 Information Builders, Inc.
March
2000
…
10
FOCUS Release 7.1.0 New Features
Intelligent Partitioning
 TABLE can specify a WHERE for the field used in the
partitions’ WHERE predicate in the ACCESS file.
TABLE FILE PORD2000
SUM SELLPRICE BY ORDERKEY
WHERE ORDERDATE EQ 20000128 OR 20000216
END
January
2000
February
2000
March
2000
…
The “WHERE” opens only the JAN2000 and
FEB2000 files. Reduces I/O significantly!
DN 9602 000.0099
Copyright © 1999 Information Builders, Inc.
11
FOCUS Release 7.1.0 New Features
DATASETNAME in the Master
 Specify the physical file name directly in the Master
 Instead of issuing USE, FILEDEF or DYNAM
 New Master file keyword: DATASET
 The allocation happens automatically
 Simplifies allocation of FOCUS, Fixed Format, VSAM files
FILENAME=CAR,SUFFIX=FOC,
DATASET='PMSDJG.CAR.FOCUS'
DATASET='CAR FOCUS A'
SEGNAME=ORIGIN,SEGTYPE=S1 …
DN 9602 000.0099
Copyright © 1999 Information Builders, Inc.
MVS
or
VM
12
FOCUS Release 7.1.0 New Features
DATETIME Data Type
 A new data type (“H”) that contains date, time, or both
 Manipulate DATETIME with a new set of functions
 Truly represent relational time and timestamp formats
 Full set of datetime manipulation functions
DT/HYYMDS displays as: 2000/12/30 17:59:32
DT/HYYMDIA displays as: 2000/12/30 9:00AM
11
12
1
10
2
3
9
Time part
4
8
7
DN 9602 000.0099
Date part
6
5
Copyright © 1999 Information Builders, Inc.
13
FOCUS Release 7.1.0 New Features
New
Reporting
Enhancements
DN 9602 000.0099
Copyright © 1999 Information Builders, Inc.
14
FOCUS Release 7.1.0 New Features
Screen on Independent Paths
SET MULTIPATH=COMPOUND
TABLE FILE CAR
PRINT WARRANTY
WHERE MODEL EQ ‘TR7’
END
(FOC144) WARNING. TESTING
IN INDEPENDENT SETS OF DATA
TABLE
PRINT
WHERE
END
WARRANTY
12 MONTHS OR 12000 MILES
12000 MILES OR 12 MONTHS
12 MONTHS OR 12000 MILES
6 MONTHS OR 6000 MILES
12 MONTHS OR 12500 MILES
12 MONTHS OR 20000 MILES
12 MONTHS OR 12000 MILES
WARRANTY
12 MONTHS OR 12000 MILES
DN 9602 000.0099
FILE CAR
WARRANTY
MODEL EQ ‘TR7’
SET MULTIPATH=SIMPLE
(FOCUS Default)
COUNTRY
MODEL
Copyright © 1999 Information Builders, Inc.
WARR
15
FOCUS Release 7.1.0 New Features
Comma Suppress and Percent Edit Options
To suppress default commas that print in “D”
fields, append a lowercase “c” to the field format:
FIELDNAME=DCOST,,D7c,$
COMPUTE DCOST/D7c= 1234;
D7
7,427
D7c
7427
C
For numeric data representing a percent,
append “%” to the format:
FIELDNAME=SEATS,,I3%,$
COMPUTE SEATS/I3% = 682;
I3
I3%
%
682
682%
DN 9602 000.0099
Copyright © 1999 Information Builders, Inc.
16
FOCUS Release 7.1.0 New Features
DEFINEd Functions
 User-coded functions have always been written in
Assembler, FORTRAN, COBOL, PL/1, C and C++
 Now you can write them in FOCUS “DEFINE” code !
 Database independent – use one function on any file
 Pass it parameters like any other function
DEFINE FUNCTION funcname/rfmt (parm1/fmt1,…)
tempvar/fmt
= [expression using parms];
funcname/rfmt = [result expression];
END
DN 9602 000.0099
Copyright © 1999 Information Builders, Inc.
17
FOCUS Release 7.1.0 New Features
DEFINEd Functions
DEFINE FILE CAR
MINUS/A1 = ‘-’ ; EQUAL/A1 = ‘=’ ;
END
DEFINE FUNCTION DIFF/D8 (VAL1/D8, VAL2/D8)
DIFF/D8 = VAL1 - VAL2;
Fields are local to
END
the function only
TABLE FILE CAR
PRINT RCOST MINUS AS ‘’ DCOST EQUAL AS ‘’
COMPUTE MARKUP/D8 = DIFF(RCOST,DCOST);
END
RCOST
DCOST
MARKUP
8,878 7,427
=
1,451
13,491 - 11,194
=
2,297
17,850 - 14,940
=
2,910
3,139 2,626
=
513
DN 9602 000.0099
Copyright © 1999 Information Builders, Inc.
18
FOCUS Release 7.1.0 New Features
REXX Functions
Functions may now be written in REXX*
DEFINE FILE EMPLOYEE
AHDT/A6 = EDIT(HDT);
DOW/A9 WITH HDT = WEEKDAY(6,AHDT,9,DOW);
END
TABLE FILE EMPLOYEE
PRINT LN HDT DOW
Filetype or DDname
END
must be FUSREXX
/* WEEKDAY FUSREXX /
Arg ymd
Return Date('W',Translate('34/56/12',ymd,'123456'),'U')
* Not
DN 9602 000.0099
supported in MAINTAIN
Copyright © 1999 Information Builders, Inc.
19
FOCUS Release 7.1.0 New Features
495 Verb Objects
 Verb object limit increased from 256 to 495 (maximum)
 Total field space available is 3,960 bytes
(4K bytes minus reserve, and 4-byte pointer per field)
 Actual quantity depends on the field lengths and specific
TABLE circumstances. Some guidelines:
 495 4-byte fields (A4, I5, F9 all take 4 bytes internally)
 Longer-length fields imply fewer fields per TABLE
 Indexes, COMPUTES, certain BY’s, etc. may affect the
quantity too.
DN 9602 000.0099
Copyright © 1999 Information Builders, Inc.
20
FOCUS Release 7.1.0 New Features
Token Delimited Files
 Customer requests – “Make FOCUS read flat data files
with fields delimited by characters other than comma”
Examples: FIELD1#FIELD2#FIELD3#FIELD4
FIELD1$+%FIELD2$+%FIELD3$+%FIELD4
 New syntax in master:
SUFFIX = DFIX
FIELD=DELIMITER
Even a set of
delimiter characters!
 Let’s see an example in action …
DN 9602 000.0099
Copyright © 1999 Information Builders, Inc.
21
FOCUS Release 7.1.0 New Features
Token Delimited Files
GERMANY#VW#1111
GERMANY#BMW#
USA#CADILLAC#22222
USA#FORD#
JAPAN##44444
FILE=DFIX01 ,SUFFIX=DFIX
SEGNAME=SEG1 ,SEGTYPE=S0
FIELD=COUNTRY ,ALIAS=F1 ,A10,A10,$
FIELD=CAR
,ALIAS=F2 ,A16,A16,$
FIELD=NUMBER
,ALIAS=F3 ,P10,Z10,$
FIELD=DELIMITER,ALIAS=‘#',A1 ,A1 ,$
TABLE FILE DFIX01
PRINT COUNTRY CAR NUMBER
END
DN 9602 000.0099
COUNTRY
CAR
NUMBER
GERMANY
VW
1111
GERMANY
0
IdentifyBMW
the
USA character(s)
CADILLAC
22222
in
USA the ALIAS
FORD
0
JAPAN
44444
Copyright © 1999 Information Builders, Inc.
22
FOCUS Release 7.1.0 New Features
BY TOTAL
 TABLE can sort by aggregated columns all in one pass.
 Works for prefixes like AVE., MAX., PCT.
 No need for intermediate HOLD
 Cuts down I/O, CPU and disk space used
 Sorting after aggregation is done by a post-matrix process,
similar to WHERE TOTAL and COMPUTE
 Full Syntax: BY [HIGHEST/LOWEST n] TOTAL
Example (on next slide): Sort by average sales
AVE.SALES is aggregated during matrix creation.
Prior to report output, the AVE.SALES column is resorted
DN 9602 000.0099
Copyright © 1999 Information Builders, Inc.
23
FOCUS Release 7.1.0 New Features
BY TOTAL
Sort by Average Sales
AVE SALES*
COUNTRY
CAR
ENGLAND
JENSEN
TRIUMPH
HONDA
TOYOTA
JAPAN
TABLE FILE CAR
SUM SALES AVE.SALES
BY COUNTRY BY CAR
ON TABLE HOLD
END
TABLE FILE HOLD
SUM E03 BY COUNTRY BY CAR
BY E04 AS ‘Ave Sales’
END
DN 9602 000.0099
17650
24200
17480
18250
SALES*
73000
122000
197300
235000
TABLE FILE CAR
SUM SALES
BY COUNTRY BY CAR
BY TOTAL AVE.SALES
END
No HOLD !
*Invented
Copyright © 1999 Information Builders, Inc.
numbers
24
FOCUS Release 7.1.0 New Features
HOLD FORMAT INTERNAL
 Avoids padding integer and packed field data in HOLD
files to full word boundaries
 Allows other products like COBOL to more conveniently
use HOLD files as input
 Just override the format in the TABLE request, as in:
PRINT FIELD / I2
Let’s look at an example:
DN 9602 000.0099
Copyright © 1999 Information Builders, Inc.
25
FOCUS Release 7.1.0 New Features
HOLD FORMAT INTERNAL
Reserve two bytes for MPG and three bytes for LENGTH
TABLE FILE CAR
PRINT MPG/I2 LENGTH/P3
ON TABLE HOLD FORMAT INTERNAL*
END
M
0
P
G
L
E
N
4
MPG
T
8
H
12
LENGTH
*
DN 9602 000.0099
G
I and P formats only
Copyright © 1999 Information Builders, Inc.
26
FOCUS Release 7.1.0 New Features
Embed Text Fields in Headings
 Text fields (FORMAT=TXn) can be embedded in headings
(also footing, subhead, subfoot) in character-based as well
as styled reports
TABLE FILE TXTFLD
BY COUNTRY SUBHEAD
“Here is a TX field: <TEXTFLD”
END
Here is a TX field:
DN 9602 000.0099
The quick brown
fox jumps over
the lazy dog
Copyright © 1999 Information Builders, Inc.
27
FOCUS Release 7.1.0 New Features
Other
Valuable
Enhancements
DN 9602 000.0099
Copyright © 1999 Information Builders, Inc.
28
FOCUS Release 7.1.0 New Features
TRUNCATE Function



Trailing blanks in amper variables may result from:
 a –READ for a fixed length,
 a –CRTFORM entry,
 a subroutine manipulation
Once attached, trailing blanks are very difficult to remove
TRUNCATE removes trailing blanks from amper variables
-SET &LONG = 'ABC
';
-SET &SHORT = TRUNCATE(&LONG);
-TYPE &LONG.LENGTH &LONG &SHORT.LENGTH &SHORT HELLO
Result:
08 ABC
03 ABC HELLO
No trailing
blanks
DN 9602 000.0099
Copyright © 1999 Information Builders, Inc.
29
FOCUS Release 7.1.0 New Features
HOLD Override for TEMP Setting
 On CMS, HOLD files are created on the disk determined

by the setting of TEMP (SET TEMP = )
FOCUS now respects a user’s FILEDEF that specifies where
to create the HOLD file. The MASTER file will still be written
to the disk where TEMP points
SET TEMP = B
CMS FILEDEF ABCD DISK ABCD FOCTEMP A
TABLE FILE …
ABCD
PRINT …
ABCD
ON TABLE HOLD AS ABCD MASTER FOCTEMP
END
B
A
DN 9602 000.0099
Copyright © 1999 Information Builders, Inc.
30
FOCUS Release 7.1.0 New Features
WEBTAB Setting for WEB390 Gold
 HTML/TP now cleanly accommodates dynamic CRTFORMs
 FOCUS’s philosophy of screen generation is uniquely efficient
 CICS and IMS/DC screens are static in layout, but
 FOCUS “SPA” processing makes CRTFORMs powerfully
dynamic.
DN 9602 000.0099
Copyright © 1999 Information Builders, Inc.
31
FOCUS Release 7.1.0 New Features
What is WEB390 Gold? What is HTML/TP?
 WEB390 is a full-function mainframe web server
 WEB390 is an easy path to legacy system renewal by


allowing instant web access to mainframe applications
WEB390 dynamically converts 3270 screens into HTML
HTML/TP feature of WEB390 allows you to customize each
screen of your mainframe application, adding web-typical
enhancements – all with no changes to the backend app!
(See me later for more information on WEB390)
DN 9602 000.0099
Copyright © 1999 Information Builders, Inc.
32
FOCUS Release 7.1.0 New Features
WEBTAB Setting for WEB390
SET WEBTAB = ON
Original
CRTFORM
DN 9602 000.0099
HTML/TP
“Recognize” Screen
Copyright © 1999 Information Builders, Inc.
WEB390
Presentation
33
FOCUS Release 7.1.0 New Features
AUTOIMS
 New AutoTool that creates FOCUS master files based on
the information stored within the IMS catalog
 Eliminates the need to code the Master by hand
AutoADBS
AutoDB2
AutoDBC
AutoIDMS
AutoSQL
AutoIMS
DN 9602 000.0099
Copyright © 1999 Information Builders, Inc.
34
FOCUS Release 7.1.0 New Features
AUTOIMS
 New AutoTool that creates FOCUS master files based on
the information stored within the IMS catalog
 Eliminates the need to code the Master by hand
IMS
FOCUS
Data Structure
MASTERFILE
COBOL FD
DN 9602 000.0099
Copyright © 1999 Information Builders, Inc.
35
FOCUS Release 7.1.0 New Features
ADABAS Write
 Update capability now exists for ADABAS files
SQL Update
ADABAS
File
MODIFY
MAINTAIN
DN 9602 000.0099
Copyright © 1999 Information Builders, Inc.
36
FOCUS Release 7.1.0 New Features
Redirect Index Space for Oracle
 Override defaults for Oracle index space created by
CREATE FILE and HOLD FORMAT SQLORA commands
Example:
SQL SQLORA SET IXSPACE TABLESPACE ORATS1
CREATE FILE ORATS1
Any valid
index-spec
SET SQLORA ?
(FOCxxxx) DEFAULT IXSPACE IS
- : ORATS1
Generates:
“SQL CREATE INDEX ORATS1”
DN 9602 000.0099
Copyright © 1999 Information Builders, Inc.
37
FOCUS Release 7.1.0 New Features
Summary – Many New Enhancements in 7.1.0
DATABASE
 2 Gigabyte FOCUS Database
 Intelligent Database Partitions
 DATASETNAME in Master
 DATETIME Data Type
Other Valuable Enhancements
TRUNCATE Function
HOLD Override for TEMP
WEBTAB Setting for WEB390
AUTOIMS
ADABAS Write
IXSPACE for Oracle
DN 9602 000.0099
REPORTING
Screening Independent Paths
Comma Suppress Edit Option
Percent Edit Option
DEFINEd Functions
REXX Functions
495 Verb Objects
Token Delimited Files
HOLD FORMAT INTERNAL
Text Fields in Headings
BY TOTAL
Copyright © 1999 Information Builders, Inc.
38
FOCUS Release 7.1.0 New Features
DN 9602 000.0099
Copyright © 1999 Information Builders, Inc.
39
Substitute the next slide into the handouts for the
WEBTAB slide in the presentation. It eliminates
the overlaying objects that otherwise make the
printed version unreadable. Do not move this slide
in the layout.
DN 9602 000.0099
Copyright © 1999 Information Builders, Inc.
40
FOCUS Release 7.1.0 New Features
WEBTAB Setting for WEB390
SET WEBTAB = ON
Original
CRTFORM
DN 9602 000.0099
HTML/TP
“Recognize” Screen
Copyright © 1999 Information Builders, Inc.
WEB390
Presentation
41