IBI Overhead Transparency Template

Download Report

Transcript IBI Overhead Transparency Template

FOCUS For S/390 - Version 7.1.0

FOCUS Product Management i-business changes everything DN 9602 000.0099

FOCUS Release 7.1.0 New Features

Introducing

---

DN 9602 000.0099

New

Database

Enhancements New

Reporting

Enhancements And More

FOCUS Release 7.1.0 New Features New Database Enhancements!

1) 2) 3) 4) 2-Gigabyte physical FOCUS files Intelligent Partitioning (500-gigabyte logical database) Allocate the file within the Master itself New DATETIME data type

DN 9602 000.0099

FOCUS Release 7.1.0 New Features New Reporting Enhancements!

1) 2) 3) 4) 5) 6) 7) 8) 9) 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

DN 9602 000.0099

FOCUS Release 7.1.0 New Features Other Valuable Enhancements!

1) 2) 3) 4) 5) 6) 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

DN 9602 000.0099

FOCUS Release 7.1.0 New Features

DN 9602 000.0099

New Database Enhancements

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

DN 9602 000.0099

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!

DN 9602 000.0099

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 MASTER File ACCESS File Data File

DN 9602 000.0099

Describes logical construction of data file. Gives pseudo-name Points to physical name of data file and partitions

Data File

Partitions

FOCUS Release 7.1.0 New Features Partitioned FOCUS Database FILE= PORD2000 , SUFFIX=FOC,

ACCESS=PORDER

…

MASTER PORD2000 DATANAME PORDER ACCESS

File

'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 February 2000 March 2000

…

DN 9602 000.0099

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! 11

DN 9602 000.0099

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 … MVS or VM

DN 9602 000.0099

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

10 11 9 8 7 12 6 1 5 2 3 4

Date part Time part

DN 9602 000.0099

FOCUS Release 7.1.0 New Features

DN 9602 000.0099

New Reporting Enhancements

FOCUS Release 7.1.0 New Features Screen on Independent Paths TABLE FILE CAR PRINT

WARRANTY

WHERE

MODEL

EQ ‘TR7’ END

(FOC144) WARNING. TESTING IN INDEPENDENT SETS OF DATA SET MULTIPATH=COMPOUND

TABLE FILE CAR PRINT

WARRANTY

WHERE

MODEL

EQ ‘TR7’ END

SET MULTIPATH=SIMPLE (FOCUS Default)

WARRANTY 12 MONTHS OR 12000 MILES 12000 MILES OR 12 MONTHS 12 MONTHS OR 12000 MILES 6 MONTHS OR 6000 MILES WARRANTY 12 MONTHS OR 12000 MILES COUNTRY 12 MONTHS OR 12500 MILES 12 MONTHS OR 20000 MILES

MODEL

12 MONTHS OR 12000 MILES

DN 9602 000.0099

WARR

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,,D7 c ,$ COMPUTE DCOST/D7 c = 1234; D7 D7

7,427 7427

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

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];

DN 9602 000.0099

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; END TABLE FILE CAR

RCOST

MINUS AS ‘’

DCOST

Fields are local to the function only EQUAL AS ‘’ COMPUTE

MARKUP

/D8 =

DIFF(RCOST,DCOST);

END RCOST 8,878 13,491 17,850 3,139 DCOST MARKUP 7,427 = 1,451 11,194 = 2,297 14,940 = 2,910 2,626 = 513 18

DN 9602 000.0099

FOCUS Release 7.1.0 New Features REXX Functions Functions may now be written in REXX

DEFINE FILE EMPLOYEE AHDT/A6 = EDIT(HDT); END DOW/A9 WITH HDT =

WEEKDAY

(6,AHDT,9,DOW); TABLE FILE EMPLOYEE PRINT LN HDT DOW END Filetype or DDname must be FUSREXX /*

WEEKDAY FUSREXX

/ Arg ymd Return Date('W',Translate('34/56/12',ymd,'123456'),'U')

Not supported in MAINTAIN

DN 9602 000.0099

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. 20

DN 9602 000.0099

FOCU

S 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  Let’s see an example in action … Even a set of delimiter characters!

DN 9602 000.0099

FOCUS Release 7.1.0 New Features Token Delimited Files GERMANY

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 COUNTRY CAR NUMBER GERMANY VW 1111 Identify the character(s) in JAPAN 44444 22

DN 9602 000.0099

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

FOCUS Release 7.1.0 New Features BY TOTAL

Sort by Average Sales

COUNTRY CAR

AVE SALES

* ENGLAND JENSEN

17650

TRIUMPH

24200

JAPAN HONDA

17480

TOYOTA

18250

SALES * 73000 122000 197300 235000 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

TABLE FILE CAR SUM SALES BY COUNTRY BY CAR

BY TOTAL AVE.SALES

END No HOLD !

Invented 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 / I 2 Let’s look at an example:

DN 9602 000.0099

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

DN 9602 000.0099

M P G L E N G T H 0 4 8 12 MPG LENGTH

* I and P formats only

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: The quick brown fox jumps over the lazy dog 27

DN 9602 000.0099

FOCUS Release 7.1.0 New Features

DN 9602 000.0099

Other Valuable Enhancements

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

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 … PRINT …

ABCD ABCD

ON TABLE

HOLD AS ABCD

END

DN 9602 000.0099

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

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

FOCUS Release 7.1.0 New Features WEBTAB Setting for WEB390

SET WEBTAB = ON DN 9602 000.0099

Original CRTFORM HTML/TP “Recognize” Screen WEB390 Presentation

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

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 Data Structure FOCUS MASTERFILE COBOL FD

DN 9602 000.0099

FOCUS Release 7.1.0 New Features ADABAS Write  Update capability now exists for ADABAS files

DN 9602 000.0099

SQL Update MODIFY MAINTAIN

ADABAS File

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 SET SQLORA ?

(FOCxxxx) DEFAULT IXSPACE IS - : ORATS1 Any valid index-spec Generates: “SQL CREATE INDEX ORATS1”

DN 9602 000.0099

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

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

DN 9602 000.0099

FOCUS Release 7.1.0 New Features

DN 9602 000.0099

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

FOCUS Release 7.1.0 New Features WEBTAB Setting for WEB390

SET WEBTAB = ON DN 9602 000.0099

Original CRTFORM HTML/TP “Recognize” Screen WEB390 Presentation

IBI Overhead Transparency Template

Transcript IBI Overhead Transparency Template

FOCUS For S/390 - Version 7.1.0

AutoIMS

SQL Update MODIFY MAINTAIN

ADABAS File

Directory