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@[EMAIL PROTECTED]
with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
