Engineering Data Support

Chapter 2. Online application programs

This chapter describes the online and asynchronous programs provided with CEDS. You can use this information to maintain programs or to modify programs to meet special requirements

Note: This chapter documents Diagnosis, Modification, and Tuning Information, which is provided to help the customer do diagnosis, modification, and tuning of CEDS

Warning!
Do not use this Diagnosis, Modification, and Tuning Information as a programming interface.

This chapter describes the following programs in the order shown:

Program Description
EMTODSCB CEDS copy bill of material data
EMTODSDL Display CEDS delta reports
EMTODSHE Display CEDS main product menu
EMTODSLD CEDS start engineering data load
EMTODSMG CEDS message display
EMTODSMR Maintain CEDS control record
EMTODSTP CEDS stop engineering data load
EMTODSBL Load bill of material data
EMTODSBM Copy engineering bill of material
EMTODSCT Load data control
EMTODSXE Translate EMI file data
EMTODSXH Translate PES interface file data
EMTODSXP Translate PDI file data
EMTODSER Asynchronous message retrieval

Program	Description
EMTODSCB	CEDS copy bill of material data
EMTODSDL	Display CEDS delta reports
EMTODSHE	Display CEDS main product menu
EMTODSLD	CEDS start engineering data load
EMTODSMG	CEDS message display
EMTODSMR	Maintain CEDS control record
EMTODSTP	CEDS stop engineering data load
EMTODSBL	Load bill of material data
EMTODSBM	Copy engineering bill of material
EMTODSCT	Load data control
EMTODSXE	Translate EMI file data
EMTODSXH	Translate PES interface file data
EMTODSXP	Translate PDI file data
EMTODSER	Asynchronous message retrieval

Unless otherwise noted, the programs in this chapter are written in COBOL. All of the programs support online transactions that operate in the CICS environment and use command-level CICS statements.

The information is presented in the following format:

Purpose

Briefly describes the program's use within CEDS and its relationship with a transaction or with other programs when the program is used as an external subroutine.

Reference data

Provides formal program reference material, such as:

Transaction code
Mapset name
PSB name
Copybooks
Linkages to other program modules
Loaded programs
Database access chart

Database access

Shows the database segments accessed by the program's PSBs and whether the access is for reference only or for updating. This chart lists the following:

Internal database name
Internal segment name
Segment description
Access mode

Note: For more information on the database access chart, see Appendix A. "How to use the charts", of this manual.

Screen field/database field cross-reference chart

Describes the relationship between screen field names and database field names for a program. This chart lists the following:

Screen field name
Screen field description
Internal segment field name
Internal segment name
Internal database name

Note: For more information on the Screen field/database field cross-reference chart, see Appendix A. "How to use the charts", of this manual.

Additional information

Provides additional descriptive comments to help you when reading the program source code. In general, these comments expand the explanation of the main functions supported and, in certain cases, describe processing techniques used.

Outline of program flow

Provides a high-level description of the logic used in the program, including the major procedure names and database calls used.

EMTODSCB: Copy bill of material data

This program starts the asynchronous task that transfers bill of material information.

Figure 2-1. Start bill of material copy to production environment screen

+--------------------------------------------------------------------------------+
|DSCB                                                                   Env.:  X |
| Fn:                CEDS Copy Bill of Material Data                             |
|                                                                                |
| Item No:                                                         Date:         |
| E/C No:              Comp No:                      Pref:      Suff:            |
| -----                                                                     -----|
|                                                                                |
|            Enter X to start the function listed:                               |
|                                                                                |
|                  _ Copy Bill of Material Data                                  |
|                  _ Delete Bill of Material Data                                |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
| -----   EMT014E: Copy / delete operation initiated                        -----|
|                                                                                |
|                                                                                |
| Enter  F1=Help   F2=Message help       F10=Save   F11=Restore                  |
+--------------------------------------------------------------------------------+

Purpose

The DSCB transaction starts the task, DSBM. The DSBM task performs two functions, copy and delete, either separately or together. It can copy bill of material data from load edit to production or delete the data from load edit. It can also copy the data to production and then delete it from load edit. You must enter the bill of material item number, then select copy, delete, or both copy and delete.

Reference data

Transaction Code

DSCB

Mapset Name

EMTSCBy (y=language suffix)

PSB Names

EMTPCBx (x = environment)

Copybooks Used

AREACSI	CCCPFKYT	DATEOS1	DCLEXIN
DCLINEX	DDXTCOMM	DFHAID	DFHBMSCA
DFHBOSCA	DLIUIB	EMTCTERM	EMTCTWA
EMTCXHKM	EMTSCB	ENVTABLE	FIELDOS1
FUNCTINS	ITEMIDS	MFERAREA	PCB1
PCB2	PROCERR	PRODSTS

Linked Programs

DDXTRML

MFERPGM

SECURITY

Loaded Programs

ENVTABLx (x = environment)

Database Access

Database	Segment	Segment Description	Mode
PRDEFDX	ITEMID	Item ID segment	R/O
PRDEFDB	ITEMID	Item ID segment	R/O
Note: The X and B suffix on database names reflect usage in the load edit or production environments.

Outline of program flow

When initiated, this program:

Performs the initialization and housekeeping routines
Receives the map
Resends the screen with an error message if no option field contains an X
Tests the Item No field for valid input
Gets the ITEMID segment from the load edit environment
1. Resends the screen with an error message if the item is not found
2. Resends the screen with an error message if the item type is a % or a @, dummy or error items
Starts the EMTODSBM program

Additional information

The DSBM task uses an asynchronous program that copies a bill of material (product structure) from the load edit environment to the production environment of TFG2000. The program first checks for the existence of the parent (assembly) item in the load edit version of the Product Definition Database. It then checks the item's components for an item type of %.

An item type of % indicates a component that was loaded to the load edit version of the Product Definition Database as a "dummy" item to satisfy product structure requirements. If the program finds a dummy item as a component of the item being copied, the copy process is stopped.

EMTODSDL: Display delta reports

This program lets you display, print, and delete delta reports.

Figure 2-2. Delta reports screen

+--------------------------------------------------------------------------------+
| DSDL                                                                   Env.:  X|
| Fn:                CEDS Display Delta Reports                         Page:    |
|                                                                                |
| Item No:                                                         Date:         |
| E/C No:              Comp No:                      Pref:      Suff:            |
| -----                                                                     -----|
|                                                                                |
| To print enter "Y" here:   N                                                   |
| To delete enter "Y" here:  N                                 Printer:          |
| Display Queue ID:                                       Current Date:          |
|                                                                                |
|           Enter X to select delta report:                                      |
|                                                                                |
|                 _ Bill of material delta report                                |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
| -----    EMT061:  Please select a delta report option                     -----|
|                                                                                |
| Enter   F1=Help   F2=Message help       F10=Save   F11=Restore                 |
+--------------------------------------------------------------------------------+

Purpose

Whenever CEDS loads engineering data to either the load edit version or production version of the TFG2000 Product Definition Database, it checks the new data against existing data. If CEDS detects any differences, it creates a delta report.

You can display delta reports by entering the DSDL transaction code from any TFG2000 panel.

Reference data

Transaction Code

DSDL

Mapset Name

EMTSDLy (y = language suffix)

PSB Name

None

Copybooks Used

AREACSI	CCCPFKYT	DATEOS1	DDXTCOMM
DFHAID	DFHBMSCA	DFHBOSCA	EMTCTERM
EMTCTWA	EMTCXHKM	EMTSDL	ENVTABLE
FIELDOS1	MFERAREA	PROCERR

Linked to Programs

MFERPGM

DDXTRML

SECURITY

Loaded Program

ENVTABLx (x = environment)

Outline of program flow

When initiated, this program:

Performs the initialization and housekeeping routines
Receives the map
Prints BOM delta report if the request to print is a Y and bill of material is selected
Deletes the delta report queue if the request to delete is a Y
Displays the BOM delta report if request to print and request to delete are both an N and bill of material is selected

EMTODSHE: Display CEDS main product menu

This program displays a list of online transactions available with the CEDS product.

Figure 2-3. CEDS main product menu screen

+--------------------------------------------------------------------------------+
| DSHE                                                                   Env.:  X|
| Fn:               TFG2000 Engineering Data Support Functions                    |
|                                                                                |
| Item No:                                                         Date:         |
| E/C No:              Comp No:                      Pref:      Suff:            |
|                                                                                |
| Transaction Description          TRAN Function (Fn:)       Data                |
| -------------------------------- ---- -------------------- --------------------|
| Start Engineering Data Load      DSLD                                          |
| Stop Engineering Data Load       DSTP                                          |
| Display Messages                 DSMG DSLD,DSCB                                |
| Display Delta Reports            DSDL                                          |
| Maintain Options                 DSMR INQU,REPL                                |
| Copy Bill of Material Data       DSCB                      Item No             |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
| ----- Last page                                                           -----|
|                                                                                |
| Enter  F1=Help   F2=Message help      F10=Save   F11=Restore                   |
|                                                                                |
+--------------------------------------------------------------------------------+

Purpose

The DSHE transaction displays CEDS transactions with a brief description of each. Available function codes appear for each transaction code, including the data required to run the transaction.

Reference data

Transaction Code

DSHE

Mapset Name

EMTSHEy (y = language suffix)

PSB Name

None

Copybooks Used

AREACSI	CCCPFKYT	DATEOS1	DCLEXIN
DCLINEX	DDXTCOMM	DFHAID	DFHBMSCA
DFHBOSCA	DLIUIB	EMTCTERM	EMTCXHKM
EMTSHE	ENVTABLE	FIELDOS1	FUNCTINS
MFERAREA	PROCERR

Linked to Programs

MFERPGM

SECURITY

DDXTRML

Loaded Program

ENVTABLx (x = environment)

Outline of program flow

When initiated, this program:

Performs the initialization and housekeeping routines
Receives the map
Displays the menu

EMTODSLD: Start engineering data load

This program controls the loading of interface files to the TFG2000 Product Definition Database.

Figure 2-4. Start engineering data load screen.

+--------------------------------------------------------------------------------+
| DSLD                                                                   Env.:  X|
| Fn:                CEDS Start Engineering Data Load                            |
|                                                                                |
| Item No:                                                        Date:          |
| E/C No:                 Comp No:                Pref:        Suff:             |
| -------                                                                   -----|
|                                                                                |
|            Enter X to start the function listed:                               |
|                                                                                |
|                  _ Load EMI format data                                        |
|                  _ Load PES format data                                        |
|                  _ Load PDI format data                                        |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
| -----   EMT012E: Please enter requested data                              -----|
|                                                                                |
|                                                                                |
| Enter  F1=Help   F2=Message help       F10=Save   F11=Restore                  |
+--------------------------------------------------------------------------------+

Purpose

The DSLD transaction starts the process of loading bill of material information into the TFG2000 databases. Input comes from a specified interface file containing bill of material information. This information can be extracted from a computer-aided design system, a computer-aided design integration system, or an engineering release management system.

Reference data

Transaction Code

DSLD

Mapset Name

EMTSLDy (y=language suffix)

PSB Name

EMTPLDE

Copybooks Used

AREACSI	CCCPFKYT	DATEOS1	DCLEXIN
DCLINEX	DDXTCOMM	DFHAID	DFHBMSCA
DFHBOSCA	DLIUIB	EMTCTERM	EMTCTWA
EMTCXHKM	EMTSLD	ENVTABLE	FIELDOS1
MFERAREA	PROCERR

Linked to Programs

MFERPGM

SECURITY

DDXTRML

Loaded Program

ENVTABLx (x = environment)

Database Access

Database	Segment	Segment Description	Mode
EMTDB0E	BOMWORK	Control record	R/W

Outline of program flow

When initiated, this program:

Performs the initialization and housekeeping routines
Receives the map
If making the first pass:
1. Reads the control record
2. If the task ID in the control record is blank:
  1. Makes EMI, PES, and PDI requests input capable
  2. Sends the map
3. If the task ID is not blank:
  1. Displays error message if all formats are active
  2. Makes any unselected formats input capable
  3. Displays the screen
If making the second pass:
1. Sends an error message to the screen
2. Reads the control record
3. If the task ID in the control record is blank:
  1. Moves the EMI request to the EMI flag if the request is an X
  2. Moves the PES request to the PES flag if the request is an X
  3. Moves the PDI request to the PDI flag if the request is an X
  4. Writes the control record
  5. Starts the EMTODSCT program
4. If the task ID is not blank:
  1. Moves the EMI request to the EMI flag if the request is not an X
  2. Moves the PES request to the PES flag if the request is not an X
  3. Moves the PDI request to the PDI flag if the request is not an X
  4. Updates the control record
5. Sends the start message to the screen

Additional information

CEDS follows the same load cycle every time you initiate the load process. The file transfer program first takes the data from the engineering system and places it in the selected interface file. CEDS then translates the data into the required format and loads it into the TFG2000 Product Definition Database.

When CEDS loads data into TFG2000, it first determines if the item already exists. CEDS searches for the item in the load edit environment. If the system does not find the item, it then looks in the production environment. If CEDS finds the item in the production environment, it copies the data to the load edit environment.

You can only update item data as long as the status of the engineering change that created the item and its product structure is under study. Once the engineering change is in release status, CEDS does not make any further changes to the data. This is because new item data might contain changes that are not effective until a future date.

CEDS does not automatically update item data in existing items. CEDS instead produces a delta report when it detects differences between new and existing data. The delta report tells you what data you should change and when to change it (the effective start-date of the new data).

To change product structure data, you must create an engineering change that replaces an existing component with a component that has a suffix. For example:

Figure 2-5. Existing BOM

 
        A
        |
*�������*�������*
|               |
B               C

Figure 2-6. New BOM from PES

 
        A
        |
*�������*�������*
|               |
B               C (suffix 1)

When CEDS receives an EC like the one above, it places the EC effective date in the stop date field of the product structure record for 'C'. It also places the same date in the start date field of a new product structure record for 'C suffix 1'. Values in the product structure record for 'C suffix 1' will now replace those in the existing product structure record 'C' on the date the EC becomes effective.

When CEDS loads a new item into TFG2000 and detects no differences, it does not generate a delta report.

After CEDS loads the data, it pauses for the specified restart interval and then automatically restarts itself.

EMTODSMG: CEDS message display

This program displays, prints, and deletes messages generated by CEDS programs. It allows you to monitor the programs that load and copy data.

Figure 2-7. CEDS message display screen

+--------------------------------------------------------------------------------+
| DSMG                                                                   Env.:  X|
| Fn:                CEDS Display Messages                              Page:    |
|                                                                                |
| Item No:                                                         Date:         |
| E/C No:              Comp No:                      Pref:      Suff:            |
| -----                                                                     -----|
|                                                                                |
| To print enter "Y" here:   N                                                   |
| To delete enter "Y" here:  N                                 Printer:          |
| Display Queue ID:                                       Current Date:          |
|                                                                                |
|    Functions Supported:                                                        |
|        "DSLD" - Display Load Messages                                          |
|        "DSCB" - Display Bill of Material Copy Messages                         |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
| -----    EMT009E: Enter a function from the list above                    -----|
|                                                                                |
| Enter   F1=Help   F2=Message help       F10=Save   F11=Restore                 |
+--------------------------------------------------------------------------------+

Purpose

The DSMG transaction displays the messages generated by CEDS processing programs that perform the following tasks:

Loading product data to either the load edit version or production version of TFG2000
Copying bill of material information to the Production Database

These messages reveal a program's progress, any errors, or whether the program started or completed. You may display, print, or delete messages for each function.

Reference data

Transaction Code

DSMG

Mapset Name

EMTSMGy (y = language suffix)

PSB Name

None

Copybooks Used

AREACSI	CCCPFKYT	DATEOS1	DDXTCOMM
DFHAID	DFHBMSCA	DFHBOSCA	EMTCMGCY
EMTCTERM	EMTCTWA	EMTCXHKM	EMTSMG
ENVTABLE	FIELDOS1	FUNCTINS	MFERAREA
PROCERR

Linked to Programs

MFERPGM

SECURITY

DDXTRML

Loaded Program

ENVTABLx (x = environment)

Outline of program flow

When initiated, this program:

Performs the initialization and housekeeping routines
Receives the map
Prints the message queue if the request to print is a Y
Deletes the message queue if the request to delete is a Y
Displays the message queue if the request to print and the request to delete are both N

EMTODSMR: Maintain CEDS options

This program lets you maintain the values in the CEDS control record.

Figure 2-8. Maintain CEDS control record screen

+--------------------------------------------------------------------------------+
| DSMR                                                                   Env.:  X|
| Fn:                CEDS Maintain Options                                       |
|                                                                                |
| Item No:                                                         Date:         |
| E/C No:              Comp No:                      Pref:      Suff:            |
| -----                                                                     -----|
|                                                                                |
| Engineering Data Load Restart Interval (HHMMSS): 000500                        |
| Engineering Change Effective Date (D, T): D                                    |
| Create Dummy Item During Load (Y, N): Y                                        |
| Load Bill of Material to Production Environment (Y, N): N                      |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
| -----   EMT068E: Current record                                           -----|
| Functions: INQU - Inquire (default)    REPL - Change                           |
|                                                                                |
| Enter  F1=Help   F2=Message help       F10=Save   F11=Restore                  |
+--------------------------------------------------------------------------------+

Purpose

The DSMR transaction reviews or modifies existing values in the CEDS control record. These values control CEDS operations. The control record contains the following values:

Value Description
Restart interval Frequency at which information is transferred into TFG2000 databases
Engineering change effective date Date an EC becomes effective
Create dummy item during load Code indicating whether to create a dummy item if the component ITEMID record is not in the database
Load bill of material to production environment Code indicating whether to load bills of material to the production environment

Value	Description
Restart interval	Frequency at which information is transferred into TFG2000 databases
Engineering change effective date	Date an EC becomes effective
Create dummy item during load	Code indicating whether to create a dummy item if the component ITEMID record is not in the database
Load bill of material to production environment	Code indicating whether to load bills of material to the production environment

Reference data

Transaction Code

DSMR

PSB Names

EMTPRSx EMTPRIx (x = environment)

Mapset Name

EMTSMRy (y = language suffix)

Copybooks Used

AREACSI	CCCPFKYT	DATEOS1	DCLEDDCM
DDXTCOMM	DFHAID	DFHBMSCA	DFHBOSCA
DLIUIB	EMTCBMWX	EMTCTERM	EMTCTWA
EMTCXHKM	EMTSMR	ENVTABLE	FIELDOS1
FUNCTINS	MFERAREA	PCB1	PROCERR

Linked to Programs

MFERPGM

SECURITY

DDXTRML

Loaded Program

ENVTABLx (x = environment)

Database Access

Database	Segment	Segment Description	Mode
EMTDB0E	BOMWORK	Control record	R/W

Screen field/database field cross-reference charts

Screen Field Name	Description	Database Field	Segment Name	Database Name
FN	Function code
Engineering data load restart interval	Run interval (format: HHMMSS)	CLIVAL	BOMWORK	EMTDBOE
Engineering change effective date	Code to determine EC effectivity date T = System date D = Date in interface file	CLCRDA	BOMWORK	EMTDBOE
Create dummy item during load	Code to indicate whether to create a dummy item when loading a Bill of Material if the component ITEMID is not in the database Y = Create dummy item N = Do not create dummy item	CLCRDI	BOMWORK	EMTDBOE
Load bill of material to production environment	Code to indicate where to load Bill of Material data Y = Production N = Load edit	CLBLDP	BOMWORK	EMTDBOE

Outline of program flow

When initiated, this program:

Performs the initialization and housekeeping routines
Receives the map
For INQU or blank function:
1. Gets the control record
2. If control record is not found:
  1. Creates the record with default values
  2. Displays the default values
3. Displays the current values if the control record is found
For REPL function:
1. If on the first pass:
  1. Gets the control record
  2. If control record is not found:
    1. Creates the record with default values
    2. Displays the default values
  3. Displays the current values if the control record is found
2. On second pass:
  1. Gets the control record:
    1. Edits the input
    2. Highlights any fields in error and sends an error message
    3. Updates the control record

EMTODSTP: Stop engineering data load

This program stops the loading of interface files to TFG2000 databases.

Figure 2-9. Stop engineering data load screen

+--------------------------------------------------------------------------------+
| DSTP                                                                   Env.:  X|
| Fn:                CEDS Stop Engineering Data Load                             |
|                                                                                |
| Item No:                                                        Date:          |
| E/C No:                 Comp No:                Pref:        Suff:             |
| -------                                                                   -----|
|                                                                                |
|            Enter X to stop the function listed:                                |
|                                                                                |
|                  _ Load EMI format Data                                        |
|                  _ Load PES format Data                                        |
|                  _ Load PDI format data                                        |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
|                                                                                |
| -----   EMT202E: Engineering data load stopped                            -----|
|                                                                                |
|                                                                                |
| Enter  F1=Help   F2=Message help       F10=Save   F11=Restore                  |
+--------------------------------------------------------------------------------+

Purpose

The DSTP transaction stops the process that loads bill of material information into the TFG2000 databases from any or all active interfaces. After you select an interface, the stop program ends the load by turning the interface off in the control record. The control program EMTODSCT uses data in the control record to determine which interface file to process.

You can select to stop only an interface that was previously started by the DSLD transaction.

The load process stops when no interface files are selected.

Reference data

Transaction Code

DSTP

Mapset Name

EMTSTPy (y=language suffix)

PSB Name

EMTPTPE

Copybooks Used

AREACSI	CCCPFKYT	DATEOS1	DCLEXIN
DCLINEX	DDXTCOMM	DFHAID	DFHBMSCA
DFHBOSCA	DLIUIB	EMTCTERM	EMTCTWA
EMTCXHKM	EMTSTP	ENVTABLE	FIELDOS1
MFERAREA	PROCERR

Linked to Programs

MFERPGM

SECURITY

DDXTRML

Loaded Program

ENVTABLx (x = environment)

Database Access

Database	Segment	Segment Description	Mode
EMTDB0E	BOMWORK	Control record	R/W

Outline of program flow

When initiated, this program:

Performs the initialization and housekeeping routines
Receives the map
On the first pass:
1. Reads the control record
2. Sends error message if the task ID in the control record is blank
3. If the task ID is not blank:
  1. Makes EMI request input capable if the flag is an X
  2. Makes PES request input capable if the flag is an X
  3. Makes PDI request input capable if the flag is an X
  4. Sends the map
On the second pass:
1. Sends error message if no option field is an X
2. Reads the control record
3. Sends an error message if the task ID in the control record is blank
4. If the task ID is not blank:
  1. Moves a blank to the EMI flag if the EMI request is an X
  2. Moves a blank to the PES flag if the PES request is an X
  3. Moves a blank to the PDI flag if the PDI request is an X
  4. Updates the control record
  5. Sends message that load is stopped

EMTODSBL: Load bill of material data

Purpose

This program loads the TFG2000 Product Definition Database, load edit environment or production environment, with data from the BOMWORK database. The BOMWORK database is loaded by one of the translate programs under control of program EMTODSCT.

Overview

The Load BOM data program does the following:

Retrieves the data from the BOMWORK database, in sequence:

EC Data
  Item Data (all items within an EC are listed here)
  Item Data
  Item Data
  Item Description
  Item Description
  Item Description (grouped by parent item and sequence number)
    Component Data (optional, grouped by parent item)
    Component Data
    Component Data
Accepts multiple EC data (each with item and/or comp data).
Inserts the following data into the Product Definition Database:

Item Master data
Product Structure data
Engineering Change data
Loads to either the load edit environment or production environment.
Copies assembly component from the production environment if the component does not appear in the load edit environment. If the component is not in the production environment, you must choose to either create a dummy item record or reject the EC.
Accepts "out of sequence" ECs (effective date of new EC is before the effective date of another EC).
Edits for format and continuity of data.
Blocks the database load if the interface file data is erroneous or incomplete.
Creates a delta report containing differences between old and new data.
Inserts messages in the TS queue concerning the success of the load.
Initiates a TFG2000 LLC update, if necessary.
Updates Activity Database if load is to production environment.

Reference data

PSB Name

EMTPBLx (x = environment)

Linked to Programs

EMTODSER

DFSNNCC(MVS)

DLZNNCC(DOS)

Loaded Program

ENVTABLx (x = environment)

Database Access

DBD Name	Segment	Segment Description	Mode
PRDEFDX	ITEMID	Item identification	R/W
	ENGCHG	Engineering change	R/W
	INVDAT	Inventory data	R/W
	ITMDAT	Item data	R/W
	PRODST	Product structure	R/W
	ITMTXT	Item text	R/W
	ITMPTR	Item pointer	R/W
PRDEFDB	ITEMID	Item identification	R/W
	ENGCHG	Engineering change	R/W
	INVDAT	Inventory data	R/W
	ITMDAT	Item data	R/W
	PRODST	Product structure	R/W
	ITMTXT	Item text	R/W
	ITMPTR	Item pointer	R/W
EMTDB0E	BOMWORK	Bill of material work	R/W
LLCCXCT	LLCTL	Low level root	R/W
	PARTBEXP	New low level code	R/W
	UPDMASTR	Original low level code	R/W
BOMEXPL	ITEMID	Item identification	R/O
	INVDAT	Inventory data	R/O
	ITMDAT	Item data	R/O
	PRODST	Product structure	R/O
	CMPITM	Item pointer and component item	R/O
	ENGCHG	Engineering change	R/O
BOMEXPX	ITEMID	Item identification	R/O
	INVDAT	Inventory data	R/O
	ITMDAT	Item data	R/O
	PRODST	Product structure	R/O
	CMPITM	Item pointer and component item	R/O
	ENGCHG	Engineering change	R/O
ACHNDB	ACITEM	Activity chain item	R/W
STEXDBD	STDXID	Standard text root	R/O
	STDATA	Standard text data	R/O

BOMWORK / Product Definition database cross-reference chart

BOMWORK EC data
Field Name	Description	Segment	Field	Product Definition Database
TSECNC	EC number	ENGCHG	MECNC
TSEENG	Engineer	ENGCHG	MEENG	TSEDES	Description	ENDCHG	MEDES
TSESEN	Serial number	ENGCHG	MESEN
TSESTC	Status code	ENGCHG	MESTC
TSERSN	Reason code	ENGCHG	MERSN
TSEEDT	Creation date	ENGCHG	MEDAT

BOMWORK Item data
Field Name	Description	Segment	Field	Product Definition Database
TSEEFF	Effectivity date	ENGCHG	MEEFF
		PRODST	SPADDDT
TSEETC	Effectivity type	ENGCHG	MEFFC
TSEDNO	Drawing number	ENGCHG	MEDNO
TSPDSC	Description	ITEMID	MPDSC
TSUTMS	Unit of measure	ITEMID	MUTMS
TSTYPN	Item type	ITEMID	MTYPN
TSRTNO	Routing number	ITEMID	MRTGN
TSRTTY	Routing type	ITEMID	MRTGS
TSCOST	Cost	ITMDAT	MUCTL
TSUWGT	Unit of weight	ITMDAT	MWUM
TSWGHT	Weight	ITMDAT	MWEIGHT
TSDIAM	Format code	ITMDAT	MFORCD
TSUDIM	UOM dimension	ITMDAT	MDUM
TSBRDT	Breadth or diameter	ITMDAT	MBREAD
TSLNGT	Length	ITMDAT	MLENGT
TSHGHT	Height	ITMDAT	MHEIGH
TSISSCTL	Issue type control	ITEMID	ISSCTL
TSRECCTL	Receipt type control	ITEMID	ISSCTL
TSLTCD	Source code	ITEMDAT	MLTCD
TSLDTIME	Lead time	ITEMDAT	MLTPR
	-- OR --	ITEMDAT	MLTPU
TSSHRF	Shrinkage factor	ITEMDAT	MSHRF

BOMWORK Description data
Field Name	Description	Segment	Field	Product Definition Database
TSDSCL	Long description	ITMTXT	PPCOMM

BOMWORK Component data
Field Name	Description	Segment	Field	Product Definition Database
TSITEM	Item number	ITEMID	MITEM
TSPREFIX	Component prefix	PRODST	SPSQNO
TSCOMP	Component item	PRODST	SPCOMP
TSCSUF	Component suffix	PRODST	SPSUFFIX
TSDESC	Description	ITEMID	MPDSC
TSCTYP	Type	ITEMID	MTYPN
TSQTY	Quantities per assembly	PRODST	SPQTY
TSCUOM	Unit of measure
TSBMTE	Status	PRODST	SPBMTE
TSCAT	Option category	PRODST	SPCAT
TSVAL	Option value	PRODST	SPVAL
TSACT	Action code	PRODST	SPACT
TSPHAN	Phantom code	PRODST	SPPHAN
TSRATE	Usage probability	PRODST	SPRATE
TSCOFA	Offset adjustment	PRODST	SPSOA
TSCPON	Operation	PRODST	SPPON
TSENGP	Eng planning code
TSMFGP	Mfg planning code
TSSCRP	Scrap factor	PRODST	SPSSF

Outline of program flow

Names of the database environments are reflected by:

X = Load Edit Environment

E = Production Environment

Main program flow

Housekeeping.
Schedule PSB and get control feedback data.
Perform Load EC Routine (until done).
If reject SYNCPOINT ROLLBACK.
Else SYNCPOINT.
Delete BOMWORK data (except control and feedback).
Set feedback record flags.
Return to program EMTODSCT with appropriate return code.

Load EC routine

"Get" EC-Data from BOMWORK.
Validate engineer.
Edit the EC data (see EC Edits below).
Perform Load Items Routine (until done).
Perform Load Components Routine (until done).
Send EC loaded message to CORMES for specific environment.

Load items routine

"Get" item data.
Check to see if item exists in user-specified database.
If present, then:

Perform Check Item Fields Routine.

Perform Add EC Routine.
Else

If load is to production, then:

   Perform Add Item Routine.
Else

If item present in production, then:

   Perform Copy Segments Routine.

   Copy the product structure from production to load edit.

   Perform Check Item Fields Routine.

   Perform Add EC Routine.
Else

Perform Add Item Routine.

Check item fields routine

Edit the Item fields (see Item Edits below).
If different, create delta report.

Add EC routine

If ENG-WANTED, then insert ENGCHG0.
Setup and insert new ENGCHG segment.

Add item routine

Setup and insert segments: ITEMID, INVDAT, ITMDAT, and ITMTXT.
Perform Add EC Routine.

Load components routine

If new parent item, then perform Check EC Routine (for all product structures).
Edit component data (see Component Edits below).
If not load to production, then:
- If component present in production:
  
  Perform Copy Segments Routine.
  Else
  
  Perform add the skeleton/dummy component item.
If PRODST does not exist, then:
- Setup and insert PRODST.
- Setup and call low level code checker.
- Setup and call activity chain updater.

Check EC routine

Check for EC out of sequence.
Scan all product structures for this item.
If effectivity dates impacted by this EC:
- Update effectivity dates and replace PRODST.
- Setup and call activity chain updater.

Copy segments routine

Copy segments from production: ENGCHG, ITEMID, INVDAT, ITMDAT, and ITMTXT.

Error routines

(Unique routine for each error condition which does similar action.)

Back-out database changes, if any.
Send message to Message TS Queue (error message).
Return to program EMTODSCT (with error return code).

EC edits

TSECNC = spaces
TSECNC > 10 characters
TSESTC not = (1, 2, 3, 4 and spaces)
TSEENG not authorized engineer
TSEEDT not numeric

Item edits

TSEDNO > 19 characters
TSEETC not = CE
TSEEFF not numeric
TSEEFF not before today
TSITEM = spaces
TSITEM > 19 characters
TSDIAM not = (B, D and spaces)
TSCOST not numeric
TSWGHT not numeric
TSBRDT not numeric
TSLNGT not numeric
TSHGHT not numeric
Compare the following fields against existing item and prepare delta report if different:
- TSPDSC = MPDSC
- TSUTMS = MUTMS
- TSTYPN = MTYPN
- TSRTNO = MRTGN
- TSRTTY = MRTGS
- TSCOST = MUCTL
- TSUWGT = MWUM
- TSWGHT = MWEIGHT
- TSDIAM = MFORCD
- TSUDIM = MDUM
- TSBRDT = MBREAD
- TSLNGT = MLENGT
- TSHGHT = MHEIGH
- TSUDIM not = TSUHGHT
- TSUDIM not = TSULNGT
- TSLDTIME not numeric
- TSSHRF not numeric
- TSTYPN = spaces
- TSDIAM not = (B, D, and spaces)
- TSISSCTL not = (1, 2, 3, and 4)
- TSRECCTL not = (1 and 2)
- TSLTCD not = (M and P)

Component edits

TSCOMP > 19 characters.
TSCOMP = spaces.
TSCOMP = TSITEM.
TSPREFIX > 4 characters.
TSCSUF > 4 characters.
TSENGP = (R or S).
TSMFGP = J.
TSQTY not numeric.
TSQTY > 9999.99999.
TSQTY < -9999.99999.
TSBMTE not = (C, E, P, R and spaces).
TSACT not = (N, G and spaces).
TSPHAN not = (PHANTOM and spaces).
TSRATE not numeric.
TSRATE < 0 or > 100.
TSCOFA not numeric.
TSCUOM not = MUTMS of existing component.
TSSCRP not numeric.
TSCAT, TSVAL, and TSACT must all be spaces or must all have values.

EMTODSBM: Copy engineering bill of material

Purpose

This program performs the following tasks:

Copies a bill of material from the load edit environment to the production environment
Deletes a bill of material from the load edit environment
Inserts messages in the TS Queue concerning copy or delete status

Outline of program flow

Names of segments and tables are followed by an X or E.

X = Load edit environment

E = Production environment

Perform initialization and housekeeping routines.
If the copy flag is not on, then skip to Step 10.
Get the ITEMID_X segment of the parent item to be copied.
1. If the ITEM TYPE is "%", then send an error message and end the program.
Explode the product structure.
1. Get the ITEMID_X segment of the current item.
2. Get next in parent PRODST_X segment of the current item.
3. If a PRODST_X segment is found, save it in a TSQ, make the component the current item, and return to step 4a.
4. If a PRODST_X is not found, return to step 4b.
  (The above process is repeated 15 times to handle up to 15 levels of a product structure.)
Edit the components.
1. Read the TSQ.
2. Get the ITEMID_X segment.
3. If the ITEM TYPE is "%", get the ITEMID_E segment. If it is not found, send an error message and set the error flag on.
4. If the ENG_WANTED flag is on in the ENVTBL_E, get the ENGCHG_X segment. If not found, send an error message and set the error flag on.
  (Repeat step 5 until all the records in the TSQ have been read).
Get the ITEMID, ITMDAT, and INVDAT segments of the parent item from the load edit environment and insert into the production environment.
If the ENG_WANTED flag is on in the ENVTBL_E, get all the ENGCHG segments of the parent item from the load edit environment and insert into the production environment.
Copy the remaining product structure.
1. Read the TSQ.
2. Get the ITEMID, ITMDAT, and INVDAT segments of the component from the load edit environment and insert to the production environment.
3. If the ENG_WANTED flag is on in the ENVTBL_E, get the ENGCHG segment of the component from the load edit environment and insert to the production environment.
4. Insert the PRODST_E and ITMPTR_E segments. If segments already exist and there is a change to the product structure segment, update the PRODST_E with stop effectivity date and EC sequence number from the ENGCHG segment of the component.
5. Do low level code/continuity check.
  (Repeat step 8 until all the records in the TSQ have been read.)
Update Activity Database.
Delete the item.
1. If Delete Flag is off, then skip to Step 10.
2. If explosion not done, perform Step 4.
3. Read item in TSQ.
4. If item is a component then Go to Step 9c.
5. If item has components then delete its product structure records.
6. Delete the item.
  
  (Repeat steps 9c thru 9f until all the records in the TSQ have been read.)
End the program.

Reference data

Transaction Code

DSBM

PSB Name

EMTPBMx (x = environment)

Linked to Programs

EMTODSER

DFSNNCC(MVS)

DLZNNCC(VSE)

Loaded Program

ENVTABLx (x = environment)

Database Access

Database	Segment	Segment Description	Mode
PRDEFDX	ITEMID	Item identification	R/W
	ENGCHG	Engineering change	R/W
	INVDAT	Inventory data	R/W
	ITMDAT	Item data	R/W
	PRODST	Product structure	R/W
	ITMPTR	Item pointer	R/W
	ITMTXT	Item text	R/W
PRDEFDB	ITEMID	Item identification	R/W
	ENGCHG	Engineering change	R/W
	INVDAT	Inventory data	R/W
	ITMDAT	Item data	R/W
	PRODST	Product structure	R/W
	ITMPTR	Item pointer	R/W
	ITMTXT	Item text	R/W
STEXDBD	STDXID	Standard text root	R/O
	STDATA	Standard text data	R/O
LLCCXCT	LLCTL	Low level root	R/W
	PARTBEXP	New low level code	R/W
	UPDMASTR	Original low level code	R/W
BOMEXPL	ITEMID	Item identification	R/O
	INVDAT	Inventory data	R/O
	ITMDAT	Item data	R/O
	PRODST	Product structure	R/O
	CMPITM	Item pointer and component item	R/O
	ENGCHG	Engineering change	R/O
ACHNDB	ACITEM	Activity chain item	R/W
BOMIMPX	ITEMID	Item identification	R/O
	WHRUSE	Where used	R/O

EMTODSCT: Load data control

Purpose

This program coordinates a Bill of Material load based on a pre-established mode set by the Start Engineering Data Load program, EMTODSLD.

Outline of program flow

Main program flow

Read BOMWORK control record.
If no load flags set, quit.
If EMI flag set:
- Link to EMI translate program (EMTODSXE).
- If return flag is "good," perform Load Routine.
If PES flag set.
- Link to PES translate program (EMTODSXH).
- If return flag is "good".
  - Perform Load Routine.
- Perform Write PES Feedback Routine.
If PDI flag set.
- Link to PDI translate program (EMTODSXP).
- If return flag is "good".
  - Perform Load Routine.
- Perform Write PDI Feedback Routine.
Update BOMWORK feedback record flags.
Read BOMWORK control record to determine interval.
Restart EMTODSCT at set interval.

Load routine

If BOM flag:
- Link to Load BOM program (EMTODSBL).

Write PES feedback routine

Open keyed file.
Write feedback info:
- Header Record
- Message Record
- Trailer Record
Close keyed file.
Perform Submit JCL Routine.

Write PDI feedback routine.

Open sequential file.
Write feedback info:
- Administrative Header
- Data Dictionary
- Object Data
Close sequential file.
Perform Submit JCL Routine.

Submit JCL routine

Scan JCL table for entry matching data type and originating node.
Read in JCL.
Scan for RFILEID parameter.
If found, scan for 8 dollar signs and modify to current DDHHMMSS (DD- day of month, HH- hours, MM- minutes, SS-seconds) for unique dataset name.
Submit JCL.

Reference data

Transaction Code

DSCT

PSB Name

EMTPCTx (x = environment)

Linked to Programs

DFSNNCC(MVS)	DLZNNCC(VSE)	EMTODSBL	EMTODSER
EMTODSPU(VSE)	EMTODSRL	EMTODSXE	EMTODSXH
EMTODSXP

Started Program

EMTODSCT (on interval)

Loaded Program

ENVTABLx (x = environment)

Database Access

Database	Segment	Segment Description	Mode
EMTDB0E	BOMWORK	Bill of material work	R/W
STEXDBD	STDXID	Standard text root	R/O
	STDATA	Standard text data	R/O

EMTODSXE: Translate EMI file data

Purpose

This program reads Computer-Aided Design system data from a VSAM file and loads it to the BOMWORK database. It translates EMI format data into the format required by the Bill of Material load program, EMTODSBL.

Reference data

PSB Names

EMTPXEx (x = environment)

Linked to Program

EMTODSER

Loaded Program

ENVTABLx (x = environment)

Database Access

Database	Segment	Segment Description	Mode
EMTDB0E	BOMWORK	Bill of material work	R/W
DDXDT0E	STDXID	Standard text root	R/O
	STDATA	Standard text data	R/O

Additional information

Syncpoint/backout

EMTODSXE uses CICS syncpoint and CICS Abend to force a DL/I backout in the event of an unrecoverable error. A syncpoint is set each time a Trailer Record is received. Should an error occur, a syncpoint rollback is issued to backout all the DL/I entries to the last syncpoint. All of the following records in the VSAM file are deleted up to the next header record.

VSAM Open/Close

EMTODSXE opens and closes the VSAM file. The file is usually closed so that engineering data can be added at any time. The program opens the file when it runs. After all records are processed, the program closes the file so more engineering data can be loaded.

VSAM Delete Records

EMTODSXE deletes records from the VSAM file as they are processed. In error conditions, records can be deleted until a new item is ready for processing or a new header record is found. Record deletion prevents the file from growing too large.

Record Sequence

EMTODSXE uses pending flags to track record sequence. The normal sequence is:

Header Record
Assembly Record 1
Assembly Record 2
Engineering Change Record
Drawing Data Record
Component Record
Trailer Record

The Header Record must be either the first data record read after the dummy record or it must follow a Trailer Record. The Header Record must be followed by an Assembly Record 1.
The Assembly Record 1 must be followed by an Assembly Record 2.
The Engineering Change Record is required if the Engineering Wanted flag is on in the Environment Table and must follow the Assembly Record 2.
If an Engineering Change Record is received a Drawing Data Record must follow.
The Component Record is optional and can be received more than once for a given item.
The Trailer Record is the last record received in a batch. It must be followed by either a Header Record or an End of File condition.

The Engineering/Manufacturing Interface File has other valid record types. However, only the record types mentioned are valid for the purposes of TFG2000. All other record types are ignored.

Output

The program makes entries in the BOMWORK database.

Translation - EMI records to BOMWORK

Assembly Header	Description	BOMWORK Field Name
Item_no	Item number	TSITEM	Item_desc	Item description	TSPDSC	Item_type	Item type	TSTYPN

Assembly Process	Description	BOMWORK Field Name
Unit_meas	Unit of measure	TSUTMS	Rout_no	Routing number	TSRTNO	Rout_type	Routing type	TSRTTY

Engineering Change	Description	BOMWORK Field Name
Chg_no	EC number	TSECNC	Resp_eng	Responsible eng	TSEENG	Chg_stat	EC status code	TSESTC	Chg_reas	EC reason code	TSERSN	Eff_date	Earliest eff date	TSEEFF

Drawing	Description	BOMWORK Field Name
Draw_no	Drawing number	TSEDNO	Draw_size	Drawing size

Component	Description	BOMWORK Field Name
Comp_no	Component number	TSCOMP	Comp_seq	Component seq number	TSCSUF	Comp_desc	Component description	TSDESC	Qty_assm	Quantity per assembly	TSQTY	Unit_meas	Unit of measure	TSCUOM	Eng_plng	Engineering planning cd	TSENGP	Bom_stat	EC BOM status code	TSBMTE	Eff_date	Earliest eff date		Item_type	Item type	TSCTYP	mp_code	Mfg planning cd.	TSMFGP

Outline of program flow

Main program flow

Perform Initialize Routine.
Start a VSAM browse.
Read past the first record. This is a dummy record with spaces for a key.
Read the first data record.
- If no record found, return to Load Data Control Program.
Perform Process CADAM** Data Routine until end-of-file is reached.

Initialize routine

Get the address of the task work area.
Perform housekeeping functions.
Get language and environment parameters.
Initialize work fields and BOMWORK areas.
Issue start up message.
Prime fields used for master terminal functions.
Open the VSAM file CADAMI.

Process CADAM data routine.

If the Record Type of the record being processed is used by TFG2000, then:
- Test all Pending flags to see if a record is received out of sequence. If an error is detected, perform the routine for the type of record expected.
- Perform the routine for the type of record received.
Add one to the record counter.
If the flush routine was not just performed, delete the record just processed and read the next record from the VSAM file.

Process a header record routine

Schedule the PSB.
Test for errors and issue error messages if found.
Save the Header Record Count field.
Initialize the Record Counter to one.
Move fields to BOMWORK area.

Process a Trailer Record routine

Test that the Header Record Count and the Record Counter fields are equal.
End the VSAM browse.
Insert EC-data record to the BOMWORK database.
Insert Item-data record to the BOMWORK database.
Set a CICS SYNCPOINT.
Reset the VSAM browse.

Process an assembly record 1 routine

Move fields to BOMWORK area.

Process an assembly record 2 routine

Move fields to BOMWORK area.

Process an EC record routine

Move fields to BOMWORK area.

Process a drawing record routine

Move fields to BOMWORK area.

Process a component record routine

Move fields to BOMWORK area.
Insert component-data record in the BOMWORK database.

EMTODSXH: Translate PES interface file data

Purpose

This program reads the PES self-describing sequential interface file data and loads it to the BOMWORK database. It translates the PES format data into the format required by the Bill of Material load program, EMTODSBL.

Reference data

PSB Name

EMTPXHx (x = environment)

Linked to Programs

EMTODSER

Loaded Programs

ENVTABLE

Database Access

Database	Segment	Segment Description	Mode
EMTDB0E	BOMWORK	Bill of material work	R/W
DDXDT0E	STDXID	Standard text root	R/O
	STDATA	Standard text data	R/O

Translation - PES records to BOMWORK

HEAD Structure
Field ID	Description	BOMWORK Field Name
RTYP	Request type
SEND	Sender's ID	FBSEND-USER
TARG	Target ID (receiver)	FBTARG-USER
RQNO	Request Number	FBRQNO
RFNO	Reference request number

CADD Structure
Field ID	Description	BOMWORK Field Name
CSYS	CAD system
CGRP	CAD group
CUSR	CAD user
CFIL	Drawing-file ID
CMOD	Model-ID (drawing)	TSEDNO
SIZE	Drawing size
DENG	Engineer responsible
Date	Drawing creation date

ITEM Structure
Field ID	Description	BOMWORK Field Name
ITNO	Item number	TSITEM
DSCS	Description short	TSPDSC
DSCL	Description long	TSDSCL
UOMS	Unit of measure	TSUTMS
ITYP	Item type	TSTYPN
RTNO	Routing number	TSRTNO
RTTY	Routing type	TSRTTY
COST	Unit cost (format = N)	TSCOST
SURF	Surface quality
MTRL	Material
UDIM	Unit of dimensions	TSUDIM
LNGT	Length (format = N)	TSLNGT
HGHT	Height (format = N)	TSHGHT
BRDT	Breadth (format = N)	TSBRDT
DIAM	Diameter (format = N)	TSDIAM
UWGT	Unit of weight	TSUWGT
WGHT	Weight (format = N)	TSWGHT
STDD	Standard (e.g. ISO, DIN) number

ECHD Structure
Field ID	Description	BOMWORK Field Name
ECNO	Engineering change number	TSECNC
EDAT	EC effectivity date (format = D)	TSEEFF
EETC	EC effectivity type code	TSEETC
EENG	EC engineer	TSEENG
EDSC	EC description	TSEDES
ESNO	EC serial number (from)
ESNT	EC serial number to
ESCD	EC status code	TSESTC
ERCD	EC reason code	TSERSN
EEDT	Date EC entered (format = D)	TSEEDT
EPRV	Previous EC

COMP Structure
Field ID	Description	BOMWORK Field Name
ITNO	Component (item) number	TSCOMP
POSI	Position number in BOM	TSPREFIX
DSCS	Description short	TSDESC
QNTY	Quantity (format = N)	TSQNTY
UOMS	Unit of measure for quantity	TSCUOM
ESTT	Engineering status
COPT	Category option	TSCAT
VOPT	Value option	TSVAL
ACOD	Action code	TSACT
PCOD	Phantom code	TSPHAN
EPCO	Engineering planning code	TSENGP
MPCO	Manufacturing planning code	TSMFGP
CTYP	Component type	TSCTYP
CEFD	Component effectivity date (from) (format = D)
CEFT	Component effectivity date to (format = D)
BSCO	Engineering BOM status code	TSBMTE
CTXT	Comment to BOM position
CSUF	Component suffix	TSCSUF
COFA	Offset adjustment	TSCOFA
CPON	Parent operation number	TSCPON

Outline of program flow

Main program flow

Perform Initialize Routine.
Perform Process Structure Routine until end of file is reached.

Initialize routine

Perform housekeeping functions.
Retrieve the calling terminal ID from the common area.
Initialize work fields and BOMWORK areas.
Issue start up message.
Prime fields used for master terminal functions.

Process Structure routine

Read record from the VSAM file.
Unscramble the self-defining format into a fixed format.
Test to see if a record is received out of sequence. If an error is detected, perform the routine for the type of record expected.
Perform the routine for the type of record received.
(Repeat until all records have been read from VSAM file.)

Process a "HEAD" routine

Schedule the PSB.
Test for errors and issue error messages if found.
Move fields to BOMWORK area.

Process a "TAIL" routine

Insert EC-data record to BOMWORK database.
Insert Item-data record to BOMWORK database.
Set a CICS SYNCPOINT.
Delete records in VSAM file.

Process an "ITEM" routine

Move fields to the BOMWORK area.

Process a "CADD" routine

Move fields to the BOMWORK area.

Process an "ECHD" routine

Move fields to the BOMWORK area.

Process a "COMP" routine

Move fields to the BOMWORK area.
Insert component-data record in the BOMWORK database.

Additional information

Syncpoint/backout

EMTODSXH uses CICS syncpoint and CICS syncpoint Rollback to force a DL/I backout in the event of an unrecoverable error. A syncpoint is set each time a Trailer Record is received. Should an error occur, a syncpoint Rollback is forced to backout all the DL/I entries to the last syncpoint.

Record Sequence

EMTODSXH tracks the sequence of structures. The normal sequence is:

Header Structure (HEAD)
CADD Structure (CADD)
Item Structure (ITEM)
EC Structure (ECHD)
Component Structure (COMP)
Trailer Structure (TAIL)

The HEAD must be either the first data structure or follow a TAIL. The HEAD must be followed by a CADD.
The CADD must be followed by an ITEM.
The ITEM must be followed by an ECHD.
The ECHD must be followed by one or more COMP structures.
The COMP is optional and can be received more than once for a given ITEM.
The TAIL is the last record received in a batch. It must be followed by either a HEAD or an End of File condition.

The PES File has other valid structures. However, only the ones mentioned in the previous list are valid for the purposes of TFG2000. All others will be ignored.

Output

The program records entries in the BOMWORK database.

EMTODSXP: Translate PDI file data

Purpose

This program translates PDI self-describing sequential interface file data into a fixed format interface database. This program is called by the control program, EMTODSCT, when the user requests to load data from the PDI interface. The Bill of Material load program, EMTODSBL, translates bill of material data and places it in the BOMWORK database for processing.

Reference data

PSB Names

EMTPXPx (x = environment)

Linked to Program

EMTODSER

Database Access

EMTODSXP accesses the following database segments.

Database	Segment	Segment Description	Mode
EMTDB0E	BOMWORK	Bill of material work	R/W
DDXDT0E	STDXID	Standard text root	R/O
	STDATA	Standard text data	R/O

Translation--PDI objects to BOMWORK

EKNCOMHD
Attribute ID
Description
BOMWORK Field Name

REF_NUMBER
Sender's request number
FBRQNO

ACM
Sender's ACM
FBSEND-ACM

NET
Sender's network
FBSEND-NET

NODE
Sender's node
FBSEND-NODE

USR
Sender's userid
FBSEND-USER

EUOEB600
Attribute ID
Description
BOMWORK Field Name

ID
Engineering change number
TSECNCE

IL_ACTION
Change attribute code
TSCHATE

INITIATOR
Initiator serial number
TSESEN

DESCRIPTION
EC description
TSEDES

DESIGN_ENGR
EC engineer
TSEENG

STATUS
EC status code
TSESTC

INIT_DATE
EC creation date
TSEEDT

REASON
EC reason code
TSERSN

EUOEB700
Attribute ID
Description
BOMWORK Field Name

IL_EC_NUMBER
Engineering change number
TSECNCI

IL_ITEM_NUMBER
Item number
TSITEMI

IL_ACTION
Change attribute code
TSCHATI

EFF_TYPE
Effectivity type code
TSEETC

EFF_DATE
Effectivity date
TSEEFF

EUOEB701
Attribute ID
Description
BOMWORK Field Name

IL_EC_NUMBER
Engineering change number
TSECNCI

IL_ITEM_NUMBER
Item number
TSITEMI

IL_ACTION
Change attribute code
TSCHATI

ACT_EFF_TYPE
Effectivity type code
TSEETC

ACT_EFF_DATE
Effectivity date
TSEEFF

EUOSB291
Attribute ID
Description
BOMWORK Field Name

IL_EC_NUMBER
Engineering change number
TSECNCI

IL_ITEM_NUMBER
Item number
TSITEMI

IL_ACTION
Change attribute code
TSCHATI

REFERENCE_ID
Drawing number
TSEDNO

EUOSB151
Attribute ID
Description
BOMWORK Field Name

IL_EC_NUMBER
Engineering change number
TSECNCD

IL_ITEM_NUMBER
Item number
TSITEMD

IL_TEXT
Long description
TSDSCL

EUOSB211
Attribute ID
Description
BOMWORK Field Name

IL_EC_NUMBER
Engineering change number
TSECNCI

IL_ITEM_NUMBER
Item number
TSITEMI

IL_ACTION
Change attribute code
TSCHATI

ITEM_TYPE
Item type
TSTYPN

UNIT_OF_MEASURE
Unit of measure
TSUTMS

DESCRIPTION
Description of item
TSPDSC

PLANNING
Item type
TSTYPN

EUOSB2A1
Attribute ID
Description
BOMWORK Field Name

IL_EC_NUMBER
Engineering change number
TSECNCI

IL_ITEM_NUMBER
Item number
TSITEMI

IL_ACTION
Change attribute code
TSCHATI

DISBURSE_CODE
Issue type control code
TSISSCTL

ITEM_LEAD_TIME
Lead time
TSLDTIME

ITEM_YIELD
Shrinkage factor
TSSHRF

PLANNING_CODE
Item type
TSTYPN

RCPT_CONTROL_CD
Receipt type control code
TSRECCTL

SOURCE_CODE
Sourcing code
TSLTCD

EUOSB271
Attribute ID
Description
BOMWORK Field Name

IL_EC_NUMBER
Engineering change number
TSECNCI

IL_ITEM_NUMBER
Item number
TSITEMI

IL_ACTION
Change attribute code
TSCHATI

WEIGHT
Weight per unit
TSWGHT

WEIGHT_UNIT
Unit of weight
TSUWGT

HEIGHT
Height
TSHGHT

HEIGHT_UNIT
Unit of height
TSUHGHT

LENGTH
Length
TSLNGT

LENGTH_UNIT
Unit of length
TSULNGT

BREADTH
Breadth
TSBRDT and TSDIAM

BREADTH_UNIT
Unit of breadth
TSUDIM

DIAMETER
Diameter
TSBRDT and TSDIAM

DIAMETER_UNIT
Unit of diameter
TSUDIM

EUOSB251
Attribute ID
Description
BOMWORK Field Name

IL_EC_NUMBER
Engineering change number
TSECNCI

IL_ITEM_NUMBER
Item number
TSITEMI

IL_ACTION
Change attribute code
TSCHATI

ROUTID
Routing number
TSRTNO

ROUT_TYPE_IND
Routing type
TSRTTY

EUOSB111
Attribute ID
Description
BOMWORK Field Name

IL_EC_NUMBER
Engineering change number
TSECNCI

IL_ITEM_NUMBER
Item number
TSITEMI

IL_ACTION
Change attribute code
TSCHATI

BATCH_SIZE
Batch error flag
TSBATCH

EUOSA121
Attribute ID
Description
BOMWORK Field Name

IL_EC_NUMBER
Engineering change number
TSECNCC

IL_ITEM_NUMBER
Item number
TSITEMC

DISPLAY_SEQ_NUM
Prefix
TSPREFIXC

IL_COMP_ITEM_NUMBER
Component item number
TSCOMPC

COMP_SEQ_NM
Suffix sequence number
TSCSUFC

IL_ACTION
Change attribute code
TSCHATC

MEASUR_OBJ_UNIT
Component unit of measure
TSCUOM

MEASUR_OBJ
Quantity per assembly
TSQTY

ITEM_TYPE
Item type
TSCTYP

FEATURE
Option category
TSCAT

VARIANT
Option value
TSVAL

ACTION_CODE
Action code
TSACT

MFG_PLANNING_CODE
Manufacturing plan code
TSMFGP and TSPHAN

DESCRIPTION
Component description
TSDESC

USAGE_PROBABILITY
Usage probability
TSRATE

EUOSA161
Attribute ID
Description
BOMWORK Field Name

ID
Engineering change number
TSECNCC

ID_ITEM_NUMBER
Item number
TSITEMC

IL_COMP_ITEM_NUM
Component item number
TSCOMPC

COMP_SEQ_NM
Suffix sequence number
TSCSUFC

IL_ACTION
Change attribute code
TSCHATC

OPER_ID
Parent operation number
TSCPON

IL_QUAN_UNIT_ID
Component unit of measure
TSCUOM

IL_QUAN_VALUE
Quantity per assembly
TSQTY

SCRAP_FACTOR
Scrap factor
TSSCRP

IL_LEAD_TIME_UNIT_ID
Offset adjustment unit
TSCOFA

IL_LEAD_TIME_VALUE
Offset adjustment
TSCOFA

EKNCOMHD Attribute ID	Description	BOMWORK Field Name
REF_NUMBER	Sender's request number	FBRQNO
ACM	Sender's ACM	FBSEND-ACM
NET	Sender's network	FBSEND-NET
NODE	Sender's node	FBSEND-NODE
USR	Sender's userid	FBSEND-USER

EUOEB600 Attribute ID	Description	BOMWORK Field Name
ID	Engineering change number	TSECNCE
IL_ACTION	Change attribute code	TSCHATE
INITIATOR	Initiator serial number	TSESEN
DESCRIPTION	EC description	TSEDES
DESIGN_ENGR	EC engineer	TSEENG
STATUS	EC status code	TSESTC
INIT_DATE	EC creation date	TSEEDT
REASON	EC reason code	TSERSN

EUOEB700 Attribute ID	Description	BOMWORK Field Name
IL_EC_NUMBER	Engineering change number	TSECNCI
IL_ITEM_NUMBER	Item number	TSITEMI
IL_ACTION	Change attribute code	TSCHATI
EFF_TYPE	Effectivity type code	TSEETC
EFF_DATE	Effectivity date	TSEEFF

Outline of program flow

Main Program Flow

Housekeeping.
Load Environment Table.
Read first record.
If not end-of-file, then:
- If "PDIF" record, then:
Perform Administrative_Decode.

Perform Dictionary_Decode until end-of-section.

Perform Object_Decode until end-of-section.
Else

Issue message "File not in PDI format".
Delete batch of records.
Write Feedback record to BOMWORK.
Return to EMTODSCT.

Administrative Decode

Perform Decode_Dictionary_Attributes until end-of-section.
Perform Object_Object_Attributes until end-of-section.

Dictionary Decode

Read DEFID obtaining object class.
Perform Decode_Dictionary_Attributes until end-of-definition.

Decode Dictionary Attributes

Read attribute name and attribute type.
Save object class, attribute name, and attribute type.

Object Decode

Read object class identification.
Perform Decode_Object_Attributes until end-of-definition.
Write/Rewrite appropriate BOMWORK record based on the class name.

Decode Object Attributes

Read attribute value.
Retrieve object class, attribute name, and attribute type associated with attribute value.
Map the attribute value into the appropriate BOMWORK database field based on the class name and attribute name.

Database	Segment	Segment Description	Mode
EMTDB0E	BOMWORK	Bill of material work	R/W
DDXDT0E	STDXID	Standard text root	R/O
	STDATA	Standard text data	R/O

Outline of program flow

Main program flow

Address TWA.
If Error Message is not numeric, then:
- Setup for DL/I error message retrieval.
Setup DL/I SSA.
Perform DL/I Get Unique.
Check DL/I return code.
Check DL/I status code.
Return to calling program.

[ Top of Page | Previous Page | Next Page | Table of Contents | Index ]

EUOSB151 Attribute ID	Description	BOMWORK Field Name
IL_EC_NUMBER	Engineering change number	TSECNCD
IL_ITEM_NUMBER	Item number	TSITEMD
IL_TEXT	Long description	TSDSCL

EUOSA121 Attribute ID	Description	BOMWORK Field Name
IL_EC_NUMBER	Engineering change number	TSECNCC
IL_ITEM_NUMBER	Item number	TSITEMC
DISPLAY_SEQ_NUM	Prefix	TSPREFIXC
IL_COMP_ITEM_NUMBER	Component item number	TSCOMPC
COMP_SEQ_NM	Suffix sequence number	TSCSUFC
IL_ACTION	Change attribute code	TSCHATC
MEASUR_OBJ_UNIT	Component unit of measure	TSCUOM
MEASUR_OBJ	Quantity per assembly	TSQTY
ITEM_TYPE	Item type	TSCTYP
FEATURE	Option category	TSCAT
VARIANT	Option value	TSVAL
ACTION_CODE	Action code	TSACT
MFG_PLANNING_CODE	Manufacturing plan code	TSMFGP and TSPHAN
DESCRIPTION	Component description	TSDESC
USAGE_PROBABILITY	Usage probability	TSRATE

EUOSA161 Attribute ID	Description	BOMWORK Field Name
ID	Engineering change number	TSECNCC
ID_ITEM_NUMBER	Item number	TSITEMC
IL_COMP_ITEM_NUM	Component item number	TSCOMPC
COMP_SEQ_NM	Suffix sequence number	TSCSUFC
IL_ACTION	Change attribute code	TSCHATC
OPER_ID	Parent operation number	TSCPON
IL_QUAN_UNIT_ID	Component unit of measure	TSCUOM
IL_QUAN_VALUE	Quantity per assembly	TSQTY
SCRAP_FACTOR	Scrap factor	TSSCRP
IL_LEAD_TIME_UNIT_ID	Offset adjustment unit	TSCOFA
IL_LEAD_TIME_VALUE	Offset adjustment	TSCOFA