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:
- DDS for subfile and window:
- JEY01A R FRTCMD
- JEY01A*%%TS SD 20140411 163540 VAIJY REL-V6R1M0 5761-WDS
- JEY01A DSPMOD(*DS4)
- JEY01A *DS4 WINDOW(11 40 11 71)
- JEY01A *DS3 WINDOW(10 9 10 50)
- JEY01A WDWBORDER((*COLOR RED) (*DSPATR RI)-
- JEY01A (*CHAR ' '))
- JEY01A OVERLAY
- JEY01A 9 2'F12=Previous'
- JEY01A COLOR(BLU)
- JEY01A FRTMSG 69 O 10 2COLOR(RED)
- JEY01A R FRTSFL SFL
- JEY01A*%%TS SD 20140414 122216 VAIJY REL-V6R1M0 5761-WDS
- JEY01A $OUTPUT 44I B 4 1CHGINPDFT
- JEY01A DSPATR(PR)
- JEY01A DSPATR(PC)
- JEY01A ENTFLDATR((*COLOR TRQ) (*DSPATR RI))
- JEY01A *DS3 4 4
- JEY01A $FRTCUST R O 4 47REFFLD(##FLAG)
- JEY01A COLOR(YLW)
- JEY01A N71 DSPATR(ND)
- JEY01A $FRTERR 21 4 50COLOR(RED)
- JEY02A S_RE@SVIA R H REFFLD(##SVIA)
- JEY02A OVERNIGHT R H REFFLD(##FLAG)
- JEY02A ASSVCTXT R H REFFLD(##DESC_30)
- JEY01A FREIGHT R H REFFLD(##BAL)
- JEY01A R FRTCTL SFLCTL(FRTSFL)
- JEY01A*%%TS SD 20140414 122216 VAIJY REL-V6R1M0 5761-WDS
- JEY01A CF12
- JEY01A***** DSPMOD(*DS4)
- JEY01A OVERLAY
- JEY01A SFLCSRRRN(&CURLOC)
- JEY01A N50 SFLDSP
- JEY01A N50 SFLDSPCTL
- JEY01A 50 SFLCLR
- JEY01A *DS4 SFLSIZ(0040)
- JEY01A *DS3 SFLSIZ(0040)
- JEY01A *DS4 SFLPAG(0004)
- JEY01A *DS3 SFLPAG(0004)
- JEY01A *DS4 WINDOW(FRTCMD)
- JEY01A *DS3 WINDOW(FRTCMD)
- JEY01A N50 SFLEND(*MORE)
- JEY01A FRT_BEGIN 4S 0H SFLRCDNBR(CURSOR)
- JEY01A CURLOC 5 0H
- JEY01A 1 1'COETOO-FRTCTL'
- JEY01A COLOR(BLU)
- JEY01A 1 17'Select Freight for Order'
- JEY01A COLOR(WHT)
- JEY01A 1 57'System 2000'
- JEY01A COLOR(BLU)
- JEY01A 3 1'Ship Via -
- JEY01A Freight Dft'
- JEY01A COLOR(WHT)
- JEY01A DSPATR(UL)
-
-
|
|
|