MVSFORUMS.com

mrgthiru

Hi all,

Here is a program that displays the DATASETS for a particular HLQ, but the output it is displaying in continious form... I found this pgm in a website and did some modifications...
Can any one give me a solution to display the output one after another...

[code:1:93fa61a8bf]/* REXX */
/*TRACE I*/
SAY "ENTER HLQ"
PARSE UPPER PULL HLQ
/* ARG MEMLIST HLQ .*/
IF HLQ="" THEN DO
HLQ=MEMLIST ; MEMLIST="*"
END

UPPER HLQ
HLQ=STRIP(STRIP(HLQ,"T","*"),"T",".") /* HANDLE ISPF 3.4 FORMAT */

DUMMY = OUTTRAP("LISTCAT.","*")
"LISTCAT LEVEL("HLQ")"
LISTCATRC=RC
DUMMY = OUTTRAP("OFF")

IF LISTCATRC
_________________
My blood says B+ Smile

ofer71 · Posted: Wed Jan 17, 2007 2:11 pm Post subject:

After the SAY instruction, you can add PULL DUMMY.

O.
________
Subaru EA engine history

semigeezer · Posted: Wed Jan 17, 2007 2:41 pm Post subject:

mrgthiru · Posted: Thu Jan 18, 2007 8:32 am Post subject:

Hi

PULL DUMMY is not giving the expected output, O...
Still iam working on it...

Thanks & Regards
Gthiru Rolling Eyes

_________________
My blood says B+ Smile

mrgthiru · Posted: Fri Jan 19, 2007 2:15 am Post subject:

Hi,

Got a solution for the program, from my mentor...
[code:1:37dee0d2d7]
/* REXX */
/*TRACE I*/
SAY "ENTER HLQ"
PARSE UPPER PULL HLQ
IF HLQ="" THEN DO
HLQ=MEMLIST ; MEMLIST="*"
END
UPPER HLQ
HLQ=STRIP(STRIP(HLQ,"T","*"),"T",".") /* HANDLE ISPF 3.4 FORMAT */
DUMMY = OUTTRAP("LISTCAT.","*")
"LISTCAT LEVEL("HLQ")"
LISTCATRC=RC
IF LISTCATRC
_________________
My blood says B+ Smile