PROGRAM 1 IDENTIFICATION DIVISION. PROGRAM-ID. PROJECT1. AUTHOR. ANTHONY F. ORITZ. *********************** * BEGINNING PROGRAM * *********************** ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT IN-FILE ASSIGN TO DISK "ONE.DAT" ORGANIZATION IS LINE SEQUENTIAL. SELECT OUT-FILE ASSIGN TO PRINTER. DATA DIVISION. FILE SECTION. FD IN-FILE LABEL RECORD IS STANDARD. 01 IN-RECORD. 02 IN-DEPT PIC XXX. 02 FILLER PIC X(6). 02 IN-NAME PIC X(20). 02 FILLER PIC X(20). 02 IN-ID PIC XXXX. 02 FILLER PIC X(8). FD OUT-FILE LABEL RECORD IS OMITTED. 01 OUT-RECORD. 02 OUT-DEPT PIC XXX. 02 FILLER PIC XX. 02 OUT-NAME PIC X(20). 02 FILLER PIC XXX. 02 OUT-ID PIC XXXX. PROCEDURE DIVISION. BEGINNING-OF-WHAT-TO-DO. OPEN INPUT IN-FILE OUTPUT OUT-FILE. MOVE SPACES TO OUT-RECORD. READ-A-RECORD. READ IN-FILE AT END CLOSE IN-FILE OUT-FILE STOP RUN. MOVE IN-DEPT TO OUT-DEPT. MOVE IN-NAME TO OUT-NAME. MOVE IN-ID TO OUT-ID. WRITE OUT-RECORD AFTER ADVANCING 2 LINES. GO TO READ-A-RECORD. * DATA FILE: ONE.DAT * 100101410ALBERS, STEVEN FRONT DISC BRAKES 422034031045 100101561CANATERRA, CANDY HEAD LIGHTS 163045075105 100101765CHENEY, MAXINE NYLON GAS PEDALS 114034007016 100101813CRAIG, MARY LOU BUCKET SEAT 243457010005 100301887DUFFY, MARCUS 1" TRAILER HITCH 122356002010 100301914EPPLY, DERVIS TOWQUE WRENCHES 413056110213 100301957FIEDLER, FERN 4 PLY RADIAL TIRES 150345056075 100502045GARCIA, FRANCIS 6" JUMPER CABLES 221233004011 100502076KOON, BARNEY L. SETS OF 4 HEX NUTS 310340005017 100502189KOWALSKI, PATRICK 5" WINDSHIELD BLADES330567023020 100502201LICHFIELD, SANDRA PLASTIC FLOOR MATS 660450047192 100502250LUBNER, SALLY R. WOOD STEERING WHEELS545459102365 100602275MARQUARDT, MICHAEL POINTS AND PLUGS 613455002078 100602323MARTIN, JUSTIN B. LOCK DE-ICER 230983010045 100602357MCGILL, MARTIN J. MOTORALL 10W30 OIL 345676023056 100602789MEEGAN, JULIE R. GENERATORS 365678090900 100603578MUFFINS, ROGERT L. 1/2" VACUUM LINES 116787004098 100603971NAPOLITAN, SHEILA R.METRIC SOCKET SETS 450123103134 100703898NOWICKI, OZZIE L. FLOOR CLEANER 623456004021 100704456PEACOCK, GERALD M. 2 TON CAR RAMPS 610045010024 100704692PEREZ, MARTINIQUE A.TRANSMISSION KITS 250173080076 100704789POSTEN, THOMAS E. OIL PANS 541234011078 100704987REESES, LAURA W. OPERATORS MANUALS 522894001099 100705139RENO, STEVEN B. HI/LO DIMMER SWITCH 610639010020 100705983ROGHCHILD, RUTH C. RACING STRIPE KITS 133404045089 100805999SAMMS, CARLA P. OIL CHANGE KIT 669234090100 100806134SCHMIDT, CHUCK H. INTERIOR LIGHT BULBS312302004050 100806297SHARP, CRAIG I. SET OF 2 FOG LIGHTS 237809001008 100806356SHORT, BRENDA B. DISTRIBUTOR CAPS 429834010023 100806489SKINNER, CARL S. TIMING GEARS 250789110023 100806598SPRINGSTEIN, ALBERT SECURITY SYSTEM 460929010067 100806701STROH, ALEXIS M. CRUISE CONTROLS 342856055067 200107980SWEENEY, ROGER W. SET OF 4 HUB CAPS 350345067078 200108379TEEPLE, THOMAS T. AXLE GREASE (GALLON)512347001023 200108567TOMCHUCK, FREDERICK NO-WIPE CAR POLISH 130375004056 200108673TOMLIN, PETER S. CAR WAXERS 269845090020 200108674TOWNLEY, ASTIN R. GREASE-B-GONE WASHER455628034056 200108732TOWNS, BEVERLY SUNNY SUNROOF KIT 422345011045 200308845TRAKSO, ALLEN R. ROAD MAPS 610304001005 200308913TRUSKOWSKI, MIKE 2-WAY OIL FILTER 123040010052 200308957TURNER, CHARLES A. ENGINE BLOCKS 540378402098 200308975TYLER, MARY M. TRANSMISSION FLUID 530923045056 200509003ULMER, FRED F. NO-SLIP BRAKE FLUID 240450050067 200509156URMY, AMY A. NO-LEAK RADIATORS 419340120344 200509245VARTY, VERNON S. SPARKLES PAINT 620098009009 200509347VINCENT, BOBBY L. CHROME POLISH 362984019090 200709467WADHAM, LARRY L. VINYL TOP KITS 140086087078 200709610WALKER, JERRY F. 6" ROUND HEADLIGHTS 655870087090 200709763WENDT, WENDY Y. NO-FUZZ FUZZ BUSTER 424598030030 200709908ZELLER, ARTHUR GLASS WINDOWS 118890200230 * OUTFILE: PROG1.OUT * 100 ALBERS, STEVEN 4220 100 CANATERRA, CANDY 1630 100 CHENEY, MAXINE 1140 100 CRAIG, MARY LOU 2434 100 DUFFY, MARCUS 1223 100 EPPLY, DERVIS 4130 100 FIEDLER, FERN 1503 100 GARCIA, FRANCIS 2212 100 KOON, BARNEY L. 3103 100 KOWALSKI, PATRICK 3305 100 LICHFIELD, SANDRA 6604 100 LUBNER, SALLY R. 5454 100 MARQUARDT, MICHAEL 6134 100 MARTIN, JUSTIN B. 2309 100 MCGILL, MARTIN J. 3456 100 MEEGAN, JULIE R. 3656 100 MUFFINS, ROGERT L. 1167 100 NAPOLITAN, SHEILA R. 4501 100 NOWICKI, OZZIE L. 6234 100 PEACOCK, GERALD M. 6100 100 PEREZ, MARTINIQUE A. 2501 100 POSTEN, THOMAS E. 5412 100 REESES, LAURA W. 5228 100 RENO, STEVEN B. 6106 100 ROGHCHILD, RUTH C. 1334 100 SAMMS, CARLA P. 6692 100 SCHMIDT, CHUCK H. 3123 100 SHARP, CRAIG I. 2378 100 SHORT, BRENDA B. 4298 100 SKINNER, CARL S. 2507 100 SPRINGSTEIN, ALBERT 4609 100 STROH, ALEXIS M. 3428 200 SWEENEY, ROGER W. 3503 200 TEEPLE, THOMAS T. 5123 200 TOMCHUCK, FREDERICK 1303 200 TOMLIN, PETER S. 2698 200 TOWNLEY, ASTIN R. 4556 200 TOWNS, BEVERLY 4223 200 TRAKSO, ALLEN R. 6103 200 TRUSKOWSKI, MIKE 1230 200 TURNER, CHARLES A. 5403 200 TYLER, MARY M. 5309 200 ULMER, FRED F. 2404 200 URMY, AMY A. 4193 200 VARTY, VERNON S. 6200 200 VINCENT, BOBBY L. 3629 200 WADHAM, LARRY L. 1400 200 WALKER, JERRY F. 6558 200 WENDT, WENDY Y. 4245 200 ZELLER, ARTHUR 1188
BACK TO CIS165 PAGE.