-- TSTIN1.RPF -- Test RPG/free input file 1

-- Note: This does NOT generate a compilable RPG III program
--       It just generates a file for comparison with TSTOUT.RPG

/FILE
FLIBLIST IF  E                    DISK 
FBDF810  CF  E                    WORKSTN 
F                                        RRN   KSFILE SFLREC 

/INPUT
I            DS 
I                                        1   6 ODSDAT 
I                                        1   60SAVDAT

/FIRSTCOL 7 
            DS 
                                        1   6 PRMDAT 
/FIRSTCOL 6 
I                                        1   60SAVSYS 

/calc

/DEFINE infile  custfl
/DEFINE tst_ind	*in90

lr() cond(01 *in02 *inn03) add f1$$$ f2 r### len(5 0) h() +
	pos(01) neg(*in02) zer(tst_ind) 

FOR i = 1 maxcus
	IF	x > y
		readpe	inkey	infile	ERR(*in01) BOF(99)	
	ENDIF
ENDFOR