home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / 3x400 / rpgfree.lzh / TSTOUT.RPG < prev   
Text File  |  1990-04-17  |  2KB  |  54 lines
  1.      H*--TSTIN1.RPF -- Test RPG/free input file 1
  2.      H*--Note: This does NOT generate a compilable RPG III program
  3.      H*--It just generates a file for comparison with TSTOUT.RPG
  4.      F*/FILE 
  5.      FLIBLIST IF  E                    DISK
  6.      FBDF810  CF  E                    WORKSTN
  7.      F                                        RRN   KSFILE SFLREC
  8.      I*/INPUT 
  9.      I            DS
  10.      I                                        1   6 ODSDAT
  11.      I                                        1   60SAVDAT
  12.      I*/FIRSTCOL 7
  13.      I            DS
  14.      I                                        1   6 PRMDAT
  15.      I*/FIRSTCOL 6
  16.      I                                        1   60SAVSYS
  17.      C*/CALC 
  18.      C*/DEFINE infile  custfl
  19.      C*/DEFINE tst_ind *in90
  20.      CLR 01 02N03F1$$$     ADD  F2        R###    50H010290                     
  21.      C           1         DO   MAXCUS    I                                     
  22.      C           X         IFGT Y                                               
  23.      C           INKEY     REDPECUSTFL                 0199                     
  24.      C                     END                                                  
  25.      C                     END                                                  
  26.      C*--TSTIN2.RPF -- Test RPG/free input file 2
  27.      C*--Note: This does NOT generate a compilable RPG III program
  28.      C*--It just generates a file for comparison with TSTOUT.RPG
  29.      C*/DEFINE true        '1'
  30.      C*/DEFINE numeric     *IN77
  31.      C*/DEFINE not_numeric numeric <> true
  32.      C                     Z-ADD0         SFLRRN  40                            
  33.      C*--Check for valid date
  34.      C                     TESTN          PRMDAT     77                         
  35.      C           *IN77     IFNE '1'                                             
  36.      C                     Z-ADD0         SAVSYS                                
  37.      C                     END                                                  
  38.      C*--A two-line statement
  39.      C           BASE      MULT RATE      TOTAL                                 
  40.      C/EXEC SQL
  41.      C+       SELECT *
  42.      C+         FROM cust
  43.      C+        WHERE custid = inputid
  44.      C/END-EXEC
  45.      C*/FIX 
  46. 12345C                     RETRN
  47.      C*/FREE 
  48.      C           B         SUB  -3        A                                     
  49.      C*/DATA 
  50. **
  51. Data line
  52.  
  53.  
  54.