Maximizing Your CA IDMS Investment for the New

  • Slides: 58
Download presentation
“Maximizing Your CA IDMS™ Investment for the New Application Economy” Dave Ross, Product Owner

“Maximizing Your CA IDMS™ Investment for the New Application Economy” Dave Ross, Product Owner Sheila Miller, Principal Product Manager August 5, 2015

Abstract Make sure your CA IDMS™ database is being used to the fullest, and

Abstract Make sure your CA IDMS™ database is being used to the fullest, and optimized to maximize your investment. Join us to hear about a number of modernization enhancements that help to improve performance, scalability, platform support, standards compliance, and usability. This interactive technical education is for customers who have recently upgraded, currently upgrading or considering upgrading to the most current product releases. We will discuss the most impactful enhancements and best practices so you can immediately begin using these recommended features with confidence to ensure continued success within your CA IDMS operations today. 2 © 2015 CA. ALL RIGHTS RESERVED.

Agenda Modern application • Why modernize CA IDMS™? environment Modernizing CA IDMS databases Modernizing

Agenda Modern application • Why modernize CA IDMS™? environment Modernizing CA IDMS databases Modernizing CA IDMS applications Modernizing CA IDMS 3 • Network to relational mapping • Web services provider • Web services consumer • Improve performance, scalability, and usability © 2015 CA. ALL RIGHTS RESERVED.

Modernization Approach § CA IDMS is Very Relevant – Providing Data Access & Efficiency

Modernization Approach § CA IDMS is Very Relevant – Providing Data Access & Efficiency are Key § Core CA IDMS business data access to today’s devices is core to driving “RELEVANCY” § Compression drives savings § Managing performance ensures data availability § Staff augmentation provides CA customers a path to sustainment 4 © 2015 CA. ALL RIGHTS RESERVED.

Modernizing Application Environment

Modernizing Application Environment

How Do You Maximize Business Value? Large investment in legacy applications Conversion can be

How Do You Maximize Business Value? Large investment in legacy applications Conversion can be costly & risky Legacy skills are hard to find Modernize Leverage investment, reduce cost 6 Preserve applications, Use current developer reduce risk skills © 2015 CA. ALL RIGHTS RESERVED.

Modernizing CA IDMS What We Mean Modernize CA IDMS databases • Leverage your data

Modernizing CA IDMS What We Mean Modernize CA IDMS databases • Leverage your data • Access from web services • Use standard interfaces Modernize CA IDMS applications • Reuse your application business logic • Invoke web services • Provide web services 7 © 2015 CA. ALL RIGHTS RESERVED.

Modernizing CA IDMS How You Can Do It Use industry standard APIs SQL ODBC,

Modernizing CA IDMS How You Can Do It Use industry standard APIs SQL ODBC, JDBC SOAP, REST HTTP TCP/IP Enabled by CA IDMS SQL 8 CA IDMS Server CA IDMS Web Services © 2015 CA. ALL RIGHTS RESERVED. CA IDMS Sockets

Modernizing CA IDMS Databases

Modernizing CA IDMS Databases

How to Enable SQL Access to Network Records In One Easy Step CREATE SCHEMA

How to Enable SQL Access to Network Records In One Easy Step CREATE SCHEMA EMPSQL FOR NONSQL SCHEMA APPLDICT. EMPSCHM V 100; SQL Schema Defined in SQL catalog Identifies Network schema 10 Database instance (optional) © 2015 CA. ALL RIGHTS RESERVED.

Select CA IDMS data Every network record automatically appears as a table OBTAIN CALC

Select CA IDMS data Every network record automatically appears as a table OBTAIN CALC becomes SELECT * FROM EMPSQL. EMPLOYEE WHERE “EMP_ID_0415” = 9771; 11 © 2015 CA. ALL RIGHTS RESERVED.

Relational to Network Mapping Relational (SQL) Network (CA IDMS) Table • Identically named Record

Relational to Network Mapping Relational (SQL) Network (CA IDMS) Table • Identically named Record definition Row • Equivalent Record • Equivalent occurrence Column • Automatically renamed Element Referential • Partial mapping constraint 12 Set © 2015 CA. ALL RIGHTS RESERVED. • Via SCHEMA • Except ODO, redefines, … • Lack of foreign keys

Network Record Appears as a table • Name not translated • Enclose in quotes

Network Record Appears as a table • Name not translated • Enclose in quotes if needed EMPSQL. ”DENTAL-CLAIM” 13 © 2015 CA. ALL RIGHTS RESERVED.

Record Element Lowest level element appears as a column • Name translated • Hyphens

Record Element Lowest level element appears as a column • Name translated • Hyphens changed to underscores • SQL synonym can override name Type mapped to SQL type Some element definitions are not mapped • Group items • Redefines • Occurs depending 14 © 2015 CA. ALL RIGHTS RESERVED.

Network Set May Appear as a Referential Constraint Referenced table CUSTOMER TABLE Primary key

Network Set May Appear as a Referential Constraint Referenced table CUSTOMER TABLE Primary key ACCOUNT NAME ADDRESS 100100 BILL HERE 102030 DAVE THERE 230504 FRED NOWHERE TRANSACTION TABLE Foreign key 15 ACCOUNT DATE AMOUNT 102030 20070130 200. 00 230504 20070212 147. 50 Referencing table © 2015 CA. ALL RIGHTS RESERVED.

Relational To Network Mapping Techniques Syntax extensions Views Procedures • Table procedures • Called

Relational To Network Mapping Techniques Syntax extensions Views Procedures • Table procedures • Called procedures Foreign keys • Embedded foreign keys • Virtual foreign keys 16 © 2015 CA. ALL RIGHTS RESERVED.

Syntax Extensions CA IDMS Extensions to SQL • No programming • No database changes

Syntax Extensions CA IDMS Extensions to SQL • No programming • No database changes Set Name Predicate • WHERE <set name> • Join criteria for set navigation • Supports most queries ROWID Pseudo Column • Based on DBKEY, has the same persistence • Not defined in catalog or dictionary • Especially useful for updating records 17 © 2015 CA. ALL RIGHTS RESERVED.

Using A Set Name Predicate SELECT EMP_ID_0415, INS_PLAN_CODE_0400, DENTIST-LICENSE-NUMBER-0405 FROM EMPSQL. EMPLOYEE, EMPSQL. COVERAGE,

Using A Set Name Predicate SELECT EMP_ID_0415, INS_PLAN_CODE_0400, DENTIST-LICENSE-NUMBER-0405 FROM EMPSQL. EMPLOYEE, EMPSQL. COVERAGE, EMPSQL. ”DENTAL-CLAIM” C WHERE “EMP-COVERAGE” AND “COVERAGE-CLAIMS”. C 18 © 2015 CA. ALL RIGHTS RESERVED.

Using a ROWID UPDATE EMPSQL. COVERAGE C SET SELECTION_YEAR_0400 = 20 WHERE C. ROWID

Using a ROWID UPDATE EMPSQL. COVERAGE C SET SELECTION_YEAR_0400 = 20 WHERE C. ROWID IN ( SELECT CI. ROWID FROM EMPSQL. EMPLOYEE E, EMPSQL. COVERAGE CI WHERE “EMP-COVERAGE” AND EMP_ID_0415 = 23) 19 © 2015 CA. ALL RIGHTS RESERVED.

Views Encapsulate syntax extensions Encapsulate relationships Override column names Enforce security • Tables •

Views Encapsulate syntax extensions Encapsulate relationships Override column names Enforce security • Tables • Columns • Rows 20 © 2015 CA. ALL RIGHTS RESERVED.

Table Procedures External program that issues native DML Accessed like table in SQL DML

Table Procedures External program that issues native DML Accessed like table in SQL DML • • SELECT INSERT UPDATE DELETE Returns a result set like a table 21 © 2015 CA. ALL RIGHTS RESERVED.

Table Procedure Use Cases Encapsulate relationships Solve structural problems • Lack of embedded foreign

Table Procedure Use Cases Encapsulate relationships Solve structural problems • Lack of embedded foreign keys • OCCURS DEPENDING ON Requires programming • Can generated with CA IDMS SQL Quick Bridge No database or application changes 22 © 2015 CA. ALL RIGHTS RESERVED.

Foreign Keys Embedded Foreign Keys – user defined Virtual Foreign Keys – system defined

Foreign Keys Embedded Foreign Keys – user defined Virtual Foreign Keys – system defined Allow use of standard SQL Enforce referential constraint enforcement Standard ODBC and JDBC metadata Compatibility with common tools 23 © 2015 CA. ALL RIGHTS RESERVED.

EMPSCHM with Embedded Foreign Keys EMPLOYEE 415 F 120 CALC COVERAGE-NDX EMP-ID-0415 EMP-ID-0400 INS-PLAN-CODE-0400

EMPSCHM with Embedded Foreign Keys EMPLOYEE 415 F 120 CALC COVERAGE-NDX EMP-ID-0415 EMP-ID-0400 INS-PLAN-CODE-0400 TYPE-0400 EMP-DEMO-REGION EMP-COVERAGE 400 F 24 DENTAL-CLAIM VIA 405 V EMP-COVERAGE-CLAIMS INS-DEMO-REGION EMP-ID-0400 COVERAGE-CLAIMS 24 940 VIA © 2015 CA. ALL RIGHTS RESERVED. EMP-ID-0405 INS-PLAN-CODE-0405 TYPE-0405

Using Embedded Foreign Keys Standard SQL § Nonstandard CA IDMS extensions UPDATE EMPSQL. COVERAGE

Using Embedded Foreign Keys Standard SQL § Nonstandard CA IDMS extensions UPDATE EMPSQL. COVERAGE C SET SELECTION_YEAR_0400 = 20 WHERE C. ROWID IN ( SELECT CI. ROWID FROM EMPSCHM. EMPLOYEE E, EMPSCHM. COVERAGE CI WHERE “EMP-COVERAGE” AND EMP_ID_0415 = 23) § Become standard SQL UPDATE EMPSQL. COVERAGE SET SELECTION_YEAR_0400 = 20 WHERE EMP_ID_0400 = 23) 25 © 2015 CA. ALL RIGHTS RESERVED.

Virtual Foreign Keys CA IDMS V 19 incremental release Based on ROWID • Virtual

Virtual Foreign Keys CA IDMS V 19 incremental release Based on ROWID • Virtual primary key = ROWID • Virtual foreign key = FKEY_<set_name> Define on SQL Schema definition Visible through metadata 26 © 2015 CA. ALL RIGHTS RESERVED.

EMPSCHM with Virtual Foreign Keys EMPLOYEE 415 F 120 CALC COVERAGE-NDX EMP-ID-0415 EMP-ID-0400 INS-PLAN-CODE-0400

EMPSCHM with Virtual Foreign Keys EMPLOYEE 415 F 120 CALC COVERAGE-NDX EMP-ID-0415 EMP-ID-0400 INS-PLAN-CODE-0400 TYPE-0400 EMP-DEMO-REGION EMP-COVERAGE 400 F 24 DENTAL-CLAIM VIA 405 V EMP-COVERAGE-CLAIMS INS-DEMO-REGION FKEY_EMP_COVERAGE FKEY_CONVERAGE_CLAIMS COVERAGE-CLAIMS 27 940 VIA © 2015 CA. ALL RIGHTS RESERVED.

Using Virtual Foreign Keys Standard SQL § Nonstandard CA IDMS extensions UPDATE EMPSQL. COVERAGE

Using Virtual Foreign Keys Standard SQL § Nonstandard CA IDMS extensions UPDATE EMPSQL. COVERAGE C SET SELECTION_YEAR_0400 = 20 WHERE C. ROWID IN ( SELECT CI. ROWID FROM EMPSCHM. EMPLOYEE E, EMPSCHM. COVERAGE CI WHERE “EMP-COVERAGE” AND EMP_ID_0415 = 23) § Become standard SQL UPDATE EMPSQL. COVERAGE SET SELECTION_YEAR_0400 = 20 WHERE FKEY_SET_EMP_COVERAGE = ( SELECT ROWID FROM EMPSQL. EMPLOYEE WHERE EMP_ID_0415 = 23) 28 © 2015 CA. ALL RIGHTS RESERVED.

29 e ct ur Se ts ru st Ap Re c pli ha cat

29 e ct ur Se ts ru st Ap Re c pli ha cat ng io es n p w Ne St an da ro rd gr SQ L am s Relational To Network Mapping Comparison of Techniques SQL Extensions No No Limited Views Yes No No No Limited Table Procedures Yes No No Encapsulate Embedded Keys Yes No Yes Maybe Referential constraints Virtual Keys Yes No No No Referential constraints © 2015 CA. ALL RIGHTS RESERVED.

Modernizing CA IDMS Applications Consuming Web Services Providing Web Services

Modernizing CA IDMS Applications Consuming Web Services Providing Web Services

Service Consumer Extending CA IDMS Applications CA IDMS sockets CA IDMS web services CICS

Service Consumer Extending CA IDMS Applications CA IDMS sockets CA IDMS web services CICS web services Protocols • SOAP/REST • XML/JSON • HTTP 31 © 2015 CA. ALL RIGHTS RESERVED.

CA IDMS Socket Program Using SOAP Specify request as an XML document Wrap request

CA IDMS Socket Program Using SOAP Specify request as an XML document Wrap request in SOAP envelope Bind to protocol such as HTTP Send request and receive reply using TCP/IP Unwrap XML reply from SOAP envelope Extract response from XML document 32 © 2015 CA. ALL RIGHTS RESERVED.

CA IDMS Web Services Service Consumer Available in V 19 Incremental Release 1 Does

CA IDMS Web Services Service Consumer Available in V 19 Incremental Release 1 Does most of the heavy lifting for you • • Wraps request in SOAP envelope Binds to HTTP protocol Sends request and receives reply using TCP/IP Unwrap XML reply from SOAP envelope You supply a program • Specify request as an XML document • Extract response from XML document 33 © 2015 CA. ALL RIGHTS RESERVED.

Service Provider Re-using CA IDMS Applications Application re-use issues • Separation of business from

Service Provider Re-using CA IDMS Applications Application re-use issues • Separation of business from presentation logic • How you can create APIs • Invoking the business logic from the modern environment • Think in terms of components CALL Interface Presentation Interface 34 © 2015 CA. ALL RIGHTS RESERVED.

Call Interface Like a remote procedure call Extract logic from application • Subroutines •

Call Interface Like a remote procedure call Extract logic from application • Subroutines • Map-less dialogs • Extracted code Invoke using • • 35 Socket programs SQL procedures with JDBC or ODBC CA IDMS web services CICS web services © 2015 CA. ALL RIGHTS RESERVED.

CA IDMS SQL Procedures with CA IDMS Server CA IDMS is part of the

CA IDMS SQL Procedures with CA IDMS Server CA IDMS is part of the service provider Define with CREATE PROCEDURE • Reuse business logic in: • CA ADS™ map-less dialog • COBOL program Implement web service on an app server • Tomcat, WAS, … Call with standard APIs • SQL CALL statement • ODBC • JDBC 36 © 2015 CA. ALL RIGHTS RESERVED.

CA IDMS Web Services CA IDMS is the service provider Available in V 19

CA IDMS Web Services CA IDMS is the service provider Available in V 19 Incremental Release 2 Provides HTTP server and SOAP wrapper User written program implements the service • Extract request from XML document • Processes request • CA ADS map-less dialog • COBOL program • SQL Procedure • Formats response as an XML document 37 © 2015 CA. ALL RIGHTS RESERVED.

CA IDMS Web Services Web Service Consumer Web Service WAS Tomcat Apps Mobile Apps

CA IDMS Web Services Web Service Consumer Web Service WAS Tomcat Apps Mobile Apps App Server Provider JDBC IDMS Web Services IDMS SQL/JDBC SQL Procedure Web Service Consumer DC COBOL ADS CA IDMS/DC 38 © 2015 CA. ALL RIGHTS RESERVED. IDMS Provider Leverage Existing Applications

Modernizing CA IDMS M 3 A CA IDMS Performance Monitor CA SYSVIEW CA IDMS

Modernizing CA IDMS M 3 A CA IDMS Performance Monitor CA SYSVIEW CA IDMS Presspack CA Mainframe Application Tuner Veristorm

CA IDMS M 3 A Service Monitor, Measure, Manage, & Alert § Business Benefits

CA IDMS M 3 A Service Monitor, Measure, Manage, & Alert § Business Benefits – Many customers need basic “care and feeding” services for their critical business systems – Service provides a skilled technician to § Measure, Monitor, Manage & Alert § Yearly based retainer service that keeps core CA IDMS systems delivering value to our customers § Daily check-ins, quarterly reviews, performance suggestions, situation alerts § Does not replace, but integrates with technical support 40 © 2015 CA. ALL RIGHTS RESERVED.

CA IDMS M 3 A Service Start-up activities – Initial interview, inventory, performance baseline

CA IDMS M 3 A Service Start-up activities – Initial interview, inventory, performance baseline and site report Daily Activities – Review current system activity, recent activity logs, recent table activity, alert on required corrective activity, and record activity Monthly Activities – Repeat measurement activities, updated site report Quarterly Activities – Review CA IDMS maintenance availability Staffing – Primary and backup M 3 A technician Internal – CA IDMS and Support Engineers External – CA IDMS Partners – Trained and Certified by CA Coordination – Single repository for data – CA Services Clarity Project Management web site – Dev. and support synchronized with M 3 A Service technicians Fee – Yearly based retainer plus T&E 41 © 2015 CA. ALL RIGHTS RESERVED.

CA IDMS Performance Monitor § Customer Value – CA IDMS Performance Monitor provides the

CA IDMS Performance Monitor § Customer Value – CA IDMS Performance Monitor provides the only real-time monitoring for CA IDMS: § Ability to monitor all CA IDMS systems in one LPAR – key performance measurements § Integration with CA SYSVIEW – monitor systems from SYSVIEW § Ability to monitor resource utilization and look for problem areas and resource contention § Ability to cancel “problem” tasks from CA IDMS Performance Monitor or CA SYSVIEW § Customer Benefits – Cost avoidance by detecting and correcting problem situations before they occur – Ability to baseline resource utilization and better predict growth and capacity needs – Improved ability for remote monitoring and tuning of CA IDMS environments – Loss due to “Production Availability” 42 © 2015 CA. ALL RIGHTS RESERVED.

CA SYSVIEW § Customer Value – CA SYSVIEW provides real-time monitoring for your entire

CA SYSVIEW § Customer Value – CA SYSVIEW provides real-time monitoring for your entire z/OS environment – CA SYSVIEW is ideal for customers who want to monitor a number of systems including: § z/OS system resources § Datacom/DB § IDMS/DB § CICS § … and other resources * To use CA SYSVIEW with CA IDMS requires the Performance Monitor option § Customer Benefits – – 43 Cost avoidance by detecting and correcting problem situations before they occur Ability to baseline resource utilization and better predict growth and capacity needs Improved ability for remote monitoring and tuning of CA IDMS environments Loss due to “Production Availability © 2015 CA. ALL RIGHTS RESERVED.

CA IDMS Presspack § Customer Value – Data compression can result in significant savings

CA IDMS Presspack § Customer Value – Data compression can result in significant savings in disk space requirements § Translates into dollar savings in monthly rentals, maintenance, floor space and channel costs – Helps reduce backup/archival processing and improve data security – CA IDMS™ Presspack’s compression efficiency makes it an ideal tool for compressing large-volume databases § Customer Benefits – Fully z. IIP-able means our compression utilizes the extremely efficient, low-cost z. IIP engines to do all compression and decompression processing – Reduces DASD footprint by 30 -70% -- saves real dollars – Improves memory use within the database region – Benchmark tests have shown that converting an compressed IDMS table to compression saves enough physical IO CPU to offset CPU used to do compression -- but the CPU is now z. IIP which is significantly cheaper 44 © 2015 CA. ALL RIGHTS RESERVED.

CA Mainframe Application Tuner § Customer Value – Delivers unique functionality to monitor and

CA Mainframe Application Tuner § Customer Value – Delivers unique functionality to monitor and measure COBOL and CA IDMS ADS applications running in the CA IDMS environment § On Demand z/OS sampling for any application § CPU execution/delay activities for Program, Subsystem, Database and I/O § Pinpoint code and stored procedure inefficiencies to the source level § Comprehensive detail reporting for System Support Experts § Proactive automated measurements based historical trends or program changes § Drill-down ISPF Interface for z/OS data usable by Application Development, Database and Quality Assurance personnel which presents performance data in graphical form § Customer Benefits – Quickly measure application performance and pinpoint problems and delays – Streamlines application life cycle management – Enhances ability to maintain & manage business critical legacy application code 45 © 2015 CA. ALL RIGHTS RESERVED.

Veristorm - v. Storm § Customer Value – Customers need to “share” existing critical

Veristorm - v. Storm § Customer Value – Customers need to “share” existing critical business data for data analytics platforms – Cooperative processing model with Veristorm allows CA IDMS data to be uplifted as needed to the various Big Data platforms § Customer Benefits – Cost avoidance § By allowing existing reliable systems to continue doing their work § Using Big Data platforms to store large amounts of data (cheaply) for consumption by analytics engines – New analytics possible using key Big Data concepts such as § Point-in-time data allowing a customer to see data content at some point in the past § Fraud analysis § Business compliance analysis 46 © 2015 CA. ALL RIGHTS RESERVED.

Participate in the CA IDMS IUA/EIUA Community!! communities. ca. com/community/ca-idms-iua-eiua 47 © 2015 CA.

Participate in the CA IDMS IUA/EIUA Community!! communities. ca. com/community/ca-idms-iua-eiua 47 © 2015 CA. ALL RIGHTS RESERVED.

Save the Date IUA Technical Conference Week of May 15 th 2016 48 ©

Save the Date IUA Technical Conference Week of May 15 th 2016 48 © 2015 CA. ALL RIGHTS RESERVED.

November 16 -20, 2015 Mandalay Bay Resort & Casino Las Vegas, Nevada Registration is

November 16 -20, 2015 Mandalay Bay Resort & Casino Las Vegas, Nevada Registration is now open for CA World ’ 15 Visit ca. com/caworld to learn more. 49 © 2015 CA. ALL RIGHTS RESERVED.

FOR INFORMATION PURPOSES ONLY Terms of this Presentation This presentation was based on current

FOR INFORMATION PURPOSES ONLY Terms of this Presentation This presentation was based on current information and resource allocations as of August 2015 and is subject to change or withdrawal by CA at any time without notice. Notwithstanding anything in this presentation to the contrary, this presentation shall not serve to (i) affect the rights and/or obligations of CA or its licensees under any existing or future written license agreement or services agreement relating to any CA software product; or (ii) amend any product documentation or specifications for any CA software product. The development, release and timing of any features or functionality described in this presentation remain at CA’s sole discretion. Notwithstanding anything in this presentation to the contrary, upon the general availability of any future CA product release referenced in this presentation, CA will make such release available (i) for sale to new licensees of such product; and (ii) to existing licensees of such product on a when and if-available basis as part of CA maintenance and support, and in the form of a regularly scheduled major product release. Such releases may be made available to current licensees of such product who are current subscribers to CA maintenance and support on a when and if-available basis. In the event of a conflict between the terms of this paragraph and any other information contained in this presentation, the terms of this paragraph shall govern. Certain information in this presentation may outline CA’s general product direction. All information in this presentation is for your informational purposes only and may not be incorporated into any contract. CA assumes no responsibility for the accuracy or completeness of the information. To the extent permitted by applicable law, CA provides this presentation “as is” without warranty of any kind, including without limitation, any implied warranties or merchantability, fitness for a particular purpose, or non-infringement. In no event will CA be liable for any loss or damage, direct or indirect, from the use of this document, including, without limitation, lost profits, lost investment, business interruption, goodwill, or lost data, even if CA is expressly advised in advance of the possibility of such damages. CA confidential and proprietary. No unauthorized copying or distribution permitted. 50 © 2015 CA. ALL RIGHTS RESERVED.

Questions and Answers

Questions and Answers

Appendix

Appendix

EMPSCHM Database EMPLOYEE 415 F 120 CALC EMP-ID-0415 EMP-DEMO-REGION OCCURS DEPENDING ON EMP-COVERAGE DENTAL-CLAIM

EMPSCHM Database EMPLOYEE 415 F 120 CALC EMP-ID-0415 EMP-DEMO-REGION OCCURS DEPENDING ON EMP-COVERAGE DENTAL-CLAIM COVERAGE 400 F 20 405 V VIA EMP-COVERAGE-CLAIMS INS-DEMO-REGION COVERAGE-CLAIMS 53 932 VIA © 2015 CA. ALL RIGHTS RESERVED.

Using Views Standard SQL With Limited Access CREATE VIEW EMPSQL. EMPL_DENTIST (EMPLOYEE_ID, PLAN_CODE, DENTIST_NUMBER)

Using Views Standard SQL With Limited Access CREATE VIEW EMPSQL. EMPL_DENTIST (EMPLOYEE_ID, PLAN_CODE, DENTIST_NUMBER) AS SELECT EMP_ID_0415, INS_PLAN_CODE_0400, DENTIST-LICENSE-NUMBER-0405 FROM EMPSQL. EMPLOYEE, EMPSQL. COVERAGE, EMPSQL. ”DENTAL-CLAIM” C WHERE “EMP-COVERAGE” AND “COVERAGE-CLAIMS”. C SELECT * FROM EMPSQL. EMPL_DENTIST WHERE EMPLOYEE_ID = ‘ 0555’ 54 © 2015 CA. ALL RIGHTS RESERVED.

Defining A Table Procedure CREATE TABLE PROCEDURE DENTAL_CLAIM ( EMPLOYEE_ID NUMERIC(4, 0), INS_PLAN CHAR(3),

Defining A Table Procedure CREATE TABLE PROCEDURE DENTAL_CLAIM ( EMPLOYEE_ID NUMERIC(4, 0), INS_PLAN CHAR(3), TYPE CHAR(1), DENTIST_LIC NUMERIC(6, 0), PROC_CODE NUMERIC(4, 0), FEE DECIMAL(9, 2)) EXTERNAL NAME EMPDCLAM; 55 © 2015 CA. ALL RIGHTS RESERVED.

Using A Table Procedure Standard SQL SELECT PROC_CODE, FEE FROM DENTAL_CLAIM WHERE EMPLOYEE_ID =

Using A Table Procedure Standard SQL SELECT PROC_CODE, FEE FROM DENTAL_CLAIM WHERE EMPLOYEE_ID = 0555 AND INS-PLAN = ‘ 004’ AND TYPE = ‘F’ AND DENTIST_LIC = 123456 INSERT INTO DENTAL_CLAIM VALUES (666, ‘ 004’, ’F’, 654321, 5555, 585. 00) 56 © 2015 CA. ALL RIGHTS RESERVED.

Implementing Embedded Foreign Keys Define foreign keys for set May need to restructure member

Implementing Embedded Foreign Keys Define foreign keys for set May need to restructure member record Populate foreign keys in member Maintain foreign keys in member Alternative to migration • Can do incrementally • Less cost • Less effort 57 © 2015 CA. ALL RIGHTS RESERVED.

Presentation Interface Avoids the logic separation issue Find the data in the screen buffer

Presentation Interface Avoids the logic separation issue Find the data in the screen buffer • Screen geometry • Field names Control the flow of screens • Scripting language Can be sensitive to application changes Think in terms of components • Not complete 3270 applications 58 © 2015 CA. ALL RIGHTS RESERVED.