Category : Miscellaneous Language Source Code
Archive   : RPGFRE.ZIP
Filename : TSTIN1.RPF

 
Output of file : TSTIN1.RPF contained in archive : RPGFRE.ZIP
-- 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


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

  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/