Bryan Dietz--code

 
/********************************************************************/
/*  when was the last IPL??                                         */
/*                           Bryan Dietz  (bdietz@3x.com)           */
/********************************************************************/
     PGM
     DCL VAR(&DATA) TYPE(*CHAR) LEN(150)
     DCL VAR(&BIN) TYPE(*CHAR) LEN(4) VALUE(X'00000096')
     DCL VAR(&CEN) TYPE(*CHAR) LEN(1)
     DCL VAR(&YY) TYPE(*CHAR) LEN(2)
     DCL VAR(&MM) TYPE(*CHAR) LEN(2)
     DCL VAR(ⅅ) TYPE(*CHAR) LEN(2)
     DCL VAR(&HH) TYPE(*CHAR) LEN(2)
     DCL VAR(&M) TYPE(*CHAR) LEN(2)
     DCL VAR(&SS) TYPE(*CHAR) LEN(2)
     DCL VAR(&FMT) TYPE(*CHAR) LEN(8) VALUE('JOBI0400')
             DCL        VAR(&JOB) TYPE(*CHAR) LEN(26) +
                          VALUE('SCPF      QSYS      000000')
     DCL VAR(&JOBI) TYPE(*CHAR) LEN(16)
     CALL PGM(QUSRJOBI) PARM(&DATA &BIN &FMT &JOB &JOBI)
     CHGVAR VAR(&CEN) VALUE(%SST(&DATA 63 1))
     CHGVAR VAR(&YY) VALUE(%SST(&DATA 64 2))
     CHGVAR VAR(&MM) VALUE(%SST(&DATA 66 2))
     CHGVAR VAR(ⅅ) VALUE(%SST(&DATA 68 2))
     CHGVAR VAR(&HH) VALUE(%SST(&DATA 70 2))
     CHGVAR VAR(&M) VALUE(%SST(&DATA 72 2))
     CHGVAR VAR(&SS) VALUE(%SST(&DATA 74 2))
             SNDPGMMSG  MSG('The system was last IPL''d on ' || &MM +
                          || '/' || ⅅ || '/' || &YY || ' at ' || +
                          &HH || ':' || &M || ':' || &SS || '.')
END:
     ENDPGM 

 

  

   


    Sign in for existing members

   

   

  
    

  
     

  
      
Continue Reading This Article
  
      
Enjoy this article as well as all of our content, including E-Guides, news, tips and more.
  
     

     

  
      

       Step 2 of 2:
      
  
      

	
       

  
      

     
     

 
      
 
       

        
        

         

          
You forgot to provide an Email Address.
          
This email address doesn’t appear to be valid.
          
This email address is already registered. Please login.
          
You have exceeded the maximum character limit.
          
Please provide a Corporate E-mail Address.
         
        

         

          

           
I agree to TechTarget’s Terms of Use, Privacy Policy, and the transfer of my information to the United States for processing to provide me with relevant information as described in our Privacy Policy.
          
         
         

          
Please check the box if you want to proceed.
         
        

         

          

           
I agree to my information being processed by TechTarget and its Partners to contact me via phone, email, or other means regarding information relevant to my professional interests. I may unsubscribe at any time.
          
         
         

          
Please check the box if you want to proceed.
         
        
        
        
        
        

        

         
        


        
        
By submitting my Email address I confirm that I have read and accepted the Terms of Use and Declaration of Consent.