Try this job to get the archive expiration date of jobs:
//BQL EXEC PGM=BST01RFF,REGION=0M,
// PARM=('S=92,B01LST=nn,B92LST=nn',
// 'PGM=BST05CMD,SIGNON=YES')
//*
//STEPLIB DD DISP=SHR,
// DSN=BSA.LOAD
// DD DISP=SHR,
// DSN=BETA92.LOAD
//*
//SFFPARM DD DISP=SHR,
// DSN=BETA.PARMLIB
//*
//B92DEF DD DISP=SHR,
// DSN=BETA92.DEF.DATA
//*
//BQLIN DD *
SELECT TABLE GAR FIELDS(SRCJOBN SRCJOBI SRCSUBD SRCSUBT GAREXPDT) -
GENFILE(nn)
<----- your garfile number
//*
//SFFFDUMP DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//BQLPROT DD SYSOUT=*,DCB=(DSORG=PS,LRECL=255,RECFM=VB)
<-----search results
//BQLPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Klimek, Albert
Sent: Friday, February 28, 2014 10:28 AM
To: [email protected]
Subject: Beta92 help
I am looking for a way to determine the archive expiration date of jobs in
beta92 archives. I think that is only possible with an RPG report.
Unfortunately I have not found the necessary information in the Beta92 Database
Dictionary. can someone help me
Thanks Albert
VERLAGSGRUPPE WELTBILD GMBH
Sitz der Gesellschaft: Augsburg
Handelsregister Augsburg HRB 6035
Ust-ID-Nr: DE 127501299
Geschäftsführung:
Carel Halff (Vorsitzender), Dr. Martin Beer, Josef Schultheis
Vorsitzender des Aufsichtsrats:
Generalvikar DDr. Peter Beer
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
[email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
