book
Article ID: 113720
calendar_today
Updated On:
Products
CA 1 Flexible Storage
CA 1 Tape Management - Copycat Utility
CA 1 Tape Management - Add-On Options
Issue/Introduction
Running the following TMSGRW pgm, the file assigned on the //OUTPUT dd keep only one volser but the report recovered on the TMSRPT is correct:
/TMSGRW PROC PRM=,
// REGN='4M',
// SOUT='*'
//TMSGRW EXEC PGM=TMSGRW,REGION=®N,
// PARM='&PRM'
//TMSRPT DD SYSOUT=*
//OUTPUT DD DSN=L225427.TAPES.REPORTED.ON, * OPTIONAL *
// DISP=(NEW,CATLG,DELETE),
// UNIT=3390,SPACE=(CYL,(5,5)),
// DCB=(RECFM=FB,LRECL=340,BLKSIZE=23460)
//* ABOVE BLKSIZE SHOULD BE A MULTIPLE OF 340
//SYSOUT DD SYSOUT=&SOUT
//SYSUDUMP DD SYSOUT=&SOUT
// PEND
//REPORT EXEC TMSGRW
//TMSGRW.SYSIN DD *
CONTROL-SECTION
SORT VOLSER
ALTER DSNB=YES
DEFINE SCRBIT HX '04'
PROCESS-SECTION
WHEN VOLSER EQ VOLSER
LIST
REPORT-SECTION
PRINT VOLSER
Resolution
This file is opened multiple time during the TMSGRW.
If you don't you will get only the last information written to the file DISP=MOD should be coded.