Pop-up Display
DDS to create pop-up display--without using WINDOW keyword.
Record Lock Pop-up Panel
DDS did not always include record-level keywords to define windows. The WINDOW keyword added a degree of flexibility and ease to coding a pop-up style window to overlay a current display. However, that doesn't mean it cannot be accomplished without the WINDOW keyword. Before it was released, a judicious use of other DDS keywords could perform a similar task.
A********************************************************************
A* DISPLAY NAME - SC0130DF *
A* *
A* FUNCTION - This display shows a pop up screen to *
A* inform the application user of a record lock. *
A* *
A* PROGRAMMER - STEVE CROY *
A********************************************************************
A********************************************************************
A* FILE ATTRIBUTE SECTION *
A* *
A* RSTDSP : *YES *
A* MAXDEV : 1 *
A* WAITRCD : 60 *
A* *
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*
A*%%EC
A DSPSIZ(24 80 *DS3)
A INVITE
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 SC013001
A OVERLAY
A KEEP
A PUTOVR
A ASSUME
A 24 79' '
A OVRATR
A R SC013002
A CLRL(*NO)
A BLINK
A OVERLAY
A ALARM
A 3 21'..................................-
A ..........'
A DSPATR(HI)
A 4 21':'
A DSPATR(HI)
A FMTNAM 8A O 4 24COLOR(BLU)
A 4 33'Record Access Error Screen'
A DSPATR(HI)
A 4 64':'
A DSPATR(HI)
A 5 21': -
A :'
A DSPATR(HI)
A 6 21':'
A DSPATR(HI)
A 6 23'A record is in use by another job -
A on the'
A 6 64':'
A DSPATR(HI)
A 7 21':'
A DSPATR(HI)
A 7 23'system. This denies access to a cr-
A itical'
A 7 64':'
A DSPATR(HI)
A 8 21':'
A DSPATR(HI)
A 8 23'data file your program needs. -
A '
A 8 64':'
A DSPATR(HI)
A 9 21': -
A :'
A DSPATR(HI)
A 10 21':'
A DSPATR(HI)
A 10 23'The job which controls the above f-
A ile: '
A DSPATR(UL)
A 10 64':'
A DSPATR(HI)
A 11 21':'
A DSPATR(HI)
A Z$MSG1 40A O 11 23DSPATR(HI)
A 11 64':'
A DSPATR(HI)
A 12 21':'
A DSPATR(HI)
A Z$MSG2 40A O 12 23DSPATR(HI)
A 12 64':'
A DSPATR(HI)
A 13 21': -
A :'
A DSPATR(HI)
A 14 21':'
A DSPATR(HI)
A 14 23'Program requesting data:'
A ERRPGM 10A O 14 48DSPATR(HI)
A 14 64':'
A DSPATR(HI)
A 15 21':'
A DSPATR(HI)
A 15 23'File name..............:'
A ERRNAM 8A O 15 48DSPATR(HI)
A 15 64':'
A DSPATR(HI)
A 16 21': -
A :'
A DSPATR(HI)
A 17 21':'
A DSPATR(HI)
A 17 23'Press ENTER to attempt to get the -
A record'
A 17 64':'
A DSPATR(HI)
A 18 21':'
A DSPATR(HI)
A 18 23'again. If the problem persists, ca-
A ll the'
A 18 64':'
A DSPATR(HI)
A 19 21':'
A DSPATR(HI)
A 19 23'user that has the record you need -
A to '
A 19 64':'
A DSPATR(HI)
A 20 21':'
A DSPATR(HI)
A 20 23'determine when you can get access.-
A '
A 20 64':'
A DSPATR(HI)
A 21 21': -
A :'
A DSPATR(HI)
A 22 21':'
A DSPATR(HI)
A 50 22 23'F3=Exit and bypass record update. -
A '
A COLOR(BLU)
A N50 22 23'Enter=Retry -
A '
A COLOR(BLU)
A 22 64':'
A DSPATR(HI)
A 23 21':.................................-
A .........:'
A DSPATR(HI)