ADABAS Files

CUSTOMERS, EMPLOYEE, INVOICE, and ORDER ADABAS Files

This section describes the ADABAS files associated with the NATURAL DDMs that are used in this document's examples. For each file, the following information is provided:
  • the ADABAS data definition statements used to create the ADABAS file
  • the SAS DATA step used to create the SAS data file for populating the ADABAS file
  • the example data.
The four ADABAS files used in the examples are named CUSTOMERS, EMPLOYEE, INVOICE, and ORDER.

CUSTOMERS ADABAS File

The CUSTOMERS file was created with the following ADABAS data definition statements:
//STEP01.DDCARD DD *
ADARUN PROGRAM=ADACMP
ADARUN DATABASE=001
ADARUN DEVICE=3380
ADARUN MODE=MULTI
ADARUN SVC=253
//STEP01.DDKARTE  DD  *
ADACMP COMPRESS
ADACMP FILE=45
ADACMP NUMREC=0
ADACMP FNDEF='01,CU,008,A,DE'
ADACMP FNDEF='01,SZ'
ADACMP FNDEF='02,ST,002,A,DE'
ADACMP FNDEF='02,ZI,005,U'
ADACMP FNDEF='01,CY,020,A,DE'
ADACMP FNDEF='01,PH,012,A'
ADACMP FNDEF='01,NA,060,A'
ADACMP FNDEF='01,CN,030,A'
ADACMP FNDEF='01,AD,040,A'
ADACMP FNDEF='01,CI,025,A'
ADACMP FNDEF='01,FO,006,U'
ADACMP FNDEF='01,SL,PE'
ADACMP FNDEF='02,LI,0014,U'
ADACMP FNDEF='02,SI,0030,A'
ADACMP FNDEF='01,BR,0025,A,MU(10)'
ADACMP SUPDE='SP=ST(1,2),ZI(1,2)'
ADACMP SUBDE='SB=ZI(1,2)'
//STEP02.DDCARD   DD  *
ADARUN PROGRAM=ADALOD
ADARUN DATABASE=001
ADARUN DEVICE=3380
ADARUN MODE=MULTI
ADARUN SVC=253
//STEP02.DDKARTE  DD  *
ADALOD LOAD FILE=45
ADALOD      DSSIZE=5B
ADALOD      NAME=CUSTOMERS
ADALOD      MAXISN=100
ADALOD      DSDEV=3380
ADALOD      TEMPDEV=3380
ADALOD      SORTSIZE=5
ADALOD      TEMPSIZE=5
The DATA step is as follows:
data customer;
     /* customer number        */
     input @1   custnum     $8.       
           @10  state       $2.
           /* zipcode if company is  */
           /* in the U.S.; otherwise */
           /* it is the mail code    */
           /* appropriate for the    */
           /* country where the      */
           /* company is located     */
           @13  zipcode     5.        
           @20  country     $20.
           @42  phone       $12.  /
           /* customer's company name*/
           @1   name        $60.  /   
           /* contact at customer's  */
           /* company                */
           @1   contact     $30.      
                                      
           @31  street      $40.  /
           @1   city        $25.
           /* date of first order    */
           @30  firstord    yymmdd6./ 
           /* signature limit #1     */
           @1   limit       15.2      
           /* signature name  #1     */
           @20  signatur    $30. /    
           /* branch office #1       */
           @1   branch_1    $25.      
           /* branch office #2       */
           @30  branch_2    $25. /    
           /* branch office #3       */
           @1   branch_3    $25.      
           /* branch office #4       */
           @30  branch_4    $25.;     
     format firstord date7.;
     datalines;
The data is shown in the following four outputs.
Data in CUSTOMERS ADABAS File – Part 1
 ************* CUSTOMER DATA ************ 
OBS  CUSTNUM     STATE    ZIPCODE    COUNTRY                 PHONE

  1  12345678     NC           .     USA                     919/489-5682
  2  14324742     CA       95123     USA                     408/629-0589
  3  14324742     CA       95123     USA                     408/629-0589
  4  14569877     NC       27514     USA                     919/489-6792
  5  14569877     NC       27514     USA                     919/489-6792
  6  14898029     MD       20850     USA                     301/760-2541
  7  14898029     MD       20850     USA                     301/760-2541
  8  14898029     MD       20850     USA                     301/760-2541

OBS  NAME

  1                                                          
  2  SANTA CLARA VALLEY TECHNOLOGY SPECIALISTS               
  3  SANTA CLARA VALLEY TECHNOLOGY SPECIALISTS               
  4  PRECISION PRODUCTS                                      
  5  PRECISION PRODUCTS                                      
  6  UNIVERSITY BIOMEDICAL MATERIALS                         
  7  UNIVERSITY BIOMEDICAL MATERIALS                         
  8  UNIVERSITY BIOMEDICAL MATERIALS                         

OBS  CONTACT                       STREET

  1                                                               
  2  A. BAUM                       5089 CALERO AVENUE             
  3  A. BAUM                       5089 CALERO AVENUE             
  4  CHARLES BARON                 198 FAYETTVILLE ROAD           
  5  CHARLES BARON                 198 FAYETTVILLE ROAD           
  6  S. TURNER                     1598 PICCARD DRIVE             
  7  S. TURNER                     1598 PICCARD DRIVE             
  8  S. TURNER                     1598 PICCARD DRIVE             

OBS  CITY                FIRSTORD   LIMIT  SIGNATUR          BRANCH_1

  1                            .        .                                   
  2  SAN JOSE            05FEB65     5000  BOB HENSON        TORONTO        
  3  SAN JOSE            05FEB65    25000  KAREN DRESSER     TORONTO        
  4  MEMPHIS             15AUG83     5000  JEAN CRANDALL     NEW YORK       
  5  MEMPHIS             15AUG83   100000  STEVE BLUNTSEN    NEW YORK       
  6  ROCKVILLE           12NOV76    10000  MASON FOXWORTH    NEW YORK       
  7  ROCKVILLE           12NOV76    50000  DANIEL STEVENS    NEW YORK       
  8  ROCKVILLE           12NOV76   100000  ELIZABETH PATTON  NEW YORK       

OBS  BRANCH_2    BRANCH_3         BRANCH_4

  1                                       
  2  HOUSTON     TOKYO            LONDON  
  3  HOUSTON     TOKYO            LONDON  
  4  CHICAGO     LOS ANGELES              
  5  CHICAGO     LOS ANGELES              
  6  CHICAGO     DALLAS                   
  7  CHICAGO     DALLAS                   
  8  CHICAGO     DALLAS     
Data in CUSTOMERS ADABAS File – Part 2
 ************* CUSTOMER DATA ************ 

OBS  CUSTNUM     STATE    ZIPCODE    COUNTRY                 PHONE

  9  15432147     MI       49001     USA                     616/582-3906
 10  18543489     TX       78701     USA                     512/478-0788
 11  18543489     TX       78701     USA                     512/478-0788
 12  18543489     TX       78701     USA                     512/478-0788
 13  19783482     VA       22090     USA                     703/714-2900
 14  19783482     VA       22090     USA                     703/714-2900
 15  19876078     CA       93274     USA                     209/686-3953
 16  19876078     CA       93274     USA                     209/686-3953

OBS  NAME

  9  GREAT LAKES LABORATORY EQUIPMENT MANUFACTURERS          
 10  LONE STAR STATE RESEARCH SUPPLIERS                      
 11  LONE STAR STATE RESEARCH SUPPLIERS                      
 12  LONE STAR STATE RESEARCH SUPPLIERS                      
 13  TWENTY-FIRST CENTURY MATERIALS                          
 14  TWENTY-FIRST CENTURY MATERIALS                          
 15  SAN JOAQUIN SCIENTIFIC AND INDUSTRIAL SUPPLY, INC.      
 16  SAN JOAQUIN SCIENTIFIC AND INDUSTRIAL SUPPLY, INC.      

OBS  CONTACT                       STREET

  9  D.W. KADARAUCH                103 HARRIET STREET             
 10  A. SILVERIA                   5609 RIO GRANDE                
 11  A. SILVERIA                   5609 RIO GRANDE                
 12  A. SILVERIA                   5609 RIO GRANDE                
 13  M.R. HEFFERNAN                4613 MICHAEL FARADAY DRIVE     
 14  M.R. HEFFERNAN                4613 MICHAEL FARADAY DRIVE     
 15  J.A. WHITTEN                  1095 HIGHWAY 99 SOUTH          
 16  J.A. WHITTEN                  1095 HIGHWAY 99 SOUTH          

OBS  CITY                FIRSTORD   LIMIT  SIGNATUR          BRANCH_1

  9  KALAMAZOO           28APR86    10000  JACK TREVANE      CHICAGO        
 10  AUSTIN              10SEP79    10000  NANCY WALSH       HOUSTON        
 11  AUSTIN              10SEP79    50000  TED WHISTLER      HOUSTON        
 12  AUSTIN              10SEP79   100000  EVAN MASSEY       HOUSTON        
 13  RESTON              18JUL68     5000  PETER THOMAS      WASHINGTON D.C.
 14  RESTON              18JUL68    10000  LOUIS PICKERING   WASHINGTON D.C.
 15  TULARE              11MAY79     7500  EDWARD LOWE                      
 16  TULARE              11MAY79    25000  E.F. JENSEN                      

OBS  BRANCH_2    BRANCH_3         BRANCH_4

  9  COLUMBUS                             
 10  DALLAS      EL PASO          LUBBOCK 
 11  DALLAS      EL PASO          LUBBOCK 
 12  DALLAS      EL PASO          LUBBOCK 
 13  NEW YORK                             
 14  NEW YORK                             
 15                                       
 16                                       
 
Data in CUSTOMERS ADABAS File – Part 3
 ************* CUSTOMER DATA ************ 
OBS  CUSTNUM     STATE    ZIPCODE    COUNTRY                 PHONE

 17  24589689                  .     Yugoslavia              (012)736-202
 18  26422096              75014     France                  4268-54-72  
 19  26422096              75014     France                  4268-54-72  
 20  26984578               5110     Austria                 43-57-04    
 21  27654351               5010     Belgium                 02/215-37-32
 22  28710427     HV        3607     Netherlands             (021)570517 
 23  29834248                  .     Britain                 (0552)715311
 24  31548901     BC           .     Canada                  406/422-3413

OBS  NAME

 17  CENTAR ZA TECHNICKU I NAUCNU RESTAURIRANJE UMJETNINA    
 18  SOCIETE DE RECHERCHES POUR DE CHIRURGIE ORTHOPEDIQUE    
 19  SOCIETE DE RECHERCHES POUR DE CHIRURGIE ORTHOPEDIQUE    
 20  INSTITUT FUR TEXTIL-FORSCHUNGS                          
 21  INSTITUT DE RECHERCHE SCIENTIFIQUE MEDICALE             
 22  ANTONIE VAN LEEUWENHOEK VERENIGING VOOR MICROBIOLOGIE   
 23  BRITISH MEDICAL RESEARCH AND SURGICAL SUPPLY            
 24  NATIONAL COUNCIL FOR MATERIALS RESEARCH                 

OBS  CONTACT                       STREET

 17  J.V. VUKASINOVIC              TAKOVSKA 4                     
 18  Y. CHAVANON                   40 RUE PERIGNON                
 19  Y. CHAVANON                   40 RUE PERIGNON                
 20  GUNTER SPIELMANN              MECHITARISTENGASSE 5           
 21  I. CLEMENS                    103 RUE D'EGMONT               
 22  M.C. BORGSTEEDE               BIRMOERSTRAAT 34               
 23  A.D.M. BRYCESON               44 PRINCESS GATE, HYDE PARK    
 24  W.E. MACDONALD                5063 RICHMOND MALL             

OBS  CITY                FIRSTORD   LIMIT  SIGNATUR          BRANCH_1

 17  BELGRADE            30NOV81        .                                   
 18  LA ROCHELLE         14JUN83     5000  MICHELE PICARD    LONDON         
 19  LA ROCHELLE         14JUN83    10000  M.L. SEIS         LONDON         
 20  VIENNA              25MAY87   100000  FRANZ BECH        LONDON         
 21  BRUSSELS            14OCT86     5000  C.J. HELMER       LONDON         
 22  THE HAGUE           10OCT85    10000  J.J. JASPER       LONDON         
 23  LONDON, SW7 1PU     29JAN86     5000  ELVIN POMEROY     SINGAPORE      
 24  VANCOUVER, V5T 1L2  19MAR84     1000  DAPHNE MARSHALL   SEATTLE        

OBS  BRANCH_2    BRANCH_3         BRANCH_4

 17                                       
 18  NEW YORK                             
 19  NEW YORK                             
 20  NEW YORK    ROME                     
 21  BOSTON                               
 22                                       
 23  TORONTO     CAIRO                    
 24  TORONTO                              
Data in CUSTOMERS ADABAS File – Part 4
 ************* CUSTOMER DATA ************ 

OBS  CUSTNUM     STATE    ZIPCODE    COUNTRY                 PHONE

 25  38763919               1405     Argentina               244-6324    
 26  39045213     SP        1051     Brazil                  012/302-1021
 27  43290587                  .     Japan                   (02)933-3212
 28  43459747               3181     Australia               03/734-5111 
 29  43459747               3181     Australia               03/734-5111 
 30  46543295                  .     Japan                   (03)022-2332
 31  46783280               2374     Singapore               3762855     
 32  48345514                  .     United Arab Emirates    213445      

OBS  NAME

 25  INSTITUTO DE BIOLOGIA Y MEDICINA NUCLEAR                
 26  LABORATORIO DE PESQUISAS VETERNINARIAS DESIDERIO FINAMOR
 27  HASSEI SAIBO GAKKAI                                     
 28  RESEARCH OUTFITTERS                                     
 29  RESEARCH OUTFITTERS                                     
 30  WESTERN TECHNOLOGICAL SUPPLY                            
 31  NGEE TECHNOLOGICAL INSTITUTE                            
 32  GULF SCIENTIFIC SUPPLIES                                

OBS  CONTACT                       STREET

 25  JORGE RUNNAZZO                SALGUERO 2345                  
 26  ELISABETE REGIS GUILLAUMON    RUA DONA ANTONIA DE QUEIROS 381
 27  Y. FUKUDA                     3-2-7 ETCHUJMA, KOTO-KU        
 28  R.G. HUGHES                   191 LOWER PLENTY ROAD          
 29  R.G. HUGHES                   191 LOWER PLENTY ROAD          
 30                                4-3-8 ETCHUJMA, KOTO-KU        
 31  LING TAO SOON                 356 CLEMENTI ROAD              
 32  J.Q. RIFAII                   POB 8032                       

OBS  CITY                FIRSTORD   LIMIT  SIGNATUR          BRANCH_1

 25  BUENOS AIRES        10DEC84     2500  M.L. CARLOS       MIAMI          
 26  SAO PAULO           18AUG82     1500  RICK ESTABAN      MIAMI          
 27  TOKYO 101           08FEB74    10000  R. YAMOTO         SAN FRANCISCO  
 28  PRAHRAN, VICTORIA   28JUL72     1000  DENNIS RICHMOND   SEATTLE        
 29  PRAHRAN, VICTORIA   28JUL72     5000  JANICE HEATH      SEATTLE        
 30  TOKYO 102           19APR84    10000  DAPHNE MARSHALL   SEATTLE        
 31  SINGAPORE           27SEP79        .                                   
 32  RAS AL KHAIMAH      10SEP86        .                                   

OBS  BRANCH_2    BRANCH_3         BRANCH_4

 25  NEW YORK                             
 26  NEW YORK                             
 27                                       
 28                                       
 29                                       
 30  TORONTO     SAN FRANCISCO    DENVER  
 31                                       
 32 

EMPLOYEE ADABAS File

The EMPLOYEE ADABAS file was created with the following ADABAS data definition statements:
//STEP01.DDCARD DD *
ADARUN PROGRAM=ADACMP
ADARUN DATABASE=001
ADARUN DEVICE=3380
ADARUN MODE=MULTI
ADARUN SVC=253
//STEP01.DDKARTE  DD  *
ADACMP COMPRESS
ADACMP FILE=46
ADACMP NUMREC=0
ADACMP FNDEF='01,ID,006,U,DE'
ADACMP FNDEF='01,HD,006,U'
ADACMP FNDEF='01,SA,007,U'
ADACMP FNDEF='01,DP,006,A'
ADACMP FNDEF='01,JC,005,U,DE'
ADACMP FNDEF='01,SX,001,A'
ADACMP FNDEF='01,BD,006,U'
ADACMP FNDEF='01,LN,018,A,DE'
ADACMP FNDEF='01,FN,015,A'
ADACMP FNDEF='01,MN,015,A'
ADACMP FNDEF='01,PH,004,A'
//STEP02.DDCARD   DD  *
ADARUN PROGRAM=ADALOD
ADARUN DATABASE=001
ADARUN DEVICE=3380
ADARUN MODE=MULTI
ADARUN SVC=253
//STEP02.DDKARTE  DD  *
ADALOD LOAD FILE=46
ADALOD      DSSIZE=5B
ADALOD      NAME=EMPLOYEE
ADALOD      MAXISN=100
ADALOD      DSDEV=3380
ADALOD      TEMPDEV=3380
ADALOD      SORTSIZE=5
ADALOD      TEMPSIZE=5
The DATA step is as follows:
data employ;
    /* employee id number        */
    input @1  empid     6.          
          @10 hiredate  yymmdd6.
          @20 salary    8.2
          @30 dept      $6.
          @40 jobcode   5.
          @47 sex       $1.
          @50 birthdat  yymmdd6. /
          @1  lastname  $18.
          @20 firstnam  $15.
          @40 middlena  $15.
          @60 phone     $4. ;
    format hiredate date7.;
    format birthdat date7.;
    datalines;
The data is shown in the following output.
Data for EMPLOYEE ADABAS File
    EMPID    HIREDATE     SALARY      DEPT     JOBCODE    SEX    BIRTHDAT

    119012    01JUL68     42340.58    CSR010       602      F     05JAN46 
    120591    05DEC80     31000.55    SHP002       602      F     12FEB46 
    123456    04APR89          .                     .                  . 
    127845    16JAN67     75320.34    ACC024       204      M     25DEC43 
    129540    01AUG82     56123.34    SHP002       204      F     31JUL60 
    135673    15JUL84     46322.58    ACC013       602      F     21MAR61 
    212916    15FEB51     52345.58    CSR010       602      F     29MAY28 
    216382    15JUN85     34004.65    SHP013       602      F     24JUL63 
    234967    19DEC88     17000.00    CSR004       602      M     21DEC67 
    237642    01NOV76     43200.34    SHP013       602      M     13MAR54 
    239185    07MAY81     57920.66    ACC024       602      M     28AUG59 
    254896    04APR85     35000.74    CSR011       204      M     06APR49 
    321783    10SEP67     48931.58    CSR011       602      M     03JUN35 
    328140    10JAN75     75000.34    ACC043      1204      F     02JUN51 
    346917    02MAR87     46000.33    SHP013       204      F     15MAR50 
    356134    14JUN85     62450.75    ACC013       204      F     25OCT60 
    423286    19DEC88     32870.66    ACC024       602      M     31OCT64 
    456910    14JUN78     45000.58    CSR010       602      M     24SEP53 
    456921    19AUG87     33210.04    SHP002       602      M     12MAY62 
    457232    15JUL85     55000.66    ACC013       602      M     15OCT63 
    459287    02NOV64     50000.00    SHP024       204      M     05JAN34 
    677890    12DEC88     37610.00    CSR010       204      F     24APR65 

    LASTNAME            FIRSTNAM        MIDDLENA     PHONE

    WOLF-PROVENZA       G.              ANDREA       3467 
    HAMMERSTEIN         S.              RACHAEL      3287 
    VARGAS              PAUL            JESUS             
    MEDER               VLADIMIR        JORAN        6231 
    CHOULAI             CLARA           JANE         3921 
    HEMESLY             STEPHANIE       J.           6329 
    WACHBERGER          MARIE-LOUISE    TERESA       8562 
    PURINTON            PRUDENCE        VALENTINE    3852 
    SMITH               GILBERT         IRVINE       7274 
    BATTERSBY           R.              STEPHEN      8342 
    DOS REMEDIOS        LEONARD         WESLEY       4892 
    TAYLOR-HUNYADI      ITO             MISHIMA      0231 
    GONZALES            GUILLERMO       RICARDO      3642 
    MEDINA-SIDONIA      MARGARET        ROSE         5901 
    SHIEKELESLAM        SHALA           Y.           8745 
    DUNNETT             CHRISTINE       MARIE        4213 
    MIFUNE              YUKIO           TOSHIRO      3278 
    ARDIS               RICHARD         BINGHAM      4351 
    KRAUSE              KARL-HEINZ      G.           7452 
    LOVELL              WILLIAM         SINCLAIR     6321 
    RODRIGUES           JUAN            M.           5879 
    NISHIMATSU-LYNCH    CAROL           ANNE         6245 

INVOICE ADABAS File

The INVOICE ADABAS file was created with the following ADABAS data definition statements:
//STEP01.DDCARD DD *
ADARUN PROGRAM=ADACMP
ADARUN DATABASE=001
ADARUN DEVICE=3380
ADARUN MODE=MULTI
ADARUN SVC=253
//STEP01.DDKARTE  DD  *
ADACMP COMPRESS
ADACMP FILE=47
ADACMP NUMREC=0
ADACMP FNDEF='01,IV,005,U,DE'
ADACMP FNDEF='01,BT,008,A'
ADACMP FNDEF='01,AM,014,U,DE'
ADACMP FNDEF='01,CY,020,A,DE'
ADACMP FNDEF='01,AU,010,U'
ADACMP FNDEF='01,BB,006,U,DE'
ADACMP FNDEF='01,BO,006,U'
ADACMP FNDEF='01,PO,006,U,DE'
ADACMP FNDEF='01,CX,008,G'
//STEP02.DDCARD   DD  *
ADARUN PROGRAM=ADALOD
ADARUN DATABASE=001
ADARUN DEVICE=3380
ADARUN MODE=MULTI
ADARUN SVC=253
//STEP02.DDKARTE  DD  *
ADALOD LOAD FILE=47
ADALOD      DSSIZE=5B
ADALOD      NAME=INVOICE
ADALOD      MAXISN=100
ADALOD      DSDEV=3380
ADALOD      TEMPDEV=3380
ADALOD      SORTSIZE=5
ADALOD      TEMPSIZE=5
The DATA step is as follows:
data invoice;
    /* invoice number           */
    input  @1  invoicen 5.          
           /* company that placed the order */
           @7  billedto $8.         

           /* amount of bill in local currency */
           @15 amtbille 15.2        
           @30 country  $20.
           /* amount of bill in U.S. dollars */
           @50 amountin 11.2 /      

           /* employee who wrote the bill */
           @1  billedby 6.          

           /* date that bill was sent  */
           @10 billedon yymmdd6.    

           /* date that bill was paid  */
           @20 paidon   yymmdd6.    

           /* time of day that the     */
           /* exchange rate to U.S.    */
           /* dollars was computed     */
           @30 computed time8. ;    
    format billedon date7.;
    format paidon date7.;
    datalines;
The data is shown in the following output.
Data for ORDER ADABAS File
 INVOICEN    BILLEDTO        AMTBILLE    COUNTRY       AMOUNTIN

     11270     39045213    1340738760.9    Brazil        2256870.0
     11271     18543489      11063836.0    USA          11063836.0
     11273     19783482        252148.5    USA            252148.5
     11276     14324742       1934460.0    USA           1934460.0
     11278     14898029       1400825.0    USA           1400825.0
     11280     39045213    1340738760.9    Brazil        2256870.0
     11282     19783482        252148.5    USA            252148.5
     11285     38763919      34891210.2    Argentina     2256870.0
     11286     43459747      12679156.0    Australia    11063836.0
     11287     15432147        252148.5    USA            252148.5
     12051     39045213    1340738760.9    Brazil        2256870.0
     12102     18543489      11063836.0    USA          11063836.0
     12263     19783482        252148.5    USA            252148.5
     12468     14898029       1400825.0    USA           1400825.0
     12471     39045213    1340738760.9    Brazil        2256870.0
     12476     38763919      34891210.2    Argentina     2256870.0
     12478     15432147        252148.5    USA            252148.5

   BILLEDBY    BILLEDON     PAIDON    COMPUTED

     239185     05OCT88     18OCT88      39646 
     457232     05OCT88     11OCT88          . 
     239185     06OCT88     11NOV88          . 
     135673     06OCT88     20OCT88          . 
     239185     06OCT88     19OCT88          . 
     423286     07OCT88     20OCT88      58154 
     457232     07OCT88     25OCT88          . 
     239185     10OCT88     30NOV88      55163 
     423286     10OCT88           .      33827 
     457232     11OCT88     04NOV88          . 
     457232     02NOV88           .      31185 
     239185     17NOV88           .          . 
     423286     05DEC88           .          . 
     135673     24DEC88     02JAN89          . 
     457232     27DEC88           .      50945 
     135673     24DEC88           .      39563 
     423286     24DEC88     02JAN89          . 

ORDER ADABAS File

The ORDER ADABAS file was created with the following ADABAS data definition statements:
//STEP01.DDCARD DD *
ADARUN PROGRAM=ADACMP
ADARUN DATABASE=001
ADARUN DEVICE=3380
ADARUN MODE=MULTI
ADARUN SVC=253
//STEP01.DDKARTE  DD  *
ADACMP COMPRESS
ADACMP FILE=48
ADACMP NUMREC=0
ADACMP FNDEF='01,ON,005,U,DE'
ADACMP FNDEF='01,SN,004,U'
ADACMP FNDEF='01,LN,004,U'
ADACMP FNDEF='01,FC,010,U'
ADACMP FNDEF='01,ST,008,A,DE'
ADACMP FNDEF='01,DO,006,U'
ADACMP FNDEF='01,DS,006,U'
ADACMP FNDEF='01,TB,006,U'
ADACMP FNDEF='01,PB,006,U'
ADACMP FNDEF='01,SF,001,A'
//STEP02.DDCARD   DD  *
ADARUN PROGRAM=ADALOD
ADARUN DATABASE=001
ADARUN DEVICE=3380
ADARUN MODE=MULTI
ADARUN SVC=253
//STEP02.DDKARTE  DD  *
ADALOD LOAD FILE=48
ADALOD      DSSIZE=5B
ADALOD      NAME=ORDER
ADALOD      MAXISN=100
ADALOD      DSDEV=3380
ADALOD      TEMPDEV=3380
ADALOD      SORTSIZE=5
ADALOD      TEMPSIZE=5
The DATA step is as follows:
data orders;
    /* order number                 */
    input @1  ordernum 5.       
          /* stock number                 */
          @6  stocknum 4.       

          /* length of material ordered   */
          @10 length   4.       

          /* fabric charges               */
          @15 fabricch 11.2     

          /* customer whom order is to be */
          /* shipped to                   */
          @27 shipto   $8.      
                                

          /* date of order                */
          @35 dateorde yymmdd6. 
          /* date that order was shipped  */
          @45 shipped  yymmdd6. 

          /* employee who took the order  */
          @55 takenby  6.       


          /* employee who processed the order  */
          @62 processe 6.       

          /* this flag signals that       */
          /* special instructions are     */
          /* associated with this order.  */
          @69 speciali $1. ;    
     format dateorde date7.;
     format shipped date7.;
     datalines;
The data is shown in the following output.
Data for ORDER ADABAS File
     O     S            F                    D                   P   S
     R     T            A                    A       S    T      R   P
     D     O    L       B        S           T       H    A      O   E
     E     C    E       R        H           E       I    K      C   C
     R     K    N       I        I           O       P    E      E   I
     N     N    G       C        P           R       P    N      S   A
     U     U    T       C        T           D       E    B      S   L
     M     M    H       H        O           E       D    Y      E   I

   11269 9870  690         .  19876078 03OCT88       . 212916      .  
   11270 1279 1750  2256870.0 39045213 03OCT88 19OCT88 321783 237642 X
   11271 8934  110 11063836.0 18543489 03OCT88 13OCT88 456910 456921  
   11272 3478 1000         .  29834248 03OCT88       . 234967      .  
   11273 2567  450   252148.5 19783482 04OCT88 14NOV88 119012 216382  
   11274 4789 1000         .  15432147 04OCT88       . 212916      .  
   11275 3478 1000         .  29834248 04OCT88       . 234967      .  
   11276 1279 1500  1934460.0 14324742 04OCT88 21OCT88 321783 120591 X
   11277 8934  100 10058033.0 31548901 05OCT88       . 456910      .  
   11278 2567 2500  1400825.0 14898029 05OCT88 20OCT88 119012 456921  
   11279 9870  650         .  48345514 05OCT88       . 212916      .  
   11280 1279 1750  2256870.0 39045213 06OCT88 21OCT88 321783 237642 X
   11281 8934  110 11063836.0 18543489 06OCT88 27OCT88 456910 216382  
   11282 2567  450   252148.5 19783482 06OCT88 26OCT88 119012 456921  
   11283 9870  690         .  18543489 07OCT88       . 212916      .  
   11284 3478 1000         .  24589689 07OCT88       . 234967      .  
   11285 1279 1750  2256870.0 38763919 07OCT88 02DEC88 321783 120591 X
   11286 8934  110 11063836.0 43459747 07OCT88 03NOV88 456910 237642  
   11287 2567  450   252148.5 15432147 07OCT88 07NOV88 119012 216382  
   11288 9870  690         .  14324742 10OCT88       . 212916      . Y
   11969 9870  690         .  19876078 25OCT88       . 212916      .  
   12051 1279 1750  2256870.0 39045213 31OCT88       . 321783      . X
   12102 8934  110 11063836.0 18543489 15NOV88       . 456910      .  
   12160 3478 1000         .  29834248 19NOV88       . 234967      . Z
   12263 2567  450   252148.5 19783482 01DEC88       . 119012      .  
   12464 4789 1000         .  15432147 23DEC88       . 212916      .  
   12465 3478 1000         .  29834248 23DEC88       . 234967      .  
   12466 1279 1500  1934460.0 14324742 23DEC88       . 321783      . X
   12467 8934  100 10058033.0 31548901 23DEC88       . 456910      .  
   12468 2567 2500  1400825.0 14898029 23DEC88 03JAN89 119012 120591  
   12470 9870  650         .  48345514 23DEC88       . 212916      .  
   12471 1279 1750  2256870.0 39045213 23DEC88       . 321783      . X
   12472 8934  110 11063836.0 18543489 23DEC88 03JAN89 456910 237642  
   12473 2567  450   252148.5 19783482 23DEC88       . 119012      .  
   12474 9870  690         .  18543489 23DEC88       . 212916      .  
   12475 3478 1000         .  24589689 23DEC88       . 234967      .  
   12476 1279 1750  2256870.0 38763919 23DEC88 03JAN89 321783 456921 X
   12477 8934  110 11063836.0 43459747 23DEC88       . 456910      .  
   12478 2567  450   252148.5 15432147 23DEC88 03JAN89 119012 216382  
   12479 9870  690         .  14324742 23DEC88       . 212916      .