Loading...
Select Version
&pagelevel(4)&pagelevel
CATAL MF=D,VERSION=3
********* CATAL PARAMETER AREA -- VERSION=3 *******
MFTST MF=D,PREFIX=I,MACID=DK,ALIGN=F, C
DMACID=DK,SUPPORT=(C,D),DNAME=DKCATPL
IDKCATPL DSECT ,
*,##### PREFIX=I, MACID=DK #####
IDKCATST EQU *
FHDR MF=(C,IDK),EQUATES=NO
DS 0A
IDKFHE DS 0XL8 0 GENERAL PARAMETER AREA HEADER
*
IDKIFID DS 0A 0 INTERFACE IDENTIFIER
IDKFCTU DS AL2 0 FUNCTION UNIT NUMBER
* BIT 15 HEADER FLAG BIT,
* MUST BE RESET UNTIL FURTHER NOTICE
* BIT 14-12 UNUSED, MUST BE RESET
* BIT 11-0 REAL FUNCTION UNIT NUMBER
IDKFCT DS AL1 2 FUNCTION NUMBER
IDKFCTV DS AL1 3 FUNCTION INTERFACE VERSION NUMBER
*
IDKRET DS 0A 4 GENERAL RETURN CODE
IDKSRET DS 0AL2 4 SUB RETURN CODE
IDKSR2 DS AL1 4 SUB RETURN CODE 2
IDKSR1 DS AL1 5 SUB RETURN CODE 1
IDKMRET DS 0AL2 6 MAIN RETURN CODE
IDKMR2 DS AL1 6 MAIN RETURN CODE 2
IDKMR1 DS AL1 7 MAIN RETURN CODE 1
IDKFHL EQU 8 8 GENERAL OPERAND LIST HEADER LENGTH
*
IDKPN1 DS CL80 FILE .#'008' 200
*
IDKPN2 DS CL80 NEWNAME .#'058' 200
*
* PASSWORDS
IDKRDPAS DS F READ PASSWORD .#'0A8'
IDKWRPAS DS F WRITE PASSWORD .#'0AC'
IDKEXPAS DS F EXEC PASSWORD .#'0B0'
*
IDKRETPD DS H RETENTION PERIOD .#'0B4'
*
IDKCFLAG DS X FLAG .#'0B6'
IDKSTATE EQU X'80' 7-7 :S: STATE=*UPDATE
* :R: STATE=*NEW OR STATE=*FOREIGN
IDKACCES EQU X'40' 6-6 :S: ACCESS=*READ
* :R: ACCESS=*WRITE
IDKSHARE EQU X'20' 5-5 :S: SHARE=*YES / :R: SHARE = *NO IDKRPSP EQU X'10' 4-4 :S: RDPASS SPECIFIED 110 IDKWPSP EQU X'08' 3-3 :S: WRPASS SPECIFIED 110 IDKRPDSP EQU X'04' 2-2 :S: RETPD SPECIFIED 110 IDKACCSP EQU X'02' 1-1 :S: ACCESS SPECIFIED 110 IDKSHASP EQU X'01' 0-0 :S: SHARE SPECIFIED 110 * IDKCFLG1 DS X FLAG1 .#'0B7' IDKCRSP EQU X'80' 7-7 :S: RELSPAC SPECIFIED 110 IDKCBAS EQU X'40' 6-6 :S: BASE SPECIFIED 953 IDKNOENC EQU X'20' 5-5 :S: DO NOT ENCRYPT PASSWORDS IDKSTATF EQU X'10' 4-4 :S: STATE = *FOREIGN IDKKEEP EQU X'08' 3-3 :S: DISP = *KEEP 953 IDKREUS EQU X'04' 2-2 :S: DISP = *REUSE IDKCYCL EQU X'02' 1-1 :S: DISP = *CYCLE IDKDELT EQU X'06' 1-2 :S: DISP = *DELETE IDKDISPS EQU X'0E' 1-2-3 : IF NOT ZERO, DISP PRESENT 200 IDKEXSP EQU X'01' 0-0 :S: EXPASS SPECIFIED 110 * * GENERATION FIELDS IDKBASE DS H BASE = +/-NNN OR NNNN .#'0B8' IDKGEN DS H GEN = NNN .#'0BA' IDKFRST DS H FIRST = NNNN .#'0BC' IDKDEVTP DS CL8 NAME OF DEVICE-TYPE .#'0BE' 910 IDKVOLN DS CL6 VOLUME NAME OF PRIVATE DISK .#'0C6' 004 * IDKBKUP DS X BACKUP .#'0CC' 005 IDKBKUPU EQU X'8F' 7-3-2-1-0 :R: -- UNUSED, MUST BE 0 -- IDKBKUPE EQU X'40' 6-6 :S: BACKUP LEVEL = E IDKBKUPD EQU X'30' 4-5 :S: BACKUP LEVEL = D IDKBKUPC EQU X'20' 5-5 :S: BACKUP LEVEL = C IDKBKUPB EQU X'10' 4-4 :S: BACKUP LEVEL = B IDKBKUPA EQU X'00' BACKUP LEVEL = A * IDKCFLG2 DS X FLAG2 .#'0CD' 005 IDKRSPC EQU X'80' 7-7 :S: RELSPAC = *IGNORED 110 IDKSPECI EQU X'40' 6-6 :S: SHARE = *SPECIAL IDKPWSK EQU X'20' 5-5 :S: PASSW = *YES IDKBKUPF EQU X'10' 4-4 :S: BACKUP LEVEL SPECIFIED IDKDESTU EQU X'0C' 2-3 :S: DESTROY = *UNCHANGED 200 IDKNDEST EQU X'08' 3-3 :S: DESTROY = *NO IDKDEST EQU X'04' 2-2 :S: DESTROY = *YES IDKNLARG EQU X'02' 1-1 :S: LARGE = *NO IDKLARGE EQU X'01' 0-0 :S: LARGE = *YES * IDKAUDIT DS X AUDIT .#'0CE' IDKAUDUN EQU X'F0' 4-7 -- UNUSED, MUST BE 0 -- 200 IDKAUDNO EQU X'08' 3-3 :S: AUDIT = *NONE
IDKAUDAL EQU X'04' 2-2 :S: AUDIT = *ALL
IDKAUDFA EQU X'02' 1-1 :S: AUDIT = *FAILURE
IDKAUDSU EQU X'01' 0-0 :S: AUDIT = *SUCCESS
IDKNOAUD EQU X'00' AUDIT NOT SPECIFIED
*
IDKFLAG3 DS X FLAG3 .#'0CF'
IDKNERIM EQU X'80' 7-7 :S: DO NOT ERASE BY IMCAT (TP) 950
IDKSUSA EQU X'40' 6-6 :S: NO PUBSPACE ACCOUNTING(TP) 950
IDKOPNBY EQU X'20' 5-5 :S: OPNBACK=*YES 001
IDKOPNBN EQU X'10' 4-4 :S: OPNBACK=*NO 001
IDKACLPY EQU X'08' 3-3 :S: ACLPROT=*YES (TP) 005
15:29:06 2001-10-15 PAGE
0030
SOURCE STATEMENT
IDKACLPN EQU X'04' 2-2 :S: ACLPROT=*NO (TP) 005
IDKBACLN EQU X'02' 1-1 :S: BASACL=*NONE 010
IDKBACLS EQU X'01' 0-0 :S: BASACL=*STD 014
*
IDKMIGRI DS X MIGRATE .#'0D0'
IDKMIGAL EQU X'01' 0-0 :S: MIGRATE = *ALLOWED 951
IDKMIUNU EQU X'02' 1-1 :R: -- UNUSED -- 010
IDKMIGIN EQU X'03' 0-1 :S: MIGRATE = *INHIBITED 951
IDKMIGFB EQU X'04' 2-2 :S: MIGRATE = *FORBIDDEN 200
IDKMIGNO EQU X'00' :R: MIGRATE NOT SPECIFIED 951
IDKMUNUS EQU X'F8' -- UNUSED, MUST BE 0 -- 951
*
IDKFAR DS 0X ACCESS RIGHTS 003
IDKOWNER DS X OWNER .#'0D1' 003
IDKGROUP DS X GROUP .#'0D2' 003
IDKOTHER DS X OTHERS .#'0D3' 003
*
IDKFAUS EQU X'80' 7-7 :S: USER CLASS SPECIFIED 003
IDKFARS EQU X'40' 6-6 :S: READ SPECIFIED 003
IDKFAWS EQU X'20' 5-5 :S: WRITE SPECIFIED 003
IDKFAXS EQU X'10' 4-4 :S: EXEC SPECIFIED 003
IDKFARO EQU X'08' 3-3 :S: SET READ 003
IDKFAWO EQU X'04' 2-2 :S: SET WRITE 003
IDKFAXO EQU X'02' 1-1 :S: SET EXEC 003
IDKFARU EQU X'01' 0-0 -- UNUSED, MUST BE 0 --- 003
*
IDKLAST DS H LAST = NNNN .#'0D4' 110
*
IDKPERF DS X IO-PERFORMANCE .#'0D6' 110
IDKPFUM EQU X'FF' 0-7 :S: IOPERF = *USER_MAX 110
IDKPFVH EQU X'03' 0-1 :S: IOPERF = *VERY_HIGH 110
IDKPFHI EQU X'02' 1-1 :S: IOPERF = *HIGH 110
IDKPFST EQU X'01' 0-0 :S: IOPERF = *STD 110
IDKPFNS EQU X'00' IOPERF NOT SPECIFIED 110
*
IDKUSAG DS X IO-USAGE .#'0D7' 110
IDKUSU EQU X'FC' 2-7 -- MUST BE 0, RES. FOR FUTURE USE
IDKUSRW EQU X'03' 0-1 :S: IOUSAGE = *READ_WRITE 110
IDKUSWR EQU X'02' 1-1 :S: IOUSAGE = *WRITE 110
IDKUSRD EQU X'01' 0-0 :S: IOUSAGE = *READ 110
IDKUSNS EQU X'00' IOUSAGE NOT SPECIFIED 110
*
IDKDW DS X DISK-WRITE .#'0D8' 110
IDKDWU EQU X'FC' 2-7 -- MUST BE 0, RES. FOR FUTURE USE
IDKDWCL EQU X'02' 1-1 :S: DISKWR = *BY_CLOSE 110
IDKDWIM EQU X'01' 0-0 :S: DISKWR = *IMMEDIATE 110
IDKDWNS EQU X'00' DISKWR NOT SPECIFIED 110
*
IDKFLAG4 DS X FLAG 4 .#'0D9' 110
IDKGRDN EQU X'80' 7-7 :S: GUARDS = *NONE 117
IDKFTS EQU X'40' 6-6 -- RESERVED FOR FTS -- 117
IDKCCSST EQU X'20' 5-5 :S: CCS = *STD 117
IDKWRKGP EQU X'10' 4-4 :S: WORKGRP = *YES 201
IDKRDGS EQU X'08' 3-3 :S: READ GUARD SPECIFIED 110
IDKWRGS EQU X'04' 2-2 :S: WRITE GUARD SPECIFIED 110
15:29:06 2001-10-15 PAGE
0031
SOURCE STATEMENT
IDKXGS EQU X'02' 1-1 :S: EXEC GUARD SPECIFIED 110
IDKCCSS EQU X'01' 0-0 :S: CODED CHARACTER SET SPEC. 110
*
IDKRDG DS CL18 READ GUARD .#'0DA' 110
IDKWRG DS CL18 WRITE GUARD .#'0EC' 110
IDKXG DS CL18 EXEC GUARD .#'0FE' 110
*
IDKCHECK DS X CHECK .#'110' 200
IDKCKSTD EQU 0 *STD (DEFAULT) 200
IDKCKNO EQU 1 *NO 200
IDKCKERR EQU 2 *ERROR 200
IDKCKSIN EQU 3 *SINGLE 200
IDKCKMUL EQU 4 *MULTIPLE 200
IDKCKUID EQU 5 *USERID 200
IDKCKCAT EQU 6 *CATALOG 200
*
IDKLIST DS X LIST .#'111' 200
IDKLSNO EQU 0 *NO (DEFAULT) 200
IDKLSEOU EQU 1 *ERRORS_TO_SYSOUT 200
IDKLSOUT EQU 2 *SYSOUT 200
*
IDKAVAIL DS X AVAIL .#'112' 200
IDKAVANS EQU 0 NOT SPECIFIED 200
IDKAVAST EQU 1 *STD 200
IDKAVAHI EQU 2 *HIGH 200 * IDKS0MIG DS X S0MIGR .#'113' 200 IDKS0MNS EQU 0 NOT SPECIFIED 200 IDKS0MAL EQU 1 *ALLOWED 200 IDKS0MFB EQU 4 *FORBIDDEN 200 * IDKCCS DS CL8 CODED CHARACTER SET .#'114' 110 * IDKFTAM DS XL8 RESERVED AREA FOR FTAM .#'11C' 110 * IDKFLAG6 DS X FLAG 6 (ONLY FOR TPR CALL) .#'124' 116 IDKFLG6U EQU X'F8' 4-7 MUST BE 0, RES. FOR FUTURE USE 116 IDKPECTC EQU X'04' 3-3 :S: RES. FOR DMS 204 IDKPCOPY EQU X'03' 1-2 :S: RES. FOR DMS 116 IDKPMODI EQU X'02' 2-2 :S: RES. FOR DMS 116 IDKPCREA EQU X'01' 1-1 :S: RES. FOR DMS 116 * IDKTPFG1 DS X TRR FLAG1 .#'125' 120 IDKDNERN EQU X'80' 7-7 :S: DNTERAS=*NO (TPR) 120 IDKDNERY EQU X'C0' 6-7 :S: DNTERAS=*YES (TPR) 120 IDKURSFN EQU X'20' 5-5 :S: USRSYSF=*NO (TPR) 120 IDKURSFY EQU X'30' 4-5 :S: USRSYSF=*YES (TPR) 120 IDKERF5N EQU X'08' 3-3 :S: ERADF5R=*NO (TPR) 120 IDKERF5Y EQU X'0C' 2-3 :S: ERADF5R=*YES (TPR) 120 IDKSRMBN EQU X'02' 1-1 :S: SRMBKUP=*NO (TPR) 201 IDKSRMBY EQU X'03' 0-1 :S: SRMBKUP=*YES (TPR) 201 * IDKUNUS1 DS X -- UNUSED -- .#'126' 200 * IDKPROTP DS X PROTECT - TYPE .#'127' 200 IDKPRONS EQU 0 PROTECT NOT SPECIFIED 200 IDKPROFI EQU 1 PROTECT=(*FROM_FILE,...) 200 IDKPROST EQU 2 PROTECT=*STD 200 * IDKSECRF DS CL54 PROTECT - REFERENCE .#'128' 200 * IDKPRFLG DS X PROTECT - FLAG .#'15E' 200 IDKSHAUC EQU X'80' 7-7 :S: SHARE=*UNCHANGED 200 IDKACCUC EQU X'40' 6-6 :S: ACCESS=*UNCHANGED 200 IDKBALUC EQU X'20' 5-5 :S: BASACL=*UNCHANGED 200 IDKGRDUC EQU X'10' 4-4 :S: GUARDS=*UNCHANGED 200 IDKRSPUC EQU X'08' 3-3 :S: RELSPAC=*UNCHANGED 200 IDKEXDUC EQU X'04' 2-2 :S: EXDATE=*UNCHANGED 200 IDKPRFGU EQU X'03' 0-1 -- UNUSED, MUST BE 0 -- 200 * IDKFLAG7 DS X FLAG 7 .#'15F' 200 IDKWCFBD EQU X'80' 7-7 :S: WILDCARDS FORBIDDEN 200
IDKEXDSP EQU X'40' 6-6 :S: EXDATE SPECIFIED 200 IDKDEDSP EQU X'20' 5-5 :S: DELDATE SPECIFIED 200 IDKMANSP EQU X'10' 4-4 :S: MANCLAS SPECIFIED 200 IDKUSISP EQU X'08' 3-3 :S: USRINFO SPECIFIED 200 IDKADISP EQU X'04' 2-2 :S: ADMINFO SPECIFIED 200 IDKTBLTI EQU X'01' 0-0 :S: TIMEBASE LTI 210 IDKFLG7U EQU X'02' 1-1 -- UNUSED, MUST BE 0 -- 210 * IDKEXDAT DS CL10 EXDATE DATE .#'160' 200 IDKEXTIM DS CL8 EXDATE TIME .#'16A' 210 * IDKDEDAT DS CL10 DELDATE DATE .#'172' 200 IDKDETIM DS CL8 DELDATE TIME .#'17C' 210 * IDKMANCL DS CL8 MANCLAS .#'184' 200 * IDKUSINF DS CL8 USRINFO .#'18C' 200 * IDKADINF DS CL8 ADMINFO .#'194' 200 * IDKUNUS2 DS XL1 -- UNUSED2, MUST BE 0 -- .#'19C' 200 * IDKSTCLF DS XL1 STOCLAS .#'19D' 200 IDKSCNSP EQU 0 NOT SPECIFIED 200 IDKSCNON EQU 1 *NONE 200 IDKSCUPD EQU 2 *UPDATE 200 IDKSCSTD EQU 3 *STD 200 IDKSCNAM EQU 4 NAME SPECIFIED 200 IDKSTCLN DS CL8 STOCLAS-NAME .#'19E' 200 * IDKFUTUR DS 2XL1 -- UNUSED, MUST BE 0 -- .#'1A6' 210 IDKPLLEN EQU *-IDKCATST LENGTH OF PARAMETERAREA = X'1A8' (424)