I saw a post about a popup calendar a week or so ago. I had one, but wanted to convert it to free format before I posted it.
Some of the features of this pop up calendar are:
CalendarD Display File
I will put the source code for the program in the next message due to space limitations.
Some of the features of this pop up calendar are:
- It will auto-detect the current screen mode and display correctly in either 24/80 or 27/132 modes
- You can use a mouse to select a date, or to change the month / year of the calendar
- Without a mouse, you can use the rollup / rolldown keys to change the month, use the tab keys to position on a date, and use the enter key to select a date.
- You can pass a starting date for the calendar
- The calendar will auto-position to the passed date in the calendar
- The calendar will highlight the current date if it is displayed on the calendar
- The calendar can return the selected date
- You can pass the calendar window starting positions (line number, column number)
CalendarD Display File
Code:
A*%%TS SD 20090401 202532 QPGMR REL-V6R1M0 5761-WDS A*%%EC A DSPSIZ(24 80 *DS3 - A 27 132 *DS4) A CHGINPDFT A INDARA A ENTFLDATR A* (*DSPATR RI)) A R POPUP A*%%TS SD 20090401 202532 QPGMR REL-V6R1M0 5761-WDS A CF03(03 'Exit') A PAGEUP(90) A PAGEDOWN(91) A KEEP A RTNCSRLOC(&CSRRCD &CSRFLD &CSRPOS) A 20 DSPMOD(*DS4) A UNLOCK A OVERLAY A *DS3 WINDOW(&WINDOWLINE &WINDOWPOS 9 22 - A *NOMSGLIN) A *DS4 WINDOW(&WINDOWLINE &WINDOWPOS 9 22 - A *NOMSGLIN) A WDWTITLE((*TEXT ' F3-Cancel ') *BOT- A TOM) A MOUBTN(*ULP ENTER) A ATTR01 1A P A ATTR02 1A P A ATTR03 1A P A ATTR04 1A P A ATTR05 1A P A ATTR06 1A P A ATTR07 1A P A ATTR08 1A P A ATTR09 1A P A ATTR10 1A P A ATTR11 1A P A ATTR12 1A P A ATTR13 1A P A ATTR14 1A P A ATTR15 1A P A ATTR16 1A P A ATTR17 1A P A ATTR18 1A P A ATTR19 1A P A ATTR20 1A P A ATTR21 1A P A ATTR22 1A P A ATTR23 1A P A ATTR24 1A P A ATTR25 1A P A ATTR26 1A P A ATTR27 1A P A ATTR28 1A P A ATTR29 1A P A ATTR30 1A P A ATTR31 1A P A ATTR32 1A P A ATTR33 1A P A ATTR34 1A P A ATTR35 1A P A ATTR36 1A P A ATTR37 1A P A ATTR38 1A P A ATTR39 1A P A ATTR40 1A P A ATTR41 1A P A ATTR42 1A P A CSRRCD 10A H A CSRFLD 10A H A WINDOWLINE 2S 0P A WINDOWPOS 3S 0P A CSRPOS 4S 0H A ROW 3S 0H A COL 3S 0H A YEARHDG 4S 0O 1 17DSPATR(HI) A 3 2'Su' A COLOR(BLU) A DSPATR(UL) A 3 5'Mo' A COLOR(BLU) A DSPATR(UL) A 3 8'Tu' A COLOR(BLU) A DSPATR(UL) A 3 11'We' A COLOR(BLU) A DSPATR(UL) A 3 14'Th' A COLOR(BLU) A DSPATR(UL) A 3 17'Fr' A COLOR(BLU) A DSPATR(UL) A 3 20'Sa' A COLOR(BLU) A DSPATR(UL) A CALBLOCK01 2A B 4 2DSPATR(&ATTR01) A 31 DSPATR(PC) A CALBLOCK02 2A B 4 5DSPATR(&ATTR02) A 32 DSPATR(PC) A CALBLOCK03 2A B 4 8DSPATR(&ATTR03) A 33 DSPATR(PC) A CALBLOCK04 2A B 4 11DSPATR(&ATTR04) A 34 DSPATR(PC) A CALBLOCK05 2A B 4 14DSPATR(&ATTR05) A 35 DSPATR(PC) A CALBLOCK06 2A B 4 17DSPATR(&ATTR06) A 36 DSPATR(PC) A CALBLOCK07 2A B 4 20DSPATR(&ATTR07) A 37 DSPATR(PC) A CALBLOCK08 2A B 5 2DSPATR(&ATTR08) A 38 DSPATR(PC) A CALBLOCK09 2A B 5 5DSPATR(&ATTR09) A 39 DSPATR(PC) A CALBLOCK10 2A B 5 8DSPATR(&ATTR10) A 40 DSPATR(PC) A CALBLOCK11 2A B 5 11DSPATR(&ATTR11) A 41 DSPATR(PC) A CALBLOCK12 2A B 5 14DSPATR(&ATTR12) A 42 DSPATR(PC) A CALBLOCK13 2A B 5 17DSPATR(&ATTR13) A 43 DSPATR(PC) A CALBLOCK14 2A B 5 20DSPATR(&ATTR14) A 44 DSPATR(PC) A CALBLOCK15 2A B 6 2DSPATR(&ATTR15) A 45 DSPATR(PC) A CALBLOCK16 2A B 6 5DSPATR(&ATTR16) A 46 DSPATR(PC) A CALBLOCK17 2A B 6 8DSPATR(&ATTR17) A 47 DSPATR(PC) A CALBLOCK18 2A B 6 11DSPATR(&ATTR18) A 48 DSPATR(PC) A CALBLOCK19 2A B 6 14DSPATR(&ATTR19) A 49 DSPATR(PC) A CALBLOCK20 2A B 6 17DSPATR(&ATTR20) A 50 DSPATR(PC) A CALBLOCK21 2A B 6 20DSPATR(&ATTR21) A 51 DSPATR(PC) A CALBLOCK22 2A B 7 2DSPATR(&ATTR22) A 52 DSPATR(PC) A CALBLOCK23 2A B 7 5DSPATR(&ATTR23) A 53 DSPATR(PC) A CALBLOCK24 2A B 7 8DSPATR(&ATTR24) A 54 DSPATR(PC) A CALBLOCK25 2A B 7 11DSPATR(&ATTR25) A 55 DSPATR(PC) A CALBLOCK26 2A B 7 14DSPATR(&ATTR26) A 56 DSPATR(PC) A CALBLOCK27 2A B 7 17DSPATR(&ATTR27) A 57 DSPATR(PC) A CALBLOCK28 2A B 7 20DSPATR(&ATTR28) A 58 DSPATR(PC) A CALBLOCK29 2A B 8 2DSPATR(&ATTR29) A 59 DSPATR(PC) A CALBLOCK30 2A B 8 5DSPATR(&ATTR30) A 60 DSPATR(PC) A CALBLOCK31 2A B 8 8DSPATR(&ATTR31) A 61 DSPATR(PC) A CALBLOCK32 2A B 8 11DSPATR(&ATTR32) A 62 DSPATR(PC) A CALBLOCK33 2A B 8 14DSPATR(&ATTR33) A 63 DSPATR(PC) A CALBLOCK34 2A B 8 17DSPATR(&ATTR34) A 64 DSPATR(PC) A CALBLOCK35 2A B 8 20DSPATR(&ATTR35) A 65 DSPATR(PC) A CALBLOCK36 2A B 9 2DSPATR(&ATTR36) A 66 DSPATR(PC) A CALBLOCK37 2A B 9 5DSPATR(&ATTR37) A 67 DSPATR(PC) A CALBLOCK38 2A B 9 8DSPATR(&ATTR38) A 68 DSPATR(PC) A CALBLOCK39 2A B 9 11DSPATR(&ATTR39) A 69 DSPATR(PC) A CALBLOCK40 2A B 9 14DSPATR(&ATTR40) A 70 DSPATR(PC) A CALBLOCK41 2A B 9 17DSPATR(&ATTR41) A 71 DSPATR(PC) A CALBLOCK42 2A B 9 20DSPATR(&ATTR42) A 72 DSPATR(PC) A PMONTH 1A O 1 1COLOR(WHT) A NMONTH 1A O 1 13COLOR(WHT) A MONTHHDG 9A O 1 3COLOR(WHT) A PYEAR 1A O 1 15COLOR(WHT) A NYEAR 1A O 1 22COLOR(WHT) A R ASSUME A KEEP A ASSUME A 1 3' '
Comment