DARTS : Jobsets (CSRPT) : Type and Sources

Begin-Procedure Select-Parameters
Let $input_date = datenow()
Let $input_term1 = '0610'
Let $input_term2 = '9999'	
begin-select
R2.AS_OF_DATE,
R2.UM_BEGIN_TERM,
R2.UM_END_TERM,
R2.FLAG1,
R2.FLAG2,
R2.FLAG3
  if &R2.FLAG1 = 'N' 
  	 Let $input_date = &R2.AS_OF_DATE
  end-if
  Let $Input_Term1 = &R2.UM_BEGIN_TERM
  Let $Input_Term2 = &R2.UM_END_TERM
  Let $input_Flag2 = &R2.FLAG2
  Let $Input_Flag1 = &R2.FLAG1
  Let $Input_Flag3 = &R2.FLAG3
FROM PS_UM_RUN_UMPROEXT R2
WHERE R2.OPRID = $prcs_oprid
  AND R2.RUN_CNTL_ID = $prcs_run_cntl_id
end-select
show $input_date ' ' $Input_Flag1 ' ' $input_Flag2 ' ' $Input_Flag3
if &R2.FLAG3 = 'N' and $input_term1 >= '0000' and $input_term2 > $input_term1
show 'Using from SP Term1: ' $Input_Term1 ' Term2: ' $Input_Term2
else
Let $compare = '0'||to_char(  to_number(substr($input_date,10,2)) - 1   )
Let $compare = substr($compare,length($compare)-1,2)
show 'AUTO: ' $input_date '--> ' $compare
begin-select 
VIK.STRM, 
VIK.DESCR, 
VIK.DESCRSHORT 
   show &VIK.STRM '--' &VIK.DESCR '--' &VIK.DESCRSHORT
   Let $input_term1 = &VIK.STRM
   Let $input_term2 = '9999'
from ps_term_val_tbl VIK
where  substr(VIK.STRM,1,2) = $compare 
and substr(VIK.STRM,3,1) = decode(substr(to_char($input_date),4,3),'JAN','2','FEB','2','MAR','2','APR','2','MAY','2',
'JUN','3','JUL','3','AUG','3','SEP','1','OCT','1','NOV','1','DEC','1','1')
end-select
show 'Automatic Term1: ' $Input_Term1 ' to ' $Input_Term2
end-if

End-Procedure