!

! TAPE RECORD - COMMON AREA

!

DEF FORMAT_INDICATOR

001-001

B

'FORMAT' 'INDICATOR'

X 'FF'

DEF RECORD_TYPE

002-002

X

'RECORD' 'TYPE'

'1'

DEF PRODUCT_CODE

003-004

X

'PRODUCT' 'CODE'

'L0'

DEF PRODUCT_RELEASE

005-006

X

'PRODUCT' 'RELEASE'

'nn'

DEF VOLSER

007-012

X

'VOLSER'

TMVOLSER OR DSNBVSN

DEF VOLSEQ

013-014

B

'VOL' 'SEQ'

TMVOLSEQ

DEF BASEVOL

015-020

X

'BASE' 'VOLSER'

TMFRSVOL/TMVOLSER/DSNBVSN

DEF FILESEQ

021-022

B

'FILE' 'SEQ'

DSNBFSN

DEF FILECNT

023-024

B

'FILE' 'CNT'

TM#DSNBS + 1

DEF EXPDT

025-028

P

'EXPIRATION' 'DATE'

TMEXPDT

DEF DSN

029-072

X

'DATA SET NAME'

TMDSN OR DSNBDSN

DEF RECFM

073-076

X

'REC' 'FMT'

TMRECFM OR DSNBRFM(XLATED)

DEF LRECL

077-080

B

'REC' 'LEN'

TMLRECL OR DSNBLRECL

DEF BLKSIZE

081-084

B

'BLOCK' 'SIZE'

TMBLKSI DSNBBLKS

DEF BLKCNT

085-088

B

'BLOCK' 'COUNT'

TMBLKCNT DSNBBLKC

DEF CDATE

089-092

P

'CREATE' 'DATE'

TMCRTDT DSNBCRDT

DEF CTIME

093-096

P

'CREATE' 'TIME'

TMCRTTI DSNBCRTM

DEF CJOB

097-104

X

'CREATE' 'JOBNAME'

TMJOBNM DSNBCJN

DEF CSTEP

105-112

X

'CREATE' 'STEP'

TMSTPNAM DSNBCSN

DEF CDDNAME

113-120

X

'CREATE' 'DDNAME'

TMDDNAME

DEF CUNIT

121-124

X

'CREATE' 'UNIT'

TMCRUNI XLATED

DEF CLOSE_IND

125-125

X

'CLS' 'IND'

TMFLAG1 'C', 'O' OR 'A' *SEE NOTE

DEF LDATE

126-129

P

'LAST' 'DATE'

TMLASUSD

DEF LTIME

130-133

P

'LAST' 'TIME'

TMLASUST

DEF LJOB

134-141

X

'LAST' 'JOB'

TMLASUSJ

DEF LUNIT

142-145

X

'LAST' 'UNIT'

TMUSUNI XLATED

DEF COPYCAT_IND

146-146

X

'COPYCAT' 'IND'

TMFLAG3 'Y' OR 'N'

DEF DEN

147-150

X

'DEN'

TMDEN XLATED

DEF LABEL_TYPE

151-153

X

'LBL' 'TYP'

TMLTYPE XLATED

DEF SCRATCH_IND

154-154

X

'SCR' 'IND'

TMFLAG1 'Y' OR 'N'

DEF TRTCH

155-158

X

'TRTCH'

TMTRTCH XLATED

DEF USECLN

159-160

B

'USE' 'CLN'

TMUSECLN

DEF CLNCNT

161-162

B

'CLN' 'CNT'

TMCLNCNT

DEF DATECLN

163-166

P

'DATE' 'CLEANED'

TMDATCLN

DEF BTHDATE

167-170

P

'BIRTH' 'DATE'

TMBTHDAT

DEF PURDATE

167-170

P

'PURCHASE' 'DATE'

TMBTHDAT

DEF USECNT

171-172

B

'USE' 'CNT'

TMUCOUNT

DEF COUNT

171-172

B

'USE' 'CNT'

TMUCOUNT

DEF OUTDATE

173-176

P

'DATE' 'MOVED'

TMOUTDAT

DEF MOVEDATE

173-176

P

'DATE' 'MOVED'

TMOUTDAT

DEF OUTCODE

177-180

X

'LOC' 'ID'

TMOUTAR

DEF OUTLOC

177-180

X

'LOC' 'ID'

TMOUTAR

DEF STACKING_INUSE

181-181

X

'STK' 'USE'

TMFLAG4 TMINUSE Y/N

DEF STACKING_FULL

182-182

X

'STK' 'FUL'

TMFLAG4 TMNOSTAK Y/N

DEF STACKING_VOLUME

183-183

X

'STK' 'VOL'

TMFLAG5 TMSTACK Y/N

DEF VOL_PERCENTAGE

184-184

B

TMVOLP

DEF FILE_PERCENTAGE

185-185

B

'FIL' 'USE'

TMFILEP or DSNBPERC

DEF COMPRESSION

186-186

B

'COMP' 'RATE'

TMCMPRS or DSNBCPRS

DEF TEMP_READ_CLEAN

187-188

B

'TREAD' 'CLEAN'

TMTRERRC

DEF TEMP_WRITE_CLEAN

189-190

B

'TWRITE' 'CLEAN'

TMTWERRC

DEF PERM_READ_CLEAN

191-192

B

'PREAD' 'CLEAN'

TMPRERRC

DEF PERM_WRITE_CLEAN

193-194

B

'PWRITE' 'CLEAN'

TMPWERRC

DEF TEMP_READ_INIT

195-196

B

'TREAD' 'INIT'

TMTRERRI

DEF TEMP_WRITE_INIT

197-198

B

'TWRITE' 'INIT'

TMTWERRI

DEF PERM_READ_INIT

199-200

B

'PREAD' 'INIT'

TMPRERRI

DEF PERM_WRITE_INIT

201-202

B

'PWRITE' 'INIT'

TMPWERRI

DEF VENDOR

203-210

X

'VENDOR'

TMVENDOR

DEF SERVICE_IND

211-214

X

'SRV' 'IND'

TMFLAG3 ' ' or 'BAD'

DEF CPUID

215-218

X

'CPU' 'ID'

TMVACPU

DEF EDMID

219-226

X

'EDM' 'ID'

TMEDMID

DEF OWNER

219-226

X

'VOLUME' 'OWNER'

TMEDMID

DEF ACCT

227-286

X

'USER' 'DATA'

TMUSER

DEF USER_DATA

227-286

X

'USER' 'DATA'

TMUSER

DEF VOLUME_COUNT

287-288

B

'VOLUME' 'COUNT'

Not valid for CA 1

DEF CREATE_PROGRAM

289-296

X

'CREATE' 'PROGRAM'

TMCPGM DSNBCPGM

DEF LAST_USE_PROGRAM

297-304

X

'LAST' 'PROGRAM'

TMLPGM

DEF ROBOT_TYPE

305-312

X

'ROBOT' 'TYPE'

TMROBTY

DEF ROBOT_NUMBER

313-315

N

'ROBOT' 'NUM'

TMROBID

DEF ACTUAL_VOLSER

316-321

X

'ACTUAL' 'VOLSER'

CL6

DEF ACTUAL_VOL_IND

322-322

X

'ACV' 'IND'

TMFLAG4 'Y' OR 'N'

DEF SMS_CLASS

323-330

X

'SMS' 'CLASS'

TMSMSMC DSNBSMSM

DEF COMMON_RSRV0

331-331

X

DEF VOL_DEGAUS

332-332

X

'VOL' 'DEG'

TMFLAG4 'Y' OR 'N'

DEF FILE_IS_CAT

333-333

X

'OS' 'CAT'

TMFLAG4 'Y' OR 'N'

VLT_SPEC_REQ

334-334

X

'VLT' 'REQ'

TMFLAG4 'Y' OR 'N'

NON_RES_IND

335-335

X

'NON' 'RES'

TMFLAG4 'Y' OR 'N'

DEF SLOT

336-342

X

'SLOT'

TMSLOT

DEF WORM_ID

343-354

X

'WORM' 'ID'

PIC H

DEF WORM_COUNT

355-356

B

'WORM' 'CNT'

PIC'ZZZZZ'

DEF WORM_IND

357-357

X

'WORM' 'IND.'

DEF BYTE PERCENTAGE

358-358

B

'BYTE' 'PERC'

PIC 'ZZZ'

DEF COMMON_RSRV

359-360

X

DEF BES_KEY

361-364

B

'BES'

'KEY'

!

! TAPE RECORD - TLMS SPECIFIC AREA

!

DEF TLMS_RESERVED

365-430

X

DEF VOLUME_OUTSRV

431-434

x

'OUTSRV' 'CODES'

DEF VOLUME_LOST_CODE

431-431

X

'LOST' 'CODE'

DEF VOLUME_DAMG_CODE

432-432

X

'DAMG' 'CODE'

DEF VOLUME_DEST_CODE

433-433

X

'DEST' 'CODE'

DEF VOLUME_SPAR_CODE

434-434

X

DEF VOLUME_DEST_DATE

435-438

p

'DESTROY' 'DATE' PIC 'ZZ99/999'

DEF ACTIVE_FILES

439-440

B

'ACTIVE' 'FILES'

DEF TAPE_LENGTH

441-442

B

'TAPE' 'LENGTH'

DEF TAPE_TYPE

443-444

X

'TAPE' 'TYPE'

DEF USES_CERTIFY

445-446

B

'USES' 'CERTIFIED'

DEF TIMES_CERTIFY

447-448

B

'TIMES' 'CERTIFIED'

DEF DATE_CERTIFY

449-452

P

'DATE' 'CERTIFIED'

DEF CDS_FILE_SEQ

453-454

B

'CDS FILE' 'SEQUENCE'

DEF DATE_SCRATCHED

455-458

P

'DATE' 'SCRATCHED'

DEF RTN_DATA

459-490

X

'RETENTION' 'DATA'

DEF DSN_KEEP_DATE

491-494

P

'DSN KEEP' 'DATE'

DEF CREATE_PROGRAM

495-502

X

'CREATING' 'PROGRAM'

DEF VOLUME_KEEP_DATE

503-506

P

'VOL KEEP' 'DATE'

DEF VOLUME_EXPDT

507-510

P

'VOL' 'EXPDT'

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

365-380

X

DEF FLAG1_SCR

381-381

X

'SCR' 'FLG'

TMFLAG1 'Y' or 'N'

DEF FLAG2_TEM

382-382

X

'TEM' 'IND'

TMFLAG2 'Y' or 'N'

DEF PREVVOL

383-388

X

'PREV' 'VOLUME'

TMPRVVOL

DEF NEXTVOL

389-394

X

'NEXT' 'VOLUME'

TMNXTVOL

DEF F1STVSN

395-400

X

'FIRST' 'VOLUME'

DSNBFVSN

DEF FIRST_DSNB

401-404

B

'FIRST' 'DSNB'

TMADSNB

DEF LSTDSNB

405-408

B

'LAST' 'DSNB'

TMALDSNB

DEF CURDSNB

409-412

B

'CURR' 'DSNB'

DSNBCURR

DEF PREV

413-416

B

'PREV' 'DSNB'

DSNBPREV

DEF NEXT

417-420

B

'NEXT' 'DSNB'

DSNBNEXT

DEF DSN17

421-437

X

'HDR1' 'DATA SET NAME'

TMDSN17

DEF UNUSED2

438-439

X

DEF CATALOG_COUNT

440-440

B

'CAT' 'CNT'

TMCATCNT or DSNBCCNT

DEF FLAG1_RDS

441-441

X

'RDS' 'IND'

TMFLAG1 'Y' or 'N'

DEF FLAG1_DEL

442-442

X

'DEL' 'IND'

TMFLAG1 'Y' or 'N'

DEF FLAG1_CLN

443-443

X

'CLN' 'IND'

TMFLAG1 'Y' or 'N'

DEF FLAG1_UPD

444-444

X

'UPD' 'IND'

TMFLAG1 'Y' or 'N'

DEF FLAG1_INT

445-445

X

'INT' 'IND'

TMFLAG1 'Y' or 'N'

DEF FLAG2_ETM

446-446

X

'ETM' 'IND'

TMFLAG2 'Y' or 'N'

DEF FLAG2_EDD

447-447

X

'EDD' 'IND'

TMFLAG2 'Y' or 'N'

DEF FLAG2_ECC

448-448

X

'ECC' 'IND'

TMFLAG2 'Y' or 'N'

DEF FLAG2_E99

449-449

X

'E99' 'IND'

TMFLAG2 'Y' or 'N'

DEF FLAG4_SMS

450-450

X

'SMS' 'IND'

TMFLAG4 'Y' OR 'N'

DEF FLAG1_TMS

451-451

X

'TMS' 'IND'

TMFLAG1 'Y' OR 'N'

DEF FLAG2_REC

452-452

X

'REC' 'IND'

TMFLAG2 'Y' or 'N'

DEF FLAG2_OUT

453-453

X

'OUT' 'IND'

TMFLAG2 'Y' or 'N'

DEF FLAG2_CAT

454-454

X

'CAT' 'IND'

TMFLAG2 'Y' or 'N'

DEF FLAG3_DYN

455-455

X

'DYN' 'IND'

TMFLAG3 'Y' or 'N'

DEF FLAG3_EDM

456-456

X

'EDM' 'IND'

TMFLAG3 'Y' or 'N'

DEF FLAG3_BAD

457-457

X

'BAD' 'IND'

TMFLAG3 'Y' or 'N'

DEF PROGRAM_ID

458-465

X

'PROGRAM' 'NAME'

BATCHID/HOOKID XLATED

DEF AUDATE

466-469

P

'AUDIT' 'DATE'

TMVADATE

DEF AUTIME

470-473

P

'AUDIT' 'TIME'

TMVATIME

DEF USERID

474-481

X

'USERID'

TMVAUSER

DEF AUCODE

482-482

X

'AUDIT' 'CODE'

TMVACODE 'Y' or 'N'

DEF CA1_RSRV2

483-485

X

DEF ACTIND

486-486

X

'ACT' 'IND'

DSNBACT 'Y' or 'N' or 'S'

DEF EXCEPTION_CODES

487-489

X

'EXCEPTION' 'CODES'

DEF VOLFLG1

490-490

B

'F1'

TMFLAG1

DEF VOLFLG2

491-491

B

'F2'

TMFLAG2

DEF VOLFLG3

492-492

B

'F3'

TMFLAG3

DEF VOLFLG4

493-493

B

'F4'

TMFLAG4

DEF VOLFLG5

494-494

B

'F5'

TMFLAG5

DEF VOLFLG6

495-495

B

'F6'

TMFLAG6

DEF CA1_RSRV3

496-496

X

DEF DSNBFLG1

497-497

B

'F1'

DSNBFLG1

DEF DSNBFLG2

498-498

B

'F2'

DSNBFLG2

DEF CA1_RSRV4

499-500

X

DEF EXTERNAL_VAULT

501-501

X

'EXTERNAL' 'VAULT'

TMFLAG3 'Y' OR 'N'

DEF DATASET_ERASE

502-502

X

'DATASET' 'ERASE'

TMFLAG3 'Y' OR 'N'

DEF DEFAULT_EXPDT

503-503

X

'DEFAULT' 'EXPDT'

TMFLAG3 'Y' OR 'N'

DEF MULTI_FILES

504-504

X

'MULTI' 'FILES'

TMFLAG3 'Y' OR 'N'

DEF CA1_RSRV

505-512

X

! 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

!

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_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 3.0) = 0

DEF T_JDATE

(B 3.0) = 4

DEF T_OLD_JULIAN

(B 3.0) = 8

DEF T_FOREIGN

(B 3.0) = 12

DEF T_LDATE

(B 3.0) = 16

DEF T_CATLG

(B 3.0) = 20

DEF T_CYCLE

(B 3.0) = 24

DEF T_PERM

(B 3.0) = 28

DEF T_CATLG_DAYS

(B 3.0) = 32

DEF T_USER

(B 3.0) = 36

DEF T_STATS

(B 3.0) = 40

DEF T_MSG

(B 3.0) = 44

DEF T_AGE

(B 3.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_DYNAM

= P_EXP_DATA 21-30 B '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'