image

Stokely home 
Search 
Sitemap 
About Stokely 

The Lighter Side of Sysadm | Ranting & Raving | Pete's Back Yard

______________

The Original JCL Deck Has Been Found!

Author unknown, sent to us by James Dishaw

An old, old JCL card deck, found deep in the detritisphere..... I wonder who it belonged to?

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

______________

Stokely Consulting, http://www.stokely.com
Email: Celeste Stokely | Peter Stokely
163 14th Trail, Unit B, Cotopaxi CO 81223, (719) 942-3621
Copyright © 2013 Stokely Consulting. All rights reserved.

Enough is enough. Vote Libertarian if you believe in individual liberty and personal responsibility, a free-market economy, and a foreign policy of non-intervention, peace, and free trade.