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 MARK IV

Date:04/20/05
Author:Michael Passer
URL:n/a
Comments:0
Info:n/a
Score: (2.94 in 16 votes)
BEER    RCDUMMYFD S U   S    T      R                                           
BEER    RFSUBFILE SM4SUBF1                                                      
BEER    ERDATE                                                                  
BEER    AA
BEER    AA   <a href http://www.cstp.umkc.edu/users/mpasser>Michael Passer</a>
BEER    AA
BEER    AA   This program requires one dummy record of input
BEER    AA   (the M4OLD DD) to trigger execution.  Output is
BEER    AA   sent to the first subfile (M4SUBF1 DD).
BEER    AA
BEER    TFBOTTLESZ  3Z      100
BEER    AA                  ----+----1----+- 
BEER    TFBOB      15C      BOTTLES OF BEER                                     
BEER    TFOTW      11C      ON THE WALL                                         
BEER    TFTOD      13C      TAKE ONE DOWN                                       
BEER    TFPIA      14C      PASS IT AROUND                                      
BEER    TFCOMMA     1C      ,                                                   
BEER    TFPERIOD    1C      .                                                   
BEER    TFBLANK     1C                                                          
BEER    PR              GO SUB SING                                             
SING    ERDATE                                         S          100           
SING    PR     TBOTTLESZEQD0                                                    
SING    PR              GS RETURN                                               
SING    PR              GO SUB CHORUS                                           
SING    PR              R TMINUS1Z                        TBOTTLESZ             
SING    PR              GO REQUEST SING                                         
CHORUS  ERDATE                                         S                        
CHORUS  TFMINUS1Z   3Z                                                          
CHORUS  TFBOTTLES   3C                                                          
CHORUS  TFMINUS1    2C                                                          
CHORUS  PR     TBOTTLESZ- D1                              TMINUS1Z              
CHORUS  PR              R TBOTTLESZ                       TBOTTLES              
CHORUS  PR              R TMINUS1Z                        TMINUS1               
CHORUS  E1                              NR SUBFILE     V                        
CHORUS  R1     TBOTTLES                                                         
CHORUS  R1     TBLANK                                                           
CHORUS  R1     TBOB                                                             
CHORUS  R1     TBLANK                                                           
CHORUS  R1     TOTW                                                             
CHORUS  R1     TCOMMA                                                           
CHORUS  E2                              NR SUBFILE     V                        
CHORUS  R2     TBOTTLES                                                         
CHORUS  R2     TBLANK                                                           
CHORUS  R2     TBOB                                                             
CHORUS  R2     TCOMMA                                                           
CHORUS  E3                              NR SUBFILE     V                        
CHORUS  R3     TTOD                                                             
CHORUS  R3     TCOMMA                                                           
CHORUS  R3     TBLANK                                                           
CHORUS  R3     TPIA                                                             
CHORUS  R3     TCOMMA                                                           
CHORUS  E4                              NR SUBFILE     V                        
CHORUS  R4     TMINUS1                                                          
CHORUS  R4     TBLANK                                                           
CHORUS  R4     TBOB                                                             
CHORUS  R4     TBLANK                                                           
CHORUS  R4     TOTW                                                             
CHORUS  R4     TPERIOD                                                          
CHORUS  E5                              NR SUBFILE     V                        
CHORUS  R5     TBLANK

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: