midrange.com code scratchpad
Name:
Problem with indicators in DDS Window
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
10/19/2007 04:41:28 pm
IP:
Logged
Description:
Code - indicators ignored when used in the RPGLE
Code:
  1. A*%%TS  SD  20071019  094548  PETE        REL-V5R3M0  5722-WDS     
  2. A*%%EC                                                             
  3. A                                      DSPSIZ(24 80 *DS3)          
  4. A                                      CF24(24 'F24-Command')      
  5. A                                      INDARA                      
  6. A          R RECORD1                                               
  7. A*%%TS  SD  20071019  094548  PETE        REL-V5R3M0  5722-WDS     
  8. A                                      WINDOW(*DFT 10 76)          
  9. A                                      CF04(04 'F4-Prompt')        
  10. A                                      CF05(05 'F5-Reset')         
  11. A                                      CF11(11 'F11-Delete')       
  12. A                                      CF12(12 'F12-Cancel')       
  13. A                                      WDWTITLE((*TEXT 'Absence Comment 
  14. A                                      '))                         
  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' '             
© 2004-2019 by midrange.com generated in 0.007s valid xhtml & css