Bryan Dietz--code

By Bryan Dietz 01 Jul 2002 |

Digg This!     StumbleUpon     Del.icio.us

 
/********************************************************************/
/*  when was the last IPL??                                         */
/*                           Bryan Dietz  (bdietz ((Content component not found.)) x.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(&DD) 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(&DD) 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 +
                          || '/' || &DD || '/' || &YY || ' at ' || +
                          &HH || ':' || &M || ':' || &SS || '.')
END:
     ENDPGM 
 
 
 

			
			

	 
	 
	
		   

 



 

   
	  
	
 
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	  
	
		
		
	
			
		 

			

				
			
		
	
	 
	
		 
		 
		         

Digg This!
		   
      
		  StumbleUpon
		 
     

 Del.icio.us

       
			
	 
	 
	 

  
	 
	
		

		
	 
	
	
	

	

	  
	 
	  
	
	
		

	
	    	
	 
	   
	
	
	 
		
		
		
			 

		

			

				

				

				

		
				

				
RELATED RESOURCES


						

						
2020software.com, trial software downloads for 
						accounting software, ERP software, CRM software and business software systems
						
					
						
Search Bitpipe.com for 
						the latest white papers and 
						business webcasts

						

						Whatis.com, the online computer dictionary