How to scan started task/address space msg (JESMSGLG) ? 1

[DBASP]

Hi,

How can we scan/trap messages printed at JESMSGLG for a specific MVS started task/address space ? i.e started task ( sdsf da) --->
NP JOBNAME STEPNAME
? OAM OAM IEFPROC

NP DDNAME STEPNAME PROCSTEP DSID OWNER
JESMSGLG JES2 2 OAM
JESJCL JES2 3 OAM
JESYSMSG JES2 4 OAM

Meaning that need to scan JESMSGLG above and display it on screen (for a specific messages).

Thanks in advanced for the reply and code.

Regards

 

[dorkie]

hello,

one way would be using SDSF in REXX here is ome code to get DDNAME of any task in SDSF pool

call : SDSFDD task DDNAME


SDSFDD is name of exec




/* REXX */
ARG jobn
"newstack"
trace off
s=msg("off&quot
s=msg("on&quot
out=''
"delete '"USERID()"."filen"' "
s=msg("on&quot
"ALLOC FI(ISFOUT) DA('"USERID()"."filen"') new catalog Space(28,2)",
"CYLINDER RECFM(F B a) BLKSIZE(13300) LRECL(133) REUSE"
parse var jobn jobn ddn
trace i
x=MSG(OFF)
"free fi(sysin)"
x=MSG(On)
queue "ST "jobn
queue "FIND "jobn " first"
queue "++?"
queue "FIND "DDN
queue "++S"
CT=queued()-1
recn=60*ct
"ALLOC FI(ISFIN) UNIT(SYSDA) NEW DELETE"
"EXECIO" QUEUED() "DISKW ISFIN (finis"
"delstack"
call outtrap "msg.","*"
Address ispexec "select pgm(sdsf)"
call outtrap "off"
"delstack"
"free fi(isfin isfout)"
x=MSG(OFF)
x=MSG(On)

You can find loads of exec at

http://WWW.S390er.com