Category : Miscellaneous Language Source Code
Archive   : RPGFRE.ZIP
Filename : TSTOUT.RPG

H*--TSTIN1.RPF -- Test RPG/free input file 1
H*--Note: This does NOT generate a compilable RPG III program
H*--It just generates a file for comparison with TSTOUT.RPG
F*/FILE
FLIBLIST IF E DISK
FBDF810 CF E WORKSTN
F RRN KSFILE SFLREC
I*/INPUT
I DS
I 1 6 ODSDAT
I 1 60SAVDAT
I*/FIRSTCOL 7
I DS
I 1 6 PRMDAT
I*/FIRSTCOL 6
I 1 60SAVSYS
C*/CALC
C*/DEFINE infile custfl
C*/DEFINE tst_ind *in90
CLR 01 02N03F1$$$ ADD F2 R### 50H010290
C 1 DO MAXCUS I
C X IFGT Y
C INKEY REDPECUSTFL 0199
C END
C END
C*--TSTIN2.RPF -- Test RPG/free input file 2
C*--Note: This does NOT generate a compilable RPG III program
C*--It just generates a file for comparison with TSTOUT.RPG
C*/DEFINE true '1'
C*/DEFINE numeric *IN77
C*/DEFINE not_numeric numeric <> true
C Z-ADD0 SFLRRN 40
C*--Check for valid date
C TESTN PRMDAT 77
C *IN77 IFNE '1'
C Z-ADD0 SAVSYS
C END
C*--A two-line statement
C BASE MULT RATE TOTAL
C/EXEC SQL
C+ SELECT *
C+ FROM cust
C+ WHERE custid = inputid
C/END-EXEC
C*/FIX
12345C RETRN
C*/FREE
C B SUB -3 A
C*/DATA
**
Data line