RPGIV @ Work

A unique site for RPG and System i Lovers

Welcome!

Hi, this site will provide all what you need in System i and RPG developments.

My Name is Chamara Withanachchi, System i Expert and RPG Developer. And in the field for last 11 years.

I hope you will find lot of valuable information from this site

ASP % Monitor Print E-mail
User Rating: / 4
PoorBest 
Written by Chamara Withanachchi   
     D Inf_Len         S              4B 0                     
                                                               
      * API Error Data Structure                               
     D API_Err         DS                                      
     D  ErrBytes               1      4b 0                     
     D  ErrBytesAva            5      8b 0                     
     D  Exception              9     15                        
     D  Reserved              16     16                        
     D  Data                  17    271                        
                                                               
     D Fmt_002         DS           256                        
     D  F002DateTime                  8    overlay(Fmt_002:9)  
     D  F002System                    8    overlay(Fmt_002:17) 
     D  F002ElapTime          25     30                        
     D  RstStateFlg           31     31                        
     D  Res_002               32     32                        
     D  PCProcUnit            33     36b 0                     
     D  JobsInSys             37     40b 0                     
     D  PCPermAddr            41     44b 0                     
     D  PCTempAddr            45     48b 0                     
     D  SystemASP             49     52b 0            
     D  PCAsp                 53     56b 0            
     D  TotAuxStg             57     60b 0            
     D  CurUnpStg             61     64b 0            
     D  MaxUnpStg             65     68b 0            
                                                      
     D Store_Data      s            256    dim(4000)  
     D StartPos        s             15  0 inz(0)     

      /free  

         INF_LEN = 256;       
         Format = 'SSTS0200'; 
      /End-Free                                                      
                                                                     
                                                                     
      * Call the API to retrieve the DSPSYSSTS info for this SYS:    
     C                   call      'QWCRSSTS'                        
     C                   parm                    Sys_Inf        2048 
     C                   parm                    INF_Len             
     C                   parm      Format        Api_Format        8 
     C                   parm      '*NO'         Stat_Reset       10 
     C                   parm                    Api_Err             
                                                                     
      /free                                                          
                                                                     
       Fmt_002 = Sys_Inf;                                            
       aspPer = PCasp / 10000;                                       
       If aspPer > 80;                                               
          crtiStorage = *On;                                         
          Exsr SB_PrepSMS;                                           
          MSG = 'System is in Critical Storage Limit';               
          Write SMSMSGR;                                             
          If %Open(SMSMSG00);       
             Close SMSMSG00;        
          EndIf;                    
                                    
          sndSms(W1Program);        
       EndIf;                       
                                    
       *INLR = *ON;                 


User Comments

Please login or register to add comments

<Previous   Next>