midrange.com code scratchpad
Name:
Michael Schutte
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
08/02/2012 07:25:27 pm
IP:
Logged
Description:
Information to help others to help me.
Code:
  1. A          R CTL01                     SFLCTL(SFL01)             
  2. A                                      SFLSIZ(0012)              
  3. A                                      SFLPAG(0004)              
  4. A                                      CF03                      
  5. A                                      CF05                      
  6. A                                      CF12                      
  7. A  34                                  PAGEUP(81)                
  8. A                                      HOME(27)                  
  9. A N33                                  PAGEDOWN(83)              
  10. A                                      OVERLAY                   
  11. A                                      SFLCSRRRN(&LOCATE)        
  12. A                                      SFLMODE(&FOLD)            
  13. A  30                                  SFLDSP                    
  14. A  31                                  SFLDSPCTL                 
  15. A  32                                  SFLCLR                    
  16. A  88                                  SFLDROP(CF11)             
  17. A N88                                  SFLFOLD(CF11)     
  18. A            FOLD           1A  H                        
  19. A            RRN            4S 0H      SFLRCDNBR(CURSOR) 
  20. A            LOCATE         5S 0H                        
  21. ... 
  22.  
  23. FMMTWW001D CF   E             WORKSTN INDDS(Indicators) 
  24. F                                     INFDS(Information)
  25. F                                     SFILE(SFL01:RRN)  
  26. ... 
  27.  
  28. D Indicators      DS                                           
  29. D  AnyErrors                      N   OverLay(Indicators:99)   
  30. D  SubfileFold                    N   OverLay(Indicators:88)   
  31. D  HomeKey                        N   OverLay(Indicators:27)   
  32. D  AddingRec                      N   OverLay(Indicators:57)   
  33. D  ChangeRec                      N   OverLay(Indicators:58)   
  34. D  DeleteRec                      N   OverLay(Indicators:59)   
  35. D  SubFDisplay                    N   OverLay(Indicators:30)   
  36. D  SubFDisplayControl...                                       
  37. D                                 N   OverLay(Indicators:31)   
  38. D  SubFClear                      N   OverLay(Indicators:32)   
  39. D  SubFEnd                        N   OverLay(Indicators:33)   
  40. D  SubFPrev                       N   OverLay(Indicators:34)   
  41.  
  42. DoW KeyPressed <> F03_Key;                                           
  43.     If Refresh = *On;                                                
  44.        ExSr SubfileLoad#;                                            
  45.     EndIf;                                                           
  46.     ExSr CheckPaging#;                                               
  47.     Write CMD01;                                                     
  48.     // should the subfile be shown?                                  
  49.     SubFDisplay = S1MAX > 0;                                         
  50.     If not SubFDisplay;                                              
  51.        // If not then give message saying not records exist.         
  52.        Write EMPTY;                                                  
  53.     EndIf;                                                           
  54.     RRN = PositionSFRRN;                                             
  55.     SubfileFold = Fold = '1';                                        
  56.     HomeKey = Save_homeKey;                                          
  57.     ExFmt CTL01;                               
  58.     Save_HomeKey = HomeKey;                    
  59.     Reset Indicators;                          
  60.     Refresh = *Off;                            
  61.     Clear ErrMsg;                              
  62.     PositionSFRRN = 1;                         
  63.     If KeyPressed = F03_Key;                   
  64.        Leave;                                  
  65.     ElseIf KeyPressed = F12_Key;               
  66.        Leave;                                  
  67.     ElseIf KeyPressed = F05_Key;               
  68.        Chain 1 SFL01;                          
  69.        If not %Found();                        
  70.           SetLL *End MMTLOADP;                 
  71.        Else;                                   
  72.           SetGT (SFLOAD) MMTLOADP;             
  73.        EndIf;                                  
  74.        Refresh = *On;                          
  75.     ElseIf KeyPressed = PageUp;                
  76.        ExSr PageUp#;               
  77.     ElseIf KeyPressed = PageDown;  
  78.        Refresh = *On;              
  79.     ElseIf KeyPressed = EnterKey;  
  80.        ExSr CheckS1Options#;       
  81.        If SCLOAD <> 0;             
  82.           SetGT (SCLOAD) MMTLOADP; 
  83.           SCLOAD = 0;              
  84.           Refresh = *On;           
  85.        EndIf;                      
  86.     EndIf;                         
  87. EndDo; 
© 2004-2019 by midrange.com generated in 0.007s valid xhtml & css