Push button field (PSHBTNFLD)and calendar tool

[Guest.Visitor]

We use an old calendar "tip" from Midrange (CAL001D is the DSPF, CAL001R is the RPGLE). This tool permits us to introduce a date (any format), then to see the appropriate calendar month (with pagination), and normally, when we click on a certain day to pass parameters to another program. Everything works fine, except that we should normally have the cursor positioned on the day we introduced in the first screen. We debug the program and every field is ok (particularly field PUSHBTNFLD and his associated parameters). here below the beginning of this display file : A DSPSIZ(24 80 *DS3) A PRINT A R CALENDAR A WINDOW(10 2 10 47) A CF12 A CF03 A ROLLUP A ROLLDOWN A 2 1'Sun Mon Tue Wed Thu - A Fri Sat ' A DSPATR(HI UL) A MTHYR 27A O 1 10DSPATR(HI) A DYSLT 2Y 0B 3 1PSHBTNFLD(*RSTCSR (*NUMCOL 7) - A (*GUTTER 1)) A CHCAVAIL((*COLOR RED)) A PSHBTNCHC(1 &D1) A CHCCTL(1 &O1) A PSHBTNCHC(2 &D2) A CHCCTL(2 &O2) here below example (in french, sorry) of the screen we receive : A quelle date .......?: 30/11/2000 (JJ/MM/AAAA) Novembre 2000 Dim Lun Mar Mer Jeu Ven Sam 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 ENTER : jour choisi | Roll: Pagination sur mois note : I wonder how make other people to align their screen copy ... Because we introduced November, the 30th, cursor would normally be positioned on day Thursday 30 but stay on Wednesday 1, and we have to move it manually to 30 We think the problem is coming from a "bug" with PSHBTNFLD or a bad description in DDS book. Does anyone ever had the problem before and eventually knows the solution (I'm pecially awaiting response from Barbara Morris but don't have his e_mail address) thanks in advance, René

[G.Gaunt]

Perhaps CSRLOC will force your initial cursor onto a specific button. Write some arithmetic to calculate the CSRLOC values, for example, November 30 is really button 33 (November 1 was a Wednesday) so button 33 is button-row 5, button-column 5. Multiply by the byte width of a button-column and add in the calendar's upper left coordinates to get the absolute CSRLOC values.