//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=5The 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.
************* 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
************* 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
************* 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
************* 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
//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=5The 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;
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
//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=5The 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;
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 .
//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=5The 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;
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 .