The Creation Algorithm




//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!
/*
//