|
Hi Christopher, You can define a WINDOW record format and can use as below: A DSPSIZ(24 80 *DS3) A REF(*LIBL/ADCREF) A PRINT A ALTPAGEUP A ALTPAGEDWN *---------------------------------------------------------------* * This is a non-referenced record that must exist in the DSPF * in order for the window not to blank out the previous screen. * The ASSUME keyword cannot be specified on the same record * format as the WINDOW keyword; thus, we specify it here. * A R RECFMT99 A ASSUME A 1 2' ' A*---------------------------------------------------------------* A R SFLRCD01 SFL $SOPT 1A O 4 1DSPATR(PC) A DSPATR(ND) A $SNAME R O 4 5REFFLD(DESC30) A $SOCC R O 4 36REFFLD(OCCUPCODE) A $SSSN 11A O 4 44 A*---------------------------------------------------------------* A R SFLCTL01 SFLCTL(SFLRCD01) A SFLSIZ(0024) A SFLPAG(0006) A WINDOW(CMDFMT01) A CF03 A N55 CF04 A CF12 A PAGEUP A PAGEDOWN A OVERLAY A PUTRETAIN A SFLCSRRRN(&$SRCD#) A 40 SFLDSP A 41 SFLDSPCTL A 42 SFLCLR A 43 SFLEND(*MORE) A $SRCD# 5S 0H A 1 1'AIN420' A COLOR(BLU) A 1 20'GROUP MEMBERS' A COLOR(PNK) A*---------------------------------------------------------------* A R CMDFMT01 A WINDOW(6 12 13 55) A OVERLAY A WDWBORDER((*COLOR WHT) (*DSPATR A RI)- A (*CHAR ' ')) A 12 2'F3/F12 = Exit/Cancel' A COLOR(BLU) A N55 12 24'F4 = Gang Calculations' A COLOR(BLU) You can put Header section too in this Window. Thanks, Rajeev. From: "christopher sagayam" <christopher_70@hotmail.com> To: MIDRANGE-L@midrange.com Subject: A few questions on SUBFILES , AS400 access etc Date: Tue, 22 Dec 1998 21:54:08 PST Reply-To: MIDRANGE-L@midrange.com Can anyone help me clear the following doubts : a) While using SUBFILES and WINDOWS , how do I add a HEADER and FOOTER inside that particular window. b) Is there really going to be a AS400 access through the net !! Please inform me more on AS400 access. Thank you christopher ______________________________________________________ Get Your Private, Free Email at http://www.hotmail.com +--- | This is the Midrange System Mailing List! | To submit a new message, send your mail to MIDRANGE-L@midrange.com. | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com. | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- ______________________________________________________ Get Your Private, Free Email at http://www.hotmail.com +--- | This is the Midrange System Mailing List! | To submit a new message, send your mail to MIDRANGE-L@midrange.com. | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com. | To unsubscribe from this list send email to MIDRANGE-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.