From: jcmorris@mitre.org (Joe Morris)
Newsgroups: alt.folklore.computers
Subject: SYSGENESYS JCL listing
Date: 21 Jul 2001 18:16:58 GMT
Organization: The MITRE Corporation
Lines: 104
Message-ID: <9jcguq$ak1$1@top.mitre.org>
Reply-To: jcmorris@mitre.org
NNTP-Posting-Host: jmorris-pc.mitre.org
X-Trace: top.mitre.org 995739418 10881 128.29.251.13 (21 Jul 2001 18:16:58 GMT)
X-Complaints-To: usenet@news.mitre.org
NNTP-Posting-Date: 21 Jul 2001 18:16:58 GMT
X-Newsreader: NN version 6.5.6 (NOV)
Path: chonsp.franklin.ch!pfaff.ethz.ch!news-zh.switch.ch!newsfeed-zh.ip-plus.net!news.ip-plus.net!news.tesion.net!news.belwue.de!news.uni-stuttgart.de!rz.uni-karlsruhe.de!schlund.de!newsfeed01.sul.t-online.de!t-online.de!newsfeed.online.be!hammer.uoregon.edu!canoe.uoregon.edu!arclight.uoregon.edu!news.tufts.edu!blanket.mitre.org!news.mitre.org!jcmorris
Xref: chonsp.franklin.ch alt.folklore.computers:85583

A while back I posted a comment here that made reference to a
long-ago joke that someone produced by telling the story of
creation -- in JCL.  A reply asked me to post it.

While looking for something totally different I ran across the
text this morning, so I'm posting it here.  Note that this is
a recycled posting: this one was in a.f.c nine years ago.  I've
included the original posting headers.

The jokes are better if you've suffered through the OS/360
utilities named in the EXEC statements, but even without that
knowledge it's funny.

Joe Morris

=-=-=-=-=-=-=-=-=-=-=  begin included text  =-=-=-=-=-=-=-=-=-=-=

From: zzassgl@uts.mcc.ac.uk (Geoff Lane)
Newsgroups: alt.folklore.computers
Subject: Re: Need a copy of Creation of World in IBM JCL
Message-ID: <5675@mccuts.uts.mcc.ac.uk>
Date: 18 Aug 92 14:10:52 GMT
Organization: Manchester Computing Centre, Manchester, England, M13 9PL.
Lines: 89

Well, I've been given an old printed copy of the card deck and so I now can
reply to my own post.  A number of others have asked for a copy so I've
included it below.  There is no indication of the author or when/where it
was originally published (if it ever was.)


//CREATION JOB (0000,EARTH),'GOD',PRTY=13,RESTART=EDEN,TIME=1440
//*
/*SETUP	      DISK=PRIMAL
//*
//JOBLIB DD   DSN=UNIVERSE,DISP=(OLD,KEEP)
//*
//* FOR EXTENDED DOCUMENTATION ON THIS JOB REFER TO MEMBER
//* BOOK.ONE, CHAPTER,ONE OF SYSDOC FILE WORD.OF.GOD
//* TAMPER WITH THIS JOB AT YOUR OWN EXTREME RISK!
//*
//DAYONE EXEC  PGM=IEBGENER
//VOID   DD    DSN=CHAOS
//DAY    DD    DSN=LIGHT
//NIGHT  DD    DSN=DARKNESS
//SYSIN  DD    *
   LET THERE BE LIGHT, AND LET DARKNESS BE A SEPARATE DATASET!
/*
//DAYTWO EXEC  PGM=SORT
//FIRM   DD    DSN=HEAVEN,DCB=DSORG=PO
//WATERS1 DD   DSN=HEAVEN(ABOVE)
//WATERS2 DD   DSN=HEAVEN(BELOW)
//SYSIN   DD   *
   LET THE FIRMANENT, CALLED HEAVEN, PARTITION THE WATERS!
/*
//DAYTHREE EXEC PGM=MERGE
//MERGEIN  DD   DSN=BELOW
//MERGEOUT DD   DSN=DRY.LAND
//EARTH    DD   DSN=DRY.LANE
//BELOW    DD   DSN=SEAS
//FLORA    DD   DSN=GRASSES.HERBES
//         DD   DSN=FRUIT.TREES
//SYSIN    DD   *
   SET THE EARTH CONCATENATE GRASS AND TREES
/*
//DAYFOUR  EXEC PGM=IEBUPDTE
//SUN      DD   DSN=LIGHT
//MOON     DD   DSN=LIGHT
//STARS    DD   DSN=LIGHT
//SYSIN    DD   *
  LET THERE BE PANEL LIGHTS TO INDICATE THE STATUS OF
  THE UNIVERSE!
/*
//DAYFIVE  DD   PGM=IEHMOVE
//WHALES   DD   DSN=MOVING.CREATURE
//FOWL     DD   DSN=MOVING.CREATURE
//SYSIN    DD   *
  BE FRUITFUL AND MULTIPLY UNTIL OVERFLOW
/* 
//DAYSIX   EXEC PGM=IEBCOPY
//MAN      DD   DSN=GOD.IMAGE
//MALE     DD   DSN=MAN(ADAM)
//FEMALE   DD   DSN=MAN(EVE)
//SYSABEND DD   DSN=ETERNAL.HELL
//SYSIN    DD   *
   ALL THE DATASETS NOW EXIST. LET MAN TEND THE CONSOLE
   AND REPLENISH THE LINE PRINTER AND KEEP HIS MITTS OUT
   OF THE MICROCODE!
/*
//DAYSEVEN EXEC PGM=ENTROPHY,COND=((IT IS GOOD,DAYSIX),ONLY)
//TIME     DD   DSN=ETERNITY
//SYSIND   DD   *
   NOW LET THE SYSTEM RUN, THE PANEL LIGHTS TWINKLE, AND THE DISKS
   FILL WITH DATA!
/*
//

Thats all folks!

-- 
Geoff. Lane.                                  Janet: zzassgl@uk.ac.mcc.uts
UTS Sys Admin, Manchester Computing Centre, Oxford Rd, Manchester, M13 9PL

=-=-=-=-=-=-=-=-=-=-=   end included text   =-=-=-=-=-=-=-=-=-=-=