midrange.com code scratchpad |
Name:
Problem with indicators in DDS Window
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
10/19/2007 04:06:41 pm
|
IP:
Logged
|
|
Description:
Setting indicators on in the program doesn't seem to have any effect even though testing in SEU seems to indicate these will work
|
Code:
- A DSPSIZ(24 80 *DS3)
- A CF24(24 'F24-Command')
- A INDARA
- A R RECORD1
-
- A WINDOW(*DFT 10 76)
- A CF04(04 'F4-Prompt')
- A CF05(05 'F5-Reset')
- A CF11(11 'F11-Delete')
- A CF12(12 'F12-Cancel')
- A WDWTITLE((*TEXT 'Absence Comments
- A '))
- A OVERLAY
- A COMBDT 6Y 0B 2 13EDTCDE(Y)
- A COMBDT 6Y 0B 2 13EDTCDE(Y)
- A 21 DSPATR(HI)
- A 21 DSPATR(RI)
- A 31 DSPATR(PR)
- A COMEDT 6Y 0B 2 37EDTCDE(Y)
- A 22 DSPATR(HI)
- A 22 DSPATR(RI)
- A 31 DSPATR(PR)
- A CMTLIN1 75A B 4 1CHECK(LC)
- A 31 DSPATR(PR)
- A CMTLIN2 75A B 5 1CHECK(LC)
- A 31 DSPATR(PR)
- A 2 1'Begin Date:'
- A 2 24'Ending Date:'
- A #$MSG70 69A O 7 1
- A 97 DSPATR(HI)
- A 97 DSPATR(RI)
- A 9 1'Delete Comment - F11'
- A COLOR(TRQ)
- A 9 28'Delete this Comment ?'
- A 30 DSPATR(ND)
- A DELCOM 1A B 9 50
- A 30 DSPATR(ND)
- A R DUMMY ASSUME
- A 1 2' '
-
|
|
|