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 QPAC

Date:11/23/05
Author:Christof Bürgi
URL:http://www.p2501.ch/
Comments:0
Info:http://www.osys.de/produkte.htm
Score: (2.74 in 19 votes)
//UseridT JOB (1,1),'BOB',CLASS=x,MSGCLASS=A,NOTIFY=Userid
//* 
//BOB     EXEC PGM=QPAC
//QPACLIST  DD SYSOUT=A
//OPF       DD SYSOUT=*
//SYSIN     DD *
*. file definition
OPF=SQ,CLR=NO
*. field definition
0001=OLINE,CL80
0001=ONOMORE,CL7
0006=OTEN,CL1
0006=ONUMBER,ZL2
0009=OBOTTLE,CL7
0016=OBEER,CL8
0024=OWALL,CL13
*. initialisation
SET X1 = 99
*. main loop                                      
DO-UNTIL X1 = 0
  SET ONUMBER = X1
  IF X1 < 10 THEN SET OTEN = SPACE IFEND
  SET OBOTTLE = C'bottles'
  SET OBEER-X2 = C' of beer'
  SET OWALL-X2 = C' on the wall,'
  PUT-OPF
  SET OWALL-X2,CL13 = C','
  PUT-OPF
  SET OLINE = C'take one down and pass it around,'
  PUT-OPF
  SET OLINE = SPACE
  SET X1 = X1 - 1
  IF X1 = 0 THEN
    SET ONOMORE = C'no more'
    SET X2 = 0
  ELSE
    SET ONUMBER = X1
    IF X1 < 10 THEN SET OTEN = SPACE IFEND
    IF X1 = 1 THEN SET X2 = 1 IFEND
  IFEND
  SET OBOTTLE = C'bottles'
  SET OBEER-X2 = C' of beer'
  SET OWALL-X2 = C'.'
  PUT-OPF
  SET OLINE = SPACE
  PUT-OPF
DOEND
END
//*

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: