;
; Input:
; INREPRT - 0 - No report
; 1 - Report
; INSELTT -Array of selected files
PARSE(INPTT,INROU,INREPRT)
;begin data collection for a transaction type
LOOP(INUT,INREPRT,INDELETE)
;
; Input:
; INUT - Routine to run and Transaction file name
; INREPRT - 0 - No report
; 1 - Report
; INDELETE - If 0/not passed/string then delete
; IBxxxxW,IBxxxxnn programs
; else do not delete programs