Performance Test for VTAM EURO Script Utility (VTAM)
The EURO script utility is a feature that allows you to change Performance Test for VTAM 3270 formatted scripts. It searches selected scripts for any user-defined currencies and, if desired, makes the conversion from one currency to another. This utility enables you to add, delete, alter, copy, and move fields within a screen. The fields can be part of an OUTPUT or INPUT message. The utility is able to add new screens as well.
The EURO script utility presents a series of ISPF screens in a preset sequence. These screens are used to set up the following:
- Input Performance Test script
- Output Performance Test script
- Control cards
- Currency cards.
After setting up these items, you can run the utility in TSO foreground or background (batch) mode.
Using the EURO Script Utility
Select option 7 Euro from the Script Processors menu.
Script Processors screen. ----------------------------- Script Processors ------------------------------- .
. Option ===> .
. .
. .
. 1 REXX Processor Create "Smart" Script(s) .
. 2 Date Change Change Year Formats for Date Testing .
. 3 Date Find Report Location(s) of Date Field(s) .
. 4 Input Field Formats Change Input Fields to Row/Column Format .
. 5 MultiChange Processor Update Scripts to Reflect Application Changes .
. 6 Security Script Processor Locate and Modify Passwords .
. 7 Euro Euro Script Utility .
. 8 GST GST Testing Utility .
. 9 Message Filtering Message Filtering Utility .The following screen appears.
EURO Script Utility screen. ----------------------------- EURO Script Utility ----------------------------- .
. Command ===> .
. .
. Input Script: .
. Data Set Name . . . .
. Member Name . . . (Blank or pattern for member selection list, .
. "*" for all members) .
. .
. Output Script: .
. Data Set Name . . . .
. .
. Control File: .
. Data Set Name . . . .
. Member Name . . . .
. .
. Currency File: .
. Data Set Name . . . .
. Member Name . . . .
. .
. Replace Like Script Member(s) .
. Update control file only .
. Update currency file only .- Enter the Input Script Data Set Name (the script data set that the EURO script utility will use as input). This data set must be a PDS or PDSE. Enter the Member Name of the desired input script. If you enter a mask or leave this field blank, a selection list appears. You can use this selection list to limit the scripts to be processed.
- Enter Output Script Data Set Name (the script data set where you want the EURO script utility to write scripts). This data set must be a preallocated PDS or PDSE. If this field is left blank or errors occur, a message informs you that the utility will run in report mode and no changes are saved.
Enter the Control File Data Set Name. This optional data set contains the EURO script utility control and currency cards. It can be a PDS, PDSE, or sequential file. If the currency file and control file are different data sets, they must have the same record format, record length, and blocksize.
Enter the Member Name of the desired control file data set. If no data set and member are entered, the control cards generated will not be saved.Enter the Currency File Data Set Name. This optional data set contains the EURO script utility currency cards. It can be a PDS, PDSE, or sequential file. If the currency file and control file are different data sets, they must have the same record format, record length, and blocksize.
Enter the Member Name of the desired currency file data set. If no data set and member are entered, but a control file is entered above, the currency cards save to that control file. If both currency and control file fields are left blank, the currency cards generated will not be saved.- To select the following options, type a slash in the Action column:
- Replace Like Script Member(s): Replaces a script if a script with the same name currently exists in the output script file. If you do not select this option, the EURO script utility prompts you to enter a new name for the duplicate script at the time the member list is presented.
- Update control File only: Performs updates to the control file. If the control file contains currency cards, they can also be updated at that time.
- Update currency file only: Performs updates to the currency file.
Using member lists
The Script Selection List screen appears when you press Enter on the EURO Script Utility screen and one of the following conditions exists:
- The Input Script Member Name field is left blank or contains a mask.
- A duplicate script is found, and Replace Like Script Member(s) was not selected.
Script Selection List screen
. Command ===> Scroll ===> PAGE .
. .
. Row 00001 of 00495 .
. Input Script . . : 'PMIJSS0.JMS.SCRIPTS' .
. Output Script . . : 'PMIJSS0.JMS.SCRIPTS' .
. .
. Enter END to process selections or CANCEL to exit member list. .
. .
. Name New Name VV MM Created Changed Size Init Mod ID .
. / AUTO0000 00.00 23/01/19 23/01/19 13:52 1036 21 0 MFHEFS0 .
. _ AUTO0001 00.00 23/01/19 23/01/19 13:52 13766 335 0 PFHJBK0 .
. _ AUTO0002 00.00 23/01/19 23/01/19 13:52 214 6 0 PFHJBK0 .
. _ AUTO0003 00.00 23/01/19 23/01/19 13:52 1758 43 0 PFHJBK0 .
. _ AUTO0004 00.00 23/01/19 23/01/19 13:52 730 22 0 PINGXV1 .
. _ AUTO0005 00.00 23/01/19 23/01/19 13:52 190 6 0 PINGXV1 .
. _ AUTO0006 00.00 23/01/19 23/01/19 13:52 303 9 0 .
. _ AUTO0007 00.00 23/01/19 23/01/19 13:52 199 6 0 HUKPXH0 .
. _ AUTO0008 00.00 23/01/19 23/01/19 13:52 258 8 0 HUKPXH1 .
. _ AUTO0009 00.00 23/01/19 23/01/19 13:52 812 25 0 HUKPXH1 .
. _ AUTO0010 00.00 23/01/19 23/01/19 13:52 6603 187 0 PFHGJK0 .
. _ AUTO0011 00.00 23/01/19 23/01/19 13:52 766 24 0 AFHAZS0 .
. _ AUTO0012 +-------------------------------------------+ 6 0 PSCSXW1 .
. _ AUTO0013 | Line Commands are: S(SELECT) or R(RENAME) | 78 0 AFHAZS0 .
. _ AUTO0014 +-------------------------------------------+ 24 0 AFHAZS0 .
. _ AUTO0015 00.00 23/01/19 23/01/19 13:53 11028 331 0 HUKPXH0 .
The Input Script field displays the input data set name, and the Output Script field displays the output data set name. If no output data set name was entered on the EURO Script Utility screen, the Output Script field is blank.
On this screen, you can select which scripts to process. If a duplicate script is found (see the following figure), you can choose a new member name for your script.
Member List screen with duplicate member names
. Command ===> Scroll ===> PAGE .
. .
. Row 00001 of 00495 .
. Input Script . . : 'PMIJSS0.JMS.SCRIPTS' .
. Output Script . . : 'PMIJSS0.JMS.SCRIPTS' .
. .
. Enter END to process selections or CANCEL to exit member list. .
. .
. Name New Name VV MM Created Changed Size Init Mod ID .
. S AUTO0000 00.00 23/01/19 23/01/19 13:52 1036 21 0 MFHEFS0 .
. _ AUTO0001 00.00 23/01/19 23/01/19 13:52 13766 335 0 PFHJBK0 .
. _ AUTO0002 00.00 23/01/19 23/01/19 13:52 214 6 0 PFHJBK0 .
. _ AUTO0003 00.00 23/01/19 23/01/19 13:52 1758 43 0 PFHJBK0 .
. _ AUTO0004 00.00 23/01/19 23/01/19 13:52 730 22 0 PINGXV1 .
. _ AUTO0005 00.00 23/01/19 23/01/19 13:52 190 6 0 PINGXV1 .
. _ AUTO0006 00.00 23/01/19 23/01/19 13:52 303 9 0 .
. _ AUTO0007 00.00 23/01/19 23/01/19 13:52 199 6 0 HUKPXH0 .
. _ AUTO0008 00.00 23/01/19 23/01/19 13:52 258 8 0 HUKPXH1 .
. _ AUTO0009 00.00 23/01/19 23/01/19 13:52 812 25 0 HUKPXH1 .
. _ AUTO0010 00.00 23/01/19 23/01/19 13:52 6603 187 0 PFHGJK0 .
. _ AUTO0011 00.00 23/01/19 23/01/19 13:52 766 24 0 AFHAZS0 .
. _ +---------------------------------------------------------------------+ XW1 .
. _ | AUTO0000 already exists; Please use R(RENAME) with new member name. | ZS0 .
. _ +---------------------------------------------------------------------+ ZS0 .
. _ AUTO0015 00.00 23/01/19 23/01/19 13:53 11028 331 0 HUKPXH0 .
To change your script name, type S (Select) next to the duplicate name identified on this screen, then press Tab to advance to the New Name column. Type your new script name and press Enter. The screen updates to show that the change has been accepted (see the following figure).
Member List Screen with changed member name
. Command ===> Scroll ===> PAGE .
. .
. Row 00001 of 00495 .
. Input Script . . : 'PMIJSS0.JMS.SCRIPTS' .
. Output Script . . : 'PMIJSS0.JMS.SCRIPTS2' .
. .
. Enter END to process selections or CANCEL to exit member list. .
. .
. Name New Name VV MM Created Changed Size Init Mod ID .
. _ AUTO0000 SAMPLE4 00.00 23/01/19 23/01/19 13:52 1036 21 0 *RENAME* .
. _ AUTO0001 00.00 23/01/19 23/01/19 13:52 13766 335 0 PFHJBK0 .
. _ AUTO0002 00.00 23/01/19 23/01/19 13:52 214 6 0 PFHJBK0 .
. _ AUTO0003 00.00 23/01/19 23/01/19 13:52 1758 43 0 PFHJBK0 .
. _ AUTO0004 00.00 23/01/19 23/01/19 13:52 730 22 0 PINGXV1 .
. _ AUTO0005 00.00 23/01/19 23/01/19 13:52 190 6 0 PINGXV1 .
. _ AUTO0006 00.00 23/01/19 23/01/19 13:52 303 9 0 .
. _ AUTO0007 00.00 23/01/19 23/01/19 13:52 199 6 0 HUKPXH0 .
. _ AUTO0008 00.00 23/01/19 23/01/19 13:52 258 8 0 HUKPXH1 .
. _ AUTO0009 00.00 23/01/19 23/01/19 13:52 812 25 0 HUKPXH1 .
. _ AUTO0010 00.00 23/01/19 23/01/19 13:52 6603 187 0 PFHGJK0 .
. _ AUTO0011 00.00 23/01/19 23/01/19 13:52 766 24 0 AFHAZS0 .
. _ AUTO0012 00.00 23/01/19 23/01/19 13:52 190 6 0 PSCSXW1 .
. _ AUTO0013 00.00 23/01/19 23/01/19 13:52 12475 378 0 AFHAZS0 .
. _ AUTO0014 00.00 23/01/19 23/01/19 13:52 7389 224 0 AFHAZS0 .
. _ AUTO0015 00.00 23/01/19 23/01/19 13:53 11028 331 0 HUKPXH0 .
Using Control Files
The Control File Item List screen appears immediately when you press Enter on the EURO Script Utility screen or after any required changes have been made on the Script Selection List screen.
The Control File Item List screen lists the control items currently defined for the session. Defined control items include those read in from the control data set and those you add.
Control File Item List screen
Command ===> Scroll ===> PAGE
PMIJSS0.JMS.CONTROL.FILE(FILE1 ) Row 00001 of 00001
Select Action or Enter "/" to Display Action List
Item Script
Number Type Msg Type Action Description
_ 00001 3270 OUTPUT D
*************************** Bottom of Control File ***************************
The ADD primary command adds a new control item. CURRENCY displays a list of EURO script utility currencies.
The (A)dd, (B)rowse, (D)elete, (R)epeat, (U)pdate, and / (slash) line commands are valid on this screen. The A, B, and D commands display the Maintain Control File Item screen in the specified mode.
R displays the Maintain Control File Item screen in Add mode. This command is similar to the A line command, but Performance Test fills in data from the control item where the command was entered. U updates the entry. / displays a screen showing these commands.
Control Items
The Maintain Control File Item screen appears when you type an A, B, D, R, or U line command next to a control item on the Control File Item List screen and press Enter.
Maintain Control File Item screen
. Command ===> .
. .
. Message Type . . . .
. Operation . . . . . .
. Description . . . . .
. .
. Screen Identification .
. Text . . . . . . .
. (Row, Column) . . , Rows (1-43) Columns (1-132) .
. .
. From .
. Text . . . . . . .
. Currency . . . . .
. (Row, Column) . . , Rows (1-43) Columns (1-132) .
. To .
. Text . . . . . . .
. Currency . . . . .
. (Row, Column) . . , Rows (1-43) Columns (1-132) .
The Update Control File Item screen allows you to add, browse, update, or delete control cards. The current operating mode is indicated in the upper left corner of the screen.
Field definitions
Message type
The type of messages against which control operations are performed. Valid message types are INPUT, OUTPUT, and BOTH (INPUT and OUTPUT).
Operation
The operation the utility will perform. All operations affect a single screen. To move a field to a different screen you must delete the field from the currency screen, then insert the field on the new screen. To display a list of valid operations, leave this field blank and press Enter. Valid operations include:
- D: Delete a field from a screen
- I: Insert a field in a screen
- IS: Insert a new screen
- A: Alter a field on a screen
- C: Copy a field on a screen
- CX: Copy a field on a screen and convert it to a chosen currency
- M: Move a field on a screen
- MX: Move a field on a screen and convert it to a chosen currency
- X: Convert a field on a screen to a chosen currency.
Description
A brief description of what the control card does.
Screen identification
Group of fields that defines the screen against which the utility performs the operation. Designate a screen for the INSERT (I) and INSERT SCREEN (IS) operations. If you enter a string in the Text field, you must also enter values in the (Row, Column) field.
Text: Used to enter a description of the screen literal.
- (Row, Column): Used to enter on the EURO script utility the location of the screen literal in the Text field. You can use an asterisk (*) as a wildcard character in either field.
From
Group of fields that defines the data to be altered, copied, converted, deleted, or moved. Values must be entered for any of the following operations:
- D: Delete a field from a screen
- A: Alter a field on a screen
- C: Copy a field on a screen
- CX: Copy a field on a screen and convert it to a chosen currency
- M: Move a field on a screen
- MX: Move a field on a screen and convert it to a chosen currency
- X: Convert a field on a screen to a chosen currency.
- Text: Contains the data used by the EURO script utility to verify the location before performing the chosen operation. This field is ignored for the MX (move and convert field currency) and X (convert field currency) operations.
- Currency: Used to choose the currency to be copied, moved, and/or converted. You can use an asterisk (*) as a wildcard character in either field. To display a selection list of defined currencies, type ? in the Currency field and press Enter.
- (Row, Column): Used to choose the location of the data on the screen. For the X (convert field currency) operation, an asterisk (*) wildcard character can be used in these fields.
To
Group of fields that defines where the new or copied data will be placed. Values must be entered for any of the following operations:
- A: Alter a field on a screen
- C: Copy a field on a screen
- CX: Copy a field on a screen and convert it to a chosen currency
- M: Move a field on a screen
- MX: Move a field on a screen and convert it to a chosen currency
- X: Convert a field on a screen to a chosen currency.
- Text: Define the data that the EURO script utility replaces with the data defined by the From fields. This field is ignored for the CX, MX, and X operations.
- Currency: Define the currency to which the EURO script utility will convert the currency defined in the From fields.
- (Row, Column): Define the location on the screen in which the EURO script utility will place the data.
Using Currency Cards
The EURO Currency Card List screen is the next screen displayed when you press Enter on the Maintain Control File Item screen.
The EURO Currency Card List screen lists the currency cards currently defined for the session. Defined currency cards include those read in from the control and/or currency data sets and those you add.
EURO Currency Card List screen
Command ===> Scroll ===> PAGE
PMIJSS0.JMS.CURRENCY(CURR ) Row 00001 of 00001
Select Action or Enter "/" to Display Action List
Rounding Decimal Conversion
Name Symbol P Format Factor Position Value
_ EUR $$ P 3 1 0 1.000000
************************ Bottom of Currency Information **********************
The ADD primary command adds a new currency.
The A(dd), D(elete), R(epeat), S(elect), U(pdate) and / (slash) line commands are valid on this screen.
A adds a currency card and displays the Maintain EURO Currency Card screen in Add mode. D deletes a currency card and displays the Maintain EURO Currency Card screen in Delete mode. R repeats a currency card and displays the Maintain EURO Currency Card screen in Add mode. This command is similar to the A line command, but Performance Test fills in data from the currency card where the command was entered. S selects a currency card. This command is available only when updating a EURO control item. U updates a currency card and displays the Maintain EURO Currency Card screen in Update mode. / displays a screen showing these commands.
Individual Currency Cards
The Maintain EURO Currency Card screen appears when you type an A, B, D, R, or U line command next to a currency card on the EURO Currency Card List screen and press Enter.
Maintain EURO Currency Card screen
. Command ===> .
. .
. Currency Name . . . . . .
. Currency Symbol . . . . .
. Symbol Position . . . . P Prefix .
. S Suffix .
. .
. Format Characters .
. Decimal . . . . . . . .
. Grouping . . . . . . .
. .
. Rounding Factor . . . . 1 Nearest whole number .
. 2 Least whole number .
. 3 Highest whole number .
. 4 Nearest decimal number .
. 5 Least decimal number .
. 6 Highest decimal number .
. Decimal Positions . . . 0 .
. Conversion Value . . . 0 .
. .
. Default Currency .
This screen allows you to add, browse, update, or delete individual currency cards. The current operating mode is indicated in the upper left corner of the screen.
Field definitions
Currency name
Three-character field used to enter a name for the currency.
Currency symbol
Three-character field used to enter a symbol for the currency.
Symbol position
The positioning of the currency symbol. Valid values are:
- P: Prefix. The symbol is located before the numerics.
- S: Suffix. The symbol is located after the numerics.
Format characters
Characters for formatting numbers.
- Decimal: Character used to enter decimal position within a number. Examples are a period (.) or a comma (,).
- Grouping: Character used to separate groupings of numbers, such as the commas (,) in 1,000,000 or the space in 10 000.
Rounding factor
The type of rounding the utility will perform on a number. For example, the number 12.3416 with 3 decimal positions is rounded as follows for each of the six available options:
- Nearest whole number: 12.000
- Least whole number: 12.000
- Highest whole number: 13.000
- Nearest decimal number: 12.342
- Least decimal number: 12.341
- Highest decimal number: 12.342
Decimal positions
The maximum number of decimal positions to display for a number.
Conversion value
The value the utility multiplies by during conversion from one currency to the EURO. Ensure that this number is in relationship to the currency from which you are converting. For example, if 1 EURO = 0.630000 pounds, the conversion value to go from pounds to EUROs is 0.630000.
Default currency
Select this option by entering a slash (/) next to it. The utility considers any number that does not have a symbol as a match. The number still needs to qualify as a match based on formatting characters and number of decimals.
If intermediate result rounding is required, then define two conversion operations as follows:
- Define an intermediate currency (for example, INT) with a conversion value of 1 and the number of decimals you want to round the intermediate result.
- Define a conversion (for example, create a control file entry) from the currency entered on the input script to the INT currency.
- Define a conversion from the Intermediate (INT) currency to the target currency.
Submitting EURO Script Utility jobs
To submit a Euro Script Utility job, press Enter on the Maintain EURO Currency Card screen. The Euro Script Utility Execution screen appears allowing you to choose whether to run the utility in TSO foreground or TSO background (batch) mode.
EURO Script Utility Execution screen
. Command ===> .
. .
. Press ENTER to continue submit .
. .
. .
. Execute Script Utility in foreground .
. .
. Report Information: .
. SYSOUT Class . . . .
. DEST ID . . . . . .
. Data Set Name . . .
. .
. Job Statement Information: .
. ===> //* .
. ===> //* .
. ===> //* .
. ===> //* .
. .
. Performance Test Load Library Information: .
. ===> VP.TECH.QQF172.SQQFLOAD .
Field definitions
Execute Script Utility in foreground
If you enter / in front of this option, the EURO script utility executes in TSO foreground.
Report Information
Use these fields to choose the destination for the EURO script utility report. You must choose either a SYSOUT class or a data set name. If you choose a data set, it must have a record length of 133 and formatting of Variable Blocked ASCII (LRECL=133, RECFM=VBA). If the data set does not exist, the EURO script utility allocates it.
- SYSOUT Class: Enter the SYSOUT class to which you want the report written. This field is not used if you enter a value in the Data Set Name field.
- DEST ID: Enter the printer ID where you want the report to print. This field is optional and is not used if you enter a value in the Data Set Name field.
- Data Set Name: Enter the name of the report data set. This field is optional, but any value entered must be a valid data set name.
Job statement information
Use this area to enter jobcard information for submitting batch jobs. If the option Execute Script Processor in foreground is selected, the jobcard information is ignored.
Performance Test Load Library information
Displays load library in which program SPEURO resides. Modify this field if the library displayed is not the library in which the EURO script utility is installed. If the option Execute Script Processor in foreground is selected, the load library information is ignored.
EURO Script Utility currency location and conversion
When a EURO script utility job that includes a control file request for currency conversion is run, the currency is located and converted each time all three of the following conditions are met:
- Any screen identification entered on the Maintain Control File Item screen is found.
- The desired currency is located, based on at least one of the following conditions:
- The currency symbol is found with a numeric value in the currency field
- The number of decimal positions in a row and column location matches the set value
- The number of decimal positions in a generic location (for example, if you entered an asterisk (*) for row or column) matches the set value and the default currency option was selected on the Maintain EURO Currency Card screen.
- The field containing the currency is large enough to hold the converted currency value.
Control cards
The EURO script utility uses the control cards described in this section.
<CURR-xxx>
Currency card defining a currency to the EURO script utility. The format is
<CURR-aaa>bcccdefg h i where:
- aaa is the currency name
- b indicates whether this is the default currency (Y=yes)
- ccc is the currency symbol
- d indicates whether the symbol is a prefix (P) or suffix (S) to the numerics
- e is the decimal character
- f is the grouping character
- g is the rounding factor where:
- 1 is nearest whole number
- 2 is least whole number
- 3 is highest whole number
- 4 is nearest decimal number
- 5 is least decimal number
- 6 is highest decimal number.
- h is the number of decimal places
- i is the conversion value.
<CONTROL>, </CONTROL>
Control cards that define the start and end of another control card.
<DESC>
Description card that provides a short description of the operation this control card performs.
<SCRTYPE>
Screen Type card that lists the Performance Test for VTAM scripts on which the operation will be performed. The format is <SCRTYPE>a where a is 3270.
<MSGTYPE>
Message Type card that lists the messages on which the operation will be performed. The format is <MSGTYPE>a where a is INPUT, OUTPUT, or BOTH.
<OPER>
Operation card that specifies what operation to perform. The format is <OPER>a where a is one of the following:
- D: Delete a field from a screen
- I: Add a field into the screen
- IS: Add a new screen
- A: Alter a field within a screen
- C: Copy a field
- CX: Copy a field and convert to requested currency
- M: Move a field
- MX: Move a field and convert to requested currency
- X: Convert a field to requested currency
<SCRID>
Screen ID card that limits the screens against which the operation is performed.
<SCRPOS>
Screen Position card that specifies where on the screen to look for the screen ID.
<SCROFF>
Screen Offset card that specifies where on the screen to look for the screen ID. This is reserved for future use.
<FROMVAL>
From Value card containing text describing the field for the operation.
<FROMCURR>
From Currency card that describes the currency from which the conversion is being performed.
<FROMPOS>
From Position card that specifies where on the screen to find the field for the operation.
<TOVAL>
To Value card that conveys the new data for the field.
<TOCURR>
To Currency card that describes the currency on which the conversion is being performed.
<TOPOS>
To Position card that specifies where on the screen to place the new field.