SIM2000/VSAM/EMWS - EURO Wrapping Tool for VSAM,QSAM,DL/1
SIM2000/VSAM/EMWS is a data wrapping tool which allows users to modify any field in a VSAM or QSAM record while the dataset is being processed. SIM2000/VSAM/EMWS allows the modifications to be made in batch and online (CICS) modes.
SIM2000/VSAM/EMWS allows the user to add to, subtract from, multiply or divide user fields by specific or variable values, based upon certain criteria being met if you desire. You can also modify a user field to a specific value or predefined variable. Each field can have it's own conditional statement which must be met before the modification is made.
These techniques are used to store Euro values in the data records delivering the appropriate national currency values to the application programs which read, write or update the records. The round-trip-rounding errors, also called rounding discrepancy or additional information, is stored in the same record, i.e., the record has to be extended. SIM2000/VSAM/EMWS hides these extended record bytes, because the application programs and JCL statements should not be touched or adapted to the new record size or record structure.
SIM2000/VSAM/EMWS allows you to define Variable and Condition control information that can be used for any dataset processing. The Variable control information allows you to assign a name to a specific value. This name can be used for computing a new field value or comparing for Condition processing. The Condition control information allows you to establish the criteria for further processing. You can determine which records are to be processed as well as which computations are to be performed based upon conditions being met.
SIM2000/VSAM/EMWS is completely transparent to the application program. The user establishes control information which tells SIM2000/VSAM/EMWS which datasets to handle and the characteristics of the record data fields to be processed. The control information is maintained in a VSAM dataset that is read and loaded into virtual storage during the SIM2000/VSAM/EMWS system activation, which is part of the SIM2000/VSAM/EMWS system activation.
SIM2000/VSAM/EMWS provides an interface between the application program and VSAM/QSAM. This interface is established when the applicable datasets are opened. Once the interface is established, SIM2000/VSAM/EMWS interrogates and processes every record that is handled by the application program. The interface is reset when the dataset is closed.
SIM2000/VSAM/EMWS supports all types of VSAM datasets and QSAM XE "QSAM" datasets. Multiple record types are supported as well as all VSAM processing modes.
SIM2000/VSAM/EMWS supports OS/390, MVS, VSE, batch, and CICS applications.
SIM2000/VSAM/EMWS Euro tour
You must establish SIM2000/VSAM/EMWS control information for Euro data wrapping to occur. Here a quick tour based on the following data record example, to get an overview about the SIM2000/VSAM/EMWS facilities.
EURO relevant record structure:
Variable Control Information & Euro Conversion Rate Table
You can setup the euro conversion rate table by executing the following job with program S2VSAMU1 containing VARIABLE control statements. These statements allow you to assign appropriate conversion rates to specific variables:
If you reference the DEM Variable in a DF specification (refer to DF control information in this section), the value of 1.95583 will be used in the computation processing. If you reference DKK in several DF specifications and you need to change the value, you simply update the VARIABLE control statement and execute S2VSAMU1 with the new control statement. In Italy, where you can use the original field length to introduce the decimal places due to the conversion rate of 1936.27, you can use the variable ITL with 19.3627 to store EUR-values inclusive 2 decimal places at the place of the original ITL-values. Within other countries like Belgium, Luxemburg or Spain, where the introduction of decimal places usually is necessary, this should be done before using SIM2000/VSAM/EMWS Version 1. Important: Please check the conversion rate value, to be appropriate for the value to be converted.
Condition Control Information & Currency Indicator Related Conversion You can setup condition control information by executing S2VSAMU1 with CONDITION control statements. These statements allow you to establish conditional processing:
COND01 is met if the 3-byte zone decimal field in record position 20 is equal to ATS. COND02 is met if the 3-byte zone decimal field in record position 20 is equal to BEF. COND03 is met if the 3-byte zone decimal field in record position 20 is equal to DEM. and so on.
The conversion rate of the amount value 1 and 2 depends on this conditions.
DF Control Information & Euro Wrapping Functions
You reference the Variable and Condition control information via the DF specification at the dataset level. The DF specification is used to define which data fields are to be processed and the type of processing that is to occur. The DF specification can be added to the S2VSAMUT CREATE and UPDATE control statements.
Dataset to be controlled: EMWS.EUROTEST.ESDS
Original record length (URS): 50 used by the unchanged application program New
record length (XRS): 62 used by SIM2000/VSAM/EMWS read/write (i.e.12 bytes used, to store round-trip-rounding errors) Record type (RT=1,2,1,Z) No. 1 if at position 2 the value 1 is in a Zoned decimal field This is used to distinguish different record structures in the same file.
DF=(11,9,Z,/,ATS,COND01,51,2), The 9-byte zoned decimal field starting in record position 11 will be divided by the value of the variable ATS if COND01 is matched. A 2 byte field at position 51 of the record is used, to store the round-trip-rounding error (rounding discrepancy).
DF=(11,9,Z,/,BEF,COND02), The 9-byte zoned decimal field starting in record position 11 will be divided by the value of the variable BEF if COND02 is matched. An additional information for the rounding error is not necessary for BEF, LUF, IEP, because there is no rounding discrepancy.
DF=(31,3,C,=,'EUR'), The 3-byte character field at record position 31 is set to EUR without a condition.
DF=(38,8,Z,/,DEM,,55,8) The 8-byte zoned decimal field starting in record position 38 will be divided by the value of the variable DEM without a condition. A 8 byte zoned decimal field at position 55 of the record is used, to store the original DEM value.
The Variable and Condition control information is established for all datasets to use.
You reference Variable and Condition control information at the dataset level via the DF specification.
The Variable and Condition control information is stored in the SIM2000/VSAM/EMWS control file. This information is read during the SIM2000/VSAM/EMWS system activation and virtual tables are built from this information. A facility is provided which allows you to update the virtual tables without shutting the product down.
The switch for BigBang is done by the following job:
Dataset to be controlled: EMWS.EUROTEST.ESDS
Original record length (URS): 50 used by the unchanged application program
New record length (XRS): 62 used by SIM2000/VSAM/EMWS read/write (i.e. 12 bytes were hided)
Record type (RT=1,2,1,Z) No. 1 if at position 2 the value 1 is in a Zoned decimal field This is used to distinguish different record structures in the same file.
No re-conversion from Euro to NC will be done by SIM2000/VSAM/EMWS because there is no defined DF control information. The parameter of XRS and URS ensures, that there are no changes required in the original application program and JCL. EMWS for VSAM needs the information to read or write the dataset and to hide the additional bytes.
Please contact us for more information.
Copyright 2000 DPE & Associates, Inc.
This page was last updated November 07, 2000
Home | Services | Contact Us