Generating an STL program

Selecting option 2 from the IDC Main panel (Figure 1) displays the IDC Generate STL Program panel (Figure 1).

Figure 1. IDC generate STL program panel

 IDCSGS                 WSim IDC:  Generate STL Program

 Type information, then press Enter.

 
 IDC log data set name  . . . . WSIM.IDCLOG_________________________
 
 STL Program

   Data set name  . . . . . . . WSIM.MSGFILE________________________
   Procedure name (MSGTXT name) ________
   Trace name (@PROGRAM name)   ________ (Optional)

 Data generated?  . . . . . . . A        (A=All or C=Changed)

 Verify panel data? . . . . . . N        (Y=Yes or N=No)
   Row  . . . . . . . . . . . . ___      (1-255)
   Column . . . . . . . . . . . ___      (1-255)
   Length . . . . . . . . . . . _____    (1-32000)

 Generate actual user delays?   N        (Y=Yes or N=No)
   WSim UTI value to use  . . . ____     (1-6000)
   WSim think-time rule to use  _        (U=Unlock or I=Immediate)



 F1=Help  F3=Exit  F5=Refresh  F11=Save  F12=Cancel

Fill in the following fields and press Enter.

IDC log data set name: Type the name of the data set containing the captured data.
Type a name up to 36 characters in length, including a member name in parentheses if you are using a partitioned data set. Do not enclose the name in quotes.
STL program data set name: Type the name of the data set in which you want the generated STL program to be placed.
Type a name up to 36 characters in length, optionally including a member name in parentheses if you are using a partitioned data set. Do not enclose the name in quotes. You must allocate and catalog this data set in advance (see Setting up IDC).
STL program procedure name (MSGTXT name): Type the procedure name of the STL program. This name appears as the label for the MSGTXT statement. This is also the default name of the member created if you are using a partitioned data set for the STL programs.
The name must be 1 to 8 alphanumeric or special ($,@,_,?,#) characters, where the first character is non-numeric. The name cannot be an STL reserved word or begin with $INC, $LA, or $SET (reserved labels in STL). Also, you cannot use the same name as the STL program trace name.
STL program trace name (@PROGRAM name): Type the name you want to appear on the STL @PROGRAM statement. (The @PROGRAM statement defines a symbolic name used to label STL trace records.) This field is required if you want to trace the execution of your STL program at WSim run time or query the STL statement number during execution.
The name must be 1 to 8 alphanumeric or special ($,@,_,?,#) characters, where the first character is non-numeric. The name cannot be an STL reserved word or begin with $INC, $LA, or $SET (reserved labels in STL). Also, you cannot use the same name as the STL program procedure name.
Data generated?: Type an "A" if you want IDC to generate scripting statements for all the unprotected fields on the screen containing data sent to the application program. This includes unprotected fields set by the application with the MDT bit on that you did not change during the data capture session. Type a "C" if you want IDC to generate scripting statements for only the unprotected fields that you actually changed during the data capture session. Unprotected fields set by the application with the MDT bit on are ignored for script generation.
Note: Unprotected fields with the 3270 Modified Data Tag (MDT) bit set on are sent to the application program when you press Enter or a function key.
Verify panel data?: Type a "Y" if you want IDC to generate a script with statements that test data in the specified panel location (row and column). Type an "N" if you do not want IDC to generate panel verification statements. See Adding panel verification logic to the script for a discussion of this option.
Row: Type the row number of the panel data to be verified. This must be a number between 1 and 255.
Column: Type the column number of the panel data to be verified. This must be a number between 1 and 255.
Length: Type the length of the data, starting at the row and column numbers stated above, that you want verified. The maximum is 32000 characters.
Generate actual user delays?: Type a "Y" if you want IDC to generate DELAY statements to reproduce the recorded user delays. Type an "N" if you do not want DELAY statements to be generated. See Generating user delays for a discussion of this option and Creating WSim Scripts for a discussion of WSim intermessage delays.
WSim UTI value to use: Type the user time interval value (in hundredths of a second) to use in calculating delays. This must be a number between 1 (representing .01 seconds) and 6000 (representing 1 minute).
WSim think-time rule to use: Type an "I" if you want IDC to use the immediate think-time rule for calculating delays. Type a "U" if you want IDC to use the unlock think-time rule for calculating delays.
Note: If you want to simulate LU type 2 devices, type a "U" here and code THKTIME=UNLOCK in your network definition.

Remember, you must translate STL programs (using the STL Translator Utility) before they can be executed by WSim.

Below is an example of an STL program created by IDC.

@program=STLDECKT
STLDECK: msgtxt
/*-------------------------------------------------------------------*/
/* ITPIDC: DISPLAY=WSIM420  APPLICATION=TSO01    07:58:23.89 02/16/02*/
/*   ----------- DISPLAY CHARACTERISTICS AND FEATURES ------------   */
/*   ALTCSET=APL                APLCSID=(963,310)                    */
/*   BASECSID=(697,37)          CCSIZE=(12,22)    COLOR=MULTI        */
/*   DBCS=NO                                                         */
/*   DISPLAY=(24,80,24,80)      DLOGMOD=NSX32702  EXTFUN=YES         */
/*   FLDOUTLN=NO                FLDVALID=NO       HIGHLITE=YES       */
/*   MAXNOPTN=0                 PS=NONE           UOM=INCH           */
/*-------------------------------------------------------------------*/
/* ITPLSGEN: SCRIPT GENERATION PARAMETERS        08:05:35.00 02/16/02*/
/*   INPUT    WSIM.IDCLOG                                            */
/*   OUTPUT   WSIM.STLFILE                                           */
/*   MSGTXT   STLDECK                                                */
/*   NODELAY                                                         */
/*   GENERATE ALL                                                    */
/*   LU       IDCSLU-1                                               */
/*   STL      TRACE=STLDECKT                                         */
/*   NOVERIFY                                                        */
/*-------------------------------------------------------------------*/

onin0001: onin substr(ru,1,1) = 'F5'x,
               then found = on
found = off
initself('TSO01','NSX32702')
do while found = off             /* wait for onin0001 data received */
 wait until onin
end
deact onin0001

/* 07:58:29.36 ITP1507I SESSION STARTED WITH APPLICATION TSO01 */

/* 07:58:31.83 ITP1508I SESSION ENDED WITH APPLICATION TSO01 */

/* 07:58:31.99 ITP1507I SESSION STARTED WITH APPLICATION TSO0102 */

cursor(1,27)
ereof
cursor(2,1)
type 'user5'
transmit using enter

transmit using enter

transmit using clear

cursor(2,15)
ereof
type '3.4'
transmit using enter

cursor(8,23)
ereof
type 'sys1'
transmit using enter

cursor(2,15)
ereof
type '=x'
transmit using enter

cursor(1,9)
ereof
cursor(2,1)
type 'logoff'
transmit using enter

/* 08:00:25.30 ITP1508I SESSION ENDED WITH APPLICATION TSO0102 */

endtxt