99 Bottles of Beer

Voting

Bookmarking

Language CONTROL-M/Analyzer

Date:	05/17/05
Author:	Ricardo Marin
URL:	n/a
Comments:	0
Info:	n/a
Score:	(3.27 in 11 votes)

CONTROL-M/Analyzer is a component member of the INCONTROL by BMC Software
family of products (formerly Control-B - by New Dimension Software) is a
product designed to automate, manage and streamline operations on the
OS/390 or z/OS mainframe.
CONTROL-M/Analyzer performs in-stream validation, accuracy and
reasonability checks on information used by data center production tasks
(for example, reports, databases). It has a meta-language... and here is
the 99 BOTTLES...:


HEADER GROUP 'DM'     OWNER 'CTB'
       DATE  '070105' TIME  '112233'  CREATOR 'EUP4'
/* ------------------------------------------------------------------ */
/* 99 BOTTLES OF BEER ON THE WALL - CONTROL-M/Analyzer Version        */
/* Ricardo Marin - Buenos Aires - Argentina                           */
/* ricardo.marin@bancogalicia.com.ar                                  */
/* ------------------------------------------------------------------ */

EXECUTE 'BEER_1'
ON_DATA
ALWAYS
   DO SET  'T'        EVAL   '99'

LABEL 'BEER_1'
IF 'T       GT        0'
   DO PRINT DATA '%%T BOTTLES OF BEER ON THE WALL, %%T BOTTLES OF BEER'
   DO PRINT DATA 'TAKE ONE DOWN, PASS IT AROUND'
   DO SET  'T'        EVAL   'INT(T - 1)'
   DO GOTO 'BEER_1'

ALWAYS
   DO PRINT DATA
'NO MORE BOTTLES OF BEER ON THE WALL, NO MORE BOTTLES OF BEER'
   DO PRINT DATA
'GO TO THE STORE AND BUY SOME MORE'

Download Source | Write Comment

Alternative Versions

Comments

Download Source | Write Comment

Add Comment

Please provide a value for the fields Name, Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.

Please don't post large portions of code here! Use the form to submit new examples or updates instead!

one program in 1216 variations