bdfd1m0v | Database Administration |
Macro IR25DF is the DSECT for the aircraft file. The following example shows the DSECT and the DBDEF for this index file.
Figure 30 shows the DSECT used to define the aircraft file.
Figure 30. DSECT to Define the Aircraft File
MACRO &LABEL IR25DF ®=,&SUFFIX=,&ORG=,&ACPDB= .* ********************************************************************* * * * IR25DF AIRCRAFT FILE * * DATE: 14JUL90 * * * ********************************************************************* GBLB &IR25DF1 1ST TIME CALLED SWITCH COPY DBGBL COPY TPFDF GLOBAL DEFINITIONS COPY DBLCL COPY TPFDF LOCAL DEFINITIONS &NAM SETC 'IR25DF ' DOC NAME &DATE SETC '08FEB91' UPDATE DATE &VERS SETC '00' VERSION NUMBER .******************************************************************** .* DEFINITIONS FOR TPFDF * .******************************************************************** &SW00WID SETC '25' FILE ID &SW00WRS SETC 'L2' BLOCK SIZE &SW00ARS SETC 'L2' ALTERNATE BLOCK SIZE &SW00RCT SETC '#MISC4' FACE FILE TYPE &SW00BOR SETC '#IR25DFF' BASE ORDINAL NUMBER &SW00EOR SETC '#IR25DFL' END ORDINAL NBR &SW00RBV SETC '#TPFDB04' RBV TYPE &SW01EO# SETC '&SW00EOR' RECOUP END ORDINAL &SW02FIL SETC 'IR25DF' FILE DSECT NAME &SW00OP1 SETC '00000000' OPT BYTE1 &SW00OP2 SETC '00000110' OPT BYTE2 &SW00OP3 SETC '00000000' OPT BYTE3 &SW00TQK SETC '15' HIGHEST TLREC .******************************************************************** COPY DBCOD COPY DSECT DEFINITION FUNCTIONS AIF ('&IR25DF1' EQ '1').NOT1ST * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * DESCRIPTION OF IR25DF * * * * 1. DATA AREA NAME * * * * AIRCRAFT FILE * * * * 2. MEMBER NAME * * * * IR25DF * * * * 3. INVOCATION * * * * IR25DF REG=RGD, * * (SUFFIX=X), * * (ORG=IR25HDR) * * *
* 4. GENERAL CONTENTS AND USAGE * * * * 4.1. ROLE IN SYSTEM * * * * CONTAINS CONFIGURATION INFORMATION FOR THE VARIOUS AIRCRAFT * * TYPES. * * * * 4.2. DATA LAYOUT * * * * STANDARD TPFDF FILE HEADER * * * * ABV.: CREATOR (C), USERS (U), AND PURGER (P) OF EACH LREC. * * * * PRIMARY KEY USAGE * * 80 AIRCRAFT TYPE LOGICAL RECORD * * * * 4.3. PROGRAMMING ASPECTS * * * * 4.3.1. PROGRAMMING RESTRICTIONS * * * * NONE. * * * * 4.3.2. PROGRAMMING TECHNIQUES AND USAGE * * * * STANDARD TPFDF LREC LOCATION TECHNIQUE USING: * * - PRIMARY KEY * * * * 5. STORAGE FACTORS * * * * 5.1. BLOCK SIZE * * * * DEFINED IN DBDEF. * * * * 5.2. FILE REQUIREMENTS * * * * 1 #MISCELLANEOUS FILE * * * * 5.3. ACCESSING SCHEME * * * * (DESCRIBE ALGORITHM, PATHS, UP/DOWN ORGANIZATION AND * * CROSS RELATION OF LRECS ETC) * * THERE IS NO SPECIAL ACCESS METHOD REQUIRED. THERE IS ONLY * * ONE FILE. * * * * 6. DATA CONTROL * * * * 6.1. CHAINING AND OVERFLOW * * * * STANDARD TPFDF CHAINING. * * * * 6.2. DATA FIELD ADDRESSING * * * * OFFSET WITHIN STANDARD TPFDF LREC. * * * * 7. IMPLEMENTATION REQUIREMENTS * * * * 8. REFERENCES * * * * 9. COMMENTS * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
EJECT AIF ('&SW00WRS' EQ '').CHECKID #IR25DFS EQU &SW00WRS BLOCK SIZE .CHECKID AIF ('&SW00WID' EQ '').NOT1ST #IR25DFI EQU C'&SW00WID' FILE ID .NOT1ST ANOP ********************************************************************* * STANDARD TPFDF HEADER * ********************************************************************* IR25HDR&CG1 DS CL16 STANDARD FILE HEADER DS CL10 STANDARD TPFDF HEADER IR25VAR&CG1 EQU * START OF VARIABLE USER-AREA IR25HDL&CG1 EQU IR25VAR&CG1-IR25HDR&CG1 HEADER-LENGTH UP TO SAM2VAR ORG IR25HDR&CG1 IR25REC&CG1 DS 0CL1 1ST RECORD START (1=VARIABLE,ELSE SIZE) IR25SIZ&CG1 DS H SIZE OF LOGICAL RECORD IR25KEY&CG1 DS X LOGICAL RECORD IDENTIFIER AIF ('&IR25DF1' EQ '1').KEYEQ GO IF NOT FIRST ISSUE ********************************************************************* * EQUATE OF LOGICAL RECORD KEYS (KEY AND LENGTH) * ********************************************************************* .* USE KEY #IR25K80 IF ONLY ONE KEY .* #IR25K00-#IR25K0F ARE RESERVED FOR TPFDF .* #IR25KF0-#IR25KFF ARE RESERVED FOR TPFDF #IR25K80 EQU X'80' LOGICAL RECORD KEY X'80' #IR25L80 EQU IR25E80&CG1-IR25REC&CG1 LENGTH OF LOGICAL RECORD X'80' &IR25DF1 SETB (1) INDICATE 1ST TIME THROUGH .KEYEQ ANOP IR25ORG&CG1 EQU * START OF LOGICAL RECORD DESCRIPTION .* ********************************************************************* * DESCRIPTION OF F I R S T LOGICAL RECORD TYPE * ********************************************************************* IR25ACT&CG1 DS CL4 AIRCRAFT TYPE IR25STR&CG1 DS 0XL4 SEAT RANGE IR25SOR&CG1 DS XL2 START OF RANGE IR25EOR&CG1 DS XL2 END OF RANGE IR25CLA&CG1 DS CL1 CLASS INFORMATION IR25E80&CG1 EQU * END OF LOGICAL RECORD X'80' .* .******************************************************************* AIF (&BG1).MACEXIT GO IF INTERNAL USAGE &SYSECT CSECT AIF ('®' EQ '').MACEXIT GO IF REG= NOT SPECIFIED .GEUSING ANOP GENERATE USING USING &DSN,® .MACEXIT ANOP SPACE 1 MEND
Figure 31 shows the position of IR25DF in the file structure.
Figure 31. Position of IR25DF in the File Structure
DBDEF FILE=IR25DF, - (PKY=#IR25K80, - KEY1=(PKY=#IR25K80,UP), - KEY2=(R=IR25CLA,UP))