/* REXX */                                                                      
/*                                       */                                     
/* AUTHOR: Mark Zelden                   */                                     
/*                                       */                                     
/*********************************************************************/         
/* One line IPL information using the IPLINFO rexx function.         */         
/*                                                                   */         
/* This exec is called by the IPLHIST started task. The most current */         
/* IPL information is written to the top of the HISTOUT file.        */         
/*                                                                   */         
/* Sample IPLHIST PROC:                                              */         
/*                                                                   */         
/*   //IPLHIST  PROC                                                 */         
/*   //IPLHIST EXEC PGM=IKJEFT01,REGION=4M,PARM='%IPLHIST'           */         
/*   //SYSPROC  DD  DSN=lib.with.iplinfo.and.iplhist,DISP=SHR        */         
/*   //SYSOUT   DD  SYSOUT=*                                         */         
/*   //SYSTSPRT DD  SYSOUT=*                                         */         
/*   //SYSTSIN  DD  DUMMY                                            */         
/*   //HISTIN   DD  DSN=SYS1.IPL.HISTORY($&SYSNAME.),DISP=SHR        */         
/*   //HISTOUT  DD  DSN=SYS1.IPL.HISTORY($&SYSNAME.),DISP=SHR        */         
/*                                                                   */         
/*********************************************************************/         
IPL_SUM  = Iplinfo(var,ipldate,ipltime,iplvol,ipladdr,iplparm)                  
parse var IPL_SUM ipldate ipltime iplvol ipladdr iplparm                        
                                                                                
queue 'Date:'ipldate ' Time:'ipltime ' Vol:'iplvol ,                            
    ' Load addr:'ipladdr ' LOADPARM:'iplparm                                    
"EXECIO * DISKR HISTIN (STEM INREC. FINIS"                                      
Do I = 1 to INREC.0                                                             
  queue inrec.i                                                                 
End                                                                             
queue ''                                                                        
"EXECIO * DISKW HISTOUT (FINIS"