Each panel definition section begins with a statement that indicates the section being defined. There are seven statements, one for the start of each of the sections. The statements are:

)ATTR

attribute section

)BODY

body section

)INIT

initialization section

)REINIT

reinitialization section

)PROC

processing session

)MODEL

model section (table displays only)

)END

end of panel definition

We will discuss one by one section below.

1. Attribute section defines the special characters used in the body of the panel definition to represent attribute (start-of-field) bytes, such as high intensity, low intensity, and input field.
   

   )ATTR
   

   * TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) CAPS(OFF)
   

   # TYPE(TEXT) INTENS(HIGH) COLOR(BLUE) HILITE(REVERSE)
   

   ? TYPE(TEXT) INTENS(HIGH) COLOR(BLUE) HILITE(USCORE)
   

   @ TYPE(TEXT) INTENS(LOW) COLOR(BLUE)
   

   TYPE – TEXT/INPUT/OUTPUT – If it is constant, input or output field
   

   INTENS – HIGH/LOW – Sets the Intensity
   

   COLOR – Basic colours are white, blue, turq, yellow, red, green
   

   HILITE(REVERSE) – To highlight the data
   

   HILITE(USCORE) – To underline the data
   

The default attribute characters are

% – Text (protected) field, high intensity

+ – Text (protected) field, low intensity

_ – Input (unprotected) field, high intensity

1. Body section defines the format of the panel as seen by the user, and defines the name of each variable field on the panel.
   

   Syntax
   

   )BODY WIDTH() EXPAND() CMD() LMSG() SMSG() WINDOW(width,depth)
   

Draw the input field in BODY section staring with input attribute character and ending with ‘+’ character.

)BODY

ENTER YOUR NAME:_NAME +

1. Initialization section specifies the processing that will occur before the panel is displayed. You usually use this section to define how variables are to be initialized.
   

   The input fields are automatically stored into the corresponding dialog variables immediately following display and prior to processing the )PROC section
   

The INIT section is also used to prepare list of Z variable names.

The Z vars can only be defined in the INIT section

It begins with the )INIT header statement and ends with either the )REINIT, )PROC, )HELP, or )END header statement.

Using Z variables for input field

)ATTR

_ TYPE(INPUT) INTENS(HIGH)

)BODY

ENTER YOUR NAME:_Z + EMP ID:_Z +

DESIGNATION:_Z +

)INIT

.ZVARS=’(NAME,EMPID,DESIG)’

)END

As you can see above, you can use Z variables in the BODY section, and define the variables in the INIT section.

1. Reinitialization section specifies the processing that will occur before redisplay of a panel.
   

Processed if the .MSG control variable is nonblank

The Main purpose of this section is to hilite the errors that user has made with different color or by blinking the field before redisplaying the screen.

The difference between the INIT and REINIT section is that the former is executed when the panel is newly loaded into memory while the later is executed when the display panel command is given when the panel is already present in the memory

1. Processing section specifies the processing that will occur after the panel is displayed. You usually use this section to define how variables are verified and translated.
   

It is ttriggered whenever the user presses an AID / RETURN key.

)PROC

IF (&COUNTRY = ‘INDIA’)

&POST = ‘DOMESTIC’

)END

Adding IF-ELSE Control logic in the panel

The IF-ELSE statement control depends on the indentation of the IF and ELSE statements. The rules are:

1. All statements to the RIGHT of IF statement and before the ELSE statement is executed when the IF condition is TRUE
   
2. The ELSE statements should be column aligned with the IF statement
   
3. All statements after the ELSE statement and to the right of ELSE statement are executed when the IF condition fails
   

THE VER COMMAND

VER command is used to validate the input field passed through the panel input. And an error message is thrown based on the validation.

Example:    

VER (&AGE,LEN,’=',2) – verifies if the length is of 2 bytes

VER (&NAME,ALPHA) – verifies if the NAME is alphabetic

VER (&AGE,NUM) – verifies if the age is numeric

VER (&EMPSER,NONBLANK,PICT,NNNNNN)

VER (&PHNUM,PICT,NNN-NNNN)

VER (&ALKBLK,RANGE,0,32760)

PFKEY

System Variable .PFKEY: This command is used to capture the AID key pressed by the user

Example:

)PROC

&KEYPRESS = .PFKEY

)END

1. Model section (required for table display only; not allowed for other types of panels) specifies the format for displaying each row of the table.
   

   Specifies the format in which the columns in the table need to be displayed.
   

   Table
   

   1. TBCREATE Creates a new table and opens it for processing
      
   2. TBCLOSE Closes a table and saves a permanent copy if the table was opened
      
   3. TBEND Closes a table without saving
      
   4. TBERASE Deletes a permanent table from the table output file
      
   5. TBOPEN Opens an existing permanent table for processing
      
   6. TBSAVE Saves a permanent copy of a table without closing
      
2. End section consists of only the )END statement. ISPF ignores any data that appears on lines following the )END statement. It is a mandatory section.
   

You might also like to look at:

REXX – READ, CREATE AND WRITE DATA TO A DATASET

REXX TOOL TO SUBSTITUTE SYMBOLICS IN A PROC

]]> http://mainframesf1.wordpress.com/2012/04/03/rexx-read-create-and-write-data-to-a-dataset/ Tue, 03 Apr 2012 11:50:33 +0000 rajeshar http://mainframesf1.wordpress.com/2012/04/03/rexx-read-create-and-write-data-to-a-dataset/ REXX – READ, CREATE AND WRITE DATA TO A DATASET

Below Step shows us how to assign a dataset to a DDNAME and read it.

1. Read the input dataset into an array variable
   

INPUTPS =’HLQ1.HLQ2.HLQ3.INPUT’

IF SYSDSN(“‘”INPUTPS”‘”) /= ‘OK’ THEN

DO

SAY ‘INPUT FILE ‘ INPUTPS ‘ DOESNOT EXIST’

EXIT(0)

END

“ALLOC DD(INP1) DA(‘”INPUTPS”‘) SHR REUS”

“EXECIO * DISKR INP1 (STEM IN1. FINIS”

SYSDSN – Checks the availability of the File

ALLOC – Allocates the input file to the DD INP1

EXECIO * DISKR – Reads the input file using the DD name INP1 into the array variable IN1.

Please note that IN1.0 contains the record count of the input file.

1. Creation of the output file
   

ADDRESS TSO

RPTCTL=’HLQ1.HLQ2.HLQ3.OUTPUT’

ADDRESS TSO

STATUS = SYSDSN(“‘”RPTCTL”‘”)

IF STATUS = ‘OK’ THEN

DO

“DELETE ‘”RPTCTL”‘”

END

“ALLOC FI(XXOUT) DA(‘”RPTCTL”‘) SHR NEW SPACE(50,20)

DSORG(PS) RECFM(F,B) LRECL(200) BLKSIZE(30000)”

DELETE – Deletes the dataset if it is already available

ALLOC – Allocates the file which is assigned to the DD name XXOUT. You can see that all the dataset parameters that define the dataset can be given as provided above.

1. Writing data to output dataset
   

“EXECIO” LOT.0 “DISKW XXOUT (STEM LOT.”

“EXECIO 0 DISKW XXOUT (FINIS”

“FREE F(XXOUT)”

The first line writes all the data (Number of lines to be written is present as LOT.0, which specifies the number of array occurrences for the array LOT.) into the DD XXOUT, which is our output file RPTCTL.

The second line is used to mention that the writing is finished.

Once the usage of the file is done, we need to free the DD name, which is done in the third line. This is done so that the DD name can be used for other datasets.

You Might also like to look at.

REXX PANEL DEFINITION

REXX TOOL TO SUBSTITUTE SYMBOLICS IN A PROC