midrange.com code scratchpad
Name:
SFLRCDNBR using a window
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
06/06/2014 06:20:42 pm
IP:
Logged
Description:
Having an issue using SFLRCDNBR(CURSOR) on a subfile that is displayed in a window.
The SLFRCDNBR field is set to the record that i want the cursor positioned to when I display the subfile, but it is always displayed with the cursor on line 1
Code:
  1. DDS for subfile and window:
  2. JEY01A          R FRTCMD
  3. JEY01A*%%TS  SD  20140411  163540  VAIJY       REL-V6R1M0  5761-WDS
  4. JEY01A                                      DSPMOD(*DS4)
  5. JEY01A  *DS4                                WINDOW(11 40 11 71)
  6. JEY01A  *DS3                                WINDOW(10 9 10 50)
  7. JEY01A                                      WDWBORDER((*COLOR RED) (*DSPATR RI)-
  8. JEY01A                                       (*CHAR '        '))
  9. JEY01A                                      OVERLAY
  10. JEY01A                                  9  2'F12=Previous'
  11. JEY01A                                      COLOR(BLU)
  12. JEY01A            FRTMSG        69   O 10  2COLOR(RED)
  13. JEY01A          R FRTSFL                    SFL
  14. JEY01A*%%TS  SD  20140414  122216  VAIJY       REL-V6R1M0  5761-WDS
  15. JEY01A            $OUTPUT       44I  B  4  1CHGINPDFT
  16. JEY01A                                      DSPATR(PR)
  17. JEY01A                                      DSPATR(PC)
  18. JEY01A                                      ENTFLDATR((*COLOR TRQ) (*DSPATR RI))
  19. JEY01A  *DS3                            4  4
  20. JEY01A            $FRTCUST  R        O  4 47REFFLD(##FLAG)
  21. JEY01A                                      COLOR(YLW)
  22. JEY01A N71                                  DSPATR(ND)
  23. JEY01A            $FRTERR       21      4 50COLOR(RED)
  24. JEY02A            S_RE@SVIA R        H      REFFLD(##SVIA)
  25. JEY02A            OVERNIGHT R        H      REFFLD(##FLAG)
  26. JEY02A            ASSVCTXT  R        H      REFFLD(##DESC_30)
  27. JEY01A            FREIGHT   R        H      REFFLD(##BAL)
  28. JEY01A          R FRTCTL                    SFLCTL(FRTSFL)
  29. JEY01A*%%TS  SD  20140414  122216  VAIJY       REL-V6R1M0  5761-WDS
  30. JEY01A                                      CF12
  31. JEY01A*****                                 DSPMOD(*DS4)
  32. JEY01A                                      OVERLAY
  33. JEY01A                                      SFLCSRRRN(&CURLOC)
  34. JEY01A N50                                  SFLDSP
  35. JEY01A N50                                  SFLDSPCTL
  36. JEY01A  50                                  SFLCLR
  37. JEY01A  *DS4                                SFLSIZ(0040)
  38. JEY01A  *DS3                                SFLSIZ(0040)
  39. JEY01A  *DS4                                SFLPAG(0004)
  40. JEY01A  *DS3                                SFLPAG(0004)
  41. JEY01A  *DS4                                WINDOW(FRTCMD)
  42. JEY01A  *DS3                                WINDOW(FRTCMD)
  43. JEY01A N50                                  SFLEND(*MORE)
  44. JEY01A            FRT_BEGIN      4S 0H      SFLRCDNBR(CURSOR)
  45. JEY01A            CURLOC         5  0H
  46. JEY01A                                  1  1'COETOO-FRTCTL'
  47. JEY01A                                      COLOR(BLU)
  48. JEY01A                                  1 17'Select Freight for Order'
  49. JEY01A                                      COLOR(WHT)
  50. JEY01A                                  1 57'System 2000'
  51. JEY01A                                      COLOR(BLU)
  52. JEY01A                                  3  1'Ship Via                          -
  53. JEY01A                                         Freight Dft'
  54. JEY01A                                      COLOR(WHT)
  55. JEY01A                                      DSPATR(UL)
  56.  
  57.  
© 2004-2019 by midrange.com generated in 0.006s valid xhtml & css