|
midrange.com
Matthew,
Here are some display file shells that show how a window can be used.
Code your window program like you would for a full screen program.
Basic Subfile shell
A DSPSIZ(24 80 *DS3)
A PRINT
A R SFLRCD SFL
A SFLNXTCHG
A SFOPTION 1A B 13 4
A R SFLCTLRCD SFLCTL(SFLRCD)
A SFLSIZ(0018)
A SFLPAG(0009)
A ROLLUP(27)
A ROLLDOWN(26)
A VLDCMDKEY(25)
A OVERLAY
A N81 SFLDSP
A N82 SFLDSPCTL
A 80 SFLCLR
A 83 SFLEND(*MORE)
A SFRRN 4S 0H SFLRCDNBR(CURSOR)
A 1 2'Title line goes here'
A R SFLCMDKEYS
A BLINK
A OVERLAY
A 23 2'F3=Exit'
A*****************************************************************
A* ERROR MESSAGE SUBFILE
A*****************************************************************
A R SFLMSGRCD SFL
A SFLMSGRCD(24)
A @AAMKY SFLMSGKEY
A PGNMANE SFLPGMQ
A*****************************************************
A* ERROR MESSAGE SUBFILE CONTROL
A*****************************************************
A R SFLMSGCTL SFLCTL(SFLMSGRCD)
A OVERLAY
A 88 SFLDSP
A 88 SFLINZ
A 88 SFLEND
A SFLSIZ(0002)
A SFLPAG(0001)
A PGMNAME SFLPGMQ(10)
Sample window shell
A DSPSIZ(24 80 *DS3)
A PRINT
A ERRSFL
A R RECORDA
A WINDOW(WINSHELL)
A OVERLAY
A TITLELINE 42A O 1 1TEXT('Window title')
A CMDLINE 9 1TEXT('F3=Exit')
A***************************************************
A* ERROR MESSAGE SUBFILE
A***************************************************
A*
A R ERRSFLRCD SFL
A SFLMSGRCD(10)
A @AAMKY SFLMSGKEY
A PGMNAME SFLPGMQ(10)
A******************************************************
A* Error Message subfile control
A******************************************************
A*
A R ERRSFLCTL SFLCTL(ERRSFLRCD)
A BLINK
A OVERLAY
A 88 SFLDSP
A 88 SFLINZ
A 88 SFLEND
A SFLSIZ(0002)
A SFLPAG(0001)
A WINDOW(WINSHELL)
A 81 USRRSTDSP
A PGMNAME SFLPGMQ(10)
A*******************************************************
A* Window definition
A*******************************************************
A R WINSHELL
A
A OVERLAY
A WINDOW(1 6 11 42)
A WDWBORDER((*DSPATR RI) (*CHAR
'...:-
A ::.:'))
A*****************************************************************
A* Dummy format for Window keywords *
A*****************************************************************
A*
A R DUMMYFMT
A OVERLAY
A KEEP
A ASSUME
A 22 27'(No records to be displayed)'
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Matthew Gross
Sent: Tuesday, March 22, 2005 9:20 AM
To: Post AS-400 System Questions
Subject: Window SFL Question
How can I overlay a screen with a window subfile and retain that
underlying display?
TIA,
Matt
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.
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.
