Ü
STRSDA
(Start Screen Design Aid)
· Start the screen design aid by
using STRSDA and select option-1.
Screen Design Aid (SDA)
Select one of the following:
1. Design screens
2. Design menus
3. Test display files
Selection or command
===> 1___________________________________________________________________
F1=Help F3=Exit F4=Prompt F9=Retrieve F12=Cancel
· Option-1 selection results into
the screen below.
Design Screens
Type choices, press Enter.
Source file . . . . . . . . QRPGLESRC Name, F4 for list
Library . . . . . . . . . AMIT Name, *LIBL, *CURLIB
Member . . . . . . . . . . DSPLY01 Name, F4 for list
F3=Exit F4=Prompt F12=Cancel
· Press ENTER and select
option-1 to add new record.
Work with Display Records
File . . . . . . : QRPGLESRC Member . . . . . . : DSPLY01
Library . . . . : AMIT Source type . . . : DSPF
Type options, press Enter.
1=Add 2=Edit comments 3=Copy 4=Delete
7=Rename 8=Select keywords 12=Design image
Opt Order Record Type Related Subfile Date DDS Error
1 _
(No records in file)
Bottom
F3=Exit F12=Cancel F14=File-level keywords
F15=File-level comments F17=Subset F24=More keys
· Option-1 provides the screen
to add a new record to the display file.
Add New Record
File . . . . . . : QRPGLESRC Member . . . . . . : DSPLY01
Library . . . . : AMIT Source type . . . : DSPF
Type choices, press Enter.
New record . . . . . . . . . . . . . . . Name
Type . . . . . . . . . . . . . . . . . . RECORD RECORD, USRDFN
SFL,SFLMSG >>> Record types
WINDOW, WDWSFL
PULDWN, PDNSFL
MNUBAR
F3=Exit F5=Refresh F12=Cancel
· There are so many record types
available here that you can create. We generally go for record types RECORD,
SFL, WINDOW and WDWSFL.
· Here we select record type
RECORD and create HEADER as a new record.
Add New Record
File . . . . . . : QRPGLESRC Member . . . . . . : DSPLY01
Library . . . . : AMIT Source type . . . : DSPF
Type choices, press Enter.
New record . . . . . . . . . . . . . . . HEADER Name
Type . . . . . . . . . . . . . . . . . . RECORD RECORD, USRDFN
SFL, SFLMSG
WINDOW, WDWSFL
PULDWN, PDNSFL
MNUBAR
F3=Exit F5=Refresh F12=Cancel
· A design blank screen will
appear.
· We put the plane text inside
quotes and press ENTER, to display it on the screen.
· While designing to blank out
any character on the screen, never use Backspace/Delete key as it leads to bad
alignment of the screen content. Rather we press ‘SPACE’ button to blank out
any character.
· *USER, *DATE, *TIME these are
the keyword that you can use to place USER NAME, CURRENT SYSTEM DATE and SYSTEM
TIME.
*USER 'PARTY INFORMATION ENQUIRY SCREEN' *DATE
*TIME
Work screen for record HEADER: Press Help for function keys.
· PRESS ENTER. The design screen
looks like this.
UUUUUUUUUU PARTY INFORMATION ENQUIRY SCREEN DD/DD/DD
TT:TT:TT
· To align center any text, we
use ‘AC’ which overlaps the very first character of the sentence that we want
to center and press ENTER to see the affect. Here the text “PARTY INFORMATION
ENQUIRY SCREEN” will be aligned into the center.
e.g.
UUUUUUUUUU ACARTY INFORMATION ENQUIRY SCREEN DD/DD/DD
TT:TT:TT
·
To move the content to the left use ‘<’. No. of
‘<’ denotes the spaces you want to travel to the left on the screen for the
text.
e.g.
UUUUUUUUUU <<<<<PARTY INFORMATION ENQUIRY SCREEN DD/DD/DD
TT:TT:TT
RESULT:
UUUUUUUUUU PARTY INFORMATION ENQUIRY SCREEN DD/DD/DD
TT:TT:TT
· Similarly, to move the content
to the right use ‘>’. No. of ‘>’ denotes the spaces you want to
travel to the left on the screen for the text.
· SHIFT-F2 displays the ruler
and the same to hide the ruler.
· Use ‘D’ in front of the field to
delete the field.
· Use ‘H’ in front of the field to
highlight any text in white on the screen.
· To change any attribute of the
screen field just put ‘*’ in front of the field and press ENTER, as shown below:
UUUUUUUUUU *PARTY INFORMATION ENQUIRY SCREEN DD/DD/DD
TT:TT:TT
· Press ENTER.
· Select the display attribute
as ‘Y’ and color attribute as ‘Y’.
Select Field Keywords
Constant . . . : PARTY INFORMATION ENQUIRY SCREEN
Length . . . . : 32 Row . . . : 1 Column . . . : 25
Type choices, press Enter.
Y=Yes For Field Type
Display attributes . . . . . . . Y All except Hidden
Colors . . . . . . . . . . . . . Y All except Hidden
General keywords . . . . . . . . _ All types
TEXT keyword . . . . . . . . . . ______________________________________________________
F3=Exit F4=Display Selected Keywords F12=Cancel
· There are various attribute
that we can find here.
HI = To highlight the text with the color specified in color attribute
RI = To highlight the text background with the color specified in color
attribute
CS = To provide a column separator at each position of the characters
of a field
ND = The text will not be displayed on screen.
UL = Underline will be associated with the text
PC = To position the cursor at the beginning of the field. If specified
for more than one field,
then the cursor is
poisoned to the beginning of the very first field.
PR = To make the field protected
All these attribute are
dependent on the associated indicator if any. E.g. the for ND attribute if we
set an indicator 12, then when indicator *In12 is *On then only the text will
not be displayed else it will be displayed.
§ Note: If you specify UL, HI, and RI
attributes for the same field, the field will not be displayed same while using
attribute ND.
Select Display Attributes
Constant . . . : PARTY INFORMATION ENQUIRY SCREEN
Length . . . . : 32 Row . . . : 1 Column . . . : 25
Type choices, press Enter.
Keyword Y=Yes Indicators/+
Field conditioning . . . . . . . . . . .
Program-to-system field . . . . . . . .
Display attributes: DSPATR
High intensity . . . . . . . . . . . . HI
Reverse image . . . . . . . . . . . . RI Y 11
Column separators . . . . . . . . . . CS
Blink . . . . . . . . . . . . . . . . BL
Nondisplay . . . . . . . . . . . . . . ND
Underline . . . . . . . . . . . . . . UL
Position cursor . . . . . . . . . . . PC
Set modified data tag . . . . . . . . MDT
Protect field . . . . . . . . . . . . PR
F3=Exit F12=Cancel
· Now we select the color attribute.
Select Colors
Constant . . . : PARTY INFORMATION ENQUIRY SCREEN
Length . . . . : 32 Row . . . : 1 Column . . . : 25
Type choices, press Enter.
Keyword Order Indicators/+
(1-7)
Colors: COLOR
Blue . . . . . . . . . . . . . . . BLU
Green . . . . . . . . . . . . . . GRN
Pink . . . . . . . . . . . . . . . PNK
Red . . . . . . . . . . . . . . . RED
Turquoise . . . . . . . . . . . . TRQ
White . . . . . . . . . . . . . . WHT
Yellow . . . . . . . . . . . . . . YLW 1
F3=Exit F12=Cancel
·
Press ENTER. The screen below shows the display
attribute HI and color attribute effect on the heading.
UUUUUUUUUU PARTY INFORMATION ENQUIRY SCREEN DD/DD/DD
TT:TT:TT
· PRESS F3 and save it. The
newly created record will be shown in the Display file records list as shown
below.
Work with Display Records
File . . . . . . : QRPGLESRC Member . . . . . . : DSPLY01
Library . . . . : AMIT Source type . . . : DSPF
Type options, press Enter.
1=Add 2=Edit comments 3=Copy 4=Delete
7=Rename 8=Select keywords 12=Design image
Opt Order Record Type Related Subfile Date DDS Error
10 HEADER RECORD 02/08/13
Bottom
F3=Exit F12=Cancel F14=File-level keywords
F15=File-level comments F17=Subset F24=More keys
Record HEADER added to member DSPLY01.
· Now we will add another record
‘FOOTER’ that will appear at the bottom. Take option-1 to add a new record
named as ‘FOOTER’
Add New Record
File . . . . . . : QRPGLESRC Member . . . . . . : DSPLY01
Library . . . . : AMIT Source type . . . : DSPF
Type choices, press Enter.
New record . . . . . . . . . . . . . . . FOOTER Name
Type . . . . . . . . . . . . . . . . . . RECORD RECORD, USRDFN
SFL, SFLMSG
WINDOW, WDWSFL
PULDWN, PDNSFL
MNUBAR
F3=Exit F5=Refresh F12=Cancel
'F3 = EXIT F12 = PREVIOUS'
·
Press ENTER
F3 = EXIT F12 = PREVIOUS
·
Save the screen and exit.
Work with Display Records
File . . . . . . : QRPGLESRC Member . . . . . . : DSPLY01
Library . . . . : AMIT Source type . . . : DSPF
Type options, press Enter.
1=Add 2=Edit comments 3=Copy 4=Delete
7=Rename 8=Select keywords 12=Design image
Opt Order Record Type Related Subfile Date DDS Error
10 HEADER RECORD 02/08/13
20 FOOTER RECORD 02/08/13
Bottom
F3=Exit F12=Cancel F14=File-level keywords
F15=File-level comments F17=Subset F24=More keys
Record FOOTER added to member DSPLY01.
·
Now we will add another record ‘DETAIL’ that will
appear at the MIDDLE as an actual data holder.
·
Press F9 to see the records available that can be
displayed on the screen. Displaying other record formats facilitates better
designing as we become aware of the layout of other records on the screen.
Select Additional Records for Display
File . . . . . . : QRPGLESRC Member . . . . . . : DSPLY01
Library . . . . : AMIT Source type . . . : DSPF
Type options, press Enter.
1,2,3=Select for display as additional record
Option Record Type Status
1 HEADER
2 FOOTER
3
HEADER RECORD
FOOTER RECORD
DETAIL RECORD In use
Bottom
F3=Exit F5=Refresh F12=Cancel
·
Now we add some fields input/output fields on the
screen.
UUUUUUUUUU PARTY INFORMATION ENQUIRY SCREEN DD/DD/DD
TT:TT:TT
PARTY NAME
PARTY NUMBER
PARTY ADDRESS
F3 = EXIT F12 = PREVIOUS
·
To design the input, output or both field we use
the below:
UUUUUUUUUU PARTY INFORMATION ENQUIRY SCREEN DD/DD/DD
TT:TT:TT
PARTY NAME +O(20) >>> +O(20) (Represents Output numeric field of length 20)
PARTY NUMBER +6(12) >>> +6(12) (Represents Input numeric field of length 12)
PARTY ADDRESS +B(30) >>> +B(3) (Represent both type character field of length 30)
F3 = EXIT F12 = PREVIOUS
Here,
+3(N) represents numeric input
field of length N.
+6(N) represents numeric
output field of length N.
+9(N) represents numeric
input/output field of length N.
+I(N) represents character
field of length N.
+O(N) represents character output
field of length N.
+B(N) represents character input/output
field of length N.
·
Press Enter and these fields are represented with
actual field length.
UUUUUUUUUU PARTY INFORMATION ENQUIRY SCREEN DD/DD/DD
TT:TT:TT
PARTY NAME OOOOOOOOOOOOOOOOOOOO
PARTY NUMBER 666666666666
PARTY ADDRESS BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
F3 = EXIT F12 = PREVIOUS
·
To rename the field name we put ? mark in front of
the related field:
UUUUUUUUUU PARTY INFORMATION ENQUIRY SCREEN DD/DD/DD
TT:TT:TT
PARTY NAME ?OOOOOOOOOOOOOOOOOOOO
PARTY NUMBER 666666666666
PARTY ADDRESS BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
F3 = EXIT F12 = PREVIOUS
· Press ENTER and the option to
change the field appears at the bottom.
UUUUUUUUUU PARTY INFORMATION ENQUIRY SCREEN DD/DD/DD
TT:TT:TT
PARTY NAME OOOOOOOOOOOOOOOOOOOO
PARTY NUMBER 666666666666
PARTY ADDRESS BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
FLD001 Length: 00020 TEXT: >>>>>>>>>>>>>>>>
·
Here we have renamed the field FLD001 to PTNAME.
UUUUUUUUUU PARTY INFORMATION ENQUIRY SCREEN DD/DD/DD
TT:TT:TT
PARTY NAME OOOOOOOOOOOOOOOOOOOO
PARTY NUMBER 666666666666
PARTY ADDRESS BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
PTNAME Length: 00020 TEXT: >>>>>>>>>>>>>>>>>> FLD001 renamed to PTNAME
· There is alternate way of
providing the fields here, directly using the database fields to put it to the
screen.
· PRESS F10 to relate the screen
field to the database field.
Select Database Files
Type options and names, press Enter.
1=Display database field list
2=Select all fields for input (I)
3=Select all fields for output (O)
4=Select all fields for both (B) input and output
Option Database File Library Record
_ __________ __________ __________
_ __________ __________ __________
_ __________ __________ __________
_ __________ __________ __________
F3=Exit F4=Prompt F12=Cancel
Select Database Files
Type options and names, press Enter.
1=Display database field list
2=Select all fields for input (I)
3=Select all fields for output (O)
4=Select all fields for both (B) input and output
Option Database File Library Record
1 PARTYD____ AMIT______ REC2______
_ __________ __________ __________
_ __________ __________ __________
F3=Exit F4=Prompt F12=Cancel
·
PRESS ENTER to see a list of fields available from
the database.
Select Database Fields
Record . . . : REC2
Type information, press Enter.
Number of fields to roll . . . . . . . . . . . . . . . . . . 8
Name of field to search for . . . . . . . . . . . . . . . . .
Type options, press Enter.
1=Display extended field description
2=Select for input (I), 3=Select for output (O), 4=Select for both (B)
Option Field Length Type Column Heading
3 PNAME 10 A PNAME
3 PNUM 12 A PNUM
4 PADDR 10 A PADDR
OPNDD 2,0 P OPNDD
OPNMM 2,0 P OPNMM
OPNYY 4,0 P OPNYY
OPNSTS 1,0 P OPNSTS
Bottom
F3=Exit F12=Cancel
UUUUUUUUUU PARTY INFORMATION ENQUIRY SCREEN DD/DD/DD
TT:TT:TT
PARTY NAME
PARTY NUMBER
PARTY ADDRESS
1:PARTY 2:PNUM 3:PADDR
UUUUUUUUUU PARTY INFORMATION ENQUIRY SCREEN DD/DD/DD
TT:TT:TT
PARTY NAME &1
PARTY NUMBER &2
PARTY ADDRESS &3
1:PARTY 2:PNUM 3:PADDR
UUUUUUUUUU PARTY INFORMATION ENQUIRY SCREEN DD/DD/DD
TT:TT:TT
PARTY NAME OOOOOOOOOOOOOOOOOOOO
PARTY NUMBER 666666666666
PARTY ADDRESS BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
***NOTE
· Case (1): If in the display file record (screen), we
give the screen fields name same as the name of the database file field name
then whatever we enter on the screen will be available to the program and we
can simply write those variables to the database.
· Case (2): If in the display screen the field name is
different than that in database file, then you need to move the value to the
database field one by one and then write operation will work.
·
If you want to delete the fields appearing at the
bottom of the screen just press F6 and put ‘Y’ against “Delete all fields on
bottom line”.
Condition Work Screen
Record . . . : HEADER
Type choices, press Enter.
Activate indicators . . . . . . . . . . . . . Y=Yes
Indicators to be turned ON . . . . . . . . . 01-99
Indicators to condition all new
fields and attributes . . . . . . . . . . .
Show indicator setting for field . . . . . . Name
Delete all fields on bottom line . . . . . . Y Y=Yes
Reference database fields . . . . . . . . . . Y Y=Yes
Display in single-field mode . . . . . . . . Y=Yes
F3=Exit F12=Cancel
·
Use option-8 to add keyword to that record type.
Work with Display Records
File . . . . . . : QRPGLESRC Member . . . . . . : DSPLY01
Library . . . . : AMIT Source type . . . : DSPF
Type options, press Enter.
1=Add 2=Edit comments 3=Copy 4=Delete
7=Rename 8=Select keywords 12=Design image
Opt Order Record Type Related Subfile Date DDS Error
10 HEADER RECORD 02/08/13
8 20 DETAIL RECORD 02/08/13
30 FOOTER RECORD 02/08/13
Bottom
F3=Exit F12=Cancel F14=File-level keywords
F15=File-level comments F17=Subset F24=More keys
Record FOOTER added to member DSPLY01.
Select Record Keywords
Record . . . : DETAIL
Type choices, press Enter.
Y=Yes
General keywords . . . . . . . . Y
Indicator keywords . . . . . . . Y
Application help . . . . . . . . Y
Help keywords . . . . . . . . . . Y
Output keywords . . . . . . . . . Y
Input keywords . . . . . . . . . Y
Overlay keywords . . . . . . . . Y
Print keywords . . . . . . . . .
ALTNAME keyword . . . . . . . . .
TEXT keyword . . . . . . . . . .
F3=Exit F4=Display Selected Keywords F12=Cancel
· Use SHIFT-F2 to add file level
keywords. Here we are setting Indicator keywords and display size.
Select File Keywords
Member . . . : DSPLY01
Type choices, press Enter.
Y=Yes
General keywords . . . . . . . .
Indicator keywords . . . . . . . Y
Print keywords . . . . . . . . .
Help keywords . . . . . . . . . .
Display sizes . . . . . . . . . . Y
Alternate keywords . . . . . . .
DBCS conversion . . . . . . . . .
Window Borders . . . . . . . . .
Menu-bar keywords . . . . . . . .
F3=Exit F4=Display Selected Keywords F12=Cancel
Define Indicator Keywords
Member . . . : DSPLY01
Type keywords and parameters, press Enter.
Conditioned keywords: CFnn CAnn CLEAR PAGEDOWN/ROLLUP PAGEUP/ROLLDOWN
HOME HELP HLPRTN
Unconditioned keywords: INDTXT VLDCMDKEY
Keyword Indicators/+ Resp Text
CA03 03 EXIT
CA12 12 PREVIOUS
Bottom
F3=Exit F12=Cancel
Select Display Sizes
Member . . . : DSPLY01
Type order (1-4) to select display sizes, press Enter.
DSPSIZ MSGLOC
Order Size Display Name Message Line
27x132 *DS4 28 1-28
1 24x80 *DS3 25 1-25
F3=Exit F12=Cancel
· SAVE THE ERCORD FORMARTS AND
EXIT THE SDA.
· We can check the DDS which
appears as below:
Columns . . . : 1 80 Edit AMIT/QRPGLESRC
SEU==> DSPLY01
FMT DP .....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions+++++++++++++++++++++++++
*************** Beginning of data ********************************************
0000.30 A DSPSIZ(24 80 *DS3)
0000.40 A CA03(03 'EXIT')
0000.50 A CA12(12 'PREVIOUS')
0000.60 A R HEADER
0000.80 A 1 2USER
0000.90 A 1 22'PARTY INFORMATION ENQUIRY SCREEN'
0001.00 A 1 72DATE
0001.10 A EDTCDE(Y)
0001.20 A 2 72TIME
0001.30 A R DETAIL
0001.50 A 4 10'PARTY NAME'
0001.60 A 5 10'PARTY NUMBER'
0001.70 A 6 10'PARTY ADDRESS'
0001.80 A R FOOTER
0002.00 A 24 3'F3 = EXIT F12 = PREVIOUS'
****************** End of data ***********************************************
The display file DDS levels
can be divided into below parts:
· File level è sequence no. 0000.30 to
0000.50
· Record level è sequence no. 0000.60,
0001.30, 0001.80
· Field level è sequence no. 0000.80 to 0001.20, sequence no.
0001.50 to 0001.70, sequence no. 0002.00
·
IPDP used for prompt entry:
Columns . . . : 1 80 Edit AMIT/QRPGLESRC
SEU==> DSPLY01
FMT DP .....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions++++++++++++++++++++++++
0001.80 A R FOOTER
'''''''
0002.00 A 24 3'F3 = EXIT F12 = PREVIOUS'
****************** End of data ******************************************************
Prompt type . . . DP Sequence number . . . '''''''
And/Or/ Name
Comment N01N02N03 Type Name Ref Length
_ _________ _ __________ _ _____
Data Decimal --- Location ---
Type Positions Use Line Position
_ __ _ ___ ___
Functions
____________________
F3=Exit F4=Prompt F5=Refresh F11=Previous record
F12=Cancel F23=Select prompt F24=More keys