IBI Overhead Transparency Template

1
FOCUS 7.3 Product Update

Information Builders October, 2003
Note Until 7.3 is officially released, features
listed in this presentation are subject to change
or removal.
1
DN 9602 000.0001
2
FOCUS Release 7.3 Parade of New Features
Parade of New Features
3
FOCUS Release 7.3 Parade of New Features
OUTPUT MECHANISMS 20 Working with EXCEL 2000 21
Cascading Stylesheets 22 FML Hierarchy 23 Reuse
FOR values in FML 24 Use FOR value in
calculations 25 FML INDENT 26 Indenting FML
Hierarchy 27 Missing values in HOLD 28 NODATA
char in HOLD 29 HOLD in alpha or binary
TABLE REPORTING 01 Multiple FOLD-LINEs 02 Display
BY value on every row 03 Prefixes on summary
lines 04 Displaying PAGE n OF max 05 First page
and last page s 06 IN-RANGES-OF 07 Right-side
minus sign display 08 Create cover pages 09
Extensions to FORECAST 10 Multivariate regression
forecast 11 NORMSINV and NORMSDST 12 Decimal
alignment in headings 13 Multiple reports in one
PDF/PS 14 Stylesheet enhancements
RAISED LIMITS 36 Unlimited IF/THEN/ELSE 37 63
MODIFY COMBINEs 38 Long amper variables 39 Long
qualified fieldnames 40 More ACROSS values 41
1024 display fields 42 More sort
headings/footings 43 Increased column title
space 44 More external index partitions
DATABASE and MASTER 45 XFOCUS database 46 Long
segment names 47 Long index names 48
Multi-dimensional index (MDI) 49 GROUPs in FOCUS
masters 50 DATASET at segment level 51 Read-only
fields in master 52 TAB-delimited files 53
Varchar support - AnV
OPERATING SYSTEM 30 FOCUSER userid variable 31
Wide line files and IEDIT 32 Relative GDG 1
PERFORMANCE BOOSTERS 15 New DEFINEs Compiler 16
Parse masters only once 17 User function argument
checker 18 Optimized TX search in rdbms 19 DB2
FETCH FIRST n ROWS
MAINTAIN 33 MNT filetype/extension 34 FOCUS SETs
from Maintain 35 New screening in MAINTAIN
Next Key Feature
Next Slide
4
TABLE REPORTING
FOCUS 7.3
TABLE Reporting
5
Multiple FOLD-LINE

• Specify up to 16 FOLD-LINE clauses in a TABLE
  request

TABLE FILE PRINT field1 field2 field3
FOLD-LINE field4 field5 field6 field7
FOLD-LINE field8 field9 END
RESULT field1 field2 field3 field4 field5
field6 field7 field8 field9
Indent 2 spaces
6
Show BY Values on Every LineSET BYDISPLAY

• Display the sort field values on all lines of a
  report
• For STYLEd output only, including EXL2K, HTML,
  PDF, PS
• Avoid the PRINT FNAME BY FNAME NOPRINT game

SET BYDISPLAYONTABLE FILE CENTHRPRINT LNAME
PLANTBY FNAME UNDER-LINEON TABLE HOLD FORMAT
EXL2K END
TABLE FILE CENTHRPRINT LNAME PLANTBY FNAME
UNDER-LINE ON TABLE HOLD FORMAT EXL2K END
FNAME LNAME PLANT ----- ----- ----- DAVID
SMITH SOUTHDAVID JONES NORTH DAVID
MCKNIGHT EAST --------------------------- MARK
SMITH WEST MARK GREENSPAN NORTH
FNAME LNAME PLANT ----- ----- ----- DAVID
SMITH SOUTH JONES NORTH
MCKNIGHT EAST --------------------------- MARK
SMITH WEST GREENSPAN NORTH
Next Key Feature
7
Prefix Operators on Summary Lines

• Use with SUBTOTAL, SUB-TOTAL, RECOMPUTE and
  SUMMARIZE at both the sort break and grand total
  levels
• Summed values become the detail lines in the
  report
• ASQ. AVE. SUM. CNT. FST. LST. MAX.
  MIN.

Space after the prefix (syntax requirement)
TABLE FILE CAR SUM
CNT.MODEL BY COUNTRY BY
CAR ON COUNTRY SUB-TOTAL
WHERE COUNTRY IS 'ITALY' OR 'W GERMANY' END

MODEL COUNTRY CAR
COUNT ------- --- ----- ITALY
ALFA ROMEO 3 MASERATI
1 TOTAL ITALY
2
W GERMANY AUDI 1 BMW
6
TOTAL W GERMANY 2
TOTAL
4

MODEL COUNTRY CAR
COUNT ------- --- ----- ITALY
ALFA ROMEO 3 MASERATI
1 TOTAL
ITALY 4
W GERMANY AUDI 1
BMW 6
TOTAL W GERMANY 7

TOTAL 11
CNT. MODEL
Count of instances after Summarization
Back to Feature List
DONE
8
Capture the Last Page of a ReportTABLASTPAGE
TABLE FILE CAR HEADING
"PAGE ltTABPAGENO OF ltTABLASTPAGE lt/1" SUM DCOST
BY COUNTRY PAGE-BREAK ON TABLE HOLD FORMAT
HTML ON TABLE SET STYLE
TYPEREPORT,FONTARIAL,
ENDSTYLE END
Page 4 of 4
Page 3 of 4
Page 2 of 4
Page 1 of 4 REPORT

• Supported for FORMAT HTML/PDF/PS only

Notes FOCNEXTPAGE is set to TABLASTPAGE
9
Capture and Adjust Page NumbersFOCFIRSTPAGE and
FOCNEXTPAGE

• FOCFIRSTPAGE SET variable declares the first
  page number of a report
• FOCNEXTPAGE reserved amper variable set to
  one greater than the last page number of the last
  report

Make multiple reports look like one!
Page 3
Page 2
Page 1 REPORT 1
TABLE FILE PRINT HEADING PAGE
ltTABPAGENO END -RUN (FOCNEXTPAGE
automatically set to 4) SET FOCFIRSTPAGE
FOCNEXTPAGE TABLE FILE PRINT HEADING
PAGE ltTABPAGENO END
Page 5
Page 4 REPORT 2
Next Key Feature
10
Display the Entire RangeIN-RANGES-OF

• Display the min and max of a range of values
• Similar to IN-GROUPS-OF

TABLE FILE EMPLOYEEPRINT LAST_NAME BY
CURR_SAL IN-RANGES-OF 5000 END
IN-GROUPS-OF (for comparison)
TABLE FILE EMPLOYEEPRINT LAST_NAME BY
CURR_SAL IN-GROUPS-OF 5000 END CURR_SAL
LAST_NAME-------- --------- 5000.00 SMITH
GREENSPAN 10000.00 STEVENS
SMITH 15000.00 JONES MCCOY
MCKNIGHT
CURR_SAL LAST_NAME--------
--------- 5000.00 - 9999.99 SMITH
GREENSPAN10000.00 - 14999.99
STEVENS SMITH
15000.00 - 19999.99 JONES
MCCOY MCKNIGHT
11
Right-Side Minus (-) Display Option

• Put the minus sign on the right side of negative
  numbers

TABLE FILE PRINT FIELDA/I8 FIELDB/I8B
FIELDC/I8R FIELDD/I8- BY COUNTRY END
Right-side negative
Bracket negative
Default negative
Credit negative
COUNTRY FIELDA FIELDB FIELDC
FIELDD ENGLAND -123 (123) 123
CR 123- FRANCE -1234 (1234) 1234 CR
1234- GERMANY -2 (2) 2 CR
2- RUSSIA -125 (125) 125 CR 125-
12
Create Cover PagesNEWPAGE
PAGE 1 EAST REGION PAGE 2 CT
16,238,158.37 65,979DC 70,928,546.26
274,714DE 2,500,849.39 10,226MA
34,010,314.29 131,956MD 24,978,362.10
94,827 PAGE 3NORTH REGION PAGE 4 IA
2,469,227.24 10,068IL 34,444,984.60
134,351IN 12,477,236.78 50,124KS
2,136,103.34 7,870MI 47,979,137.95
191,671

• Pagebreak after a subhead or before
  a subfoot
• Create a cover page for each section

TABLE FILE CENTORD SUM LINEPRICE AS
QUANTITY AS '
BY REGION NOPRINT PAGE-BREAK
BY STATE AS ' ON REGION
SUBHEAD NEWPAGE "ltREGION REGION"END

13
FORECAST Extensions
Single Exponential Smoothing Double
Exponential Smoothing Triple Exponential
Smoothing Linear Regression Column
Graphing

• EXPAVE bootstraps the last real data value as a
  factor in every predicted value
• Double and triple exponential smoothing for
  trends and seasonal adjustments
• SUM with REGRESS creates a new report column with
  the regression based on the summed values
• GRAPH facility supports FORECAST

ON TRANSDATE RECAP SEASONAL/D10.1
FORECAST(TRANS,1,3,'SEASONAL', 3,3,1000,1)
14
Perform Multi-Variate Regression Forecasting
REGRESS

• REGRESS method derives a best-fit linear equation
  for a set of numeric data points
• Can be based on 1, 2 or 3 independent variables
• Creates a new column in the report

DEFINE FILE GGSALES SDATE/YYM DATE SYEAR/Y
SDATEENDTABLE FILE GGSALES PRINT BUDUNITS
AS Budget,Units UNITS AS Unit,Sales
BUDDOLS AS Budget,Dollars DOLLARS AS
Dollar,Sales WHERE CATEGORY EQ Coffee
WHERE REGION EQ West WHERE UNITS GT 1670 AND
UNITS LT 1700 END
Budget Unit Budget Dollar Units
Sales Dollars Sales EST ------ -----
------- ------ ----- 1796 1696 17960
25440 24428 1825 1695 23725 25425
23018 1613 1685 22582 18535 20954
1568 1682 23520 25230 20167 1665
1678 21645 23492 22021 1457 1671
21855 20052 19528 1662 1674 24930
18414 21043 1653 1694 21489 16940
21611
ON TABLE RECAP EST/F8 REGRESS
(3,BUDUNITS,UNITS, BUDDOLS, DOLLARS)
15
NORMSINV and NORMSDST Functions
Equivalent to the Excel functions
NORMSDST - Calculates cumulative standard normal
distribution function

• NORMSINV Returns upper boundary of standard
  normal curve (inverse of NORMSDST)

NORMSD/D12.5 NORMSDST ( Z, D8) NORMSI/D12.5
NORMSINV (NORMSD,D8) SIZE/D12 NORMSI
STDEV MEAN
16
Decimal Alignment in Headings

• Align decimal points in a multi-line heading or
  footing
• Supported for FORMAT HTML/PDF/PS reports only

TABLE FILE BY REGION NOPRINT SUBHEAD"SALES FOR
ltREGION "" ""Units ltJUNITS""Dollar Sales
ltJDOLLARS""Budgeted Sales ltJBUDDOLLARS"ON
TABLE SET PAGE-NUM OFFON TABLE HOLD FORMAT
HTMLON TABLE SET HTMLCSS ONON TABLE SET STYLE
TYPE REPORT, GRIDOFF, TYPESUBHEAD,
ITEM1, WIDTH1.5,TYPESUBHEAD, ITEM2,
WIDTH2, JUSTIFYDECIMAL(1), END
SALES FOR MidwestUnits
905,045.Dollar Sales 11,400,665.00Budgeted
Sales 11,194,373.00000SALES FOR
NortheastUnits 916,675.Dollar
Sales 11,392,310.00Budgeted Sales
11,576,932.00000SALES FOR SoutheastUnits
935,232.Dollar Sales
11,710,379.00Budgeted Sales 11,807,981.00000
HEADING, FOOTING, SUBHEAD, SUBFOOT,
TABHEADING, TABFOOTING
17
Compound Reports in one PDF/PS FileOPEN/CLOSE

• Combine multiple reports into a single PDF or PS
  file
• Make separate pages or one continuous report
• Combine any output formats with PDF/PS

ON TABLE PCHOLD FORMAT PDF/PS OPEN/CLOSE
NOBREAK
PDF
TABLE TABLE TABLE
EXL2K
PDF
HTML
Next Key Feature
18
Stylesheet Enhancements

• Cascading Stylesheets
• Compound Reports in one PDF / PS file
• GRID ON / FILL / OFF
• WRAP ON / OFF
• PAGECOLOR color
• STYLE /- UNDERLINESET
• SET PSPAGESETUP ON / OFF
• SET STYLEMODE PAGED
• Row/Cell Borders With Style/Color
• Stylesheet Macros
• Conditional Styling
• TOPGAP / BOTTOMGAP Around Report
• Heading / Footing Element Alignment

Direct from WebFOCUS

• Styling capabilities of WebFOCUS are now in
  mainframe FOCUS

19
Stylesheet EnhancementsExample

• TABLE FILE GGSALES
• SUM UNITS DOLLARS
• ON TABLE HOLD FORMAT HTML
• ON TABLE SET PAGE_NUM OFF
• ON TABLE SET STYLE
• TYPEREPORT, GRIDFILL,
• END

Next Key Feature
20
PERFORMANCE BOOSTERS
FOCUS 7.3
Performance Boosters
21
New Compiler for DEFINEsSET DEFINES

• New, more efficient compiler
• Compiles only the DEFINES needed to run the
  request
• Compiles at runtime of TABLE, not at DEFINE
  parsing

SET DEFINES COMPILED DEFINE FILE CAR CNTRY3/A3
EDIT(COUNTRY,999) PROFIT RCOST DCOST
FEET LENGTH / 12 END TABLE FILE CAR PRINT
LENGTH RCOST DCOST FEET PROFIT BY COUNTRY BY CAR
BY MODEL END
Compiles FEET and PROFIT but not CNTRY3
Next Key Feature
22
Parse Masters Only OnceSET SAVEDMASTERS

• Up to 99 parsed masters may be stored in memory
• Most effective with large MFDs reused many times
  during one session or job

CODE SET SAVEDMASTERS3 TABLE FILE CAR TABLE FILE
EMPLOYEE TABLE FILE CAR TABLE FILE PERSONEL TABLE
FILE JOBS TABLE FILE EMPLOYEE
EFFECT IN MEMORY Stores CAR Stores
EMPLOYEE Re-uses CAR moves it to top of
list Stores PERSONEL Stores JOBS (drops
EMPLOYEE) Re-stores EMPLOYEE (drops CAR)
Next Key Feature
23
Optimize RDBMS Variable Length Character Dataand
Increase Row Size

• IF criteria can now reference RDBMS variable
  character data types
• VARCHAR, LONG VARCHAR, and CLOB now up to 32K
• Described in the Master with USAGETX, ACTUALTX
• Read-only selection performed by RDBMS improves
  performance
• Must use CONTAINS or OMITS against a TX field
• In the SQL, CONTAINS becomes LIKE, and OMITS
  becomes NOT LIKE

DONE
24
Pre-Check Subroutine ArgumentsSET USERFCHK

• Verify and fix arguments of FOCUS functions or
  DEFINE functions
• Adjust the level of error checking of parameter
  lengths and type specifications

SET USERFCHK ON / FULL / OFF /
ALERT ON (default) Attempts to fix a length
problem. If fixed, displays a warning if
not, displays an error FULL Same as ON but also
checks functions in MFD OFF Turns verification
off except in extreme cases ALERT Same as OFF but
a warning message is issued
ADDRESS/A30 1600 PENNSYLVANIA
AVENUE TOKEN3/A3 GETTOK (ADDRESS, 20, 3, ' ',
10, TOKEN)
(FOC36335) PARAMETER LENGTH CONFLICT IN
FUNCTION name ARG number
25
Support for READLIMIT in DB2 V7.1 FETCH FIRST n
ROWS

• Allow DB2 to limit rows returned
• Acts like RECORDLIMIT, but handled by DB2

• TABLE FILE CAR
• PRINT MPG SEATS BY MODEL
• IF MPG GT 20
• IF READLIMIT EQ 2
• END

SELECT T1.MODEL,T1.MPG,T1.SEATS FROM
USER1.CAR T1 ORDER BY T1.MODEL FETCH FIRST 2
ROWS ONLY
DONE
26
OUTPUT MECHANISMS
FOCUS 7.3
Output Mechanisms
27
Working with Excel 2000HOLD FORMAT EXL2K

• Supports most StyleSheet attributes
• Allows for full report formatting
• Displays heading, footings, subtotals

Also HOLD FORMAT EXCEL97
TABLE FILE CAR HEADING
"FORMAT EXCEL OUTPUT
lt/1" SUM DEALER_COST
BY COUNTRY SUBTOTAL MULTILINES BY
CAR ON TABLE SET STYLE
TYPEHEADING,STYLEBOLDITALIC,
TYPEDATA,COLORRED, ENDSTYLE
ON TABLE HOLD AS
OUTEXC FORMAT EXCEL END
TABLE FILE CAR HEADING "FORMAT EXL2K OUTPUT lt/1"
SUM DEALER_COST
BY COUNTRY SUBTOTAL MULTILINES BY CAR ON
TABLE SET STYLE
TYPEHEADING,STYLEBOLDITALIC,
TYPEDATA,COLORRED,
ENDSTYLE ON TABLE HOLD AS OUT2K FORMAT EXL2K END
Next Key Feature
DONE
28
Cascading Style Sheets

• Define formatting in statements called rules.
• Example BODY background yellow
• Control line height and letter spacing
• Exercise more control over positioning items in a
  report
• Generate more concise HTML output

TYPEREPORT, CSSURLhttp//websrv2/css/report01.cs
s, TYPEHEADING, CLASSheadText, TYPETITLE,
CLASSreportTitles, TYPEDATA, CLASSlowCost,
WHENN3 LT 27,
Stylesheet Commands
BODY font-familyArial, sans-serif TABLE
border0 TD border0 reportTitles
font-weightbolder backgroundlightblue lowCos
t colorgreen font-styleitalic headText
font-familyTimes New Roman, serif
font-sizelargertext-ligncenter
External CSS File
29
Reuse FOR Values on Multiple FML RowsFORMULTIPLE

• Allows use of data value as the FOR object
  unlimited times
• Reduces the need for RECAP statements to
  duplicate previous data lines

TABLE FILE CAR SUM DEALER_COST FOR
COUNTRY ENGLAND LABEL R1 OVER FRANCE LABEL R2
OVER ITALY LABEL R3 OVER W GERMANY LABEL R4
OVER RECAP R5R1R2R3R4 AS TOTAL END
SET FORMULTIPLEON TABLE FILE CAR SUM
DEALER_COST FOR COUNTRY ENGLAND OVER FRANCE
OVER ITALY OVER W GERMANY OVER ENGLAND OR
FRANCE OR ITALY OR W GERMANY AS TOTAL END
DEALER_COST
----------- ENGLAND 37,853 FRANCE
4,631 ITALY 41,235 W GERMANY
54,563 TOTAL 138,282
Use Label References
Reuse FOR objects
DONE
30
FML Hierarchy

• Dynamically generate FML code based on a
  hierarchical relationship, such as a chart of
  accounts or org chart
• Up to 99 levels deep
• Two new Master File elements PROPERTY, REFERENCE

Field Link
FIELDNAME PRODUCT_MEMBER ,E04 ,A7
,A07 , FIELDNAME PRODUCT_CAPTION
,E05 ,A18 ,A18 ,
PROPERTYCAPTION, REFERENCEPRODUCT_MEMBER,
FIELDNAME PRODUCT_PARENT
,E06 ,A7 ,A07 ,
PROPERTYPARENT_OF, REFERENCEPRODUCT_MEMBER,
Used for AS name
Parent Data Info
31
Use FML Row InformationFMLINFO Function

• Returns the FOR value of a row in an FML report
• Use in COMPUTE for drilldowns, sign changes, etc.

SET FORMULTIPLE ON JOIN ACCOUNT IN CENTGL TO
ALL ACCOUNT IN CENTSYSF TABLE FILE CENTGL SUM
NAT_AMOUNT/D10 AS COMPUTE PRINT_AMT/D10 IF
FMLINFO('FORVALUE','A7') LT '2500 THEN
-NAT_AMOUNT ELSE NAT_AMOUNT COMPUTE FORV/A4
FMLINFO('FORVALUE', 'A4') COMPUTE ACTION/A9
IF FORV LT '2500' THEN 'CHANGED' ELSE
'UNCHANGED FOR GL_ACCOUNT 2000 WITH
CHILDREN 2 ADD AS CAPTIONEND
CENTGL contains the hierarchy for CENTSYSF
hardcoded
Make PRINT_AMT the negative of NAT_AMOUNT for
accounts lt 2500
Actual PRINT_AMT FORV ACTION
Gross Margin -25,639,223
25,639,223 2000 CHANGED Sales Revenue
-62,362,490 62,362,490 2100 CHANGED
Retail Sales -49,355,184
49,355,184 2200 CHANGED Mail Order Sales
-6,899,416 6,899,416 2300 CHANGED
Cost Of Goods Sold 36,723,267
36,723,267 2500 UNCHANGED Variable Material
Costs 27,438,625 27,438,625 2600 UNCHANGED
32
Indenting FML ReportsINDENT

• Indent FML tags, labels or captions by a specific
  amount

TABLE FILE CENTGLPRINT GL_ACCOUNT_PARENT AS
Parent FOR
GL_ACCOUNT1000 AS 'Not Indented
OVER2000 INDENT 5 AS 'Indented 5
OVER3000 GET CHILDREN 2 INDENT 5 AS
'Hierarchy Indented 5' END
Parent
------Not Indented
1000 Indented 5 1000
Hierarchy Indented 5 3000
Hierarchy Indented 5 3100 Hierarchy
Indented 5 3100 Hierarchy Indented 5
3100 Hierarchy Indented 5 3000
Hierarchy Indented 5 3200
Hierarchy Indented 5 3200
Explanation The label of the second row for tag
value 3000 is indented five spaces. The GET
CHILDREN phrase causes the first line of the FML
hierarchy to indent seven spaces (five two).
33
Indenting FML HierarchySET BLANKINDENT
SET BLANKINDENT OFF ON number

• Specify the indentation between FML hierarchy
  levels
• Valid in HTML, PDF and Postscript reports
• Indents captions 0.125 or n units per normal
  space
• Use in conjunction with stylesheet commands
  SQUEEZE and POSITION

34
Differentiate Missing Data in HOLD FileSET
HOLDMISS

• Distinguish in HOLD files between missing data
  and default values (blank for character data and
  zero for numeric data)

SET HOLDMISSON
Blanks replaced by Missing character
TABLE FILE CAR SUM DCOST BY COUNTRY ACROSS
SEATS ON TABLE HOLD FORMAT ALPHA END
ENGLAND 11719 14940 11194 FRANCE
4631 ITALY 36320 4915
JAPAN 5512 W GERMANY
6000 48563
ENGLAND 11719 14940 11194 FRANCE .
. 4631 ITALY 36320 4915.
JAPAN . 5512. W GERMANY .
6000 48563
35
Declare NODATA Character for HOLD FilesSET
HNODATA

• NODATA Substitutes for missing data in a report
• HNODATA Same functionality for files created
  using HOLD FORMAT ALPHA

Forces MISSING Attribute
FOCEXEC
HOLD FILE
SET HOLDMISSON SET HNODATABLANK
ALFA ROMEO BLANK AUDI
12 MONTHS OR 20000 MILES BMW BLANK
DATSUN 12 MONTHS OR 12000
MILES JAGUAR 12 MONTHS OR 12000
MILES JENSEN 12000 MILES OR 12
MONTHS MASERATI PEUGEOT 12 MONTHS ON 12000
MILES TOYOTA 12 MONTHS OR 12500
MILES TRIUMPH 12 MONTHS OR 12000 MILES
ALFA ROMEO AUDI
12 MONTHS OR 20000 MILES BMW
DATSUN 12 MONTHS OR
12000 MILES JAGUAR 12 MONTHS OR 12000
MILES JENSEN 12000 MILES OR 12
MONTHS MASERATI PEUGEOT 12 MONTHS ON 12000
MILES TOYOTA 12 MONTHS OR 12500
MILES TRIUMPH 12 MONTHS OR 12000 MILES
SET ALLON TABLE FILE CAR
PRINT WARRANTY
BY CAR ON TABLE
HOLD FORMAT ALPHA END
Truly blank value
36
Represent Missing Values in HOLD FilesSET NULLON

• Propogate missing values to HOLD files with
  visually consecutive delimiters
• HOLD Formats COM, COMT, TAB, TABT only

SET NULL ON TABLE FILE PRINT FIELD1 FIELD2
FIELD3 ON TABLE HOLD FORMAT COMT END
NEW YORK,2,3 NEW YORK,0,1 NEW YORK,0,0 NEW
YORK,,3 NEW YORK,2, NEW YORK,,
Both fields present FIELD2 is zero Both fields
are zero FIELD2 is missing FIELD3 is missing Both
fields are missing
Next Key Feature
37
Create HOLD Files in Alphanumeric FormatSET
HOLDFORMAT

• Create HOLD files in alphanumeric format
• FTP hold files to the PC

Default
SET HOLDFORMAT BINARY / ALPHA
Binary Data
Alpha Data
38
DATABASE AND MASTER
FOCUS 7.3
Database and Master
39
XFOCUS Database

• XFOCUS database file may grow to 16 gigabytes
• With partitioning, up to 4 terabytes for data
  warehousing
• No change to focexecs
• Convert with standard REBUILD

Will be activated via SET XFCON in subsequent
7.3 Service Pack
40
XFOCUS DatabaseComparison Chart
- - - - - - - -

• FOCUS DATABASE
• 4K page size
• Alpha fields up to A3964
• Up to 2-gig per physical file
• Up to 255 2-gig partitions
• Up to ½ terabyte total size
• Segment names up to 8 chars
• Index field names up to 12 chars
• Page 1 contains FDT and data

• XFOCUS DATABASE
• 16k page size 2X as many pages
• Alpha fields up to A4096
• Up to 16-gig per physical file
• Up to 255 16-gig partitions
• Up to 4 terabytes total size
• Segment names up to 64 chars
• Index field names up to 66 chars
• Page 1 dedicated to FDT

More records per page More pages per file Larger
files
Reduced i/o Fewer partitions TRUE DATA WAREHOUSE
41
XFOCUS DatabaseReplacing Legacy Files
Converting is easy! Just REBUILD!
FILEfilename, SUFFIXFOCUS SEGNAME
DUMP
FILEfilename, SUFFIXXFOCUS SEGNAME
LOAD
42
XFOCUS DatabaseFor Data Warehousing
XFOCUS Database is oriented toward Data Warehouse
applications rather than transactional updates

• All FOCUS syntax and capabilities work with
  XFOCUS files,
• except as follows (may be supported in later
  releases)
• Maintain
• HLI calls
• Sink machine (SU)
• External Index and Multi-Dimensional Index (MDI)
• Static cross references (KU, KL, KM)
• Permitted, but indexes not resolved (acts as
  DKU/DKM)

Next Key Feature
43
High Performance Multi-Dimensional Index MDI
MDI provides virtually instant access to the data
you need
MDI has been in use for years in our FUSION
product
CAR
MODEL
COUNTRY
MDIs can have more than 3 dimensions
DONE
44
High Performance Multi-Dimensional Index
MDI(FOCUS and XFOCUS Files)
MASTERNAME CAR DATANAME 'CARACX1 FOCUS M'
DATANAME 'CARACX2 FOCUS M' DATANAME 'CARACX3
FOCUS M' MDILOCATION CARMDI TARGET_OF
ORIGIN DIMENSION CAR DIMENSION
COUNTRY DIMENSION MODEL DATANAME
'CARMDI MDI M'
ACCESS FILE
TABLE FILE CAR PRINT BODYTYPE SEATS WHERE CAR EQ
'JAGUAR' WHERE COUNTRY EQ 'ENGLAND' END
Unlike RDBMS Clustered index, MDI fields can be
in any order and all fields need not be used

• REBUILD MDINDEX
• creates new MDIs, or adds new partitions
  to an existing MDI

Next Key Feature
45
Long Segment Names in XFOC Files

• Up to 64 characters long

Error generated 8 char max
Pre 7.3

• SEGNAME VERYLONGNAMEFORASEGMENT,SEGTYPE,

Now 64 char max
7.3
SEGNAME VERYLONGNAMEFORASEGMENT,SEGTYPE,
46
Long Index Names in XFOC Files

• Up to 66 characters long

Pre 7.3

• FIELD VERYLONGNAMEFORANINDEX,, I5, INDEXI,

Error generated 12 char max
Now 66 char max
7.3
FIELD VERYLONGNAMEFORANINDEX,, I5, INDEXI,
Now, index names can be the full length of
field names
47
GROUP Fields in MasterNow for FOCUS Files Too
What is a GROUP?
Consecutive fields in a master that represent a
logical collection, such as Firstname, Middle
initial, Lastname
Group length LAST FIRSTHIRED
(HIRED is integer with internal length of 4)
Index a group for JOIN and MODIFY
Components may be separated by slashes
TABLE FILE EMPGROUP PRINT
EMP_ID LAST FIRST HIRED BY FULLNAME NOPRINT
WHERE FULLNAME GT 'CROSS/BARBARA/991102' END
Next Key Feature
48
Physical Name of LOCATION FileDATASET At Segment
Level

• DATASET attribute already available at the file
  level in a FOCUS Master File
• Now specify the physical file name of a LOCATION
  segment, or a cross-referenced segment with field
  redefinitions

DATASET was already available on the FILE level
FILE ... , DATASETSEGNAMEBODY,SEGTYPES1,PAREN
TCARREC,LOCATIONBODYSEG, DATASET'USER1.XYZ2.F
OCUS',FIELDNAMEBODYTYPE,TYPE,A12,FIELDNAMESE
ATS,SEAT,I3,FIELDNAMEDEALER_COST,DCOST,D7,
Segment now in its own physical file
XYZ1 XYZ2 XYZ3
XYZ2
49
Read-only Fields in MasterFIELDTYPE R

• FIELDTYPER identifies a field as read-only
• UPDATE issued for a read-only field is ignored
  by MODIFY and MAINTAIN
• Supports relational data sources with
  auto-increment columns (automatically incremented
  by the RDBMS)
• IDENTIFY or timestamp columns in DB2

FILEMNTAUTO , SUFFIXSQLMSS ,SEGNAMEMNTAUTO,
SEGTYPES0 ,FIELDCONTROL ,CONTROL ,I11 ,I4
,MISSINGOFF,FIELDTYPER,FIELDLASTNAME ,LAST
,A12 ,A12,MISSINGOFF,FIELDFIRSTNAME,FIRST
,A12 ,A12,MISSINGOFF,FIELDITEM ,ITEM
,A20 ,A20,MISSINGOFF,FIELDAMOUNT ,AMOUNT
,P19 ,P10,MISSINGOFF,
50
Read Tab-Delimited FilesSUFFIX TAB

• Tab-delimited files for output or input
• Create using HOLD FORMAT TAB
• Similar to TABT, without leading column heading
  record

TABLE FILE MOVIES PRINT COPIES TITLE
WHOLESALEPR BY CATEGORY IF CATEGORY EQ 'ACTION'
OR 'CHILD ON TABLE HOLD AS TAB1 FORMAT TABEND
gt implies tab
ACTIONgt2gtJAWSgt10.99 ACTIONgt3gtROBOCOPgt11.50
ACTIONgt4gtTOTAL RECALLgt11.99 ACTIONgt2gtTOP
GUNgt9.99 ACTIONgt3gtRAMBO IIIgt10.99CHILDgt1gtSMURFS,
THEgt10.00CHILDgt2gtSHAGGY DOG, THEgt29.99
FILETAB1 ,SUFFIXTAB
SEGNAMETAB1 ,SEGTYPES01
FIELDNAME
CATEGORY ,E01 ,A8 ,A08 ,FIELDNAME
COPIES ,E02 ,I3 ,A03
,FIELDNAME TITLE ,E03 ,A39
,A39 ,FIELDNAME WHOLESALEPR ,E04 ,F6.2
,A06 ,
51
Varchar SupportAnV Field Format
DB2 varchar

• V

An A1V A4096V
5 bytes
A5 ABC A5V ABC
A B C
3 A B C
FUNCTIONS LENV LOCASV POSITV SUBSTV TRIMV UPCASV
6 bytes
Number of non-blank bytes
??? TX vs. AnV ???
52
RAISED LIMITS
FOCUS 7.3
Raised Limits
53
Unlimited IF/THEN/ELSE
Ever hit that magic number? 17
If/Then/Elses in one statement
Now you dont have to! Unlimited IF/THEN/ELSEs
in one calculation (limited
by memory)
DEFINE or COMPUTE FL/A2 IF (VALUE EQ 1) THEN
A ELSE IF (VALUE EQ 2) THEN B ELSE IF
(VALUE EQ 3) THEN C ELSE . . . . IF (VALUE
EQ 16) THEN P ELSE IF (VALUE EQ 17) THEN Q
ELSE NO FL IF (FL NE NO) THEN FL
ELSE IF (VALUE EQ 18) THEN R ELSE IF (VALUE
EQ 19) THEN S ELSE . . . . IF (VALUE EQ 33)
THEN H ELSE NO FL IF (FL NE NO) THEN
FL ELSE . . . .
Next Key Feature
54
63 COMBINEs for MODIFY

• Up to 64 total segments in a COMBINE structure
• Non-root segments lower the of files to COMBINE

COMBINE file1 AND file2 AND file3 AND . file63
AS ONEBIG
FOCUS creates imaginary root segment, which
counts as one
SYSTEM segment
. . .
File 3 Root segment
File 1 Root segment
File 2 Root segment
File 63 Root segment
File Sub-structure
The old limit was 16 COMBINEs
55
Long Amper Variables

• Amper variables ( or ) may now be up to 32k
  chars
• Use in -READ, -WRITE, or argument on EX
• Up to 4K chars per SET calculation
• Up to 32K total space for all local ampers ()

-SET PART1 123456789112345678921234567893 -S
ET PART2 123456789412345678951234567896 -SET
PART3 123456789712345678981234567899 -SET
PARTX PART1 PART2 PART3 TABLE FILE
CAR PRINT CARPART IF CARPART EQ PARTX
Previously gave line overflow errors due
to gt80 substitution
56
Long Qualified Field Names

• Compound length limit raised to accommodate the
  longest name for all components

• FIELD/A1 LONGFILENAME.LONGSEGMENTNAME.LONGFIELDN
  AME

Up to 64 chars
Up to 64 chars
Up to 66 chars
Up to 196 total characters (including dots)
Specify via Wide-Lines focexecs or amper variable
substitution

64-character segment names only in XFOC
files. Segment names in FOC files remain up to 8
chars.
57
More ACROSS Values

• Number of displayable ACROSS field values
  increased from 95 to 1,056

Up to 1,056 ACROSS field values
MODEL CAR BB CC DD EE FF GG HHTT UU
VV WW XX JAG 10 22 5 C9 11 P2 9 12
63 DF 1 BMW 9 159 25 XU P4 1 P2 7
32 -- DE 2
58
1,024 Display Fields

• Number if fields in a single or pooled TABLE
  request increased from 495 to approximately 1,024
• Excludes sort fields
• MATCH limited to 495
• Actual maximum for a specific report is
  influenced by
• Hidden fields (NOPRINT)
• Temporary fields (COMPUTE and DEFINE)
• Internal fields, like TABPAGENO
• The size of the fields
• Field references in headings and footings

Great for extracts to Data Warehouse! What else?
59
More Sort Headings and Footings

• Now up to 32K reserved for sort headings and
  footings
• Up to 64 total SUBHEADs and SUBFOOTs
• Great power combined with WHEN
• Up to 64 nested headings
• Independent of area reserved for HEADING and
  FOOTING

BY COUNTRY BY CAR BY MODEL ON COUNTRY SUBHEAD
TEXT FOR ENGLAND WHEN COUNTRY EQ ENGLAND ON
COUNTRY SUBHEAD TEXT FOR FRANCE WHEN COUNTRY
EQ FRANCE . . . .
60
Increased Space for Column Titles

• Automatically adjusts to memory available
• Initialized to 6K bytes

61
More External Index Partitions

• External Index partitions increased from 120 to
  240 max
• Dependent on File Control Table spares during
  session
• (External Index file up to 2gig)

USEORDERS1 AS ORDERSORDERS2 AS
ORDERS...ORDERS150 AS ORDERSORDERS151 AS
ORDERSORDERS152 AS ORDERSEND
Create 152 concatenated partitions
REBUILDEXTERNAL INDEXNEWORDIDXORDERSL_SHIPDA
TENONO
Build the new external index
THEN
FCT for FOCUS, Fusion, external index, MDI files
62
OPERATING SYSTEM
FOCUS 7.3
Operating System
63
Get User Name from Amper VariableFOCUSER

• System amper () variable retrieves the logon ID
• Use instead of the GETUSER function
• Supported anywhere an amper variable can be used
• Ok in MODIFY, but not in Compiled MODIFY. Why
  not??

Examples
USER/A8 FOCUSER Report run by
FOCUSER IF EDIT(FOCUSER,9999) . . .
64
Wide Lines for Focexecs, Masters, Access Files

• Lrecl gt80 for focexecs, masters, access files
• Up to 32K wide
• Entire TABLE or SQL statement on one line
• Continuous lines for
• HEADINGs and FOOTINGs
• CRTFORM
• Comments
• EX argument strings
• Long amper variables
• Function parameter list
• Some commands require separate lines
• MODIFY syntax, END, HEADING and its text

65
Wide Lines for Focexecs, Masters, Access
FilesExamples
DEFINE FILE CAR FIELD/A4096 ABCDEFGHIJTU
VWXYZ
TABLE FILE CAR PRINT FIELD1 FIELD2
FIELD3FIELD1024
- Pass a long argument EX SOMEFOC VERY
LENGTHYSTRING
SEGMENT.. FIELDAC,,A4, INDEXI,,ACCEPT,
TITLE,
In the Master
66
Call Your System Editor for Wide-line FilesIEDIT

• Work with files of lrecl gt 80
• Needed for Wide Lines which TED does not support
• Call to your system editor (XEDIT or ISPF)
• Your editor profiles and macros remain in force
• Several TED-like conveniences
• IEDIT with no argument recalls last-run focexec
• File displays at line number of last error
• RUN command saves and executes the focexec

67
Relative GDG 1

• Relative GDG (Generation DataSet) may be a
  positive number as well as negative number
• Plus creates a new generation entry in the
  catalog to be generated later with HOLD or SAVE

DYNAM ALLOC FILE DYNHLD DS ABCD.GDG.FIX(1) NEW
CATLG
68
MAINTAIN
FOCUS 7.3
MAINTAIN Enhancements
69
MAINTAIN Filetype Extension

• MAINTAIN procedures can have a file extension of
  MAINTAIN instead of FOCEXEC (for both MVS and
  CMS)
• MNTCON is required to work with MAINTAIN
  procedures that have their own extensions

//MAINTAIN DDmyqual.MAINTAIN.DATA,DISPSHR
MVS JCL
maintproc MAINTAIN A1
VM
MNTCON EX maintproc MNTCON COMPILE
maintproc MNTCON RUN maintproc
will look for the new extension still FOCCOMP
70
New Screening Conditions for MAINTAIN

• NOT_IN true when a field is not in a list of
  values
• e.g. For All Next Country Where Country NOT_IN
  ("ENGLAND","FRANCE")
• EQ_MASK and NE_MASK Compares a database field
  to a computed field using wildcard character ()
• Example Compute afld/a8"LAND" For All Next
  Country Where Country EQ_MASK afld

FOR ALL NEXT fields INTO stackname WHERE field
NOT_IN list (item1, item2 , ) EQ_MASK
mask NE_MASK mask CONTAINS string OMITS string
MASK may contain wildcards Ex ABCEG
looks for any character in those positions
71
FOCUS SETs from MAINTAIN

• Use SYS_MGR.FOCSET function to pass a SET
  option and its value
• Example SYS_MGR.FOCSET("CDN","ON")

Settable Options EMGSRV MESSAGE
WARNING TRACEON TRACEOFF TRACEUSER
CDN COMMIT DEFCENT YRTHRESH
DATEDISPLAY NODATA LANGUAGE USER PASS
72
THANK YOU

Thank you !
Start
73
FOCUS 7.3 PresentationSelected Features in order
of discussion

• Index Feature Handout
• (45) XFOCUS Database Page 10 (bottom left)
• (48) Multi-Dimensional Index (MDI) Page 11
  (bottom left)
• (20) Working with EXCEL 2000 Page 7 (bottom
  left)
• (14) STYLESHEET enhancements Page 5 (top right)
• (04) Displaying PAGE n OF max Page 2 (bottom
  right)
• (49) GROUPS in FOCUS Masters Page 12 (bottom
  left)
• (36) Unlimited IF/THEN/ELSE Page 14 (top left)
• (16) Parse masters only once Page 5 (top right)
• (02) Display BY value on every row Page 2 (top
  right)
• (13) Multiple reports in one PDF/PS Page 5 (top
  left)
• (15) New DEFINEs compiler Page 6 (top left)
• (27) Missing value in HOLD Page 9 (top right)
• (03) Prefixes on summary lines Page 2 (bottom
  left)