Ü Steps to create Subfile
record format (SUBF) using STRSDA
(1)STRSDA
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
(2)Take
option-1
Design Screens
Type choices, press Enter.
Source file . . . . . . . . QRPGLESRC Name, F4 for list
Library . . . . . . . . . AMIT Name, *LIBL, *CURLIB
Member . . . . . . . . . . SUBF_DSP Name, F4 for list
F3=Exit F4=Prompt F12=Cancel
(3)Take
option-1 to ADD a record
Work with Display Records
File . . . . . . : QRPGLESRC Member . . . . . . : SUBF_DSP
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
(4) Select the
record type SFL and enter the subfile record name.
Add New Record
File . . . . . . : QRPGLESRC Member . . . . . . : SUBF_DSP
Library . . . . : AMIT Source type . . . : DSPF
Type choices, press Enter.
New record . . . . . . . . . . . . . . . LOAD_SFL Name
Type . . . . . . . . . . . . . . . . . . SFL RECORD, USRDFN
SFL, SFLMSG
WINDOW, WDWSFL
PULDWN, PDNSFL
MNUBAR
F3=Exit F5=Refresh F12=Cancel
(5)Press
ENTER, it will ask for subfile control record format:
Add New Record
File . . . . . . : QRPGLESRC Member . . . . . . : SUBF_DSP
Library . . . . : AMIT Source type . . . : DSPF
Type choices, press Enter.
New record . . . . . . . . . . . . . . . LOAD_SFL Name
Type . . . . . . . . . . . . . . . . . . SFL RECORD, USRDFN
SFL, SFLMSG
WINDOW, WDWSFL
PULDWN, PDNSFL
MNUBAR
Subfile control record . . . . . . . . . LOAD_CTL Name
F3=Exit F5=Refresh F12=Cancel
(6)Press
ENTER. It will ask for subfile keywords. Select general keywords as ‘Y’.
Select Subfile Keywords
Subfile record . . . . . . . : LOAD_SFL
Type choices, press Enter
Y=Yes
General keywords . . . . . . . . Y
Indicator keywords . . . . . . .
TEXT keyword . . . . . . . . . .
F3=Exit F4=Display Selected Keywords
(7) Press
ENTER and select SFLNXTCHG as ‘Y’ if it is needed in the program along with the
indicators.
Select General Keywords
Subfile record . . . . . . . : LOAD_SFL
Type choices, press Enter.
Keyword Y=Yes Indicators/+
Return this record
on read next changed . . . . . . . . . . SFLNXTCHG
Write this record to the job log . . . . . LOGOUT
Write this record to the job log . . . . . LOGINP
Keep records on display
when closing the file . . . . . . . . . KEEP
Allow blanks . . . . . . . . . . . . . . . CHECK(AB)
Move cursor right to left . . . . . . . . CHECK(RL)
Change input defaults . . . . . . . . . . CHGINPDFT
Select parameters . . . . . . . . . . .
F3=Exit F12=Cancel
(8)Select
SFLCTL as ‘Y’ to select the subfile control keywords as shown below:
Select Subfile Control Keywords
Subfile control record . . . . . . . . . : LOAD_CTL
Type choices, press Enter.
Y=Yes
General keywords . . . . . . . . Y
Subfile display layout . . . . . Y
Subfile messages . . . . . . . . Y
Select record keywords . . . . . Y
TEXT keyword . . . . . . . . . .
F3=Exit F4=Display Selected Keywords F12=Cancel
(9)Define all
control format keywords as below:
Define General Keywords
Subfile control record . . . . . . . . . : LOAD_CTL
Type choices, press Enter. Keyword
Related subfile record . . . . . . . SFLCTL LOAD_SFL Name
Subfile cursor relative record . . . SFLCSRRRN Name
Subfile mode . . . . . . . . . . . . SFLMODE Name
Y=Yes Indicators/+
Display subfile records . . . . . . SFLDSP Y 42
Display control record . . . . . . . SFLDSPCTL Y 43
Initialize subfile fields . . . . . SFLINZ
Delete subfile area . . . . . . . . SFLDLT
Clear subfile records . . . . . . . SFLCLR 41
Indicate more records . . . . . . . SFLEND 45
SFLEND parameter . . . . . . . . *MORE Y
SFLEND parameter . . . . . . . . *SCRBAR *MORE ...
Record not active . . . . . . . . . SFLRNA
Keyword CFnn/CAnn Indicators/+
Subfile initially truncated . . . . SFLDROP
Subfile initially folded . . . . . . SFLFOLD
Use instead of Enter key . . . . . . SFLENTER
Bottom
F3=Exit F12=Cancel
(10)
Select display layout as ‘Y’. Then Press ENTER to
come to select Subfile display layout.
Define Display Layout
Subfile control record . . . . . . . . . : LOAD_CTL
Type values, press Enter.
Keyword Number
Records in subfile . . . . . . . . . . SFLSIZ 9999
Program-to-system field . . . . . .
Records per display . . . . . . . . . SFLPAG 15
Spaces between records . . . . . . . . SFLLIN
F3=Exit F12=Cancel
(11)
Select Record keyword Indicators keywords as ‘Y’.
Select Record Keywords
Record . . . : LOAD_CTL
Type choices, press Enter.
Y=Yes
General keywords . . . . . . . .
Indicator keywords . . . . . . . Y
Application help . . . . . . . .
Help keywords . . . . . . . . . .
Output keywords . . . . . . . . .
Input keywords . . . . . . . . .
Overlay keywords . . . . . . . .
Print keywords . . . . . . . . .
ALTNAME keyword . . . . . . . . .
TEXT keyword . . . . . . . . . .
F3=Exit F4=Display Selected Keywords F12=Cancel
(12)
Define the indicators as shown below.
Define Indicator Keywords
Record . . . : LOAD_CTL
Type keywords and parameters, press Enter.
Conditioned keywords: CFnn CAnn CLEAR PAGEDOWN/ROLLUP PAGEUP/ROLLDOWN
HOME HELP HLPRTN
Unconditioned keywords: INDTXT VLDCMDKEY SETOF CHANGE
Keyword Indicators/+ Resp Text
CA03 03 EXIT
CA12 12 PREVIOUS
Bottom
F3=Exit F12=Cancel
(13)
Just press ENTER and the record format will be added
to the member SUBF_DSP.
Work with Display Records
File . . . . . . : QRPGLESRC Member . . . . . . : SUBF_DSP
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 LOAD_SFL SFL 02/08/13
20 LOAD_CTL SFLCTL LOAD_SFL 02/08/13
30 LD_FOOTER RECORD 02/08/13
Bottom
F3=Exit F12=Cancel F14=File-level keywords
F15=File-level comments F17=Subset F24=More keys
(C) COPYRIGHT IBM CORP. 1981, 2005.
Record LOAD_SFL added to member SUBF_DSP. +
Record LOAD_CTL added to member SUBF_DSP.
Record LO_FOOTER added to member SUBF_DSP.
(14)
Take option-12 to design the screen.
Work with Display Records
File . . . . . . : QRPGLESRC Member . . . . . . : SUBF_DSP
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 LOAD_SFL SFL 02/08/13
12 20 LOAD_CTL SFLCTL LOAD_SFL 02/08/13
30 LD_FOOTER RECORD 02/08/13
Bottom
F3=Exit F12=Cancel F14=File-level keywords
F15=File-level comments F17=Subset F24=More keys
(15)
Now design the screen for the SUBFILE CONTROL RECORD
FORMAT:
DISPLAY SUBFILE
FIELD1 FIELD2 FIELD3
(16)
After that design the screen for the FOOTER RECORD
FORMAT:
F3 = EXIT F12 = PREVIOUS
(17)
Now display subfile control record format and footer
record format both on the screen by using option-12 on subfile control record
format and then pressing F9.
Select Additional Records for Display
File . . . . . . : QRPGLESRC Member . . . . . . : SUBF_DSP
Library . . . . : AMIT Source type . . . : DSPF
Type options, press Enter.
1,2,3=Select for display as additional record
Option Record Type Status
1 LOAD_SFL
2 LD_FOOTER >>>>>>>>>>>>>>> Enter the additional record format name to be
3 displayed on the screen here.
LOAD_SFL SFL Selected
LOAD_CTL SFLCTL In use
LD_FOOTER RECORD
Bottom
F3=Exit F5=Refresh F12=Cancel
Records currently selected: LOAD_SFL .
(18)
Now start designing the subfile record format screen.
DISPLAY SUBFILE
FIELD1 FIELD2 FIELD3
+6(5,0) +o(10) +o(15)
F3 = EXIT F12 = PREVIOUS
(19)
Press ENTER after that:
DISPLAY SUBFILE
FIELD1 FIELD2 FIELD3
66666 OOOOOOOOOO OOOOOOOOOOOOOOO
66666 OOOOOOOOOO OOOOOOOOOOOOOOO
66666 OOOOOOOOOO OOOOOOOOOOOOOOO
66666 OOOOOOOOOO OOOOOOOOOOOOOOO
66666 OOOOOOOOOO OOOOOOOOOOOOOOO
66666 OOOOOOOOOO OOOOOOOOOOOOOOO
66666 OOOOOOOOOO OOOOOOOOOOOOOOO
66666 OOOOOOOOOO OOOOOOOOOOOOOOO
66666 OOOOOOOOOO OOOOOOOOOOOOOOO
66666 OOOOOOOOOO OOOOOOOOOOOOOOO
66666 OOOOOOOOOO OOOOOOOOOOOOOOO
66666 OOOOOOOOOO OOOOOOOOOOOOOOO
66666 OOOOOOOOOO OOOOOOOOOOOOOOO
66666 OOOOOOOOOO OOOOOOOOOOOOOOO
66666 OOOOOOOOOO OOOOOOOOOOOOOOO
F3 = EXIT F12 = PREVIOUS
(20)
Press F3 and SAVE it and exit SDA.
Save DDS - Create Display File
Type choices, press Enter.
Save DDS source . . . . . . . . . . . . Y Y=Yes
Source file . . . . . . . . . . . . . QRPGLESRC F4 for list
Library . . . . . . . . . . . . . . AMIT Name, *LIBL ...
Member . . . . . . . . . . . . . . . . SUBF_DSP F4 for list
Text . . . . . . . . . . . . . . . . .
Create display file . . . . . . . . . . Y Y=Yes
Prompt for parameters . . . . . . . . Y=Yes
Display file . . . . . . . . . . . . . SUBF_DSP F4 for list
Library . . . . . . . . . . . . . . AMIT Name, *CURLIB
Replace existing file . . . . . . . . Y=Yes
Submit create job in batch . . . . . . . Y Y=Yes
Specify additional
save or create options . . . . . . . . Y=Yes
F3=Exit F4=Prompt F12=Cancel
Member saved. Job 922847/AMIT/SUBF_DSP submitted. Press Enter.
(21)
Now we check the DDS of the subfile created:
Columns . . . : 1 80 Edit AMIT/QRPGLESRC
SEU==> SUBF_DSP
FMT DP .....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions+++++++++++++++++++++++++++
*************** Beginning of data ********************************************************
0000.30 A DSPSIZ(24 80 *DS3)
0000.40 A R LOAD_SFL SFL
0000.50 A FLD001 5 0O 6 11
0000.60 A FLD002 10 O 6 26
0000.70 A FLD003 15 O 6 45
0000.80 A R LOAD_CTL SFLCTL(LOAD_SFL)
0000.90 A SFLSIZ(9999)
0001.00 A SFLPAG(0015)
0001.10 A CA03(03 'EXIT')
0001.20 A CA12(12 'PREVIOUS')
0001.30 A 43 SFLDSP
0001.40 A 42 SFLDSPCTL
0001.50 A 41 SFLCLR
0001.60 A 45 SFLEND(*MORE)
0001.70 A 1 27'DISPLAY SUBFILE'
0001.80 A 5 11'FIELD1'
0001.90 A 5 28'FIELD2'
0002.00 A 5 48'FIELD3'
0002.10 A R LD_FOOTER
0002.10 A R LD_FOOTER
0002.30 A OVERLAY
0002.40 A 24 3'F3 = EXIT F12 = PREVIOUS'
****************** End of data ***********************************************************