Chapter 20: Screen Painter

This chapter contains information on screen navigation, screen creation and design options, field attributes, field edits, modifying and generating screens, and IMS and ISPF Dialog support functions.

Screen Navigation

 

Creating Screens

Use the Screen Painter to create and modify screens, and to assign field attributes, field edit functions, and generation parameters. Some guidelines are:

 

Screen Design Options

To specify editing session options, type profile in the Command field. Select editing session options, as follows:

 

Option
 Description

Command Location

Specify where the Command field appears--enter TOP for the top-left corner or BOTTOM for the bottom-left corner.

Caps on/off

ON

Convert text fields to upper case.

OFF

Preserve or restore text fields as you enter them.

Nulls on/off

ON

Insert data directly into a row.

OFF

Fill rows with spaces.

Keys on/off

ON

Display the Screen Painter function key definitions at the bottom of the screen.

OFF

Do not display keys.

Display field name

YES

Activate the Field Name screen. As you move the cursor between fields by pressing the Enter key, this screen displays the name of the current field.

NO

Do not display the field name.

 

Field Attributes

To assign field attributes, position cursor on specific I/O field or text field and press PF12, or enter FA in command field to transfer to Field Attributes screen.

 

Attribute
 Description and Values

Name

I/O field name; maximum 16 characters.

Length

Display field only; to change field length, move the cursor to the Xs designating the field and space over or delete the Xs representing the field, or extend the field with more Xs.

Intensity

B

Bright

N

Normal (default)

D

Dark.

Type

U

Unprotected (default); field is for both input and output.

P

Protected; field is output only.

MDT

Applies to IMS and CICS only.

ON   Default. Always keep modified data tag on, whether or not the end user modifies field; default for I/O fields.

Turn tag on when end user modifies field; default for text fields.

Value

Initial value for screen field; maximum is field length or 27 characters, whichever is less.

Num Lock

ON

Activate keyboard numeric shift lock

OFF

Deactivate numeric shift lock (default)

Light Pen

ON

Light pen detectable.

OFF

Not light pen detectable (default).

Init cursor

NO

Do not position cursor on this field when the program sends the screen. Default for all but the first I/O field.

YES

Position cursor on this field. Default for first I/O field.

Color

B

Blue

G

Green

Y

Yellow

N

Neutral

P

Pink

R

Red

T

Turquoise

Highlight

B

Blinking

U

Underline

R

Reverse video

Modify

IMS only.

NO

Program cannot modify extended attributes at run time (default).

YES

Program can modify extended attributes. APS generates the extra attribute bytes required.

 

Field Edits

To assign field edits do the following:

  1. In the Screen Painter, enter FE in the Command field. Or, from the Field Attributes pop-up screen, press PF4, or enter FE in the Command field.

  2. From the Field Selection screen, transfer to an edit specification screen by entering one of the options displayed on the screen to the left of the field name. Or, from the Edit Selection screen, enter an S next to the applicable category. Select an option as follows:

     

    Option
    		 Description

    Edit Selection

    Display the Edit Selection screen to see a summary of edits for that field and transfer to other edit specification screens.

    Internal Picture

    Display the Internal Picture screen to specify the internal storage format.

    Input Editing

    Display the Character Input or Numeric Input screen, depending on whether the internal picture specification is character or numeric, to assign input field edits.

    Error Processing

    Display the Error Processing screen to specify error messages and attributes to display when the data for the field fails input edits.

    Application Edits

    Display the Application Editing screen to create your own edit routine to process input data.

    Output Editing

    Display the Character Input or Numeric Input screen, depending on whether the internal picture specification is character or numeric, to assign output field edits.

    Values Or Conversions

    Display the Values or Conversion screen to specify a valid value or range of values for input data, or conversion values for either input or output data.

    Special Edits

    Display the Special Edits screen to select predefined date, user-defined date, of time field edit specifications.

     

  3. Enter values as appropriate.

 

Application Edit Routines

Select the Application Editing prompt on any Field Edit screen and complete the following options:

 

Option
 Description

Type

Indicate whether this application edit is a paragraph, subprogram, or APS macro. Default is P(aragraph).

Name

Enter a descriptive name for the application edit; maximum 32 characters.

Arguments

To pass a screen field or error flag, prefix the name with the screen name and a hyphen. Enter the following arguments separated by commas and enclose literals in single quotation marks:

Paragraph

Data names or literals that pass to the paragraph through a PERFORM with arguments statement in the generated program.

Subprogram

Data names that appear on the CALL USING statement in the generated program.

APS macros

Customization Facility macro terms, literals, and numeric literals. Do not enclose arguments with double quotation marks.

Execute Before/After APS Edits

Specify when the program executes this application edit: before or after the normal APS field edit routine. Default is B(efore).

Paragraph COPYLIB or
APS Macro USERMACS Member

Specify an associated COPYLIB member or a paragraph or the associated USERMACS member name for an APS macro.

Working-Storage COPYLIB Member

Specify a Working-Storage COPYLIB member to be included in the program Working-Storage section.

 

Alternately, select a predefined edit from the Application Edit List as follows:

  1. On the Application Editing screen, enter APPLLIST listname in the Command field, where listname is the name of the list of available edits.

  2. Enter S before the input or output edit routine you want.

  3. Press Enter to select the edit. You can then modify the selected edit routine.

 

Bypassing Field Edits

  1. Access the Field Selection screen, and enter PM in the Command field.

  2. On the Parm screen, press Enter.

  3. Define bypass conditions as follows:

     

    Field
    		 Description and Values

    Field Name

    Specify any field on the screen, including a field in a repeated block, to bypass.

    Value(s)

    Specify the value or values that let end users bypass input edits. Valid COBOL reserved words are SPACES, LOW-VALUES, and HIGH-VALUES.

    Additional Value(s)

    Enter as many additional bypass values that can fit on the line; separate each value with a comma.

    Program Function Keys

    Type S in the selection field to indicate which PF keys the end user can press to bypass the input edits.

 

Character Field Edits

 

Internal Option
 Description and Values

Data Type

A

Alphabetic field.

C

Default. Character field.

G

For KANJI use only. Extended Graphics Character Set (EGCS).

Internal Length

Enter the number of characters. The default is the screen field length.

Justified Right

Enter S to generate right justification on the COBOL picture.

 

Input Option
 Description and Values

Internal Picture

Enter S to transfer to the Internal Picture screen to change the storage format.

Required

Enter S to indicate that the end user must enter a value in the field.

Input Mask

Enter the pattern or mask to accept input data and separators. Or, enter S to transfer to the Masking screen and specify the mask in the Input Mask field.

Minimum Input

Enter the length of the shortest valid entry. Default is zero.

Maximum Input

Enter the length of the longest valid entry. Default is field length.

No Embedded Spaces

Enter S to reject characters separated by spaces.

Numeric Test

Enter S to allow only numeric data.

 

Output Option
 Description and Values

Internal Picture

Enter S to transfer to the Internal Picture screen to change the storage format.

Output Mask

Enter the pattern or mask to position data and separators. Or, enter S to transfer to the Masking screen and specify the mask in the Output Mask field.

Output Picture

Enter the output COBOL picture. Or, enter S to transfer to the Output Picture screen and specify the mask in the Picture field. You cannot assign an output picture if you use an output mask.

Right Justify

Enter S to generate right justification for the output format.

 

Copying Field Edits

  1. Access the Edit Selection screen for the field you are copying field edits to.

  2. Enter COPY in the Command field.

  3. Enter the field name you are copying edits from; it must be the same length as the current field. The current field inherits the edits of the copied field, and loses any prior edits.

 

Conversion Values

  1. Select the Values or Conversions prompt on any Field Edit screen.

  2. Assign conversion values using the following syntax format: 
    (input1, input2, ..., inputN, I=internalvalue, O=outputvalue)

  3. To specify that the listed conversions are the only valid input values, select the Verify Conversion Values option.

 

Date Fields--Predefined

 

Field
 Description and Values

Storage Format

J

Julian

JP

Julian packed

G

Gregorian

GP

Gregorian packed

If you do not specify a Storage Format, select the System Date Display option.

In/Out Format

Enter the format number. Formats 1 through 6 are valid input formats. Formats 1 through 4 contain two styles; the field length determines which is assigned.

Date Required

Enter S to indicate that the end user must enter a value in the field.

Error Processing

Enter S to transfer to the Error Processing screen.

System Date Displayed

Enter S to capture the system date.

 

Date Fields--User-Defined

 

Field
 Description and Values

Internal Picture

Enter s to transfer to the Internal Picture screen to specify the COBOL picture characteristics.

Storage Format

Specify the internal storage format mask. This format must equal the Internal Picture length.

Input Format and
Output Format

Valid mask characters are Y (year), M (month), D (day), and special characters if the field is not defined numeric. Restrictions are:

Y

Can be 2 or 4 characters

M

Can be 2, 3, or 9 characters

D

Can be 3 characters if you do not define Month, otherwise it must be 2 characters

Month, day, and year must be in the same order in both the Input and Output Formats.

Date Required

Enter s to indicate that the end user must enter a value in the field.

 

Field
 Description and Values

System Date Data

Enter one of the following:

I

During input editing, insert the system date only if the field is blank.

IR

During input editing, always insert the system date, regardless of the field contents.

O

During output editing, insert the system date if the field is blank.

OR

During output editing, always insert the system date, regardless of the field contents.

 

Deleting Field Edits

 

Error Messages - Field-Specific

  1. Select the Error Processing prompt on any Field Edit screen.

  2. Code messages of up to 75 characters. This message overrides any global default messages you created.

  3. Alternately, copy the default messages and attributes from the Parm screen by enter DEF in the Command field. Modify the message as desired.

 

Error Messages--Global for All Fields

  1. Access the Field Selection screen, and enter PM in the Command field.

  2. On the Parm screen, type the name of the field to display the error message.

  3. Enter the text to display for invalid data.

  4. Enter the text to display for not data when data is required.

  5. Specify the attribute values for fields in error; the default assigns bright and cursor positioning on the field.

 

Numeric Field Edits

 

Internal Option
 Description and Values

Data Type

Specify N for numeric field.

Internal Length

Enter the number of digits that precede the decimal point. The default is the screen field length.

Decimal Places

Enter the number of digits that follow the decimal point.

COMP (Binary)

Type S to store input data in binary format. Not valid with signed data.

COMP-3 (Packed)

Type S to store input data in packed format. Not valid with signed data.

Signed

Type S to store the input data with either a positive or negative value. Not valid with a binary or packed format.

Sign Leading

Type S to store the sign at the left of the number. Not valid with a binary or packed format.

Sign Separate

Type S to store the sign in a separate byte from the number. Not valid with a binary or packed format.

 

Input Option
 Description and Values

Internal Picture

Enter S to transfer to the Internal Picture screen to change the storage format.

Input Mask

Enter the pattern or mask to accept input data and separators. Or, enter S to transfer to the Masking screen and specify the mask in the Input Mask field.

Numeric De-Edit

Enter S to validate that the data is numeric and to remove special characters. Select this option if you specify an output COBOL picture.

Required

Enter S to indicate the end user must enter a value in the field.

Zero When Blank

Move zero to the internal picture if no data is entered. Not valid with required fields or fields with input masks.

Minimum Digits

Enter the smallest number of digits required before the decimal point. Default is zero. Not valid with an input mask.

 

Field
 Description and Values

Minimum Decimals

Enter the smallest number of digits required to follow the decimal point. Default is zero.

Maximum Digits

Enter the largest number of digits allowed before the decimal point. Default is the maximum number that fits in the internal picture. Not valid with an input mask.

Maximum Decimals

Enter the largest number of digits allowed to follow the decimal point. Default is the maximum number that fits in the internal picture.

 

Output Option
 Description and Values

Internal Picture

Enter S to transfer to the Internal Picture screen to change the storage format.

Output Mask

Enter the pattern or mask to position data and separators. Or, enter S to transfer to the Masking screen and specify the mask in the Output Mask field.

Output Picture

Enter the output COBOL picture. Or, enter S to transfer to the Output Picture screen and specify the mask in the Picture field. You cannot assign an output picture if you use an output mask.

Insert Comma(s)

Enter S to format data with commas in appropriate positions.

Zero Suppression

Enter S to generate the zero suppression symbol.

Floating Symbol

Enter a $, +, or - symbol to generate a floating dollar, plus sign, or minus sign to the left of the first digit.

Fixed Leading Symbol

Enter a $, +, or - symbol to generate a fixed dollar, plus sign, or minus sign in the leftmost position.

Fixed Trailing Symbol

Enter a $, +, or - symbol to generate a fixed dollar, plus sign, or minus sign in the rightmost position.

 

Range of Values

  1. Select the Values or Conversions prompt on any Field Edit screen.

  2. Assign a specific value or a range of values using the following syntax formats: 
    value
lowvalue TO|THRU highvalue
lowvalue UP
highvalue DOWN

 

Time Fields

 

Field
 Description

Storage Format

Specify the internal storage format mask. Valid characters are HH (hour), MM (minute), SS (second), *s and special characters if the field is not defined numeric. The storage format must equal the Internal Picture length.

Input Format and
Output Format

Type the input and output format masks. Valid mask characters are HH (hour), MM (minute), SS (second), *s, and special characters if the field is not defined numeric. Append your mask with asterisks to indicate the AM and PM indicators that you specify, using a one-to-one correspondence. Hours, minutes, and seconds must be in the same order in both the Input and Output Formats.

Input Required

Enter s to indicate that the end user must enter a time value in the field.

System Time Data

Enter one of the following:

I

During input editing, insert the system time only if the field is blank.

IR

During input editing, always insert the system time, regardless of the field contents.

O

During output editing, insert the system time if the field is blank.

OR

During output editing, always insert the system time, regardless of the field contents.

AM Indicator

Type the AM time indicator, such as a.m. or am.

PM Indicator

Type the PM time indicator, such as p.m. or pm.

 

Modifying Screens

Change Field Length

Delete or space over Xs or extend field with additional Xs.

 

Create a Block

  1. Position cursor on top row of row(s) to be duplicated. Press PF7.

  2. Complete fields in Repeated Block screen. Press Enter.

 

Modify a Block

  1. Position cursor within block. Press PF7.

  2. Select option from Repeated Block Menu. Press Enter.

 

Move Field(s)

I/O field:

  1. Place cursor on field. Press PF4.

  2. Use arrow keys to position cursor at receiving destination Press PF4.

Text field:

  1. Press PF10 at left boundary of text field. Press PF10 at right boundary of text field.

  2. Use arrow keys to position cursor at receiving destination. Press PF4.

  3. To move several fields in a row, see Move Part of a Row.

 

Move an Entire Row

  1. Place cursor on row (but not on an I/O field) to be moved. Press PF4.

  2. Use arrow keys to position cursor at receiving destination. Press PF4.

 

Move Part of a Row

  1. Press PF10 at left boundary of row section to be moved. Press PF10 at right boundary of section.

  2. Use arrow keys to position cursor at receiving destination. Press PF4.

 

Copy Field(s)

I/O field:

  1. Place cursor on row (but not on an I/O field) to be moved. Press PF4

  2. Use arrow keys to position cursor at receiving destination. Press PF5.

Text field:

  1. Press PF10 at left boundary of text field. Press PF10 at right boundary of text field.

  2. Use arrow keys to position cursor at receiving destination. Press PF5.

 

Copy an Entire Row

  1. Place cursor on row (but not on an I/O field) to be moved.

  2. Use arrow keys to position cursor at receiving destination. Press PF5.

 

Copy Part of Row

  1. Press PF10 at left boundary of row section to be moved. Press PF10 at right boundary of section.

  2. Use arrow keys to position cursor at receiving destination. Press PF5.

 

Delete an I/O Field

Space over field to be deleted or position cursor on field to be deleted and press PF6 twice.

 

Delete Row

Space over field to be deleted or position cursor on row (but not on an I/O field) to be deleted and press F6 twice.

 

Screen Generation Parameters

  1. From the APS Screen Painter, enter PM in the Command field.

  2. Change parameter values as desired. Parameter values of T(rue) and Y(es) are interchangeable, as are F(alse) and N(o).

 

All Targets

 

Parameter
Description and Values

Prt Asm Mac Expn

F

Default. Do not print expanded assembler macros.

T

Print macros.

No Assembler END

F

Default. Do not generate an assembler END statement.

T

Generate statement.

Retain Datanames

F

Default. Do not retain painted field names as assembler labels.

T

Retain field names. Under BMS or MFS, duplicate or invalid names can occur due to the maximum number of characters that BMS and MFS allow.

Exattr Modifble

F

Default. Do not modify extended attributes at run time.

T

Allow modification at run time; generate EXTATTR=YES and extra attribute bytes in DSECT.

SYSMSG

NO or blank

Default. Do not display system messages.

YES or SYSMSG

Display messages on last line of the screen, if space is available.

fieldname

Display messages in fieldname.

YES, row, len
YES, row
YES, length

Display message of up to length characters on specified row. Row default is last line of screen. Length can be from 40 to 70 characters or up to 131 characters for MOD5 screens.

Intensity

Change the intensity of all text fields.

N

Default. Normal

B

Bright

Color

Change the color of all text fields.

NU

Neutral

BL

Blue

PK

Pink

RD

Red

GN

Green

YL

Yellow

TQ

Turquoise

Blink
Rvideo
Underline

Set only one field to T(rue) for text fields. Blinking, reverse video, and underline are mutually exclusive.

 

CICS Parameters

 

Parameter
 Description and Values

Associated Trans

Specify an associated transaction ID; default is the first four characters of the screen name.

Mapset Name

Override an APS-generated name; maximum seven characters. To generate a multiple-map mapset that includes some or all screens, assign the same mapset name to the applicable screens in the application. The default mapset name reflects the number of characters in the screen name, as follows:

4-char name: screennameSET
5-, 6-char name: screenname$
7-char name: screenname$; the $ replaces the 7th char

Line

Starting line of the map on the physical screen; default is 001; value cannot exceed the screen depth.

 

ISPF Prototype Parameters

 

Parameter

 Description and Values

Global Fld Unpro

F

Default. Do not unprotect all I/O fields for prototyping.

T

Unprotect all I/O fields.

Associated Pgm

Name of the program receiving control from the screen; default program name is screenname.

 

IMS DC Parameters

 

Parameter
 Description and Values

Device Type

Standard device characters for different model terminals and printers. Defaults are IBM-recommended device characters.

Cursor Feedback

F

Default. Do not define a field in the MID as the cursor feedback field.

T

Provide cursor information for input processing.

DIF-DOF Name

Override APS-generated name. Default reflects the number of characters in the screen name, as follows:

4-char name: screennameDF
5-, 6-char name: screenname$
7-, 8-char name: screenname truncated to 6 characters

 

Parameter
 Description and Values

Opr Logical Paging

F

Default. Do not request operator logical paging.

T

Request paging. Enter name of field that will contain the paging requests in the Optional Fld Name field.

MID Name

Override APS-generated name. Default reflects the number of characters in the screen name, as follows:

4-char name: screennameMI
5-, 6-, 7-char name: screennameI
8-char name: screennameI; I replaces the 8th char

MID Default Values

F

Default. Do not treat initial values as default values for fields in the MFS-generated MID.

T

Treat initial values as default values.

MOD Name

Override APS-generated name. Default reflects the number of characters in the screen name, as follows:

4-char name: screennameMO
5-, 6-, 7-char name: screennameO
8-char name: screennameO; O replaces the 8th char

MOD Fill Char

Generate fill characters in the MOD segment statement. Valid characters are: --, NULL, PT, C, or any character value.

DSCA

Override the Default System Control Area default value of X'00A0'.

"Labeled" Screen

F

Default. Do not append screen name to the input message.

T

Append the screen name.

Lines Per Page

If device type is a printer, specify number of lines to print on a page.

Trancode: Literal

Specify any literal value as the trancode. Default is the screen name.

Optional Fld Name

Specify fieldname or MFS PFKEY to hold the trancode or operator logical paging command. Alternatively, enter *PF and assign the PF key value on the MFS Function Keys screen, or *TC and construct a trancode on the Trancode Construction screen.

MID Segment Exit:

Number
Vector

Generate the EXIT parameter on the MID segment statement with Number as the exit routine number and Vector as the exit vector number. Valid values are:

Number 0 to 127
Vector 0 to 255

 

IMS Support Functions

MID MOD Reordering

Arrange fields in the input message in an order other than their physical order on the screen as follows:

  1. From the Screen Generation Parameters screen, enter MM in the Command field.

  2. Enter new sequence numbers in Order field

  3. Enter REORDER in the Command field.

 

PF Key Assignment

Assign trancodes, IMS commands, or logical paging commands to PF keys as follows:

  1. On the Screen Generation Parameters screen, enter *PF in the Optional Fld Name field.

  2. Enter PF in the Command field.

  3. Enter *NULL or *SPACE in the PFkey Global Default field.

  4. Enter PF key functions.

 

Trancode Construction

Create a trancode as follows:

  1. On the Screen Generation Parameters screen, enter *TC in the Optional Fld Name field.

  2. Enter TC in the Command field.

  3. Complete the screen fields.

     

    Field
    		 Description and Values

    Field Name

    Enter name of field or *PF. If you enter *pf, specify PF key values on the MFS Function Keys screen.

    Default Literal

    Enter any literal.

    Fill

    Enter the MID fill character for the associated field name or *PFKEY, as follows:

    S

    		Default. Space

    N

    Null

 

ISPF Dialog Support Functions

Generate native panel definition statements for the ISPF Dialog environment,as follows:

  1. From any screen in the Screen Painter, enter IS in the Command field.

  2. Complete the screen fields.

     

    Field
    		 Description and Values

    Command Field

    Enter screen field name for the panel command field that allows end users to enter ISPF commands and prevents truncation errors when they use PF keys. Default is the first unprotected I/O field on the screen. This option generates the native )BODY CMD(variable) statement.

    Long Message
    Short Message

    Enter SYSMSG, if specified on Screen Generation Parameters screen, or a screen field name for the panel long and short message fields. These options generate the native )BODY LMSG(variable) statement for the long message and the )BODY SMSG(variable) statement for the short message.

    Help Panel

    Enter the name of the panel to display, if the end user requests help. This option generates the .HELP = panelname statement.

    Pfkey Option

    P

    Program controls PF key processing. When the program terminates, the original PF key values are restored.

    I

    Default. ISPF controls PF key processing.

 

Copyright © 2002 Micro Focus International Limited. All rights reserved.
This document and the proprietary marks and names used herein are protected by international law.