Prev: A school for Cobol to Java programming languages
Next: Companies won't pay for COBOL?
From: Howard Brazee on 21 Apr 2008 16:52
I am trying to get some small samples of code of various languages for
a trivia quiz in our shop that has IBM ZOS and Sun Unix. It would
be nice to do code that isn't obviously of a language - but the hard
part is making sure it doesn't fit several languages.



I might start off with something like this - but want a couple of
dozen
languages. RPGII will be interesting. It may be harder to create
code for modern languages that are unique to a language.





CoBOL



Evaluate printSnapshot Also sendEmail

When true also true

move both-snapshots-and-email to retcode

move ' both snapshots and email' to retcode-text

When Other

move neither-snapshots-nor-email to retcode

move ' neither snapshots nor email' to retcode-text

End-Evaluate



EasyTriev



BEFORE-BREAK. PROC

IF LEVEL EQ 4

DISPLAY ' '

DISPLAY 'FINAL TOTALS '

END-IF

END-IF

END-PROC



==========================

Rexx



/*** ISPF/PDF EDIT MACRO TO UPDATE SYS1.AETNAMOD.JCL MEMBERS */


/**********************************************************************/


TRACE


ADDRESS ISPEXEC


'ISREDIT MACRO (PARM1) NOPROCESS'


PARM1 = TRANSLATE(PARM1)


IF PARM1 = '?' THEN


DO


CALL HELP


EXIT


END










----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to listserv(a)bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

From: Howard Brazee on 22 Apr 2008 11:39
I'm going with the code in http://99-bottles-of-beer.net/.
 | 
Pages: 1
Prev: A school for Cobol to Java programming languages
Next: Companies won't pay for COBOL?