home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / 3x400 / rpgfree.lzh / TSTIN.RPG < prev    next >
Text File  |  1990-04-17  |  1KB  |  29 lines
  1.      H* TSTIN.RPG -- Test standard RPG input file
  2.      H*
  3.      H* Note this is not a compilable RPG III program
  4.      H* It just generates a file for comparison with TSTOUT.RPF
  5.      F*
  6.      FDAINFO  IF  F     132            DISK
  7.      FMODDTA  CF  E                    WORKSTN
  8.      F                                        RRN1  KSFILE SFLREC1
  9.      F                                              KINFDS WRKSTN
  10.      F*
  11.      I* Data area information file (4 record types)
  12.      IDAINFO  NS  21   1 CR   5 CM
  13.      I                                       15  35 DAQNAM
  14.      I
  15.      C                     Z-ADD4         Y                                     
  16.      C           4         DO   1         X                                     
  17.      C           WRK1,X    IFNE ' '                                             
  18.      C                     MOVE WRK1,X    WRK2,Y           Move the element                                
  19.      C           Y         SUB  1         Y                                     
  20.      C                     END                                                  
  21.      C                     END  -1  
  22.      C                     SETON                     010203
  23.      C                     REDPEFILEA                  9899
  24.      C                     UPDATFILEA                                            
  25. **
  26. CHGDTAARA  DTAARA(                     (       )) VALUE('
  27. **
  28. |END|********
  29.