Subfile Selection

[Woxenlw]

Is there a way in a subfile to simply highlite the description rather than have
to enter a character to select a record. Have a menu as a subfile and would
like to give users the ability to point and click to select rather than have to
type a character to select.

[André]

wox...@aol.com (Woxenlw) wrote in message news:<20011119190333...@mb-md.aol.com>...

This can be done with the keywords SFLSNGCHC and SFLRTNSEL for a single selection.
If you want a multiple selection you can use the keyword SFLMLTCHC.

[Dick Johnson]

Woxenlw wrote in message <20011119190333...@mb-md.aol.com>...

This is what I am currently using for double click and "Screen Scrape"

=================== DDS DISPLAY FILE
======================================
0078.00 A R NAD003S1 SFL
0080.00 A SF1OCR 3 0H TEXT('OCCURS ID')
0081.00 A 11 24' '
0082.00 A DSPATR(RI)
0083.00 A SF1SEL 1A I 11 26DSPATR(HI)
0084.00 A DSPATR(UL)
0085.00 A CHECK(ER)
0086.00 A VALUES(' ' '1')
0087.00 A SF1TYP R O 11 29REFFLD(NAP003R/NA0302
*LIBL
0088.00 A DSPATR(HI)
0089.00 A SF1TDS R O 11 36REFFLD(NAP003R/NA0303
*LIBL
0090.00 A DSPATR(HI)
0091.00 A 11 53' '
0092.00 A DSPATR(RI)
0093.00 A R NAD003C1 SFLCTL(NAD003S1)
0095.00 A SFLSIZ(0005)
0096.00 A SFLPAG(0005)
0097.00 A CA12(12 'Previous')
0098.00 A ROLLDOWN(25)
0099.00 A ROLLUP(26)
0100.00 A OVERLAY
0101.00 A SFLCSRRRN(&RELREC)
0102.00 A 27 SFLDSP
0103.00 A 28 SFLDSPCTL
0104.00 A 29 SFLCLR
0105.00 A RELREC 5S 0H
0106.00 A 8 24'
0107.00 A DSPATR(RI)
0108.00 A 9 24' '
0109.00 A DSPATR(RI)
0110.00 A 9 32'Business Types'
0111.00 A DSPATR(HI)
0112.00 A 9 53' '
0113.00 A DSPATR(RI)
0114.00 A 10 24' '
0115.00 A DSPATR(RI)
0116.00 A 10 26'1 Type Description'
0117.00 A 10 53' '
0118.00 A DSPATR(RI)
0119.00 A R NAD003F1
0121.00 A OVERLAY
0122.00 A 16 24' '
0123.00 A DSPATR(RI)
0124.00 A 16 53' '
0125.00 A DSPATR(RI)
0126.00 A 17 24' F12=Previous RollUp
RolDn '
0127.00 A DSPATR(RI)
0128.00 A R DUMMY ASSUME
0129.00 A 1 2' '

=================== RPG IV Code
==================================================
0002.00 * MAINTAIN CUSTOMER/BUSINESS TYPE CODES
0003.00 FNAD003 CF E WORKSTN
0004.00 F SFILE(NAD003S1:XRRNS1)
0151.00 C Dow Window = 'W'
0152.00 *
0153.00 C Eval XRRNS1 = 1
0154.00 C WRITE NAD003F1
0155.00 C EVAL *IN27 = *ON
0156.00 C EVAL *IN28 = *ON
0157.00 C EXFMT NAD003C1
0158.00 C EVAL *IN27 = *OFF
0159.00 C EVAL *IN28 = *OFF
0160.00 *
0161.00 C If *IN12 = *ON
0162.00 C Eval Window = *BLANK
0163.00 C Leave
0164.00 C Endif
0165.00 *
0166.00 C If *IN25 = *ON
0167.00 C And WLock = *Blank
0168.00 C Exsr RollDn
0169.00 C Endif
0170.00 *
0171.00 C If *IN26 = *ON
0172.00 C And WLock = *Blank
0173.00 C Exsr RollUp
0174.00 C Endif
0175.00 * GET INTEREST CODE SELECTED
0176.00 C If *IN25 = *OFF
0177.00 C And *IN26 = *OFF
0178.00 C If RELREC <> *ZERO
0179.00 C RELREC CHAIN NAD003S1 50
0180.00 C If *IN50 = *OFF
0181.00 C Eval CUSTYP = SF1TYP
0182.00 C Eval Window = *BLANK
0183.00 C Leave
0184.00 C EndIf
0185.00 C Else
0186.00 C Eval XRRNS1 = 1
0187.00 C READC NAD003S1
93
0188.00 C If *IN93 = *OFF
0189.00 C Eval CUSTYP = SF1TYP
0190.00 C Eval Window = *BLANK
0191.00 C Leave
0192.00 C EndIf
0193.00 C EndIf
0194.00 C EndIf