|
midrange.com
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-2025 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.
