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

 
Output of file : TSTIN2.RPF contained in archive : RPGFRE.ZIP
-- TSTIN2.RPF -- Test RPG/free input file 2

-- Note: This does NOT generate a compilable RPG III program
-- It just generates a file for comparison with TSTOUT.RPG

/DEFINE true '1'
/DEFINE numeric *IN77
/DEFINE not_numeric numeric <> true

DCL 0 sflrrn LEN(4 0)

TESTN prmdat ALLNUM(numeric) -- Check for valid date
IF not_numeric
savsys = 0
ENDIF

Total = Base * -- A two-line statement +
Rate
/EXEC SQL
SELECT *
FROM cust
WHERE custid = inputid
/END-EXEC
/FIX
12345C RETRN
/FREE
a = b - -3
/Data
**
Data line




  3 Responses to “Category : Miscellaneous Language Source Code
Archive   : RPGFRE.ZIP
Filename : TSTIN2.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/