× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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)



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.