Ü
SFLDROP
·
This keyword is used at record
level to display the subfile in truncated form i.e. the subfile records are
truncated to fit on one display line.
·
We assign a CA (command
attention) or CF (command function) key to control the truncated and folded behavior
of subfile by pressing the function key.
·
By default the display mode be
truncated one but when the user presses the function key it goes to folded
mode.
·
The operator presses the
specified CF or CA key to switch from truncated form to folded form or from
folded form to truncated form. It is used along with the keyword SFLMODE and
SFLFOLD.
Ü
SFLFOLD
·
This keyword is used at record
level to display the subfile in folded form by default.
·
We assign a CA (command
attention) or CF (command function) key to control the truncated and folded
behavior of subfile by pressing the function key.
·
By default the display mode is
folded one but when the user presses the function key it goes to truncated
mode.
·
The operator presses the
specified CF or CA key to switch from folded form to truncated form or from
truncated form to folded form. It is used along with the keyword SFLMODE and
SFLDROP.
Ü SFLMODE
·
This keyword is used at record
level to set the mode of the subfile i.e. to control if the subfile is to be
displayed in folded or truncated form.
·
We use a hidden variable as a
parameter of this keyword to control the behavior of the subfile by setting the
value of the hidden variable.
·
The operator presses the
specified CF or CA key to switch from truncated form to folded form or from
folded form to truncated form. By default the display mode be truncated one.
·
It is used along with the
keyword SFLDROP and SFLFOLD.
Example
Columns . . . : 1 71 Browse AMIT/QRPGLESRC
SEU==> EDTDSPCCC
FMT DP .....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions++++++++++++++++++
0003.00 A R EXPD_CTL SFLCTL(EXPD_SFL)
0003.10 A 43 SFLDSP
0003.20 A 42 SFLDSPCTL
0003.30 A 41 SFLCLR
0003.40 A 45 SFLEND(*MORE)
0003.50 A SFLSIZ(9999)
0003.60 A SFLPAG(0005)
0003.61 A SFLMODE(&MODE)
0003.63 A 77 SFLDROP(CF11)
0003.64 A N77 SFLFOLD(CF11)
0003.65 A MODE 1A H
0003.70 A 8 5'OPT PARTY NAME PARTY
0003.80 A COLOR(BLU)
0003.90 A 8 45'PARTY ADDRESS'
0004.00 A COLOR(BLU)
0004.20 *
0004.30 A R FOOTER OVERLAY
Here, to control the mode
option indicator 77 is used. By pressing F11 we can toggle from SFLDROP state
to SFLFOLD mode.
0008.03 C SELECT
0008.04 C S_OPT WHENEQ '1'
0008.05 C EXSR OPTION1
0008.06 C S_OPT WHENEQ '2'
0008.07 C EXSR OPTION2
0008.08 C S_OPT WHENEQ '4'
0008.09 C EXSR OPTION4
0008.10 C S_OPT WHENEQ '5'
0008.11 C EXSR OPTION5
0008.12 C OTHER
0008.13 C EXSR VALIDATE
0008.14 C ENDSL
0008.15 C READC EXPD_SFL
0008.16 C ENDDO
0008.18 C EVAL MODE='1'
0009.00 C ENDSR
0010.00 *______________________________________________
0011.00 *___DSPLY SUBROUTINE BEGINS HERE_______________
0012.00 C DSPLY BEGSR
0012.01 C EXSR CLRSFL
0012.02 C EXSR FILSFL
0012.03 C EXSR DSPSFL
0013.00 C ENDSR
0015.00 C DSPSFL BEGSR
0015.02 C SETON 4243
0015.03 C IF *INKJ=*ON
0015.04 C MOVE MODE *IN77
0015.05 C ENDIF
0015.06 C WRITE EXPD_CTL
0015.07 C WRITE HEADER
0015.08 C WRITE FOOTER
0015.09 C READ EXPD_CTL
0015.10 C SETOFF 4243
0016.00 C ENDSR
OUTPUT
The output will be displayed in the folded mode initially.
AJAISWAL DISPLAY THE EDITABEL SUBFILE 11/05/13
5/53/29
OPTION: 1 = NEW A/C ENTRY FOR PARTY, 2=EDIT, 4 = DELETE, 5 =DISPLAY
OPT PARTY NAME PARTY NUMBER PARTY ADDRESS
IROBO P00000000001 CHENNAI
00000000000000000001
IROBO P00000000002 EMPHAL
00000000000000000002
SHMANT P00000000003 CHENNAI
00000000000000000003
AFTAB P00000000007 HOMEIIEA
00000000000000000004
AMI P00000000008 HELLY CORN
00000000000000000005
More...
F3 = EXIT
After we press F11, We go to the truncated mode as shown below:
AJAISWAL DISPLAY THE EDITABEL SUBFILE 11/05/13
5/53/29
OPTION: 1 = NEW A/C ENTRY FOR PARTY, 2=EDIT, 4 = DELETE, 5 =DISPLAY
OPT PARTY NAME PARTY NUMBER PARTY ADDRESS
IROBO P00000000001 CHENNAI
IROBO P00000000002 EMPHAL
SHMANT P00000000003 CHENNAI
AFTAB P00000000007 HOMEIIEA
AMI P00000000008 HELLY CORN
JPY P00000000009 JEKINSAN
SHANN P00000000010 KUPUNUS
HAPART P00000000011 KOLINSA
Bottom
F3 = EXIT