Comparing to what I sent
*BOTTOM is not encased in its own parenthesis
A WINDOW(*DFT 10 55)
A WDWTITLE((*TEXT 'Please enter e-mai-
A l') (*COLOR WHT) (*DSPATR HI +
A UL))
A WDWTITLE((*TEXT 'F12=PREVIOUS') *BO-
A TTOM)
A*
A CF12(12)
Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
'If you're going through hell, keep going.'
Winston Churchill
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of dfreinkel
Sent: Thursday, July 2, 2020 11:40 AM
To: 'RPG programming on IBM i' <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: [EXTERNAL] Can one add a function key line to a WDWSFL window?
I am missing something. I cannot get the command line to show up. The only way to get it to compile is by commenting out the various keywords and then *BOTTOM does not work.
A*
----------------------------------------------------------------------
A R LBLW5S SFL
A*%%TS SD 20200702 095956 DFREINKEL REL-V7R2M0 5770-WDS
A TEXT('Display all revisions for
a l-
A ine')
A ACT5 1A B 9 1
A ITREV# 2N 0O 9 6TEXT('Current revision number')
A VREV 2N 0B 9 18
A*
A*
----------------------------------------------------------------------
A` R LBLW5C SFLCTL(LBLW5S)
A*%%TS SD 20200702 095956 DFREINKEL REL-V7R2M0 5770-WDS
A TEXT('Display revisions for a
line')
A WINDOW(4 15 15 46)
A WDWTITLE( +
A (*TEXT 'Order line with -
A revisions') +
A (*COLOR WHT) +
A* (*CENTER))
A )
A WDWTITLE( +
A (*TEXT 'F6=Accept F12=Cancel')
+
A* (*BOTTOM) +
A )
A CF06
A CF12
A BLINK
A OVERLAY
A PRINT
A 21 SFLDSP
A 22 SFLDSPCTL
A 23 SFLINZ
A N24 SFLEND
A SFLSIZ(0006)
A SFLPAG(0005)
A RMVWDW
A USRRSTDSP
A*
A* 1 2'Enter Move To Revision'
A 2 1'Line . . :'
A YLINE 5Y 1O 2 13TEXT('Line number')
A EDTCDE(1)
A DSPATR(HI)
A 2 21'Counter . :'
A YCNTR 4Y 0O 2 33TEXT('Markings counter')
A DSPATR(HI)
A EDTCDE(1)
A*
A 3 1'Door Marking . . .'
A VDOOR 15A O 3 21TEXT('Door Marking')
A COLOR(BLU)
A*
A 4 1'Item Number . . .'
A VITMN 15A O 4 21COLOR(BLU)
A*
A VITMD 15A O 5 21COLOR(BLU)
A 5 1'Item Description .'
A 6 1'M=Move'
A TEXT('Action line')
A COLOR(BLU)
A 7 1' Current Move to'
A TEXT('Column headings')
A 8 1'Act Revision Revision'
A TEXT('Column headings line 2')
A*
A*
----------------------------------------------------------------------
Thanks for the help.
Darryl Freinkel
A4G.
Tel: 770.321.8562 Ext 111 | Cell: 678.355.8562
For example
A WINDOW(*DFT 10 55)
A WDWTITLE((*TEXT 'Please enter
e-mai-
A l') (*COLOR WHT) (*DSPATR HI +
A UL))
A WDWTITLE((*TEXT 'F12=PREVIOUS')
*BO-
A TTOM)
A*
A CF12(12)
--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.
Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
https://amazon.midrange.com
midrange.com
