Loading...
Select Version
&pagelevel(4)&pagelevel
FILE MF=D,VERSION=3
*,VERSION 400
*-------------------------------------------------------*
* FILE MACRO PARAMETER LIST VERSION 3 *
*-------------------------------------------------------*
#INTF INTNAME=FILE, C
15:29:06 2001-10-15 PAGE
0033
SOURCE STATEMENT
REFTYPE=REQUEST, C
INTCOMP=4
MFPRE MF=D,PREFIX=, 201C
DNAME=DBPFLPL,MACID=DB,DMACID=DB,ALIGN=F 201
IDBPFLPL DSECT ,
*,##### PREFIX=I, MACID=DB #####
IDBPFLST EQU *
FHDR MF=(C,IDBF),EQUATES=NO
DS 0A
IDBFFHE DS 0XL8 0 GENERAL PARAMETER AREA HEADER
*
IDBFIFID DS 0A 0 INTERFACE IDENTIFIER
IDBFFCTU 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
IDBFFCT DS AL1 2 FUNCTION NUMBER
IDBFFCTV DS AL1 3 FUNCTION INTERFACE VERSION NUMBER
*
IDBFRET DS 0A 4 GENERAL RETURN CODE
IDBFSRET DS 0AL2 4 SUB RETURN CODE
IDBFSR2 DS AL1 4 SUB RETURN CODE 2
IDBFSR1 DS AL1 5 SUB RETURN CODE 1
IDBFMRET DS 0AL2 6 MAIN RETURN CODE
IDBFMR2 DS AL1 6 MAIN RETURN CODE 2
IDBFMR1 DS AL1 7 MAIN RETURN CODE 1
IDBFFHL EQU 8 8 GENERAL OPERAND LIST HEADER LENGTH
*
IDBLINK DS CL8 LINK
IDBFILE DS CL54 FILENAME
IDBRETPD DS Y RETENTION PERIOD
IDBRECSI DS Y RECORD SIZE
IDBBLKSZ DS Y BLOCK SIZE 004
IDBKEYPO DS Y KEY POSITION
IDBKEYLE DS AL1 KEY LENGTH
IDBCTRLI DS X BLKCTRL-INDIKATOR 952 IDBCTRLN EQU X'80' 7-7 S BLKCTRL=NO 952 IDBCTRLP EQU X'40' 6-6 S BLKCTRL=PAMKEY 952 IDBCTRLD EQU X'20' 5-5 S BLKCTRL=DATA 952 IDBCTRL0 EQU X'10' 4-4 S BLKCTRL=NULL 952 IDBCTRLB EQU X'08' 3-3 S BLKCTRL=*BY-PROG 200 IDBCTRLR EQU X'F8' 7-3 R BLKCTRL=NOT SPECIFIED 200 IDBCTRLU EQU X'04' R -- RESERVED, MUST BE 0 -- 200 IDBCF4K EQU X'02' 1-1 S BLOCK CONTROL FIELD 4K 200 IDBCF2K EQU X'01' 0-0 S BLOCK CONTROL FIELD 2K 200 IDBPAD DS AL1 PAD IDBOPEN DS X OPEN TYPE IDBSINOT EQU X'80' 7-7 S SINOUT IDBOUTIN EQU X'40' 6-6 S OUTIN IDBINOUT EQU X'20' 5-5 S INOUT IDBUPDAT EQU X'10' 4-4 S UPDATE IDBEXTEN EQU X'08' 3-3 S EXTEND IDBOUTPU EQU X'04' 2-2 S OUTPUT IDBREVER EQU X'02' 1-1 S REVERSE IDBINPUT EQU X'01' 0-0 S INPUT IDBDEVL DS CL8 DEVICE TYP 950 IDBIND1 DS X INDICATORS (SET,RESET) IDBLABEL EQU X'60' 6-5 FILE LABEL OPTIONS IDBSTD EQU X'60' R STD LABELS IDBNSTD EQU X'40' S NSTD LABELS IDBLABNO EQU X'20' S LABEL=NO IDBAMN EQU X'18' 4-3 PRINTER CONTROL IDBA EQU X'18' S ASA CONTROL CHARS IDBM EQU X'08' S EBCDIC CONTROL CHARS IDBN EQU X'18' R NO CONTROL CHARS IDBRECFO EQU X'06' 2-1 RECORD FORM IDBF EQU X'04' S FIXED LENGTH IDBV EQU X'02' S VARIABLE LENGTH IDBU EQU X'06' S UNDEFINED IDBTPMRK EQU X'01' 0-0 S TPMARK=YES IDBIND1U EQU X'80' R -- RESERVED, MUST BE 0 -- 950 IDBIND2 DS X INDICATORS (SET,RESET) IDBFCBTY EQU X'C0' 7-6 FCB TYPE IDBSAM EQU X'C0' R SAM IDBISAM EQU X'40' S ISAM IDBPAM EQU X'C0' S PAM IDBBTAM EQU X'80' S BTAM IDBDUPKE EQU X'20' 5-5 S DUPLICATE KEYS ALLOWED IDBDUPKO EQU X'20' 5-5 R DUPEKY=NO IDBOVERL EQU X'10' 4-4 S OVERLAP=YES IDBOVERO EQU X'10' 4-4 R OVERLAP=NO IDBSHARW EQU X'08' 3-3 S SHARUPD=WEAK 050 IDBSHARU EQU X'04' 2-2 S SHARUPD=YES
* 3-2 R SHARUPD=NO IDBSHARN EQU X'01' 0-0 S SHARUPD SPECIFIED IDBIND2U EQU X'02' R -- RESERVED, MUST BE 0 -- 050 IDBIND3 DS X INDICATORS (SET,RESET) IDBSPAKE EQU X'80' 7-7 S SPACE=(...,*KEEP) 050 IDBBSSTD EQU X'40' 6-6 S BLKSIZE=STD 004 IDB2NDSP EQU X'20' 5-5 S 2ND SPACE PARAM SPECIFIED 004 IDBSPACE EQU X'10' 4-4 S SPACE=ABS IDBSTATE EQU X'08' 3-3 S STATE=FOREIGN IDBVOLUM EQU X'04' 2-2 S VOLUME=PRIVATE IDBMNTQ0 EQU X'02' 1-1 S MOUNT=0 IDBDMYPR EQU X'01' 0-0 S *DUMMY & VOL=PRIVATE (TPR) 009 IDBIND4 DS X INDICATORS (SET,RESET) IDBFILEN EQU X'80' 7-7 S FILE NOT SPECIFIED IDBCLOSN EQU X'40' 6-6 S CLOSE NOT SPECIFIED 052 IDBBLKSN EQU X'20' 5-5 S BLKSIZE=NOT SPECIFIED IDBDUPKN EQU X'10' 4-4 S DUPEKY=NOT SPECIFIED IDBRETPN EQU X'08' 3-3 S RETPD=NOT SPECIFIED IDBPADN EQU X'04' 2-2 S PAD=NOT SPECIFIED IDBKEYPN EQU X'02' 1-1 S KEYPOS=NOT SPECIFIED IDBOPENN EQU X'01' 0-0 S OPEN=NOT SPECIFIED IDBIND5 DS X INDICATORS (SET,RESET) IDBKEYLN EQU X'80' 7-7 S KEYLEN=NOT SPECIFIED IDBLABEN EQU X'40' 6-6 S LABEL=NOT SPECIFIED IDBTVSNT EQU X'20' 5-5 S TVSN=SPECIFIED IDBOVERN EQU X'10' 4-4 S OVERLAP=NOT SPECIFIED IDBRECSN EQU X'08' 3-3 S RECSIZE=NOT SPECIFIED IDBDEVIN EQU X'04' 2-2 S DEVICE=NOT SPECIFIED IDBFCBTN EQU X'01' 0-0 S FCBTYPE=NOT SPECIFIED IDBIND5U EQU X'02' R -- RESERVED, MUST BE 0 -- 950 IDBIND6 DS X INDICATORS (SET,RESET) IDBRECFN EQU X'80' 7-7 S RECFORM=NOT SPECIFIED IDBVOLUN EQU X'40' 6-6 S VOLUME=NOT SPECIFIED IDBSPACN EQU X'20' 5-5 S SPACE=NOT SPECIFIED IDBSTATN EQU X'08' 3-3 S STATE=NOT SPECIFIED IDBMOUNN EQU X'02' 1-1 S MOUNT=NOT SPECIFIED IDBIND6U EQU X'15' R -- RESERVED, MUST BE 0 -- 950 IDBVOL@ DS A ADDRESS OF VOLUME-LIST 004 IDBDVOL@ DS A ADDRESS OF DVOLUME-LIST 004 IDBTVSN@ DS A ADDRESS OF TVSN-LIST 004 IDBMNT@ DS A ADDRESS OF MOUNT-LIST 004 IDBVSQ@ DS A ADDRESS OF VSEQ-LIST 004 IDBNUSE1 DS XL16 -- RESERVED, MUST BE 0 -- 004 IDBPRMHP DS 0A PRIMARY # OF HALFPAGES (SPACE) IDBFSTHP DS A FIRST HALFPAGE (SPACE=ABS) IDBSCDHP DS 0A SECONDARY # OF HALFPAGES (SPACE) 004 IDBAMNT DS A NUMBER OF HALFPAGES (SPACE=ABS) 004 IDBPRVL# DS AL1 NUMBER OF ANY PRIVATE VOLUMES 004
IDBIND7 DS X INDICATOR IDBBLKNL EQU X'80' 7-7 S BLKSIZE=NULL IDBKYPNL EQU X'40' 6-6 S KEYPOS=NULL IDBKYLNL EQU X'20' 5-5 S KEYLEN=NULL IDBRESNL EQU X'10' 4-4 S RECSIZE=NULL IDBFCBNL EQU X'08' 3-3 S FCBTYPE=NULL IDBREFNL EQU X'04' 2-2 S RECFORM=NULL IDBCODNL EQU X'02' 1-1 S CODE=NULL IDBBUFNL EQU X'01' 0-0 S BUFOFF=NULL 800 IDBIND8 DS X INDICATOR IDBVLPNL EQU X'80' 7-7 S VALPROP=NULL IDBLOGNL EQU X'40' 6-6 S LOGLEN=NULL IDBVALNL EQU X'20' 5-5 S VALLEN=NULL IDBWROUT EQU X'10' 4-4 S WROUT=YES IDBIND8U EQU X'0F' R -- RESERVED, MUST BE 0 -- 950 IDBIND9 DS X INDICATOR IDBDDEVN EQU X'80' 7-7 S DDEVICE=NOT SPECIFIED IDBDVOLN EQU X'40' 6-6 S DVOLUME=NOT SPECIFIED IDBDSPAN EQU X'20' 5-5 S DSPACE=NOT SPECIFIED IDBVLPNS EQU X'10' 4-4 S VALPROP=NOT SPECIFIED IDBLOGNS EQU X'08' 3-3 S LOGLEN=NOT SPECIFIED IDBVALNS EQU X'04' 2-2 S VALLEN=NOT SPECIFIED IDBCODEN EQU X'02' 1-1 S CODE=NOT SPECIFIED IDBWRONS EQU X'01' 0-0 S WROUT=NOT SPECIFIED IDBIIND DS X ISAM INDICATOR IDBPREFS EQU X'80' 7-7 S POOLLNK SPECIFIED 950 IDB2NDDS EQU X'40' 6-6 S 2ND DSPACE PARAM SPECIFIED 004 IDBDSPAC EQU X'10' 4-4 S DSPACE=ABS IDBDVOLU EQU X'04' 2-2 S DVOLUME=PRIVATE IDBVMIN EQU X'01' 0-0 R MINIMUM FUNCTION FOR ISAM * VALUE FLAG IDBVMAX EQU X'01' 0-0 S MAXIMUM FUNCTION FOR ISAM * VALUE FLAG IDBIINDU EQU X'2A' R -- RESERVED, MUST BE 0 -- 004 IDBLOGLN DS AL1 ISAM LOGICAL FLAG LENGTH IDBVALLN DS AL1 ISAM VALUE FLAG LENGTH IDBDEVDL DS CL8 DEVICE TYPE FOR ISAM DATA VSN 950 IDBCODE DS X CODE FOR TAPE IDBISOD EQU X'20' 5-5 S ISO7D CODE 200 IDBISO7 EQU X'10' 4-4 S ISO7 CODE IDBEBCD EQU X'08' 3-3 S EBCDIC CODE IDBOWN EQU X'04' 2-2 S OWN CODE IDBNDEF EQU X'3C' 5-2 R CODE NOT DEFINED 200 IDBCODEU EQU X'C3' R -- RESERVED, MUST BE 0 -- 200 IDBIGNP DS X IGNORE PROTECTION (TPR) 008 IDBIACC EQU X'80' 7-7 S IGNORE ACCESS-RIGHTS 008 IDBIEXD EQU X'40' 6-6 S IGNORE EXDATE 008 IDBIRDPW EQU X'20' 5-5 S IGNORE RDPASS 008
IDBIWRPW EQU X'10' 4-4 S IGNORE WRPASS 008 IDBIEXPW EQU X'08' 3-3 S IGNORE EXPASS 008 IDBIGNPU EQU X'07' R -- RESERVED MUST BE 0 -- 008 IDBPERF DS X IOPERF-INDICATOR 050 IDBPFUM EQU X'FF' 7-0 S IOPERF=USER-MAX 050 IDBPFNL EQU X'FE' 7-1 S IOPERF=NULL 050 IDBPFVH EQU X'03' 1-0 S IOPERF=VERY-HIGH 050 IDBPFHI EQU X'02' 1-1 S IOPERF=HIGH 050 IDBPFST EQU X'01' 0-0 S IOPERF=STD 050 IDBPFNS EQU X'00' S IOPERF NOT SPECIFIED 050 IDBUSAG DS X IOUSAGE-INDICATOR 050 IDBUSNL EQU X'FF' 7-0 S IOUSAGE=NULL 050 IDBUSRW EQU X'03' 1-0 S IOUSAGE=RDWRT 050 IDBUSWR EQU X'02' 1-1 S IOUSAGE=WRITE 050 IDBUSRD EQU X'01' 0-0 S IOUSAGE=READ 050 IDBUSNS EQU X'00' S IOUSAGE NOT SPECIFIED 050 IDBBUFOF DS AL1 BUFFER OFFSET VALUE IDBFSEQ DS Y FSEQ VALUE IDBTSET DS CL4 TSETNAME IDBFSID DS CL6 FIRST VSN FOR TSET ENTRY IDBVSQVL DS AL1 VSEQ VALUE 004 IDBIND10 DS X IDBBUFFN EQU X'80' 7-7 S BUFOFF NOT SPECIFIED IDBTYPLN EQU X'40' 6-6 S TYPLAB NOT SPECIFIED IDBTRANN EQU X'20' 5-5 S TRANS NOT SPECIFIED IDBFSEQN EQU X'10' 4-4 S FSEQ NOT SPECIFIED IDBSECLN EQU X'08' 3-3 S SECLEV NOT SPECIFIED IDBWRCHN EQU X'04' 2-2 S WRCHK NOT SPECIFIED 751 IDBIN10U EQU X'03' R -- RESERVED, MUST BE 0 -- 950 IDBIND11 DS X IDBWRCHK EQU X'80' 7-7 S WRCHK =YES 751 IDBTRANS EQU X'40' 6-6 S TRANS =YES IDBOPR EQU X'20' 5-5 S SECLEV = (...,OPR) IDBBLP EQU X'10' 4-4 S SECLEV = LOW 701 IDBDIN3 EQU X'08' 3-3 S LABEL=(STD,3) IDBDIN2 EQU X'04' 2-2 S LABEL=(STD,2) IDBDIN1 EQU X'02' 1-1 S LABEL=(STD,1) IDBBS2 EQU X'01' 0-0 S LABEL=(STD,0) IDBIND12 DS X IDBBLPID EQU X'80' 7-7 S BYPASS LABEL PROCESSING 803 IDBRSDUM EQU X'40' 6-6 S DUMMY FOR RESTART 750 IDBCKPFE EQU X'20' 5-5 S CHKPT WHEN FEOV EXECUTED 750 IDBCKPBL EQU X'10' 4-4 S CHKPT WHEN BLIM OCCURS 750 IDBFSEQV EQU X'08' 2-2 S FSEQ VALUE SPECIFIED 200 IDBFSNEW EQU X'04' 1-1 S FSEQ = NEW 200 IDBFSUNK EQU X'02' 0-0 S FSEQ = UNK 200 IDBFSNUL EQU X'01' 7-7 S FSEQ = NULL 200 IDBIND13 DS X
IDBVSEQL EQU X'80' 7-7 S VSEQ IS A LIST 200 IDBBUFL EQU X'40' 6-6 S BUFOFF = L IDBPOLTP EQU X'20' 5-5 S POOL TAPE:NO VOLSWITCH 801 IDBSTRMY EQU X'10' 4-4 S STREAM=YES 802 IDBUCON EQU X'08' 3-3 S ALLOC: USER CTRL ON (TPR) 750 IDBUCOFF EQU X'04' 2-2 S ALLOC: USER CTRL OFF (TPR) 750 IDBL4CHK EQU X'02' 1-1 S ALLOC: LEVEL 4 CHECK (TPR) 750 IDBL5CHK EQU X'01' 0-0 S ALLOC: LEVEL 5 CHECK (TPR) 750 IDBIND14 DS X IDBTSETN EQU X'80' 7-7 S TSET NOT SPECIFIED IDBVSEQN EQU X'40' 6-6 S VSEQ NOT SPECIFIED IDBIN14U EQU X'38' R -- RESERVED, MUST BE 0 -- 220 IDBVOLRU EQU X'04' 2-2 S VOLUME=REMOVE-UNUSED 220 IDBLKENX EQU X'02' 1-1 S LOCKENV=XCS 200 IDBLKENS EQU X'01' 0-0 S LOCKENV SPECIFIED 200 IDBIND15 DS X 950 IDBDESCS EQU X'80' 7-7 S DESTOC SPECIFIED 950 IDBDESCY EQU X'40' 6-6 S DESTOC = YES 950 IDBCMSGS EQU X'20' 5-5 S CLOSMSG SPECIFIED 950 IDBCMSGY EQU X'10' 4-4 S CLOSMSG = YES 950 IDBTAPWS EQU X'08' 3-3 S TAPEWR SPECIFIED 950 IDBTAPWY EQU X'04' 2-2 S TAPEWR = DEVICE-BUFFER 950 IDBX32GS EQU X'02' 1-1 S EXC32GB SPECIFIED 400 IDBX32GA EQU X'01' 0-0 S EXC32GB=ALLOWED 400 IDBBLIM DS AL3 BLOCK NUMBER LIMIT 750 IDBCHAIN DS Y CHAIN VALUE (STREAMING TAPES) 802 IDBBLPPS DS Y BYPASS POSITION 803 IDBBLPVL DS Y BYPASS VALUE 803 IDBPLREF DS CL8 POOLLNK VALUE 950 IDBPHPID DS 0A PRIMARY # OF HALFPAGES (DSPACE) IDBFSTID DS A FIRST HALFPAGE (DSPACE=ABS) 004 IDBSCDID DS 0A SECONDARY # OF HALFPAGES (DSPACE) IDBAMTID DS A NUMBER OF HALFPAGES (DSPACE=ABS) 004 IDBPRDV# DS AL1 NUMBER OF ANY PRIVATE DVOLUMES 004 IDBCLOSE DS X CLOSE TYPE 052 IDBCLSLV EQU X'00' 7-0 R CLOSE=LEAVE 052 IDBCLSDC EQU X'01' 0-0 S CLOSE=DISCON 052 IDBCLSRP EQU X'02' 1-1 S CLOSE=REPOS 052 IDBCLSRW EQU X'03' 1-0 S CLOSE=RWD 052 IDBCLSIV EQU X'05' 2,0 S CLOSE=INVAL 052 IDBCLSKD EQU X'06' 2-1 S CLOSE=KEEP-DATA-IN-CACHE 201 IDBIND16 DS X 200 IDBWRKFY EQU X'80' 7-7 S WORKFIL=YES 200 IDBAVHI EQU X'40' 6-6 S AVAIL=HIGH 200 IDBIN16U EQU X'3E' R -- RESERVED, MUST BE 0 -- 240 IDBWRKFS EQU X'01' 0-0 S WORKFIL SPECIFIED 240 IDBIND17 DS X 200 IDBSTCLS EQU X'80' 7-7 S STOCLAS SPECIFIED 200
IDBVSETS EQU X'40' 6-6 S VOLSET SPECIFIED 200 IDBVSLO EQU X'20' 5-5 S ONLY VSETLIST FROM SC (TPR) 200 IDBSCNO EQU X'10' 4-4 S STOCLAS=*NONE 202 IDBVSKS0 EQU X'08' 3-3 S VOLSET: KEEP S0-MIGR (TPR) 260 IDBIN17U EQU X'07' R -- RESERVED, MUST BE 0 -- 260 IDBSTOCL DS CL8 STOCLAS VALUE 200 IDBVSET DS CL4 VOLSET VALUE 200 IDBVSCTL EQU C'*CVS' VOLSET=*CONTROL 230 IDBIND18 DS X 200 IDBBLSBP EQU X'80' 7-7 S BLKSIZE BY PROG 200 IDBKYPBP EQU X'40' 6-6 S KEYPOS BY PROG 200 IDBKYLBP EQU X'20' 5-5 S KEYLEN BY PROG 200 IDBRESBP EQU X'10' 4-4 S RECSIZE BY PROG 200 IDBFCBBP EQU X'08' 3-3 S FCBTYPE BY PROG 200 IDBREFBP EQU X'04' 2-2 S RECFORM BY PROG 200 IDBCODBP EQU X'02' 1-1 S CODE BY PROG 200 IDBBUFBP EQU X'01' 0-0 S BUFOFF BY PROG 200 IDBIND19 DS X 200 IDBVLPBP EQU X'80' 7-7 S VALPROP BY PROG 200 IDBLOGBP EQU X'40' 6-6 S LOGLEN BY PROG 200 IDBVALBP EQU X'20' 5-5 S VALLEN BY PROG 200 IDBLABBP EQU X'10' 3-3 S LABEL BY PROG 200 IDBIN19U EQU X'0F' R -- RESERVED, MUST BE 0 -- 200 IDBDSKW DS XL1 DISKWR 202 IDBDWCL EQU X'02' 1-1 S DISKWR=BY-CLOSE 202 IDBDWIM EQU X'01' 0-0 S DISKWR=IMMEDIATE 202 IDBDWNS EQU X'00' S DISKWR NOT SPECIFIED 202 IDBDATRI DS X 200 IDBDATRU EQU X'FE' R -- RESERVED, MUST BE 0 -- 200 IDBDATFF EQU X'01' 0-0 S DATATTR FROM FILE 200 IDBDATRF DS CL54 DATATTR REFERENCE FILENAME 200 IDBIND20 DS X 210 IDBNEWCE EQU X'80' 7-7 S CREATE NEW CE (TPR) 210 IDBNDADM EQU X'40' 6-6 S TSOS PRIVILEGE NEEDED (TPR) 220 IDBNDPHA EQU X'20' 5-5 S PHYSICAL ALLOC NEEDED (TPR) 220 IDBPFNAJ EQU X'10' 4-4 S NO IOPERF ADJUST (TPR) 260 IDBVSUIS EQU X'08' 3-3 S VOLSETSEL USERID SPEC (TPR) 260 IDBALTFN EQU X'04' 2-2 S NO ALTERNATIVE FORMAT (TPR) 262 IDBIN20U EQU X'03' R -- RESERVED, MUST BE 0 -- 262 IDBVSUID DS CL8 USERID FOR VOLSET SELECTION (TPR) 260 IDBIND21 DS X 270 IDBDEFPN EQU X'80' 7-7 S NO DEFAULT PROTECTION 270 IDBIN21U EQU X'7F' R -- RESERVED, MUST BE 0 -- 270 IDBNUSE4 DS XL4 -- RESERVED, MUST BE 0 -- 270 IDBPARLN EQU *-IDBPFLST LENGTH OF PARAM LIST 004