|
This displays a window with a subfile that has a footer line explaining possible F-keys and a message subfile beneath. A*------------------------------------------------------------------------- A R WIN00 A WINDOW(7 13 14 46 *NOMSGLIN) A WDWBORDER((*COLOR WHT)) A 01 RMVWDW A*------------------------------------------------------------------------- A R FTLINE A WINDOW(WIN00) A OVERLAY A FTL0001 44A O 13 1MSGID(FUN 0016 ASMB400MSG) A COLOR(BLU) A*------------------------------------------------------------------------- A R SFL00 A SFL * the usual subfile stuff here A*------------------------------------------------------------------- A R SFL00C A SFLCTL(SFL00) A WINDOW(WIN00) * the usual subfile ctl stuff here and in RPG it's C WRITE WIN00 (the window) C WRITE MSFL00C (the message subfile control record) C WRITE FTLINE (the footer) C EXFMT SFL00C (my subfile control record) My footer is here only one line, but i think you can imagine how to blow it up to more.... Mit freundlichen Grüssen / Best regards Anton Gombkötö mailto:Gombkoetoe@ASsoft.com AS Software GmbH http://www.assoft.com Jedleseer Strasse 3 A-1210 Wien Tel: +43 1 278 15 01-0 Fax:+43 1 278 15 01-22 +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +---
As an Amazon Associate we earn from qualifying purchases.
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.