The following defines the records passed to z/OS EARL Service. The TYPE notation indicates whether a field is a character (X), binary (B) or packed decimal (P).
Important! You must issue a COPY statement (COPY EARLDEFS) to bring these definitions into your z/OS EARL Service program from the CAI.CTAPECPB library.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !! COPYRIGHT (C) 1984, 2010 BY CA, INC. !! !! ALL RIGHTS RESERVED !! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !OPTION PRINTER=132 ! MANUAL FMT DATES IN REPORT ! OPTION PRTEXIT=CTSPDATE ! AUTO FORMAT DATES IN REPORT ! TAPEDB: FILE TLMSEARL RECORD=768 DEF TYPRUN = TLMSEARL 5-14 X COPY CTEARLCM - - - - - - - - - - - - - - COPY CODE - - - - - - - - -- - - - - - - DEF TAPE_DB_RECORD 001-512 X 'TAPE DB' 'RECORD'
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! TAPE RECORD - COMMON AREA ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! DEF FORMAT_INDICATOR 001-001 B 'FORMAT' 'INDICATOR' DEF RECORD_TYPE 002-002 X 'RECORD' 'TYPE' DEF PRODUCT_CODE 003-004 X 'PRODUCT' 'CODE' DEF PRODUCT_RELEASE 005-006 X 'PRODUCT' 'RELEASE' DEF VOLSER 007-012 X 'VOLSER' DEF VOLSEQ 013-014 B 'VOL' 'SEQ' PIC 'ZZZZZ' DEF BASEVOL 015-020 X 'BASE' 'VOLSER' DEF FILESEQ 021-022 B 'FILE' 'SEQ' PIC 'ZZZZZ' DEF FILECNT 023-024 B 'FILE' 'CNT' PIC 'ZZZZZ' DEF EXPDT 025-028 P 'EXPIRATION' 'DATE' PIC 'ZZ99/999 ' DEF DSN 029-072 X 'DATA SET NAME' DEF RECFM 073-076 X 'REC' 'FMT' DEF LRECL 077-080 B 'REC' 'LEN' DEF BLKSIZE 081-084 B 'BLOCK' 'SIZE' DEF BLKCNT 085-088 B 'BLOCK' 'COUNT' DEF CDATE 089-092 P 'CREATE' 'DATE' PIC 'ZZ99/999 ' DEF CTIME 093-096 P 'CREATE' 'TIME' PIC BWZ 'Z99:99:99' DEF CJOB 097-104 X 'CREATE' 'JOBNAME' DEF CSTEP 105-112 X 'CREATE' 'STEP' DEF CDDNAME 113-120 X 'CREATE' 'DDNAME' DEF CUNIT 121-124 X 'CREATE' 'UNIT' DEF CLOSE_IND 125-125 X 'CLS' 'IND' DEF LDATE 126-129 P 'LAST' 'DATE' PIC 'ZZ99/999 ' DEF LTIME 130-133 P 'LAST' 'TIME' PIC BWZ 'Z99:99:99' DEF LJOB 134-141 X 'LAST' 'JOB' DEF LUNIT 142-145 X 'LAST' 'UNIT' DEF COPYCAT_IND 146-146 X 'COPYCAT' 'IND' DEF DEN 147-150 X 'DEN' DEF LABEL_TYPE 151-153 X 'LBL' 'TYP' DEF SCRATCH_IND 154-154 X 'SCR' 'IND' DEF TRTCH 155-158 X 'TRTCH' DEF USECLN 159-160 B 'USE' 'CLN' PIC 'ZZZZZ' DEF CLNCNT 161-162 B 'CLN' 'CNT' PIC 'ZZZZZ' DEF DATECLN 163-166 P 'DATE' 'CLEANED' PIC 'ZZ99/999 ' DEF BTHDATE 167-170 P 'BIRTH' 'DATE' PIC 'ZZ99/999 ' DEF PURDATE 167-170 P 'PURCHASE' 'DATE' PIC 'ZZ99/999 ' DEF USECNT 171-172 B 'USE' 'CNT' PIC 'ZZZZZ' DEF COUNT 171-172 B 'USE' 'CNT' PIC 'ZZZZZ' DEF OUTDATE 173-176 P 'DATE' 'MOVED' PIC 'ZZ99/999 ' DEF MOVEDATE 173-176 P 'DATE' 'MOVED' PIC 'ZZ99/999 ' DEF OUTCODE 177-180 X 'LOC' 'ID' DEF OUTLOC 177-180 X 'LOC' 'ID' DEF COMMON_RSRVA 181-186 X DEF TEMP_READ_CLEAN 187-188 B 'TREAD' 'CLEAN' PIC 'ZZZZZ' DEF TEMP_WRITE_CLEAN 189-190 B 'TWRITE' 'CLEAN' PIC 'ZZZZZ' DEF PERM_READ_CLEAN 191-192 B 'PREAD' 'CLEAN' PIC 'ZZZZZ' DEF PERM_WRITE_CLEAN 193-194 B 'PWRITE' 'CLEAN' PIC 'ZZZZZ' DEF TEMP_READ_INIT 195-196 B 'TREAD' 'INIT' PIC 'ZZZZZ' DEF TEMP_WRITE_INIT 197-198 B 'TWRITE' 'INIT' PIC 'ZZZZZ' DEF PERM_READ_INIT 199-200 B 'PREAD' 'INIT' PIC 'ZZZZZ' DEF PERM_WRITE_INIT 201-202 B 'PWRITE' 'INIT' PIC 'ZZZZZ' DEF VENDOR 203-210 X 'VENDOR' DEF SERVICE_IND 211-214 X 'SRV' 'IND' DEF CPUID 215-218 X 'CPU' 'ID' DEF EDMID 219-226 X 'EDM' 'ID' DEF OWNER 219-226 X 'VOLUME' 'OWNER' DEF ACCT 227-286 X 'USER' 'DATA' DEF USER_DATA 227-286 X 'USER' 'DATA' DEF VOLUME_COUNT 287-288 B 'VOLUME' 'COUNT' PIC 'ZZZZZ' DEF CREATE_PROGRAM 289-296 X 'CREATE' 'PROGRAM' DEF LAST_USE_PROGRAM 297-304 X ' LAST ' 'PROGRAM' DEF ROBOT_TYPE 305-312 X 'ROBOT' 'TYPE' DEF ROBOT_NUMBER 313-315 X 'ROBOT' 'NUM' DEF ACTUAL_VOLSER 316-321 X 'ACTUAL' 'VOLSER' DEF ACTUAL_VOL_IND 322-322 X 'ACV' 'IND' DEF SMS_CLASS 323-330 X 'SMS' 'CLASS' DEF COMMON_RSRV0 331-331 X DEF VOL_DEGAUS 332-332 X 'VOL' 'DEG' DEF FILE_IS_CAT 333-333 X 'OS ' 'CAT' DEF VLT_SPEC_REQ 334-334 X 'VLT' 'REQ' DEF NON_RES_IND 335-335 X 'NON' 'RES' DEF SLOT 336-342 X 'SLOT' DEF COMMON_RSRV 343-356 X !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! TAPE RECORD - TLMS SPECIFIC AREA ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! DEF TLMS_RESERVED 357-438 X DEF ACTIVE_FILES 439-440 B 'ACTIVE' 'FILES' PIC 'ZZZZZ' DEF TAPE_LENGTH 441-442 B 'TAPE' 'LENGTH' PIC 'ZZZZZ' DEF TAPE_TYPE 443-444 X 'TAPE' 'TYPE' DEF USES_CERTIFY 445-446 B 'USES' 'CERTIFIED' PIC 'ZZZZZ' DEF TIMES_CERTIFY 447-448 B 'TIMES' 'CERTIFIED' PIC 'ZZZZZ' DEF DATE_CERTIFY 449-452 P 'DATE' 'CERTIFIED' PIC 'ZZ99/999 ' DEF CDS_FILE_SEQ 453-454 B 'CDS FILE' 'SEQUENCE' PIC 'ZZZZZ' DEF DATE_SCRATCHED 455-458 P 'DATE' 'SCRATCHED' PIC 'ZZ99/999 ' DEF RTN_DATA 459-490 X 'RETENTION' 'DATA' DEF DSN_KEEP_DATE 491-494 P 'DSN KEEP' 'DATE' PIC 'ZZ99/999 ' DEF UNUSED1 495-502 X DEF VOLUME_KEEP_DATE 503-506 P 'VOL KEEP' 'DATE' PIC 'ZZ99/999 ' DEF VOLUME_EXPDT 507-510 P 'VOL EXPDT' PIC 'ZZ99/999 ' DEF SCRATCH_SOURCE 511-511 X 'SCRATCH' 'SOURCE' DEF SPARE_FLAG 512-512 X 'SPARE' 'FLAG' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! TAPE RECORD - CA-1 SPECIFIC AREA ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! DEF CA1_RSRV 357-380 X DEF FLAG1_SCR 381-381 X 'SCR' 'FLG' DEF FLAG2_TEM 382-382 X 'TEM' 'IND' DEF PREVVOL 383-388 X 'PREV' 'VOLUME' DEF NEXTVOL 389-394 X 'NEXT' 'VOLUME' DEF F1STVSN 395-400 X 'FIRST' 'VOLUME' DEF FIRST_DSNB 401-404 B 'FIRST' 'DSNB' DEF LSTDSNB 405-408 B 'LAST' 'DSNB' DEF CURDSNB 409-412 B 'CURR' 'DSNB' DEF PREV 413-416 B 'PREV' 'DSNB' DEF NEXT 417-420 B 'NEXT' 'DSNB' DEF DSN17 421-437 X 'HDR1' 'DATA SET NAME' DEF UNUSED2 438-440 X DEF FLAG1_RDS 441-441 X 'RDS' 'IND' DEF FLAG1_DEL 442-442 X 'DEL' 'IND' DEF FLAG1_CLN 443-443 X 'CLN' 'IND' DEF FLAG1_UPD 444-444 X 'UPD' 'IND' DEF FLAG1_INT 445-445 X 'INT' 'IND' DEF FLAG2_ETM 446-446 X 'ETM' 'IND' DEF FLAG2_EDD 447-447 X 'EDD' 'IND' DEF FLAG2_ECC 448-448 X 'ECC' 'IND' DEF FLAG2_E99 449-449 X 'E99' 'IND' DEF FLAG4_SMS 450-450 X 'SMS' 'IND' DEF FLAG1_TMS 451-451 X 'TMS' 'IND' DEF FLAG2_REC 452-452 X 'REC' 'IND' DEF FLAG2_OUT 453-453 X 'OUT' 'IND' DEF FLAG2_CAT 454-454 X 'CAT' 'IND' DEF FLAG3_DYN 455-455 X 'DYN' 'IND' DEF FLAG3_EDM 456-456 X 'EDM' 'IND' DEF FLAG3_BAD 457-457 X 'BAD' 'IND' DEF PROGRAM_ID 458-465 X 'PROGRAM' 'NAME' DEF AUDATE 466-469 P 'AUDIT' 'DATE' PIC 'ZZ99/999 ' DEF AUTIME 470-473 P 'AUDIT' 'TIME' PIC BWZ 'Z99:99:99' DEF USERID 474-481 X 'USERID' DEF AUCODE 482-482 B 'AUDIT' 'CODE' DEF CA1_RSRV2 483-485 X DEF ACTIND 486-486 X 'ACT' 'IND' DEF EXCEPTION_CODES 487-489 X 'EXCEPTION' 'CODES' DEF VOLFLG1 490-490 B 'F1' PIC H DEF VOLFLG2 491-491 B 'F2' PIC H DEF VOLFLG3 492-492 B 'F3' PIC H DEF VOLFLG4 493-493 B 'F4' PIC H DEF VOLFLG5 494-494 B 'F5' PIC H DEF VOLFLG6 495-495 B 'F6' PIC H DEF CA1_RSRV3 496-496 X DEF DSNBFLG1 497-497 B 'F1' PIC H DEF DSNBFLG2 498-498 B 'F2' PIC H DEF CA1_RSRV4 499-500 X DEF EXTERNAL_VAULT 501-501 X 'EXTERNAL' 'VAULT' DEF DATASET_ERASE 502-502 X 'DATASET' 'ERASE' DEF DEFAULT_EXPDT 503-503 X 'DEFAULT' 'EXPDT' DEF MULTI_FILES 504-504 X 'MULTI' 'FILES' DEF CA1_RSRV5 505-512 X - - - - - - - - - - - - - - COPY ENDS - - - - - - - - -- - - - - - - DEF DB_EXT 513-768 X DEF TAPE_AREA_RECORD 001-768 X COPY CTEARLCN - - - - - - - - - - - - - - COPY CODE - - - - - - - - -- - - - - - - !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! TAPE DATABASE I/O (TYPRUN) ! ! FUNCTIONS DATA SETS IN ORDER BY ! ! VOLUME - FIRST ON VOL VOLSER ! ! SEQUENTIAL - ALL VOLSER, FILESEQ ! ! CHAINED - ALL BASE VOLUME, FILESEQ! ! REPORT - REPORT FILE USAGE ! ! VAULT - VAULT FILE USAGE ! ! AUDIT - AUDIT FILE USAGE ! ! RETENTION - RETENTION FILE USAGE ! ! FILE - CONVERTIBLE DATA USAGE ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! DEF R_VOLUME (X 10) = 'VOLUME ' DEF R_SEQUENTIAL (X 10) = 'SEQUENTIAL' DEF R_CHAINED (X 10) = 'CHAINED ' DEF R_REPORT (X 10) = 'REPORT ' DEF R_VAULT (X 10) = 'VAULT ' DEF R_AUDIT (X 10) = 'AUDIT ' DEF R_RETENTION (X 10) = 'RETENTION ' DEF R_FILE (X 10) = 'FILE ' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! DATE FUNCTIONS ! ! FUNCTION = RETURN_DATE ! ! ADD_DAYS ! ! ADD_YEARS ! ! ADD_WORK ! ! NUM_DAYS ! ! TO_EXPLODED ! ! TO_EXTERNAL ! ! FROM_EXTERNAL ! ! SET_FORMAT ! ! SUB_DAYS ! ! SUB_YEARS ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! DEF DATE_FMT (X 10) = 'DEFAULT ' DEF FUNCTION (X 80) = NONE DEF DAYS (P 7.0) = 0 DEF YEARS (P 7.0) = 0 DEF RUNDATE (P 7.0) = 0 DEF RUNTIME (P 7.0) = 0 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! DATE TYPES (TEST VALUES) ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! DEF T_ZEROS (B 5.0) = 0 DEF T_JDATE (B 5.0) = 4 DEF T_OLD_JULIAN (B 5.0) = 8 DEF T_FOREIGN (B 5.0) = 12 DEF T_LDATE (B 5.0) = 16 DEF T_CATLG (B 5.0) = 20 DEF T_CYCLE (B 5.0) = 24 DEF T_PERM (B 5.0) = 28 DEF T_CATLG_DAYS (B 5.0) = 32 DEF T_USER (B 5.0) = 36 DEF T_STATS (B 5.0) = 40 DEF T_MSG (B 5.0) = 44 DEF T_AGE (B 5.0) = 48 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! EDITED FORM OF DATE VARIABLES ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! DEF P_EXPDT (X 10) = NONE 'EXPIRATION' 'DATE' DEF P_CDATE (X 10) = NONE 'CREATE' 'DATE' DEF P_CTIME (P 6.0) = NONE 'CREATE' 'TIME' PIC '99:99:99' DEF P_LDATE (X 10) = NONE 'LAST USE' 'DATE' DEF P_LTIME (P 6.0) = NONE 'LAST USE' 'TIME' PIC '99:99:99' DEF P_DATECLN (X 10) = NONE 'DATE' 'CLEANED' DEF P_PURDATE (X 10) = NONE 'PURCHASE' 'DATE' DEF P_BTHDATE = P_PURDATE 1-10 X 'PURCHASE' 'DATE' DEF P_MOVEDATE (X 10) = NONE 'DATE' 'MOVED' DEF P_OUTDATE = P_MOVEDATE 1-10 X 'DATE' 'MOVED' DEF P_RUNDATE (X 10) = NONE 'RUN' 'DATE' DEF P_RUNTIME (P 6.0) = NONE 'RUN' 'TIME' PIC '99:99:99' DEF P_DATE_CERTIFY (X 10) = NONE 'DATE' 'CERTIFIED' DEF P_DATE_SCRATCHED (X 10) = NONE 'DATE' 'SCRATCHED' DEF P_DSN_KEEP_DATE (X 10) = NONE 'DSN KEEP' 'DATE' DEF P_VOLUME_KEEP_DATE (X 10) = NONE 'VOL KEEP' 'DATE' DEF P_VOLUME_EXPDT (X 10) = NONE 'VOL EXPDT' DEF P_AUDATE (X 10) = NONE 'AUDIT' 'DATE' DEF P_AUTIME (P 6.0) = NONE 'AUDIT' 'TIME' PIC '99:99:99' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! DATA BLOCK FOR TO_EXPLODED DATE FUNCTION ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! DEF P_EXP_DATA (X 64) = NONE DEF P_EXP_TYPDAT = P_EXP_DATA 01-04 B 'TYPE OF' 'DATE' DEF P_EXP_TYPNAM = P_EXP_DATA 05-14 X 'TYPE OF' 'DATE' DEF P_EXP_TYPALT = P_EXP_DATA 15-20 X 'ALT' 'KEYWORD' DEF P_EXP_DAYNAM = P_EXP_DATA 21-30 X 'DAY OF' 'WEEK' DEF P_EXP_DAYABV = P_EXP_DATA 31-33 X 'DAY OF' 'WEEK' DEF P_EXP_DOW = P_EXP_DATA 34-34 X 'DAY OF' 'WEEK' DEF P_EXP_DAYTYP = P_EXP_DATA 35-35 X 'DAY' 'TYPE' DEF P_EXP_LYR = P_EXP_DATA 36-36 X 'LEAP' 'YEAR' DEF P_EXP_PAKDDD = P_EXP_DATA 37-40 P 'JULIAN' 'DATE' DEF P_EXP_MONNAM = P_EXP_DATA 41-50 X 'MONTH' DEF P_EXP_MONABV = P_EXP_DATA 51-53 X 'MONTH' DEF P_EXP_ALLDAT = P_EXP_DATA 54-64 X 'ALL' 'DATE' DEF P_EXP_MM = P_EXP_ALLDAT 01-02 X 'MONTH' DEF P_EXP_DD = P_EXP_ALLDAT 03-04 X 'DAY' DEF P_EXP_YYYY = P_EXP_ALLDAT 05-08 X 'YEAR' DEF P_EXP_DDD = P_EXP_ALLDAT 09-11 X 'JULIAN' 'DAY' - - - - - - - - - - - - - - COPY ENDS - - - - - - - - -- - - - - - - COPY TLEYCOMP - - - - - - - - - - - - - - COPY CODE - - - - - - - - -- - - - - - - ! ! REPLACE AND CENTER YOUR COMPANY NAME WITHIN THE SINGLE QUOTES BELOW. ! THIS VALUE WILL BE USED ON THE REPORT TITLE FOR TLMS EARL REPORTS. ! DEF COMPANY_NAME (X 30) = 'C O M P A N Y N A M E ' - - - - - - - - - - - - - - COPY ENDS - - - - - - - - -- - - - - - -
|
Copyright © 2014 CA.
All rights reserved.
|
|