How to redirect the contents of a spool

naveenmsc · Posted: Sat Jan 03, 2004 8:34 pm

Hey can any one tell how to redirect the contents of a spool (when an error occurs) to a PS or PDS Member

sandip_datta · Posted: Mon Jan 05, 2004 11:45 am

Hello naveenmsc,

Put xdc just before spool and then one screen will appear to give you the dataset name and attributes.

I am not very sure how can we redirect spool into a dataset ONLY WHEN AN ABEND OCCURS otherwise keep it in spool ? I am interested about that procedure. I am also interested about the redirect procedure through Batch Process only.

regards,
Sandip.

bluebird · Active User Joined: 03 Feb 2004 Posts: 127

maybe you should redirect all output (sysout,sysprint and so on) to
a sequential dataset FROM your JCL

bluebird · Active User Joined: 03 Feb 2004 Posts: 127

also, if you would like to do bit of REXX coding and modify your jcl:

add this two steps at the end of the job:
//SYM EXEC PGM=EZACFSM1
//* SYMBOL SUBSTITUTION
//SYSIN DD *
DA OJOB
PRINT FILE MSGFILE
FIND '&jobname'
++XC
//SYSOUT DD UNIT=SYSDA,SPACE=(CYL,(1,1)),RECFM=FB,LRECL=80,
// BLKSIZE=0,DSN=&&ISFIN,DISP=(,PASS)
//SDSF EXEC PGM=SDSF,DYNAMNBR=32,REGION=1024K,TIME=5
//* CAPTURE THE JES2 MESSAGES
//MSGFILE DD DISP=SHR,DSN=&SYSUID..LOGJ
//ISFOUT DD DUMMY
//ISFIN DD DISP=(OLD,DELETE),DSN=&&ISFIN

and make sure EZACFSM1 is available is available at your shop.
first step prepares the SDSF ISFIN (commands) with the current job name second step is SDSF pgm to trap current output.

hope it helps

bluebird · Active User Joined: 03 Feb 2004 Posts: 127

and with condition executing :
if (abend) then
Posted: Thu Feb 05, 2004 10:16 pm Post subject:

--------------------------------------------------------------------------------

also, if you would like to do bit of REXX coding and modify your jcl:

add this two steps at the end of the job:
// if (abend) then
//SYM EXEC PGM=EZACFSM1
//* SYMBOL SUBSTITUTION
//SYSIN DD *
DA OJOB
PRINT FILE MSGFILE
FIND '&jobname'
++XC
//SYSOUT DD UNIT=SYSDA,SPACE=(CYL,(1,1)),RECFM=FB,LRECL=80,
// BLKSIZE=0,DSN=&&ISFIN,DISP=(,PASS)
// endif

reads if previous step abend execute steps between if and endif.

gowtham_srgp · New User Joined: 09 Jun 2005 Posts: 38

elonics · New User Joined: 05 Jul 2005 Posts: 49 Location: India

Hi Gowtham,
Can u explain in detail about that disposition parameter.

Rupesh.Kothari · Member of the Month Joined: 27 Apr 2005 Posts: 463

Hi Elonics,

The format of Disp parameter is as follows

DISP=(status,normal-termination,abnormal-termination)

Status :- File is newly created or already exist like NEW, OLD,
Normal-termination :- After JOb ran fine what will be the file status
abnormal-termination:-After JOb terminate abnormally what will be the file status