Voting

Category

real language

Bookmarking

Del.icio.us Digg Diigo DZone Earthlink Google Kick.ie
Windows Live LookLater Ma.gnolia Reddit Rojo StumbleUpon Technorati

Language CONTROL-M/Analyzer

Date:05/17/05
Author:Ricardo Marin
URL:n/a
Comments:0
Info:n/a
Score: (3.00 in 13 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!

Name:

eMail:

URL:

Security Code:
  
Comment: