Genesis in JCL

Back in the Dark Ages of computing I came across a great piece of geek humor. This was the real Dark Ages and the real geekiness. The creations of the world described in IBM MVS (mainframe) JCL. Back in those days we didn't have the Internet. Sharing meant xeroxing paper copies and passing on to friends.

I lost mine.

So every once in a while I looked for it on the Internet but could never find it. Mentioned to a new friend and in a few minutes he found it. I was convinced it was called Genesis JCL, but he looked for creation instead.

So here it is for your enjoyment and for posterity.

http://www.textfiles.com/humor/COMPUTER/creation.jcl

Upload by Kevin Green.... [LUCIFER] on Apple/Boston BBS 617-275-9422
Re-created from Boston Univ. computer network
I take no credit for creation 
I take no responsibilty for what does or doesn't offend
I only provide this file for your perusal

//CREATION JOB (0000,EARTH),'GOD',PRTY=13,RESTART=EDEN,TIME=1440
//*
/*SETUP           DISK=PRIMAL
//*
//JOBLIB   DD     DDN=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 THERE DARKNESS BE A SEPERATE 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 FIRMAMENT, 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 EART CONCATENATE GRASS AND TREES
/*
//DAYFOUR  EXEC   PGM=IEBUPDTE
//SUN      DD     DSN=LIGHT
//MOON     DD     DSN=LIGHT
//STARS    DD     DSN=LIGHT
//SYSIN    SS     *
    LET THERE BE PANEL LIGHTS TO INDICATE THE STATUS OF THE UNIVERSE!
/*
//DAYFIVE  EXEC   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=ENTROPY,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!
/*
//

--Al-