Quote:
Originally Posted by RWood
Great stuff.
But you must do it from right to left in Greek.
As I remember my JCL it could read:
//SHOOTTOE JOB (123FOOTS),'SHOOT OWN FOOT',CLASS=L,MSGCLASS=X
//SYSPRINT DD SYSOUT=*
//STEP01 EXEC PGM=LOADGUN
//SYSUT1 DD DSN=GUN,DISP=SHR,
// SPACE=(CYL,(6,1),RLSE)
//INPUT01 DD DSN=BULLET,DISP=(NEW,AIM,FIRE)
//STEP02 EXEC PGM=AIMGUN,COND(4,GT,STEP01)
//SYSUT1 DD DSN=GUN,DISP=SHR,
// SPACE=(CYL,(6,1),RLSE)
//SYSUT2 DD DSN=EYEBALL
//SYSUT3 DD DSN=FOOT(TOE)
//STEP03 EXEC PGM=PULLTRIGGER,COND(4,GT,STEP02)
//SYSUT1 DD DSN=GUN,DISP=SHR,
// SPACE=(CYL,(6,1),RLSE)
//SYSUT2 DD DSN=FINGER
//SYSIN DD DUMMY |
Sorry RW, but it needs some debug to work. In STEP02, SYSUT1, you put a RLSE in the SPACE parameter. While legal, if you release the CYL, the BULLET will fall out, causing the rest of the stream to go down with a JCL error...
