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:
  1. A                                      DSPSIZ(24 80 *DS3)         
  2. A                                      CF24(24 'F24-Command')     
  3. A                                      INDARA                     
  4. A          R RECORD1                                              
  5.  
  6. A                                      WINDOW(*DFT 10 76)         
  7. A                                      CF04(04 'F4-Prompt')       
  8. A                                      CF05(05 'F5-Reset')        
  9. A                                      CF11(11 'F11-Delete')      
  10. A                                      CF12(12 'F12-Cancel')      
  11. A                                      WDWTITLE((*TEXT 'Absence Comments
  12. A                                      '))                        
  13. A                                      OVERLAY                    
  14. A            COMBDT         6Y 0B  2 13EDTCDE(Y)                  
  15. A            COMBDT         6Y 0B  2 13EDTCDE(Y)
  16. A  21                                  DSPATR(HI)
  17. A  21                                  DSPATR(RI)
  18. A  31                                  DSPATR(PR)
  19. A            COMEDT         6Y 0B  2 37EDTCDE(Y)
  20. A  22                                  DSPATR(HI)
  21. A  22                                  DSPATR(RI)
  22. A  31                                  DSPATR(PR)
  23. A            CMTLIN1       75A  B  4  1CHECK(LC)
  24. A  31                                  DSPATR(PR)
  25. A            CMTLIN2       75A  B  5  1CHECK(LC)
  26. A  31                                  DSPATR(PR)
  27. A                                  2  1'Begin Date:'          
  28. A                                  2 24'Ending Date:'         
  29. A            #$MSG70       69A  O  7  1                       
  30. A  97                                  DSPATR(HI)             
  31. A  97                                  DSPATR(RI)             
  32. A                                  9  1'Delete Comment - F11' 
  33. A                                      COLOR(TRQ)             
  34. A                                  9 28'Delete this Comment ?'
  35. A  30                                  DSPATR(ND)             
  36. A            DELCOM         1A  B  9 50                       
  37. A  30                                  DSPATR(ND)             
  38. A          R DUMMY                     ASSUME                 
  39. A                                  1  2' '                    
  40.  
© 2004-2019 by midrange.com generated in 0.006s valid xhtml & css