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

QSPRILSP Print E-mail
User Rating: / 0
PoorBest 
Written by Chamara   
dGetLstSplFID     pr                  extpgm('QSPRILSP')           
d RcvVar                         1    options(*varsize)            
d LenRcvVar                     10i 0 const                        
d FmtRcvVar                      8    const                        
d QUSEC                               likeds(QUSEC)                                                                                

dWait             s              1                                  
                                                                   
 /copy qsysinc/qrpglesrc,qsprilsp                                  
 /copy qsysinc/qrpglesrc,qusec                                     
                                                                   
 /free                                                                                                                               
  QUSBPrv = 0;                                                   
                                                                   
  GetLstSplFID(QSPL0100 :%size(QSPL0100) :'SPRL0100' :QUSEC); 

  dsply ('Last file created is: ' + QSPSN03);                       
  dsply (' for job ' + %trimr(QSPJN00) + '/' +                     
          %trimr(QSPUN00) + '/' + QSPJNBR00);                      
  dsply (' Spool file number is ' + %char(QSPSNBR03)) ' ' Wait;              

  *inlr = *on;                                                     
  return;

 /end-free                                                          

User Comments

Please login or register to add comments

<Previous   Next>