The TLERPT18 report is a functional replacement for the TLMS018 report that was provided in earlier releases of CA TLMS. The JCL procedure CATERL18 and three z/OS EARL Service source members are provided. Users can request reports in a format almost identical to the earlier TLMS018 report. While this new report is created with z/OS EARL Service, knowledge of z/OS EARL Service is not required.
TLERPT18 lists user-specified fields in VSN or DSN order. The user specifies the fields to be reported on by listing the field names in the order they are to appear. You can specify the field names on any number of statements but the total of their lengths cannot exceed 130 characters.
You can use an optional parameter to specify the report order and a title. The default order is by dataset name. If the first 3 characters of the parm are not VSN, the report is one line for each dataset on the VMF in order by DSN then VSN. This is true no matter which field is specified first.
When the first 3 characters of the parm are VSN, the report is in VSN order with one line for each volume. The DSN field value is for the first DSN on each volume.
The field named DSN is 44 characters long. A shortened version of this field can be obtained by specifying a short DSN field name. For example, DSN_15 is a field containing the first 15 characters of the DSN. Fields DSN_3 through DSN_43 are available. The report is sorted by the entire 44 characters of the DSN.
Positions 5 through 45 of the parm are for an optional report title. If these positions are not blank, they are used for the title. If they are blank, the default title "USER DEFINED REPORT" is used.
See the appendices of this manual for Tape Data Base field names.
// EXEC CATERL18, // PRM='DSN,USER REPORT BY DSN ' //CATECOGO.SYSIN18 DD * DSN_20 VOLSER FILESEQ VOLSEQ VOLUME_COUNT DSN_KEEP_DATE
// EXECCATERL18, // PRM='VSN,USER REPORT BY VSN' //CATECOGO.SYSIN18 DD * VSN DSN_5 FILESEQ VOLSEQ VOLUME_COUNT VOLUME_KEEP_DATE
C O M P A N Y N A M E USER REPORT BY DSN TLERPT18 PAGE 4 CA TLMS NN.n yymmTLrrr dd/mm/yy hh.mm.ss -------------------------------------------------------------------- DSN_20 VOLSER FILE VOL VOLUME DSN KEEP SEQ SEQ COUNT DATE ------------------------------------------------------------------- CRAJO01.FN0013.FILE0 001507 1 1 1 mm/dd/yyyy EVAWI01.DEU.TAPE1 001506 1 1 1 mm/dd/yyyy FRED.TEST.DSN01 001562 1 1 1 mm/dd/yyyy PAT.EDMTEST.TEST1 001500 1 1 1 mm/dd/yyyy PAT.EDMTEST2.TEST1 001500 2 1 1 mm/dd/yyyy PAT.EDMTEST3.TEST1 001500 3 1 1 mm/dd/yyyy PAT.EDMTEST4.TEST1 001500 4 1 1 mm/dd/yyyy PAT.OCEOV4.TEST1 001505 1 1 1 mm/dd/yyyy PAT.OCEOV5.TEST1 001554 1 1 1 mm/dd/yyyy PERCENT.FILE01 001593 5 1 2 mm/dd/yyyy PERCENT.FILE02 001593 6 1 2 mm/dd/yyyy PERCENT.FILE03 001593 7 1 2 mm/dd/yyyy PERCENT.FILE04 001593 8 1 2 mm/dd/yyyy PERCENT.FILE05 001593 9 1 2 mm/dd/yyyy PERCENT.FILE06 001593 10 1 2 mm/dd/yyyy PERCENT.FILE07 001501 11 2 2 mm/dd/yyyy PERCENT.FILE07 001593 11 1 2 mm/dd/yyyy TAPE.TRACE.NL.FILE1 001590 1 1 1 mm/dd/yyyy TAPE.TRACE.NL.FILE2 001590 2 1 1 mm/dd/yyyy TAPE.TRACE.NL.FILE3 001590 3 1 1 mm/dd/yyyy TAPE.TRACE.NL.FILE4 001590 4 1 1 mm/dd/yyyy TAPE.TRACE.SL.FILE1 TDI090 1 1 1 mm/dd/yyyy TAPE.TRACE.SL.FILE2 TDI090 2 1 1 mm/dd/yyyy TAPE.TRACE.SL.FILE3 TDI090 3 1 1 mm/dd/yyyy TAPE.TRACE.SL.FILE4 TDI090 4 1 1 mm/dd/yyyy TEP.RES.SL.DSN01 001508 1 1 2 mm/dd/yyyy TEP.RES.SL.DSN01 001514 1 2 2 mm/dd/yyyy TEP.RES.SL.DSN02 001514 2 2 2 mm/dd/yyyy TEP.TEST.CLOSE.DSN01 001561 1 2 2 mm/dd/yyyy TEP.TEST.CLOSE.DSN01 001563 1 1 2 mm/dd/yyyy TEP.TEST.CLOSE.DSN01 001564 1 1 1 mm/dd/yyyy TEP.TEST.CLOSE.DSN02 001561 2 2 2 mm/dd/yyyy TEP.TEST.CLOSE.DSN02 001564 2 1 1 mm/dd/yyyy TEP.TEST.CLOSE.DSN11 001565 1 2 2 mm/dd/yyyy TEP.TEST.CLOSE.DSN11 001566 1 1 2 mm/dd/yyyy TEP.TEST.CLOSE.DSN12 001565 2 2 2 mm/dd/yyyy TEP.TEST.CLOSE.DSN41 001567 1 1 2 mm/dd/yyyy TEP.TEST.CLOSE.DSN41 001568 1 2 2 mm/dd/yyyy TEP.TEST.CLOSE.DSN42 001568 2 2 2 mm/dd/yyyy TEP.V1F4.SL11 001591 1 1 1 mm/dd/yyyy TEP.V1F4.SL12 001591 2 1 1 mm/dd/yyyy TEP.V1F4.SL13 001591 3 1 1 mm/dd/yyyy TEP.V1F4.SL14 001591 4 1 1 mm/dd/yyyy TEP.V1F4.SL21 001592 1 1 1 mm/dd/yyyy TEP.V1F4.SL22 001592 2 1 1 mm/dd/yyyy TEP.V1F4.SL23 001592 3 1 1 mm/dd/yyyy TEP.V1F4.SL24 001592 4 1 1 mm/dd/yyyy TEP.V1F4.SL31 001593 1 1 2 mm/dd/yyyy TEP.V1F4.SL32 001593 2 1 2 mm/dd/yyyy TEP.V1F4.SL33 001593 3 1 2 mm/dd/yyyy TEP.V1F4.SL34 001593 4 1 2 mm/dd/yyyy TEPTEST.VTAPE.V1F1.F 001580 1 1 1 mm/dd/yyyy TEPTEST.VTAPE.V1F1.F 001581 1 1 1 mm/dd/yyyy
C O M P A N Y N A M E USER REPORT BY VSN TLERPT18 PAGE 2 CA TLMS NN.n yymmTLrrr dd/mm/yy hh.mm.ss ------------------------------------------------------------------- VOLSER DSN_20 FILE VOL VOLUME VOL KEEP SEQ SEQ COUNT DATE ------------------------------------------------------------------- TDI047 TEST.VOL075.DSN01 1 47 75 mm/dd/yyyy TDI048 TEST.VOL075.DSN01 1 48 75 mm/dd/yyyy TDI049 TEST.VOL075.DSN01 1 49 75 mm/dd/yyyy TDI050 TEST.VOL075.DSN01 1 50 75 mm/dd/yyyy TDI051 TEST.VOL075.DSN01 1 51 75 mm/dd/yyyy TDI052 TEST.VOL075.DSN01 1 52 75 mm/dd/yyyy TDI053 TEST.VOL075.DSN01 1 53 75 mm/dd/yyyy TDI054 TEST.VOL075.DSN01 1 54 75 mm/dd/yyyy TDI055 TEST.VOL075.DSN01 1 55 75 mm/dd/yyyy TDI056 TEST.VOL075.DSN01 1 56 75 mm/dd/yyyy TDI057 TEST.VOL075.DSN01 1 57 75 mm/dd/yyyy TDI058 TEST.VOL075.DSN01 1 58 75 mm/dd/yyyy TDI059 TEST.VOL075.DSN01 1 59 75 mm/dd/yyyy TDI060 TEST.VOL075.DSN01 1 60 75 mm/dd/yyyy TDI061 TEST.VOL075.DSN01 1 61 75 mm/dd/yyyy TDI062 TEST.VOL075.DSN01 1 62 75 mm/dd/yyyy TDI063 TEST.VOL075.DSN01 1 63 75 mm/dd/yyyy TDI064 TEST.VOL075.DSN01 1 64 75 mm/dd/yyyy TDI065 TEST.VOL075.DSN01 1 65 75 mm/dd/yyyy TDI066 TEST.VOL075.DSN01 1 66 75 mm/dd/yyyy TDI067 TEST.VOL075.DSN01 1 67 75 mm/dd/yyyy TDI068 TEST.VOL075.DSN01 1 68 75 mm/dd/yyyy TDI069 TEST.VOL075.DSN01 1 69 75 mm/dd/yyyy TDI070 TEST.VOL075.DSN01 1 70 75 mm/dd/yyyy TDI071 TEST.VOL075.DSN01 1 71 75 mm/dd/yyyy TDI072 TEST.VOL075.DSN01 1 72 75 mm/dd/yyyy TDI073 TEST.VOL075.DSN01 1 73 75 mm/dd/yyyy TDI074 TEST.VOL075.DSN01 1 74 75 mm/dd/yyyy TDI075 TEST.VOL075.DSN01 1 75 75 mm/dd/yyyy TDI076 XXX.YYYY.VVE.V.K3456 1 1 1 mm/dd/yyyy TDI077 XXX.YYYY.VVE.V123456 1 1 1 mm/dd/yyyy TDI078 A1234567.B1234567.ZZ 1 1 1 mm/dd/yyyy TDI079 A1234567.B1234567.ZZ 1 1 1 mm/dd/yyyy TDI080 VTAPE.VVE.VTP0004.PR 1 1 1 mm/dd/yyyy TDI081 VTAPE.VVE.VTP0004.PR 1 1 1 mm/dd/yyyy TDI082 VTAPE.VVE.VTP000C.PR 1 1 1 mm/dd/yyyy TDI083 VTAPE.VVE.VTP00C0.DU 1 1 1 mm/dd/yyyy TDI084 VTAPE.VVE.VTP0004.PR 1 1 1 mm/dd/yyyy TDI085 VTAPE.VVE.VT.0V04.PR 1 1 1 mm/dd/yyyy TDI086 VTAPE.VVE.VTT.V04.PR 1 1 1 mm/dd/yyyy TDI087 VTAPE.VVE.V.T0V04.PR 1 1 1 mm/dd/yyyy TDI088 XXX.YYYY.VVE.V123456 1 1 1 mm/dd/yyyy TDI089 XXX.YYYY.VVE.V123456 1 1 1 mm/dd/yyyy TDI090 TAPE.TRACE.SL.FILE1 1 1 1 mm/dd/yyyy TDI091 TDI092 TDI093 TDI094 TDI095 TDI096 TDI097
// EXEC CATERL18, // PRM='VSN,USER REPORT BY VSN' //CATECOGO.SYSIN18 DD * VSN DSN_20 FILESEQ VOLSEQ VOLCNT KEEPDT
For compatibility, TLERPT18 accepts most of the TLMS018 field names with the following exceptions:
The following fields were added to the TLERPT18 report to allow reporting on the data items:
|
Field |
Length |
Type |
Source |
|---|---|---|---|
|
USER_DATA1 |
15 |
CHAR |
Positions 01-15 of USER_DATA |
|
JOB_ACCT |
15 |
CHAR |
Positions 01-15 of USER_DATA |
|
USER_DATA2 |
15 |
CHAR |
Positions 16-31 of USER_DATA |
|
PGMR_NAME |
15 |
CHAR |
Positions 16-31 of USER_DATA |
|
USER_DATA3 |
29 |
CHAR |
Positions 31-59 of USER_DATA |
|
P_SCR_SOURCE |
3 |
CHAR |
Scratch source (TRS, JCL, MAN, EDM) |
|
P_SCHD_PTR |
1 |
NUM |
Current position in schedule |
|
P_RTN_SOURCE |
3 |
CHAR |
Retention source (JCL, RMF, MAN, RTR) |
|
P_RTN_DATA |
53 |
CHAR |
Complete retention schedule |
|
P_RTN_ENTRY1 |
8 |
CHAR |
1st retention schedule entry |
|
P_RTN_ENTRY2 |
8 |
CHAR |
2nd retention schedule entry |
|
P_RTN_ENTRY3 |
8 |
CHAR |
3rd retention schedule entry |
|
P_RTN_ENTRY4 |
8 |
CHAR |
4th retention schedule entry |
|
P_RTN_ENTRY5 |
8 |
CHAR |
5th retention schedule entry |
|
P_RTN_ENTRY6 |
8 |
CHAR |
6th retention schedule entry |
|
P_CUR_ENTRY |
8 |
CHAR |
Current retention schedule entry |
|
P_LST_ENTRY |
8 |
CHAR |
Last retention schedule entry |
Each P_RTN_ENTRYn is subdivided into the following fields for individual field-level reporting:
|
Field |
Length |
Type |
Source |
|---|---|---|---|
|
P_RTN_TYPEn |
1 |
CHAR |
nth retention entry type |
|
P_RTN_LOCn |
2 |
CHAR |
nth retention entry location |
|
P_RTN_COUNTn |
5 |
NUM |
nth retention entry count field |
The P_CUR_ENTRY field is subdivided as follows:
|
Field |
Length |
Type |
Source |
|---|---|---|---|
|
P_CUR_TYPE |
1 |
CHAR |
Current retention entry type |
|
P_CUR_LOC |
2 |
CHAR |
Current retention entry location |
|
P_CUR_COUNT |
5 |
NUM |
Current retention entry count field |
The P_LST_ENTRY field is subdivided as follows:
|
Field |
Length |
Type |
Source |
|---|---|---|---|
|
P_LST_TYPE |
1 |
CHAR |
Last retention entry type |
|
P_LST_LOC |
2 |
CHAR |
Last retention entry location |
|
P_LST_COUNT |
5 |
NUM |
Last retention entry count field |
Two COPY members in the hlq.CTAPECPB library let the retention schedule data be used in user written TLMS programs. To use these fields, place the following copy statement after the COPY EARLDEFS statement in your code:
COPY TLERETND
To populate the print data fields for the retention data, add the following statement to your program logic, after the selection criteria logic:
COPY TLERETNE
|
Copyright © 2014 CA.
All rights reserved.
|
|