PARM P1='@' P2='!hpuser' P3=0                                           
COMMENT Spoolfile utility - Graco Children's Products                   
COMMENT Takes first spf named !P1 and makes variable SPFID = spf#, and  
COMMENT  subsequent spf's will be in variables SPFID# [#=1 thru end].   
COMMENT  If no matches are found, SPFID will contain 'None'.            
COMMENT Mod 950907: Original code                                 -JMG  
COMMENT Mod 960724: Add multiple spfid logic                      -JMG  
COMMENT Mod 970711: Add P3 offset for SPF's < offset days old     -JMG  
if bound(spfid)                                                         
  DELETEVAR SPFID@                                                      
endif                                                                   
if '!P2' = 'ALL'                                                        
  setvar spfidOWNER ''                                                  
else                                                                    
  setvar spfidOWNER 'AND OWNER=!P2.@'                                   
endif                                                                   
if '!P3' <> '0'                                                         
  DIFFDAYS ,!P3                                                         
  setvar spfidOWNER '!spfidOWNER AND DATE < !DIFFDAYF'                  
endif                                                                   
BUILD SPFIDTMP;REC=-80,,F,ASCII;TEMP;MSG                                
LISTSPF O@;SELEQ=[FILEDES=!P1 !spfidOWNER]  > SPFIDTMP                  
INPUT SPFID < SPFIDTMP                                                  
INPUT SPFID < SPFIDTMP                                                  
INPUT SPFID < SPFIDTMP                                                  
INPUT SPFID < SPFIDTMP                                                  
SETVAR SPFID RTRIM(STR("!SPFID",3,8))                                   
SETVAR SPFID0 '!SPFID'                                                  
SETVAR SPFIDKT 0                                                        
while numeric(spfid!spfidkt) and spfidkt < 100                          
  setvar spfidkt spfidkt + 1                                            
  input spfidstr < spfidtmp                                             
  setvar spfid!spfidkt rtrim(str("!spfidstr",3,8))                      
endwhile                                                                
PURGE SPFIDTMP,TEMP                                                     
if spfidkt = 0                                                         
  deletevar spfid@                                                      
  setvar spfid 'None'                                                   
  return                                                                
endif                                                                   
deletevar spfid0, spfid!spfidkt, spfidKT, spfidSTR, spfidOWNER