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

 
Output of file : TSTIN.RPG contained in archive : RPGFRE.ZIP
H* TSTIN.RPG -- Test standard RPG input file
H*
H* Note this is not a compilable RPG III program
H* It just generates a file for comparison with TSTOUT.RPF
F*
FDAINFO IF F 132 DISK
FMODDTA CF E WORKSTN
F RRN1 KSFILE SFLREC1
F KINFDS WRKSTN
F*
I* Data area information file (4 record types)
IDAINFO NS 21 1 CR 5 CM
I 15 35 DAQNAM
I
C Z-ADD4 Y
C 4 DO 1 X
C WRK1,X IFNE ' '
C MOVE WRK1,X WRK2,Y Move the element
C Y SUB 1 Y
C END
C END -1
C SETON 010203
C REDPEFILEA 9899
C UPDATFILEA
**
CHGDTAARA DTAARA( ( )) VALUE('
**
|END|********


  3 Responses to “Category : Miscellaneous Language Source Code
Archive   : RPGFRE.ZIP
Filename : TSTIN.RPG
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/