Re: JES2 NJE Reporting
- From: John_J_Kelly@xxxxxxxxxxxxxxx (Jack Kelly)
- Date: 29 Apr 2008 06:40:01 -0700
<snip>
a report of our NJE activity from SMF
<snip>
If you simply want print info, eg forms, lines, dest, then a simply SAS
of SMF06 might do.
//CHKJOBT EXEC SAS 00150000
//WORK DD SPACE=(CYL,(200,200)) 00170001
//SMF DD DISP=SHR,DSN=ASD.CNKELJJ.SMF06.J02.JULAUG 00200001
//SYSOUT DD DUMMY 00210000
//SYSIN DD * 00220000
OPTIONS DATE ERRORS=2 NUMBER SOURCE /*SOURCE2*/ ; 00281000
DATA SMF06 (KEEP = SYSOUT FCB UCS FORMS) ; 00290001
FORMAT LINES COMMA7.0 ; 00330000
INFILE SMF TRUNCOVER MISSOVER /* OBS=050 */ ; 00340000
INPUT @11 SID $4. 00350000
@15 JOB $8. 00360000
@39 SYSOUT $1. 00370000
@48 LINES PIB4. 00371000
/* @53 NODS PIB1. */ 00372000
@54 FORMS $4. 00373001
@65 JOBNOS $4. 00374000
@69 PRTDEV $8. 00375000
@77 FCB $4. 00376000
@81 UCS $4. 00377000
@ ; 00380000
IF _N_ = 1 THEN XYZ = DATEPART(JOB) ; 00390000
*IF SUBSTR(PRTDEV,1,3) EQ 'NJE' THEN DELETE ; /* local ptr only */
00393000
IF SUBSTR(UCS,1,3) EQ 'VPS' THEN DELETE ; /* not vps */
00394000
RETURN ; 00420000
00430000
PROC SORT DATA=SMF06 OUT=SORTED NODUPS; 00440001
BY SYSOUT ; 00450001
PROC PRINT DATA=SORTED NOOBS U N ; 00460001
TITLE " UNIQUE SYSOUT FOR J02 JUL 01,2000 THRU AUG 06 "; 00470001
/*
Jack Kelly
202-502-2390 (Office)
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
.
- References:
- JES2 NJE Reporting
- From: Mark T. Regan, K8MTR
- JES2 NJE Reporting
- Prev by Date: Re: Emulators (again ...)
- Next by Date: Re: Emulators (again ...)
- Previous by thread: JES2 NJE Reporting
- Next by thread: Re: Emulators (again ...)
- Index(es):
Relevant Pages
|
|
