MVSFORUMS.com

[binoy]

Hi,
We are using BTS tool in BMP for Testing Online Cobol programs.
To find the value of some program fields we have display
cobol statements. These displays get displayed when we run
the transaction in BTS. But we need to manualy copy paste them to
notepad if we have to store them as they are not moved to a dataset.
Is there a way to capture these in a dataset like BTSOUT ,
which gets generated on BTS run. BTS Clist included :

[code:1:a5397830c8] PROC 0
CONTROL NOFLUSH
ISPEXEC VGET DEBUG SHARED
IF &DEBUG = THEN +
DO
CONTROL NOMSG
END
ELSE +
DO
CONTROL MSG LIST SYMLIST CONLIST
END
IF &SYSUID = MAG3710 THEN CONTROL MSG LIST SYMLIST CONLIST
ISPEXEC CONTROL ERRORS RETURN
ISPEXEC VGET DBALOC SHARED
IF &LASTCC = 8 THEN +
DO
SET &DBALOC =
END
ERROR +
DO
SET &RC = &LASTCC
RETURN
END
SET &ADFSIGN = 'IMSADF.MFDPSP01.DB'
SET &ADFAUDT = 'IMSADF.MFDPAR01.DB'
SET &ADFMESG = 'IMSADF.MFDPMS01.DB'
SET &ADFWORK = 'IMSADF.MFC1WORK.DB'
FREE F(MFDPSP01 MFDPAR01 MFDPMS01 MFC1WORK)
FREE F(SYSDBG )
FREE F(BTSIN )
ISPEXEC VGET (MEMBER MODE PGMID1 PGMID2 PGMID3 PGMID4 ADF PRJ0 LIB0 TYP0 IMSID) PROFILE
SET &MSG = B976
ISPEXEC VPUT MSG SHARED
SET &MSG =
REDISPLY: +
SET &RC = 0
ISPEXEC DISPLAY PANEL(BTS@TEST) MSG(&MSG)
IF &RC = 8 THEN GOTO EXITEND
IF &RC > 8 THEN +
DO
SET &SERV = DISPLAY
SET &MSG = B939
ISPEXEC VPUT (RC MSG SERV) SHARED
GOTO EXITEND
END
IF &IMSID = THEN +
DO
SET &IMSID = &STR(IMST)
SET &SSM = &STR(DSNT)
GOTO START
END
IF &IMSID = IMSTEST1 THEN +
DO
SET &IMSID = &STR(IMST)
SET &SSM = &STR(DSNT)
GOTO START
END
IF &IMSID = IMST THEN +
DO
SET &SSM = &STR(DSNT)
GOTO START
END
IF &IMSID = IMSTEST2 THEN +
DO
SET &IMSID = &STR(IMSX)
SET &SSM = &STR(DSNX)
GOTO START
END
IF &IMSID = IMSX THEN +
DO
SET &SSM = &STR(DSNX)
GOTO START
END
IF &IMSID = IPO THEN +
DO
GOTO START
END
SET &MSG = B981
GOTO REDISPLY
START: +
SET &MSG =
ISPEXEC VPUT (MEMBER MODE PGMID1 PGMID2 PGMID3 PGMID4 ADF IMSID) PROFILE
IF &RC > 0 THEN +
DO
WRITE ERROR ON PUT FROM BTSTEST SCREEN
END
IF &MODE = TSO AND +
&ADF = Y THEN +
DO
SET &RC = 0
ALLOC F(MFDPSP01) DS(&ADFSIGN) SHR
ALLOC F(MFDPAR01) DS(&ADFAUDT) SHR
ALLOC F(MFDPMS01) DS(&ADFMESG) SHR
ALLOC F(MFC1WORK) DS(&ADFWORK) SHR
IF &RC

[Bithead]

I have never tried it but try capturing the output from SYSOUT to a dataset.