Pop-up Display with Subfile
DDS to create pop-upn display with subfile.
Window Panel with Subfile
DDS record-level keywords are used to specify that the record format defined will be displayed as a window; information that overlays part of the display. A window is typically smaller than the actual workstation display, and can be positioned anywhere on the display.
Two Separate Methods
The WINDOW keyword has two formats that can be used. These formats do the following tasks:
1 -Window definition record defines a window by specifying the location and size of a window.
2 -Window-reference record where the window location and size have been defined.
Adopting a standard is a sound practice. If the UI presentation is consistent, once a user learns how to navigate one interactive session, they have learned to navigate all standard applications. If the standard follows the IBM rules of UI presentation, it becomes possible to mix and match application panels and system panels without fear of confusing the user community.
A********************************************************************
A* DISPLAY NAME - CAW030DF *
A* *
A* FUNCTION - This display is a pop-up window to prompt a user *
A* to confirm waiver of fees. *
A* *
A* PROGRAMMER - STEVE CROY *
A********************************************************************
A********************************************************************
A* MODIFICATION LOG *
A* *
A* DATE PROGRAMMER DESCRIPTION *
A* *
A********************************************************************
A* Include PRINT and INVITE at the file level to allow PRINT
A* function and device file time out coding in applications
A*
A*%%EC
A DSPSIZ(24 80 *DS3)
A REF(*LIBL/CAWCNFWF)
A PRINT
A INDARA
A CF01
A CF02
A CA03
A CF04
A CF05
A CF06
A CF07
A CF08
A CF09
A CF10
A CF11
A CF12
A CF13
A CF14
A CF15
A CF16
A CF17
A CF18
A CF19
A CF20
A CF21
A CF22
A CF23
A CF24
A ROLLUP(90)
A ROLLDOWN(91)
A HOME
A HELP
A R CAW03000
A*
A ASSUME
A PUTOVR
A 1 2' '
A R CAW03001
A*
A KEEP
A OVERLAY
A WINDOW(5 30 15 27)
A WDWBORDER((*DSPATR HI) (*CHAR '...:-
A ::.:'))
A RMVWDW
A USRRSTDSP
A R CAW03002
A*
A WINDOW(CAW03001)
A CLRL(*NO)
A BLINK
A OVERLAY
A CHANGE(22)
A 2 1DATE
A EDTCDE(Y)
A PRGNAM 10A O 2 17
A 3 1TIME
A 3 19'Billing'
A DSPATR(HI)
A 1 5' Confirm Waivers '
A DSPATR(RI)
A COLOR(PNK)
A 5 1'Fee Account Amount '
A DSPATR(HI)
A R CAW030S1 SFL
A*%%TS SD 20090916 081022 SCROY REL-V5R4M0 5722-WDS
A 58 SFLNXTCHG
A Z$RRN1 4S 0H
A CFOWN R H
A CFPRJ R H
A CFACT R H
A CFCNT R H
A CFREF R H
A CFTRN R H
A CFAMT R H
A CFDSC R H
A CFDUE R H
A CFPCT R H
A CFRSN R H
A CFDFI R H
*
A ZFCODE R O 6 1REFFLD(TRANS1/TCODE *LIBL/CATRAN)
A ZFACCT R O 6 4REFFLD(TRANS1/TACCT *LIBL/CATRAN)
A ZFAMT R O 6 13REFFLD(TRANS1/TAMT *LIBL/CATRAN)
A R CAW030C1 SFLCTL(CAW030S1)
A*
A SFLSIZ(0006)
A SFLPAG(0005)
A WINDOW(CAW03001)
A BLINK
A CSRLOC(#ROW #COL)
A OVERLAY
A 51 SFLDSP
A 50 SFLDSPCTL
A 53 SFLINZ
A 55 SFLDLT
A 52 SFLCLR
A 54 SFLEND(*MORE)
A #ROW 3S 0H
A #COL 3S 0H
A Z$RRN2 4S 0H SFLRCDNBR(CURSOR)
A 12 4'Waived.:'
A ZFTOTA R O 12 13REFFLD(TRANS1/TAMT *LIBL/CATRAN)
A Z$KEY1 26A O 13 1COLOR(BLU)
A Z$KEY2 26A O 14 1COLOR(BLU)
Window Borders
DDS provides a keyword at the record-level (or file level) keyword to specify the color, display attributes, and characters used to form the border of a window on a 5250-type display. As a general rule, I choose to keep to the standard characters for the border. It may seem boring, but if application panels look (and function) the same as system panels, then there is no learning curve for the user community if you mix and match application and system panels. Consistency in the UI leads to quicker training.
Border syntax . . . WDWBORDER([color] [display-attribute] [characters]) . . Character positions . . . top-left-corner top-border top-right-corner left-border right-border bottom-left-corner bottom-border bottom-right-corner