Loading...
Select Version
&pagelevel(4)&pagelevel
DCACATE MF=D
MFCHK SUPPORT=(C,D),PREFIX=D,MACID=CAC,MF=D, C
DMACID=CAC,DNAME=CACATF
DCACATF DSECT ,
*,##### PREFIX=D, MACID=CAC #####
*
*----------------------------------------------------------------*
DECLARE FIXED PART OF CATALOG ENTRY
* ----------------------------------------------------------------
*
DCACFFP DSECT
DCACFCEL DS XL2 LENGTH OF CATALOG ENTRY
*
DCACFCE# EQU 4079 maximal length of catalog entry
DCACFEVE DS 0XL2 VERSION OF CATALOG ENTRY LAYOUT
DCACFEV1 EQU X'FF01',2
DCACFEV2 EQU X'FF02',2 BS2000/OSD-BC V3
DCACFEV3 EQU X'FF03',2 BS2000/OSD-BC V5 319
*
DCACFEFM DS X MARKER OF CE FORMAT
DCACFENW EQU X'FF' "NEW" FORMAT INTRODUCED IN V1
*
DCACFVER DS X CE VERSION
DCACFVRC EQU X'03' current CE version 319
DCACFEF1 EQU X'01' 319
DCACFEF2 EQU X'02' 319
DCACFEF3 EQU X'03' 319
*
DCACFOMP DS XL2 OFFSET MAIN PART
* JV ENTRY: MUST BE ZERO
DCACFOOP DS XL2 OFFSET OLD PART IDJE/IDCE
DCACFOFJ DS XL2 OFFSET FILE-/JV-NAME
DCACFOEX DS XL2 OFFSET CE EXTENSION IDCEX
* JV ENTRY: MUST BE ZERO
DCACFOVE DS 0XL2 OFFSET VOLUME EXTENT LIST IDVT, IDEE
DCACFOFI DS XL2 OR FGG-INDEX IDCEG
* JV ENTRY: MUST BE ZERO
DCACFOCP DS XL2 OFFSET COMMON PART
DCACFODP DS XL2 OFFSET DATE PART
DCACFOUN DS XL2 OFFSET UNUSED
* JV ENTRY: MUST BE ZERO
DCACFOHP DS XL2 OFFSET HSMS PART
* JV ENTRY: MUST BE ZERO
DCACFOPP DS XL2 OFFSET PROFILE PART
*
DCACFOF# EQU (*-DCACFOMP)/L'DCACFOMP number of offsets
DS (((*-DCACFFP+3)/4)*4+DCACFFP-*)XL1 310
DCACFFP# EQU *-DCACFFP
* ----------------------------------------------------------------
* HERE STARTS THE NEW VARIABLE PART OF THE CATALOG ENTRY
* (SEE DESCRIPTION FOR COMMON STRUCTURE, DATE STRUCTURE ETC.)
*
* THE OLD CE LAYOUT STARTS AFTER VARIABLE PART
* (SEE OLD IDCE, IDCEX ETC.)
* ----------------------------------------------------------------
*
*----------------------------------------------------------------*
DECLARE DATE STRUCTURE FOR FILE-/JV-ENTRY (UTC-Format)
* ----------------------------------------------------------------
*
DCACFDP DSECT
DCACFFPL DS XL2 LENGTH OF DATE STRUCTURE FILE
DCACFJPL DS XL2 LENGTH OF DATE STRUCTURE JV
DCACFCRD DS 0CL14 CREATION DATE PART
DCACFCRY DS CL4 YEAR
DCACFCRM DS CL2 MONTH
DCACFCRT DS CL2 DAY
DCACFCRH DS CL2 HOURS
DCACFCRI DS CL2 MINUTES
DCACFCRS DS CL2 SECONDS
* DATE/TIME UNDEFINDED: C' '
DCACFEXD DS 0CL14 EXPIRATION DATE PART
DCACFEXY DS CL4 YEAR
DCACFEXM DS CL2 MONTH
DCACFEXT DS CL2 DAY
DCACFEXH DS CL2 HOURS
DCACFEXI DS CL2 MINUTES
DCACFEXS DS CL2 SECONDS
* DATE/TIME UNDEFINDED: C' '
DCACFLAD DS 0CL14 LAST ACCESS DATE
DCACFLAY DS CL4 YEAR
DCACFLAM DS CL2 MONTH
DCACFLAT DS CL2 DAY
DCACFLAH DS CL2 HOURS
DCACFLAI DS CL2 MINUTES
DCACFLAS DS CL2 SECONDS
* DATE/TIME UNDEFINDED: C' '
DCACFLMD DS 0CL14 LAST DATE MODIFIED
DCACFLMY DS CL4 YEAR
DCACFLMM DS CL2 MONTH
DCACFLMT DS CL2 DAY
DCACFLMH DS CL2 HOURS
DCACFLMI DS CL2 MINUTES
DCACFLMS DS CL2 SECONDS
* DATE/TIME UNDEFINDED: C' '
DCACFDED DS 0CL14 DELETION DATE
DCACFDEY DS CL4 YEAR
DCACFDEM DS CL2 MONTH
DCACFDET DS CL2 DAY
DCACFDEH DS CL2 HOURS
DCACFDEI DS CL2 MINUTES
DCACFDES DS CL2 SECONDS
* DATE/TIME UNDEFINDED: C' '
DS XL2 RESERVED; MUST BE ZERO 310
DS (((*-DCACFDP+3)/4)*4+DCACFDP-*)XL1 310
DCACFDP# EQU *-DCACFDP
*
*----------------------------------------------------------------*
DECLARE COMMON STRUCTURE FOR FILE/JV-ENTRY
*----------------------------------------------------------------*
DCACFCP DSECT
DCACFCPL DS XL2 LENGTH OF COMMON PART
DCACFEHC DS CL8 EXTENDED HOST CODE
* DC C' ' UNDEFINED
* DC C'DF04 ' EBCDIC.DF.04
DCACFCTS DS XL2 CHARACTER TYPE SET
DCACFCUD EQU X'0000',2 UNDEFINED CHAR SET
DCACFEIN DS X INDICATOR
DCACFECC EQU X'80' CONVERTED CE
DCACFEUN EQU X'7F' UNUSED
DCACFCWT DS XL4 TASKID OF LAST WRITE
DCACFCWS DS XL1 SYSID OF LAST WRITE
DCACFWCC DS XL1 WRITE CHECK COUNTER
* The following fields are present only if CE_IDENTIFICATION.VERSION
* in the fixed part of the CE is at least 2.
DCACFCO0 DS XL5 RESERVED: MUST BE ZERO
DCACFMGC DS CL8 SMS MANAGEMENT CLASS
DS (((*-DCACFCP+3)/4)*4+DCACFCP-*)XL1 310
DCACFCP# EQU *-DCACFCP
*
EJECT ,
*
* ----------------------------------------------------------------
* DECLARE NEW MAIN STRUCTURE
* ----------------------------------------------------------------
*
DCACFMP DSECT
DCACFMPL DS XL2 LENGTH OF MAIN STRUCTURE
DCACFIND DS X MAIN INDICATOR
DCACFPDF EQU X'80' PD FILE
DCACFSNR EQU X'40' SPACE NOT RELEASABLE DCACFGUF EQU X'20' GUARDS FILE DCACFARW EQU X'10' ARCHIVE WORK FILE DCACFEX4 EQU X'08' EXTENT-LIST WITH 4 BYTE 319 DCACFS0W EQU X'04' WORK FILE FOR S0 MIGRATION DCACFCMF EQU X'02' CMS FILE DCACFSRB EQU X'01' SYSSRPM.BACKUP DCACFACC DS XL4 ACCESS COUNTER DCACFHCF DS 0XL4 HSMS SAVED CODED FILE ID DCACFTAP DS 0X TAPE CRITERION DCACFBA# DS XL4 # BLOCKS OF TAPE FILE DCACFBL# DS XL4 # BLOCKS RECORDED ON LAST TAPE * OF MULTIVOLUME TAPE FILE DCACFPER DS X PERFORMANCE ATTRIBUTE DCACFPVH EQU X'03' VERY HIGH DCACFPHI EQU X'02' HIGH DCACFPST EQU X'01' STANDARD (DEFAULT VALUE) DCACFUSE DS X USE ATTRIBUTE DCACFURW EQU X'03' READ-WRITE (DEFAULT VALUE) DCACFUWR EQU X'02' WRITE DCACFURE EQU X'01' READ DCACFTPE DS X PERFORMANCE ATTRIBUTE OPEN/CLOSE DCACFTVH EQU X'03' VERY HIGH DCACFTHI EQU X'02' HIGH DCACFTST EQU X'01' STANDARD (DEFAULT VALUE) DCACFTUS DS X USE ATTRIBUTE OPEN/CLOSE DCACFTRW EQU X'03' READ-WRITE (DEFAULT VALUE) DCACFTWR EQU X'02' WRITE DCACFTRE EQU X'01' READ DCACFTYA DS X DISK WRITE (FILE TYPE) DCACFTCR EQU X'02' BY CLOSE (NOT SENSITIVE) DCACFTNC EQU X'01' IMMEDIATE (SENSITIVE, DEFAULT) DCACFCAI DS X CACHE INDICATOR DCACFCAU EQU X'80' S: CACHE USED * R: CACHE NOT AVAILBALE DCACFDIG EQU X'40' S: DATA IN GLOBAL STAORAGE * R: NO DATA IN GLOBAL STORAGE DCACFDNO EQU X'20' S: DENY OPEN REQUEST * R: OPEN POSSIBLE DCACFDIC EQU X'10' S: DATA STILL IN CACHE * R: DATA NO LONGER IN CACHE DCACFWPF EQU X'08' S: WRITE PERFORMED * R: WRITE NOT PERFORMED DCACFFTS DS XL8 FILE TRANSFER INFORMATION DCACFSIN DS X SMS INDICATOR DCACFAVA EQU X'C0' AVAILABILITY: DCACFAVS EQU X'00' STANDARD DCACFAVH EQU X'40' HIGH
DCACFMIF EQU X'20' S: S0 MIGRATION FORBIDDEN
* R: S0 MIGRATION ALLOWED
DCACFSIR EQU X'1F' RESERVED: MUST BE ZERO
DCACFSAT DS X SMS FILE ATTRIBUTES
DCACFWRK EQU X'08' S: FILE IS A USER WORKFILE
DCACFFMT EQU X'07' FILE PRE-FORMAT:
DCACFFMU EQU X'00' UNDEFINED
DCACFFMK EQU X'01' K
DCACFFM2 EQU X'02' NK2
DCACFFM4 EQU X'03' NK4
DCACFIN1 DS X INDICATOR1
DCACFNER EQU X'80' DO NOT ERASE
DCACFUSF EQU X'40' USER-SPECIFIC SYSTEM FILE
DCACFD5R EQU X'20' DELETE DURING F5 RECONSTRUCTION
DCACFCSF EQU X'10' DELETE SPACEOPT H-FILES 318
DCACFNDA EQU X'08' NO DMS ACCESS
DCACFIDF EQU X'04' INCR/DECR FILE-VERSION-NR 319
DCACFI1R EQU X'03' RESERVED
*
* The following fields are present only if CE_IDENTIFICATION.VERSION
* in the fixed part of the CE is at least 2.
DCACFUTU DS CL8 USER INFORMATION FOR STATE TU
DCACFUTP DS CL8 USER INFORMATION FOR STATE TPR
DCACFSTC DS CL8 STORAGE CLASS
DCACFTAG DS X FILE TAG (IDENTIFIES SPECIFIC FILE)
DCACFTNO EQU 0 NONE
DCACFGCF EQU 1 GENERIC CATALOG
DCACFSIC DS X SYSID OF WRITE CACHER 317
*
DCACFFS4 DS XL4 FILE SIZE (4 BYTE !) 319
DCACFLP4 DS XL4 LAST HALF PAGE POINTER (4 BYTE !) 319
DS XL2 RESERVED; MUST BE ZERO 319
DS (((*-DCACFMP+3)/4)*4+DCACFMP-*)XL1 310
DCACFMP# EQU *-DCACFMP LENGTH OF STRUCTURE
*
*
* ----------------------------------------------------------------
* DECLARE NEW HSMS STRUCTURE FOR CATALOG ENTRY
* ----------------------------------------------------------------
*
DCACFHP DSECT
DCACFHVS DS XL6 HSMS VOLUME SERIAL NUMBER
DCACFHVE DS XL1 VERSION OF HSMS STRUCTURE
DCACFHVL DS XL2 VARIABLE LENGTH OF HSMS STRUCTURE
DCACFHP# EQU *-DCACFHP
*
* ----------------------------------------------------------------
* DECLARE NEW PROFILE PART (VARIABLE IN LENGTH)
* ----------------------------------------------------------------
*
DCACFPP DSECT
DCACFPPL DS XL2 LENGTH OF WHOLE PROFILE PART
DCACFPPV DS XL1 VERSION OF PROFILE PART
DCACFPPU DS XL4 :* Field has never been used
* ----------------------------------------------------------
* - HERE STARTS THE VARIABLE PART OF PROFILE NAME LIST
* - (THREE ENTRIES ARE DEFINED, 18 BYTES PER ENTRY)
* - PROFILE NAME: $USERID.NAME OR BLANK (MEANS UNDEFINED)
* ----------------------------------------------------------
DCACFPRD DS CL18 NAME OF READ PROFILE
DCACFPWR DS CL18 NAME OF WRITE PROFILE
DCACFPEX DS CL18 NAME OF EXEC PROFILE
DS XL3 *** RESERVED ***
DCACFPP# EQU *-DCACFPP
EJECT ,
IDCE D,D,NEWONLY=*YES
*
* ---------------------------------------------------------
* - OLD CATALOG ENTRY FIXED PART
* ---------------------------------------------------------
MFPRE DNAME=DCES,MF=D,ALIGN=X,PREFIX=D 300
DDCES DSECT ,
*,##### PREFIX=D, MACID= #####
DDCEES DS XL2 0-1 ENTRY SIZE
DDCEPBN DS XL2 2-3 PRIMARY BLOCK NUMBER
DDCELBN DS XL2 4-5 BLOCK NUMBER
DDCEDMS DS XL1 6 DMS INDICATOR 1
DDCEINDX EQU X'01' S FILE GENERATION GROUP INDEX -V4.0-
DDCEEPP EQU X'02' S EXEC PASSWORD
DDCESF EQU X'04' S SHARED FILE
DDCEROA EQU X'08' S READ ONLY ACCESS
DDCERPP EQU X'10' S READ PASSWORD
DDCEWPP EQU X'20' S WRITE PASSWORD
DDCEAMN EQU X'C0' PRINTER CONTROL
DDCEN EQU X'C0' R NO CONTROL CHARACTER
DDCEM EQU X'40' S MACHINE CODE CONTROL CHARACTER
DDCEA EQU X'C0' S ASA CONTROL CHARACTER
DDCEDMS2 DS XL1 7 DMS INDICATOR 2
* EQU X'80' S USED BY FSTAT MACRO/CMD-NON SHARAB
* (ONLY VERSIONS < V8.0) V10.0
DDCEFAR EQU X'80' S UDS - FAR INTERFACE V10.0
DDCEFGEN EQU X'40' S FILE IS A GENERATION
DDCEFRAP EQU X'20' S FOREIGN RANDOM ACCESS PROCESSING
* USED BY FILE MACRO AND CMS
DDCEISID EQU X'10' S ISAM INDEX AND DATA VOLUMES ARE
* PRESENT IN CATALOG ENTRY
DDCERLK EQU X'08' S: RELEASE LOCK
DDCEELK EQU X'04' S: ERASE LOCK
DDCERPI EQU X'02' S: FILE TO REPAIR INDICATOR (RPI)
15:29:06 2001-10-15 PAGE
0058
SOURCE STATEMENT
DDCEENCR EQU X'01' S: ENTRY WIYH ENCRYPTED PASSW
DDCERD DS CL4 8-11 READ PASSWORD
DDCEWRT DS CL4 12-15 WRITE PASSWORD
DDCESA DS XL2 16-17 SECONDARY ALLOCATION
DDCESAC DS XL1 18 SECONDARY ALLOCATION COUNT
DDCEEXTD DS XL1 19 DISPLACEMENT TO CATALOG ENTRY
* EXTENSION
DS CL6 UNDEFINDED DATA
DDCEMACL DS XL1 26 MINI - ACL V10.0
DDCEURD EQU X'80' S USER: READ-PRIVILEG V10.0
DDCEUWR EQU X'40' S USER: WRITE-PRIVILEG V10.0
DDCEUEX EQU X'20' S USER: EXEC-PRIVILEG V10.0
DDCEGRD EQU X'10' S GROUP: READ-PRIVILEG V10.0
DDCEGWR EQU X'08' S GROUP: WRITE-PRIVILEG V10.0
DDCEGEX EQU X'04' S GROUP: EXEC-PRIVILEG V10.0
DDCEORD EQU X'02' S OTHERS: READ-PRIVILEG V10.0
DDCEOWR EQU X'01' S OTHERS: WRITE-PRIVILEG V10.0
DDCEDTVC DS XL1 27 DATA ON TAPE VOLUME COUNT
DDCEFTP DS XL1 28 FCB FILE TYPE
DDCEFCBT EQU X'C0' FCB FILE TYPE
DDCESAM EQU X'C0' R SAM FILE
DDCEISAM EQU X'40' S ISAM FILE
DDCEBTAM EQU X'80' S BTAM FILE
DDCEPAM EQU X'C0' S PAM FILE
DDCERB DS XL1 29 RESTRICT BYTE
DDCEPRV EQU X'01' S PRIVATE VOLUME
DDCEPUB EQU X'01' R PUBLIC VOLUME
DDCERES EQU X'02' S SYSRES RESTRICTED
15:29:06 2001-10-15 PAGE
0059
SOURCE STATEMENT
DDCEFOR EQU X'04' S FOREIGN TAPE VOLUME
DDCEVIF EQU X'08' S VERY IMPORTANT FILE ( VIF )
DDCEIDVC EQU X'40' S-IGNORE DATA VOLUME COUNT
* FOR TAPE EOF PROCESSING
* EQU X'10' S ERASE/CATAL COMMAND OR MACRO V10.0
* IS ACTIVE V10.0
* (ONLY VERSIONS < V8.0) V10.0
* EQU X'20' S OPEN/CLOSE IN PROCESS V10.0
* (ONLY VERSIONS < V9.0) V10.0
DDCEDFB EQU X'80' S File contains defective block
DDCEBLK DS XL2 30-31 BUFFER SIZE
DDCESTD EQU X'80' S PAM CREATED FILE
DDCCODE DS XL1 32 CODE OF TAPE
DDCISO7 EQU X'10' ISO7 CODE
DDCEBCD EQU X'08' EBCDIC CODE
DDCOWN EQU X'04' OWN CODE ISO7
DDCNDEF EQU X'1C' CODE NOT DEFINED
DDCERT DS XL1 33 RECORD TYPE
DDCEVFU EQU X'06' RECORD TYPE
DDCERTV EQU X'02' S VARIABLE
DDCERTF EQU X'04' S FIXED
DDCERTU EQU X'06' S UNDEFINED
DDCEREC DS XL2 34-35 RECORD LENGTH
DDCEKLC DS XL2 36-37 KEY LOCATION
DDCEKLH DS XL1 38 KEY LENGTH
DDCEFSZ3 DS XL3 39-41 FILE SIZE 306
DDCELRP DS XL2 42-43 LAST RECORD POINTER
DDCEIRA DS XL1 44 EDT VERSION-COUNTER
DDCELPP3 DS XL3 45-47 LAST 1/2 PAGE POINTER 306
DDCEFN DS XL4 48-51 FILE NUMBER
DDCEVTD DS XL2 52-53 DISPLACEMENT TO THE LAST 020
*- VSN TABLE ENTRY 020
DDCEVN1 DS XL1 54 CURRENT VERSION NUMBER
DDCEVN2 DS XL1 55 BACK-UP VERSION NUMBER
DDCETYP DS XL1 56 DEVICE TYPE
DDCEVC DS XL1 57 VSN COUNT
DDCEF1 DS XL1 58 FORMAT 1 POINTER
DDCEFNC DS XL1 59 FILENAME COUNT
DDCELEN EQU *-DDCEES LENGTH OF FIXED PORTION
DDCEFNM DS CL1 60-VAR FILENAME
*-
DDCEESF EQU 1881 MAXIMAL SIZE OF EXTENTLIST WITH 3 BYTE
*- OR F1LABEL 307
DDCEES4 EQU 2496 MAXIMAL SIZE OF EXTENTLIST WITH 4 BYTE 306
EJECT ,
IDCEX D,D,NEWONLY=*YES
*
***********************************************************************
*** CATALOG ENTRY EXTENSION
***********************************************************************
MFPRE DNAME=DCEXS,MF=D,ALIGN=X,PREFIX=D 300
DDCEXS DSECT ,
*,##### PREFIX=D, MACID= #####
* CEL
DDCEEXTS EQU * START OF CATALOG ENTRY EXTENSION
DDCECNT DS XL2 FILE RECONSTRUCTION COUNT CEL
ORG DDCECNT CEL
DDCESESN DS XL1 SESSION NUMBER CEL
DDCEOCI DS XL1 OPEN-CLOSE INDICATOR -- OCI CEL
DDCECMSI DS XL1 CMS INDICATOR FLAGS CEL
DDCEWRCH EQU X'C0' 7-6 WRITE COUNT (MODULO 4) CEL
DDCEINCR EQU X'40' COUNT INCREMENT CEL
DDCEEXCL EQU X'20' 5 S=EXCLUSIVE SECURE CEL
DDCESVAC EQU X'10' 4 S=ACCESSIBLE FOR SERVICE CEL
DDCEKEYZ EQU X'0C' 3-2 S: BLKCTRL=NONE 9.5
* R: BLKCTRL=PAMKEY 9.5
DDCEKEYD EQU X'08' 3 S: BLKCTRL=NO 9.5
DDCEKEYV EQU X'04' 2 S: BLKCTRL=DATA 9.5
DDCESPCE EQU X'02' 1 RESERVED FOR SPANNED CE'S CEL
DDCESPC1 EQU X'01' 0 RESERVED FOR SPANNED CE'S CEL
* CEL
DS XL1 OPEN COUNTER V10.0
* (ONLY VERSIONS < V9.0) V10.0
DDCEDMS3 DS X DMS INDICATOR 3 CEL
DDCEPWSK EQU X'80' SKIP PASSWORDS CEL
DDCEPSCL EQU X'40' SET: PSEUDO - CLOSE CEL
DDCETEMP EQU X'20' SET: TEMPORARY INDICATOR CEL
DDCENIMC EQU X'10' SET: NOT TO BE ERASED BY IMCAT CEL
DDCESPEC EQU X'08' SET: PLAM-FILE INDICATOR 9.5
DDCESUSA EQU X'04' SPEC_USER_SPACE_ACCG CEL
15:29:06 2001-10-15 PAGE
0062
SOURCE STATEMENT
DDCEOEX EQU X'02' S: MINI-ACL: OTHERS: EXEC-PRIV. V10.0
DDCEFACP EQU X'01' S: FULL ACL PRESENT 032
DDCAUDIT DC X'00' AUDIT KEY CEL
DDCAUDNO EQU X'00' AUDIT=NONE CEL
DDCAUDSU EQU X'01' AUDIT=SUCC CEL
DDCAUDFA EQU X'02' AUDIT=FAIL CEL
DDCAUDAL EQU X'04' AUDIT=ALL CEL
DDCEFRS DS XL1 FILE RECONSTRUCTION SYSTEM CONTROL CEL
* BYTE CEL
DDCEFRRC EQU X'80' S RECON=YES CEL
DDCEFRRS EQU X'40' S RESET=YES CEL
DDCEOPT EQU X'20' S CANNOT OPEN FILE OUTPUT/OUTIN CEL
DDCECHNG EQU X'10' S CALL FILE RECONSTRUCTION SYSTEM CEL
* BEFORE OPEN CEL
DDCEMODE EQU X'08' S MOVE MODE ONLY CEL
DDCERLSK EQU X'04' S RESET FUNCTION PENDING--FILE CEL
* CANNOT BE OPENED CEL
DDCMIGFB EQU 3 MIGRATION FORBIDDEN
DDCERESS EQU 2 MIGRATION INHIBIT
DDCETRES EQU 1 MIGRATION LIMITED
DDCEIIND DS XL1 FILE INDICATOR BYTE CEL
DDCEMACP EQU X'80' S MINI ACL PRESENT 032
DDCESUW1 EQU X'40' SHARED UPDATE WEAK 100
DDCESUW2 EQU X'20' SHARED UPDATE WEAK
DDCESUW3 EQU X'10' SHARED UPDATE WEAK
DDCESUW4 EQU X'08' SHARED UPDATE WEAK
DDCENKI4 EQU X'02' NK-ISAM 4K-BLOCK-FILE 100
DDCEVMIN EQU X'01' R MIN FUNCTION FOR ISAM VALUE FLAG
DDCEVMAX EQU X'01' S MAX FUNCTION FOR ISAM VALUE FLAG
DDCELOGL DS XL1 ISAM LOGICAL FLAG LENGTH CEL
DDCEVALL DS XL1 ISAM VALUE FLAG LENGTH CEL
DDCESAD DS XL2 SECONDARY ALLOCATION(DATA) CEL
DDCEITN8 DS XL1 ITN OF LOCKER WITH VERSION # < 9 CEL
DDCELOCK DS XL1 LOCKS CEL
* XXXX.... OUTPUT LOCKS CEL
* ....XXXX CATALOG LOCKS CEL
* CEL
DDCE$UID DS CL8 ALPHA-NUMERIC $USERID CEL
DS XL4 UNDEFINDED DATA
DDCEEX DS XL4 EXEC PASSWORD CEL
DDCEF1EX DS XL1 LEFTMOST BYTE OF F1 POINTER CEL
* CEL
DDCEMEMB DS 4CL2 SHARER-ID/INPUT COUNTER (4 TIMES) CEL
* SHARER-1 : SHARER-ID : 1 BYTE ; INPUT COUNTER : 1 BYTE CEL
* SHARER-2 : SAME --> 2 BYTES CEL
* SHARER-3 : SAME --> 2 BYTES CEL
* SHARER-4 : SAME --> 2 BYTES CEL
ORG DDCEMEMB CEL
* THE BYTES USED BY THE PRIVATE DISK FILES ARE REDEFINED FOR USE BY CEL
* TAPE FILES. CEL
DDCETPID DS X TAPE INDICATORS CEL
DDCEPFT EQU X'80' S - PERMANENT FOREIGN TAPE CEL
DDCESTDL EQU X'40' S - STD LABELS CEL
DDCENSTD EQU X'20' S -NSTD LABELS CEL
DDCENOLB EQU X'10' S -NO LABELS CEL
DDCEDIN3 EQU X'08' S -LABEL TYPE=DIN3 CEL
DDCEDIN2 EQU X'04' S - DIN2 CEL
DDCEDIN1 EQU X'02' S - DIN1 CEL
DDCEBS2 EQU X'01' S - BS2000 CEL
DDCEBUFO DS X BUFFER OFFSET CEL
DDCEFSEQ DS XL2 FILE SEQUENCE NUMBER CEL
DDCEDLAB DS X DIN LABEL 100
DDCEDL00 EQU X'00' DIN LABEL UNDEFINED 100
DS CL3 UNUSED CEL
* CEL
* CEL
DDCEARLV DC X'00' CEL
* THE FIRST 4 BITS ARE RESERVED FOR SAVE/RESTORE CEL
DDCEARCA EQU X'00' BACKUP LEVEL=A CEL
DDCEARCB EQU X'10' BACKUP LEVEL=B CEL
DDCEARCC EQU X'20' BACKUP LEVEL=C CEL
DDCEARCD EQU X'30' BACKUP LEVEL=D CEL
DDCEARCE EQU X'40' BACKUP LEVEL=E CEL
* CEL
ORG DDCEARLV CEL
DDCEARFL DC X'00' FLAGS CEL
DDCELARG EQU X'01' LARGE FILE CEL
DDCEDEST EQU X'02' TO BE ERASED WITH DESTROY CEL
DDCEPART EQU X'04' PART RESTORE CEL
DDCEMIGR EQU X'08' S: MIGRATED (HSMS) CEL
* R: NOT MIGRATED (HSMS) CEL
* CEL
* CEL
DDCEEXTL EQU *-DDCEEXTS LENGTH OF CATALOG ENTRY EXTENSION
EJECT ,
IDVT D,D
*
* ---------------------------------------------------------
* - VOLUME TABLE ENTRY
* ---------------------------------------------------------
MFPRE DNAME=DVTS,MF=D,ALIGN=X,PREFIX=D 300
DDVTS DSECT ,
*,##### PREFIX=D, MACID= #####
DDVTVSN DS CL6 0-5 VOLUME SERIAL NUMBER
DDVTLENT EQU *-DDVTVSN LENGTH OF FIXED PORTION-TAPE
DDVTTYP DS XL1 6 DEVICE TYPE
DDVTIDV EQU X'40' 6-6 S ISAM DATA VOLUME
DDVTIIV EQU X'40' 6-6 R ISAM INDEX VOLUME
DDVT#EE DS XL1 7 NUMBER OF EXTENT ENTRIES FOR VSN
DDVTLEN EQU *-DDVTVSN LENGTH OF FIXED PORTION-R.A.
EJECT ,
IDEE D,D,NEWONLY=*YES 319
*
* ---------------------------------------------------------
* - CATALOG ENTRY EXTENT LIST ENTRY WITH 3 BYTE
* ---------------------------------------------------------
MFPRE DNAME=DEE3,MF=D,ALIGN=X,PREFIX=D 301
DDEE3 DSECT ,
*,##### PREFIX=D, MACID= #####
*
DDEELHP3 DS XL3 LOGICAL 1/2 PG 301
DDEEPHP3 DS XL3 PHYSICAL 1/2 PG 301
*
DDEELEN3 EQU *-DDEELHP3 LENGTH OF ENTRY 301
EJECT ,
15:29:06 2001-10-15 PAGE
0067
SOURCE STATEMENT
DCAEE4 MF=D,PREFIX=D 319
MFTST MF=D,PREFIX=D,MACID=CAE,ALIGN=X, C
DMACID=CAE,SUPPORT=(D,C),DNAME=CAEE4
DCAEE4 DSECT ,
*,##### PREFIX=D, MACID=CAE #####
* CATALOG ENTRY EXTENT LIST ENTRY WITH 4 BYTE
DCAELHP4 DS XL4 4 BYTE LOGICAL HALF-PAGE
DCAEPHP4 DS XL4 4 BYTE PHYSICAL HALF-PAGE
DCAE# EQU *-DCAELHP4
EJECT ,
IDCEG D,D
*
* -------------------------------------------------------------
* - CATALOG ENTRY EXTENSION FOR FILE GENERATION GROUP
* - THIS ENTRY IS LINKED AFTER CATALOG ENTRY EXTENSION (IDCEX)
* - (INSTEAD OF VOLUME TABLE (IDVT))
* -------------------------------------------------------------
MFPRE DNAME=DCEG,MF=D,ALIGN=X,PREFIX=D 300
DDCEG DSECT ,
*,##### PREFIX=D, MACID= #####
DDCEGBAS DS XL2 BASE FOR RELATIVE ADDRESSING
DDCEGCUR DS XL2 CURRENT GENERATION
DDCEGBEG DS XL2 FIRST GENERATION
DDCEGGEN DS XL2 GEN=
DDCEGDIS DS X DISP=
DDCEGCYC EQU X'01' =CYCLE
DDCEGDEL EQU X'02' =DELETE
DDCEGREU EQU X'03' =REUSE
DDCEGKEE EQU X'04' =KEEP 700
DDCEGDEV DS X DEVICE TYPR (PR.DISK) 003
DDCEGVSN DS CL6 VOLUME # (PR.DISK) 003
DDCEGNUS DS CL5 NOT USED 003
DDCEGLEN EQU *-DDCEGBAS
IDCE D,D,NEWONLY=*YES
*
* ---------------------------------------------------------
* - OLD CATALOG ENTRY FIXED PART
* ---------------------------------------------------------
MFPRE DNAME=DCES,MF=D,ALIGN=X,PREFIX=D 300
DDCES DSECT ,
*,##### PREFIX=D, MACID= #####
DDCEES DS XL2 0-1 ENTRY SIZE
DDCEPBN DS XL2 2-3 PRIMARY BLOCK NUMBER
DDCELBN DS XL2 4-5 BLOCK NUMBER
DDCEDMS DS XL1 6 DMS INDICATOR 1
DDCEINDX EQU X'01' S FILE GENERATION GROUP INDEX -V4.0-
DDCEEPP EQU X'02' S EXEC PASSWORD
15:29:06 2001-10-15 PAGE
0069
SOURCE STATEMENT
DDCESF EQU X'04' S SHARED FILE
DDCEROA EQU X'08' S READ ONLY ACCESS
DDCERPP EQU X'10' S READ PASSWORD
DDCEWPP EQU X'20' S WRITE PASSWORD
DDCEAMN EQU X'C0' PRINTER CONTROL
DDCEN EQU X'C0' R NO CONTROL CHARACTER
DDCEM EQU X'40' S MACHINE CODE CONTROL CHARACTER
DDCEA EQU X'C0' S ASA CONTROL CHARACTER
DDCEDMS2 DS XL1 7 DMS INDICATOR 2
* EQU X'80' S USED BY FSTAT MACRO/CMD-NON SHARAB
* (ONLY VERSIONS < V8.0) V10.0
DDCEFAR EQU X'80' S UDS - FAR INTERFACE V10.0
DDCEFGEN EQU X'40' S FILE IS A GENERATION
DDCEFRAP EQU X'20' S FOREIGN RANDOM ACCESS PROCESSING
* USED BY FILE MACRO AND CMS
DDCEISID EQU X'10' S ISAM INDEX AND DATA VOLUMES ARE
* PRESENT IN CATALOG ENTRY
DDCERLK EQU X'08' S: RELEASE LOCK
DDCEELK EQU X'04' S: ERASE LOCK
DDCERPI EQU X'02' S: FILE TO REPAIR INDICATOR (RPI)
DDCEENCR EQU X'01' S: ENTRY WIYH ENCRYPTED PASSW
DDCERD DS CL4 8-11 READ PASSWORD
DDCEWRT DS CL4 12-15 WRITE PASSWORD
DDCESA DS XL2 16-17 SECONDARY ALLOCATION
DDCESAC DS XL1 18 SECONDARY ALLOCATION COUNT
DDCEEXTD DS XL1 19 DISPLACEMENT TO CATALOG ENTRY
* EXTENSION
DS CL6 UNDEFINDED DATA
DDCEMACL DS XL1 26 MINI - ACL V10.0
DDCEURD EQU X'80' S USER: READ-PRIVILEG V10.0
DDCEUWR EQU X'40' S USER: WRITE-PRIVILEG V10.0
DDCEUEX EQU X'20' S USER: EXEC-PRIVILEG V10.0
DDCEGRD EQU X'10' S GROUP: READ-PRIVILEG V10.0
DDCEGWR EQU X'08' S GROUP: WRITE-PRIVILEG V10.0
DDCEGEX EQU X'04' S GROUP: EXEC-PRIVILEG V10.0
DDCEORD EQU X'02' S OTHERS: READ-PRIVILEG V10.0
DDCEOWR EQU X'01' S OTHERS: WRITE-PRIVILEG V10.0
DDCEDTVC DS XL1 27 DATA ON TAPE VOLUME COUNT
DDCEFTP DS XL1 28 FCB FILE TYPE
DDCEFCBT EQU X'C0' FCB FILE TYPE
DDCESAM EQU X'C0' R SAM FILE
DDCEISAM EQU X'40' S ISAM FILE
DDCEBTAM EQU X'80' S BTAM FILE
DDCEPAM EQU X'C0' S PAM FILE
DDCERB DS XL1 29 RESTRICT BYTE
DDCEPRV EQU X'01' S PRIVATE VOLUME
DDCEPUB EQU X'01' R PUBLIC VOLUME
DDCERES EQU X'02' S SYSRES RESTRICTED
DDCEFOR EQU X'04' S FOREIGN TAPE VOLUME
DDCEVIF EQU X'08' S VERY IMPORTANT FILE ( VIF )
DDCEIDVC EQU X'40' S-IGNORE DATA VOLUME COUNT
* FOR TAPE EOF PROCESSING
* EQU X'10' S ERASE/CATAL COMMAND OR MACRO V10.0
* IS ACTIVE V10.0
* (ONLY VERSIONS < V8.0) V10.0
* EQU X'20' S OPEN/CLOSE IN PROCESS V10.0
* (ONLY VERSIONS < V9.0) V10.0
DDCEDFB EQU X'80' S File contains defective block
DDCEBLK DS XL2 30-31 BUFFER SIZE
DDCESTD EQU X'80' S PAM CREATED FILE
DDCCODE DS XL1 32 CODE OF TAPE
DDCISO7 EQU X'10' ISO7 CODE
DDCEBCD EQU X'08' EBCDIC CODE
DDCOWN EQU X'04' OWN CODE ISO7
DDCNDEF EQU X'1C' CODE NOT DEFINED
DDCERT DS XL1 33 RECORD TYPE
DDCEVFU EQU X'06' RECORD TYPE
DDCERTV EQU X'02' S VARIABLE
DDCERTF EQU X'04' S FIXED
DDCERTU EQU X'06' S UNDEFINED
DDCEREC DS XL2 34-35 RECORD LENGTH
DDCEKLC DS XL2 36-37 KEY LOCATION
DDCEKLH DS XL1 38 KEY LENGTH
DDCEFSZ3 DS XL3 39-41 FILE SIZE 306
DDCELRP DS XL2 42-43 LAST RECORD POINTER
DDCEIRA DS XL1 44 EDT VERSION-COUNTER
DDCELPP3 DS XL3 45-47 LAST 1/2 PAGE POINTER 306
DDCEFN DS XL4 48-51 FILE NUMBER
DDCEVTD DS XL2 52-53 DISPLACEMENT TO THE LAST 020
*- VSN TABLE ENTRY 020
DDCEVN1 DS XL1 54 CURRENT VERSION NUMBER
DDCEVN2 DS XL1 55 BACK-UP VERSION NUMBER
DDCETYP DS XL1 56 DEVICE TYPE
DDCEVC DS XL1 57 VSN COUNT
DDCEF1 DS XL1 58 FORMAT 1 POINTER
DDCEFNC DS XL1 59 FILENAME COUNT
DDCELEN EQU *-DDCEES LENGTH OF FIXED PORTION
DDCEFNM DS CL1 60-VAR FILENAME
*-
DDCEESF EQU 1881 MAXIMAL SIZE OF EXTENTLIST WITH 3 BYTE
*- OR F1LABEL 307
DDCEES4 EQU 2496 MAXIMAL SIZE OF EXTENTLIST WITH 4 BYTE 306
IDCEX D,D,NEWONLY=*YES
*
***********************************************************************
*** CATALOG ENTRY EXTENSION
***********************************************************************
MFPRE DNAME=DCEXS,MF=D,ALIGN=X,PREFIX=D 300
DDCEXS DSECT ,
*,##### PREFIX=D, MACID= #####
* CEL
DDCEEXTS EQU * START OF CATALOG ENTRY EXTENSION
DDCECNT DS XL2 FILE RECONSTRUCTION COUNT CEL
ORG DDCECNT CEL
DDCESESN DS XL1 SESSION NUMBER CEL
DDCEOCI DS XL1 OPEN-CLOSE INDICATOR -- OCI CEL
DDCECMSI DS XL1 CMS INDICATOR FLAGS CEL
DDCEWRCH EQU X'C0' 7-6 WRITE COUNT (MODULO 4) CEL
DDCEINCR EQU X'40' COUNT INCREMENT CEL
DDCEEXCL EQU X'20' 5 S=EXCLUSIVE SECURE CEL
DDCESVAC EQU X'10' 4 S=ACCESSIBLE FOR SERVICE CEL
DDCEKEYZ EQU X'0C' 3-2 S: BLKCTRL=NONE 9.5
* R: BLKCTRL=PAMKEY 9.5
DDCEKEYD EQU X'08' 3 S: BLKCTRL=NO 9.5
DDCEKEYV EQU X'04' 2 S: BLKCTRL=DATA 9.5
DDCESPCE EQU X'02' 1 RESERVED FOR SPANNED CE'S CEL
DDCESPC1 EQU X'01' 0 RESERVED FOR SPANNED CE'S CEL
* CEL
DS XL1 OPEN COUNTER V10.0
* (ONLY VERSIONS < V9.0) V10.0
DDCEDMS3 DS X DMS INDICATOR 3 CEL
DDCEPWSK EQU X'80' SKIP PASSWORDS CEL
DDCEPSCL EQU X'40' SET: PSEUDO - CLOSE CEL
DDCETEMP EQU X'20' SET: TEMPORARY INDICATOR CEL
DDCENIMC EQU X'10' SET: NOT TO BE ERASED BY IMCAT CEL
DDCESPEC EQU X'08' SET: PLAM-FILE INDICATOR 9.5
DDCESUSA EQU X'04' SPEC_USER_SPACE_ACCG CEL
DDCEOEX EQU X'02' S: MINI-ACL: OTHERS: EXEC-PRIV. V10.0
DDCEFACP EQU X'01' S: FULL ACL PRESENT 032
DDCAUDIT DC X'00' AUDIT KEY CEL
DDCAUDNO EQU X'00' AUDIT=NONE CEL
DDCAUDSU EQU X'01' AUDIT=SUCC CEL
DDCAUDFA EQU X'02' AUDIT=FAIL CEL
DDCAUDAL EQU X'04' AUDIT=ALL CEL
DDCEFRS DS XL1 FILE RECONSTRUCTION SYSTEM CONTROL CEL
* BYTE CEL
DDCEFRRC EQU X'80' S RECON=YES CEL
DDCEFRRS EQU X'40' S RESET=YES CEL
DDCEOPT EQU X'20' S CANNOT OPEN FILE OUTPUT/OUTIN CEL
DDCECHNG EQU X'10' S CALL FILE RECONSTRUCTION SYSTEM CEL
* BEFORE OPEN CEL
DDCEMODE EQU X'08' S MOVE MODE ONLY CEL
DDCERLSK EQU X'04' S RESET FUNCTION PENDING--FILE CEL
* CANNOT BE OPENED CEL
DDCMIGFB EQU 3 MIGRATION FORBIDDEN
DDCERESS EQU 2 MIGRATION INHIBIT
DDCETRES EQU 1 MIGRATION LIMITED
DDCEIIND DS XL1 FILE INDICATOR BYTE CEL
DDCEMACP EQU X'80' S MINI ACL PRESENT 032
DDCESUW1 EQU X'40' SHARED UPDATE WEAK 100
DDCESUW2 EQU X'20' SHARED UPDATE WEAK
DDCESUW3 EQU X'10' SHARED UPDATE WEAK
DDCESUW4 EQU X'08' SHARED UPDATE WEAK
DDCENKI4 EQU X'02' NK-ISAM 4K-BLOCK-FILE 100
DDCEVMIN EQU X'01' R MIN FUNCTION FOR ISAM VALUE FLAG
DDCEVMAX EQU X'01' S MAX FUNCTION FOR ISAM VALUE FLAG
DDCELOGL DS XL1 ISAM LOGICAL FLAG LENGTH CEL
DDCEVALL DS XL1 ISAM VALUE FLAG LENGTH CEL
DDCESAD DS XL2 SECONDARY ALLOCATION(DATA) CEL
DDCEITN8 DS XL1 ITN OF LOCKER WITH VERSION # < 9 CEL
DDCELOCK DS XL1 LOCKS CEL
* XXXX.... OUTPUT LOCKS CEL
* ....XXXX CATALOG LOCKS CEL
* CEL
DDCE$UID DS CL8 ALPHA-NUMERIC $USERID CEL
DS XL4 UNDEFINDED DATA
DDCEEX DS XL4 EXEC PASSWORD CEL
DDCEF1EX DS XL1 LEFTMOST BYTE OF F1 POINTER CEL
* CEL
DDCEMEMB DS 4CL2 SHARER-ID/INPUT COUNTER (4 TIMES) CEL
* SHARER-1 : SHARER-ID : 1 BYTE ; INPUT COUNTER : 1 BYTE CEL
* SHARER-2 : SAME --> 2 BYTES CEL
* SHARER-3 : SAME --> 2 BYTES CEL
* SHARER-4 : SAME --> 2 BYTES CEL
ORG DDCEMEMB CEL
* THE BYTES USED BY THE PRIVATE DISK FILES ARE REDEFINED FOR USE BY CEL
* TAPE FILES. CEL
DDCETPID DS X TAPE INDICATORS CEL
DDCEPFT EQU X'80' S - PERMANENT FOREIGN TAPE CEL
DDCESTDL EQU X'40' S - STD LABELS CEL
DDCENSTD EQU X'20' S -NSTD LABELS CEL
DDCENOLB EQU X'10' S -NO LABELS CEL
DDCEDIN3 EQU X'08' S -LABEL TYPE=DIN3 CEL
DDCEDIN2 EQU X'04' S - DIN2 CEL
DDCEDIN1 EQU X'02' S - DIN1 CEL
DDCEBS2 EQU X'01' S - BS2000 CEL
DDCEBUFO DS X BUFFER OFFSET CEL
DDCEFSEQ DS XL2 FILE SEQUENCE NUMBER CEL
DDCEDLAB DS X DIN LABEL 100
DDCEDL00 EQU X'00' DIN LABEL UNDEFINED 100
DS CL3 UNUSED CEL
* CEL
* CEL
DDCEARLV DC X'00' CEL
* THE FIRST 4 BITS ARE RESERVED FOR SAVE/RESTORE CEL
DDCEARCA EQU X'00' BACKUP LEVEL=A CEL
DDCEARCB EQU X'10' BACKUP LEVEL=B CEL
DDCEARCC EQU X'20' BACKUP LEVEL=C CEL
DDCEARCD EQU X'30' BACKUP LEVEL=D CEL
DDCEARCE EQU X'40' BACKUP LEVEL=E CEL
* CEL
ORG DDCEARLV CEL
DDCEARFL DC X'00' FLAGS CEL
DDCELARG EQU X'01' LARGE FILE CEL
DDCEDEST EQU X'02' TO BE ERASED WITH DESTROY CEL
DDCEPART EQU X'04' PART RESTORE CEL
DDCEMIGR EQU X'08' S: MIGRATED (HSMS) CEL
* R: NOT MIGRATED (HSMS) CEL
* CEL
* CEL
DDCEEXTL EQU *-DDCEEXTS LENGTH OF CATALOG ENTRY EXTENSION
IDVT D,D
*
* ---------------------------------------------------------
* - VOLUME TABLE ENTRY
* ---------------------------------------------------------
MFPRE DNAME=DVTS,MF=D,ALIGN=X,PREFIX=D 300
DDVTS DSECT ,
*,##### PREFIX=D, MACID= #####
DDVTVSN DS CL6 0-5 VOLUME SERIAL NUMBER
DDVTLENT EQU *-DDVTVSN LENGTH OF FIXED PORTION-TAPE
DDVTTYP DS XL1 6 DEVICE TYPE
DDVTIDV EQU X'40' 6-6 S ISAM DATA VOLUME
DDVTIIV EQU X'40' 6-6 R ISAM INDEX VOLUME
DDVT#EE DS XL1 7 NUMBER OF EXTENT ENTRIES FOR VSN
DDVTLEN EQU *-DDVTVSN LENGTH OF FIXED PORTION-R.A.
IDEE D,D
*
* ---------------------------------------------------------
* - CATALOG ENTRY EXTENT LIST ENTRY WITH 3 BYTE
* ---------------------------------------------------------
MFPRE DNAME=DEES,MF=D,ALIGN=X,PREFIX=D 300
DDEES DSECT ,
*,##### PREFIX=D, MACID= #####
*
DDEELHP DS XL3 LOGICAL 1/2 PG
DDEEPHP DS XL3 PHYSICAL 1/2 PG
*
DDEELEN EQU *-DDEELHP LENGTH OF ENTRY
IDCEG D,D
*
* -------------------------------------------------------------
* - CATALOG ENTRY EXTENSION FOR FILE GENERATION GROUP
* - THIS ENTRY IS LINKED AFTER CATALOG ENTRY EXTENSION (IDCEX)
* - (INSTEAD OF VOLUME TABLE (IDVT))
* -------------------------------------------------------------
MFPRE DNAME=DCEG,MF=D,ALIGN=X,PREFIX=D 300
DDCEG DSECT ,
*,##### PREFIX=D, MACID= #####
DDCEGBAS DS XL2 BASE FOR RELATIVE ADDRESSING
DDCEGCUR DS XL2 CURRENT GENERATION
DDCEGBEG DS XL2 FIRST GENERATION
DDCEGGEN DS XL2 GEN=
DDCEGDIS DS X DISP=
DDCEGCYC EQU X'01' =CYCLE
DDCEGDEL EQU X'02' =DELETE
DDCEGREU EQU X'03' =REUSE
DDCEGKEE EQU X'04' =KEEP 700
DDCEGDEV DS X DEVICE TYPR (PR.DISK) 003
DDCEGVSN DS CL6 VOLUME # (PR.DISK) 003
DDCEGNUS DS CL5 NOT USED 003
DDCEGLEN EQU *-DDCEGBAS