Voting
Category
real language
Bookmarking
Language Selcopy
| Date: | 11/19/07 |
| Author: | Pete Berrecloth |
| URL: | n/a |
| Comments: | 0 |
| Info: | http://www.cbl.com/selc.html |
| Score: |  (4.33 in 3 votes) |
// EXEC SELCOPY,SIZE=250K
*******************************************************************
**** 99 BOTTLES OF BEER WRITTEN IN SELCOPY (JUNE 2004) ****
**** THIS VARIANT TESTED ON IBM DOS/VSE MAINFRAME ****
**** ****
**** AUTHOR: PETE BERRECLOTH ****
**** ****
**** SELCOPY IS AN INFORMATION RETRIEVAL PACKAGE FOR IBM ****
**** MAINFRAMES, AS400, PC, AND UNIX (WEBSITE: WWW.CBL.COM) ****
*******************************************************************
READ CARD WORKLEN 1000
IF INCOUNT EQ 1
THEN POS 1 MOD '99 BOTTLES OF BEER ON THE WALL, '
THEN POS 101 MOD '99 BOTTLES OF BEER, '
THEN POS 301 MOD X'099C'
CVPC 2 FROM 301 TO 1 FORMAT 'Z9'
NUVVA-BOTTLE
CVPC 2 FROM 301 TO 101 FORMAT 'Z9'
IF POS 301 GT X'009C'
THEN MOVE 32 FROM 1 TO 901
THEN MOVE 22 FROM 101 TO 933
ELSE MOVE 31 FROM 2 TO 901
THEN MOVE 22 FROM 102 TO 932
THENIF POS 301 EQ X'001C'
THEN MOVE 39 FROM 910 TO 909
THEN MOVE 10 FROM 940 TO 939
THEN POS 947 MOD ', '
PRINT FROM 901 LRECL 55
PRINT 'TAKE ONE DOWN AND PASS IT AROUND,'
SUB 1 FROM 2 AT 301
CVPC 2 FROM 301 TO 1 FORMAT 'Z9'
IF POS 301 EQ X'001C'
THEN PRINT '1 BOTTLE OF BEER ON THE WALL'
ELSEIF POS 301 GT X'009C'
THEN PRINT FROM 1 LRECL 30
ELSE PRINT FROM 2 LRECL 29
IF POS 301 NE X'000C'
THEN GOTO NUVVA-BOTTLE
STOP
END
DUMMY CARD
Download Source | Write Comment
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!
Comments