💾 Archived View for gemini.spam.works › mirrors › textfiles › humor › COMPUTER › creation.jcl captured on 2022-06-12 at 09:11:13.

View Raw

More Information

-=-=-=-=-=-=-

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