Is it possible to extract the contents of message

karthikr44 · Posted: Fri Jun 20, 2008 2:02 pm

Hi,

Is it possible to extract the contents of message through REXX

/JSTP0010 EXEC CMDCPRL2,
.
.
.
.
.
// TEMPUNIT='SYSDA'
==MSG> CAY6081E DISP OF CATLG INVALID
==MSG> "DEV2.US.DOHBXAPP.E1CLAIM1.JUN0208.SRT" - DATA SET ALREADY CATALOGED
==MSG>

Actually i want to extract that dataset name by using the code and placing the cursor on that MSG line

/* REXX */
ADDRESS ISREDIT MACRO
"ISREDIT (LIN,COL) = CURSOR"
"ISREDIT (DATA) = LINE .ZCSR"
SAY DATA

BUt i got the output for DATA as
// TEMPUNIT='SYSDA'

UmeySan · Posted: Fri Jun 20, 2008 2:16 pm

Hi karthikr44 !

Your desired string is in a messaage-line. Make it a data-line before.
Use MD for that.

karthikr44 · Posted: Fri Jun 20, 2008 3:40 pm

HI UmeySan,

I am new to REXX. Will u explain more about MD command or send any samples.

Regards
R KARTHIK

UmeySan · Posted: Fri Jun 20, 2008 5:07 pm

Hi karthikr44 !

Nothing to do especially with REXX. Just a Edit-Line-Command.

To see how it's function, edit a member, type cols in a line, a straightedge is displayed. Then type MD over the "=COLS>" Position. This line now becomes a normal data-line.

000001 SPACE-1
=COLS> ----+----1----+----2----+----3----+---
000002 IKJTCB DSECT=YES,LIST=YES

000001 SPACE-1
MDOLS> ----+----1----+----2----+----3----+---
000002 IKJTCB DSECT=YES,LIST=YES

000001 SPACE-1
000002 ----+----1----+----2----+----3----+
000003 IKJTCB DSECT=YES,LIST=YES

Nice weekend

karthikr44 · Posted: Fri Jun 20, 2008 6:11 pm

Hi UMEY,

Thanks ... Now i got it...