If you are on z/OS 1.10 or above and have SDSF installed, the following REXX
program copies SPOOL output to sequential disk datasets (or UNIX files).
/* REXX */
PARSE ARG JOBNAME HLQ .
IF JOBNAME='' THEN JOBNAME='*'
HLQ=STRIP(HLQ,'B',"'")
IF HLQ='' THEN HLQ='SYSJO'
XX=ISFCALLS('ON')
ISFSORT='JOBID'
ISFPREFIX=JOBNAME
IF XX <> 0 THEN DO
SAY 'ISFCALLS RC='XX
RETURN XX
END
ADDRESS SDSF 'ISFEXEC ST (DELAYED)'
IF RC <> 0 THEN DO
SAY 'ISFEXEC RC='RC
RETURN RC
END
DO IX=1 TO JNAME.0
IF QUEUE.IX <> 'PRINT' & ,
QUEUE.IX <> 'OUTPUT' ,
THEN ITERATE
SAY 'JBN='JNAME.IX' JOBNUMBER='JOBID.IX' QUEUE='QUEUE.IX
IF '/' = LEFT(HLQ,1) THEN DO
SAY ,
'CC=BPXWDYN("ALLOC DD(SYSJO) FILEDATA(TEXT) "'||,
"PATH('"HLQ"/"JNAME.IX"."JOBID.IX".txt') " ||,
" PATHMODE(SIRWXU) PATHOPTS(OEXCL,OCREAT,OWRONLY) " ||,
" MSG(WTP)"
CC=BPXWDYN("ALLOC DD(SYSJO) FILEDATA(TEXT) ",
"PATH('"HLQ"/"JNAME.IX"."JOBID.IX".txt') ",
" PATHMODE(SIRWXU) PATHOPTS(OEXCL,OCREAT,OWRONLY) ",
" MSG(WTP)")
END
ELSE DO
SAY ,
"ALLOC DDN(SYSJO) DSN('"HLQ"."JNAME.IX"."JOBID.IX"')",
" RECFM(V B A) LRECL(255) BLKSIZE(27998) ",
" NEW CATALOG SPACE(10,50) CYLINDERS RELEASE"
"ALLOC DDN(SYSJO) DSN('"HLQ"."JNAME.IX"."JOBID.IX"')",
" RECFM(V B A) LRECL(255) BLKSIZE(27998) ",
" NEW CATALOG SPACE(10,50) CYLINDERS RELEASE"
CC=RC
END
IF CC <> 0 THEN DO
SAY "FAILED TO ALLOCATE "JNAME.IX"."JOBID.IX
ITERATE
END
ADDRESS SDSF "ISFACT ST TOKEN('"TOKEN.IX"') PARM(NP SA)"
DO JX=1 TO ISFDDNAME.0
DO FOREVER
"EXECIO 10000 DISKR "ISFDDNAME.JX"(STEM LINE. "
LINES = LINE.0
IF RC=2 THEN RC=0
IF RC <> 0 THEN DO
SAY "LINES READ="LINES" RC="RC
EXIT 12;
END
"EXECIO * DISKW SYSJO (STEM LINE."
DROP LINE.
IF LINES<10000 THEN LEAVE
END
"EXECIO 0 DISKR "ISFDDNAME.JX"(FINIS"
END
DROP ISFDDNAME.
"EXECIO 0 DISKW SYSJO (FINIS"
"FREE DDN(SYSJO)"
END
Job would look like:
//STEP010 EXEC PGM=IKJEFT01,
// REGION=40000K,
// DYNAMNBR=60
//SYSEXEC DD DISP=SHR,DSN=pds.containing.above.rexx
// DD DISP=SHR,DSN=SYS1.SBPXEXEC
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
%JES2DISK prefix* hlq.of.dsns
/*
John McKown
Systems Engineer IV
IT
Administrative Services Group
HealthMarkets(r)
9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone *
[email protected] * www.HealthMarkets.com
Confidentiality Notice: This e-mail message may contain confidential or
proprietary information. If you are not the intended recipient, please contact
the sender by reply e-mail and destroy all copies of the original message.
HealthMarkets(r) is the brand name for products underwritten and issued by the
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The
MEGA Life and Health Insurance Company.SM
> -----Original Message-----
> From: IBM Mainframe Discussion List
> [mailto:[email protected]] On Behalf Of Larry Macioce
> Sent: Friday, February 04, 2011 7:59 AM
> To: [email protected]
> Subject: accesing output from jes spool
>
> WE are having a problem with our printer(wont name the
> brand), but we have
> all of last nights processing in the spool and need to get it
> out and print
> some of the standard report.
> We have CA-Dispatch but only a few jobs are setup with online viewing.
> Is there a way to retrieve the output from jes get it to a
> dataset so we
> could ftp to a network printer?
> Thanks
> Mace
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: GET IBM-MAIN INFO
> Search the archives at http://bama.ua.edu/archives/ibm-main.html
>
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
