bdfd1m0vDatabase Administration

DSECT and DBDEF for the Aircraft File

Macro IR25DF is the DSECT for the aircraft file. The following example shows the DSECT and the DBDEF for this index file.

DSECT

Figure 30 shows the DSECT used to define the aircraft file.

Figure 30. DSECT to Define the Aircraft File

         MACRO
&LABEL   IR25DF &REG=,&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   ('&REG' EQ '').MACEXIT  GO IF REG= NOT SPECIFIED
.GEUSING ANOP                          GENERATE USING
         USING &DSN,&REG
.MACEXIT ANOP
         SPACE 1
         MEND

DBDEF

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))