//*                                                                  * 
//* ==> MYOWN.JCL(SPOOFY)                                              
//*                                                                    
//GOSPUFI  EXEC PGM=IKJEFT01,DYNAMNBR=25,COND=(0,NE)                   
//*------------------------------------------------------------------* 
//*           EXEC SPUFI IN ISPF BATCH                               * 
//*------------------------------------------------------------------* 
//STEPLIB  DD DISP=SHR,DSN=DB2.BLAH.SDSNLOAD                           
//*                                                                    
//ISPPROF  DD UNIT=SYSALLDA,SPACE=(TRK,(9,1,4)),                       
//         DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB,DSORG=PO),              
//         DISP=(NEW,PASS),DSN=&&TEMPP                                 
//ISPLOG   DD UNIT=SYSALLDA,SPACE=(TRK,(9,1)),                         
//         DCB=(LRECL=125,BLKSIZE=129,RECFM=VBA,DSORG=PS),             
//         DISP=(NEW,PASS),DSN=&&TEMPL                                 
//*                                                                    
//ISPLLIB  DD DISP=SHR,DSN=ISP.SISPLLIB                                
//ISPPLIB  DD DISP=SHR,DSN=ISP.SISPPENU                                
//ISPSLIB  DD DISP=SHR,DSN=ISP.SISPSENU                                
//ISPMLIB  DD DISP=SHR,DSN=ISP.SISPMENU                                
//ISPTLIB  DD DISP=SHR,DSN=ISP.SISPTENU                                
//SYSPROC  DD DISP=SHR,DSN=MYOWN.SYSEXEC   <<<< WHERE @SPOOFY LIVES    
//         DD DISP=SHR,DSN=ISP.SISLCLIB                                 
//SYSTSOUT DD SYSOUT=*                                                 
//SYSOUT   DD SYSOUT=*                                                 
//SYSUDUMP DD SYSOUT=*                                                 
//SYSABEND DD DUMMY                                                    
//SYSPRINT DD SYSOUT=*                                                 
//SYSTERM  DD SYSOUT=*                                                 
//SYSTSPRT DD SYSOUT=*                                                 
//SYSTSIN  DD *                                                        
  ISPSTART CMD(@SPOOFY) BDISPMAX(2) NEWAPPL(DSN@)                      
//*                                                                    
//* DONT CHANGE SYSTSIN ABOVE UNLESS YOU ARENT CALLING THE REXX @SPOOFY
//*                                                                    
//* YOU MUST HAVE A SPOOFOUT                                           
//*                 SPOOFIN                                            
//*                 SPOOFCTL                                           
//*                                                                   
//* DESCRIPTIONS BELOW                                                
//*                                                                   
//SPOOFOUT DD DISP=SHR,DSN=MYOWN.BATCH.SPUFI.OUTPUT                   
//*                                                                   
//* OUTPUT PRE ALLOC OR ALLOC AS NEW HERE                             
//* VB/4092/4096 IS PRETTY GOOD BUT ITS YOUR CHOICE                   
//* REMEMBER IF ROW > LRECL = TRUNCATION OF OUTPUT                    
//*                                                                   
//*                                                                   
//*SPOOFIN  DD DISP=SHR,DSN=MYOWN.BATCH.SPUFI.INPUT                   
//*                                                                   
//* INPUT EITHER ALLOCATED AS ABOVE OR INSTREAM AS BELOW              
//* ANY VALID 'ONLINE' SPUFI DECK SHOULD WORK                         
//*                                                                   
//SPOOFIN  DD *                                                       
--                                                                    
-- COMMENT                                                            
--                                                                    
  SELECT CURRENT DATE, CURRENT TIME FROM SYSIBM.SYSDUMMY1  ;          
      SELECT * FROM SYSIBM.SYSDATABASE   ;                            
--                                                                    
//*                                                                   
//* CONTROL  EITHER ALLOCATED OR INSTREAM                             
//* "*" IN COL1 = COMMENT                                             
//* MUST HAVE A SUBSYSID ASSIGEND TO SPUFSYS                          
//*                                                                   
//* OTHER PARMS WILL OVERRIDE THE DEFAULTS (WHICH ARE THE VALUES      
//*                                         ASSIGNED BELOW)           
//*                                                                   
//* /* BLAH */ AFTER ASSIGNMENT ARE COMMENTS                          
//*                                                                   
//SPOOFCTL DD *                                                       
* COMMENT                                                             
* THIS CAN BE INSTREAM OR IN A CARD IMAGE DATASET OR PDS MEMBER       
* SPUFSYS MUST BE SPECIFIED                                           
*                                                                     
SPUFSYS  = 'DZS1'                            /* MUST BE SPECIFIED   */
*                                                                     
SPUFISO  = 'CS'                              /* ISOLATION           */
SPUFNUMW = 33                                /* WIDTH OF NUM COLS   */
SPUFCHRW = 80                                /* WIDTH OF CHAR COLS  */
SPUFMAXL = 20                                /* MAX LINES SELECTED  */