PROGRAM 3 IDENTIFICATION DIVISION. PROGRAM-ID. PROJECT3. AUTHOR. ANTHONY F. ORTIZ. ****************************************** * THIS PROGRAM CREATES A SALES REPORT. * ****************************************** ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT IN-FILE ASSIGN TO DISK "A:\TWO.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 FILLER PIC X(6). 02 IN-STORE-NUMBER PIC X(2). 02 IN-DEPT-NUMBER PIC X(2). 02 IN-SALESPERSON-NUMBER PIC X(2). 02 IN-SALESPERSON-NAME PIC X(20). 02 FILLER PIC X(21). 02 IN-SALES-AMOUNT PIC X(6). 02 FILLER PIC X(8). FD OUT-FILE. 01 OUT-BUFFER PIC X(80). WORKING-STORAGE SECTION. 01 OUT-RECORD. 02 FILLER PIC X(5). 02 OUT-SALESPERSON-NUMBER PIC X(2). 02 FILLER PIC X(7). 02 OUT-SALESPERSON-NAME PIC X(20). 02 FILLER PIC X(9). 02 OUT-STORE-NUMBER PIC X(2). 02 FILLER PIC X(9). 02 OUT-DEPT-NUMBER PIC X(2). 02 FILLER PIC X(9). 02 OUT-SALES-AMOUNT PIC X(6). 01 PROGRAM-INDICATORS. 02 EOF-SWITCH PIC X(3) VALUE 'NO '. PROCEDURE DIVISION. CREATE-PROGRAM. OPEN INPUT IN-FILE OUTPUT OUT-FILE. MOVE SPACES TO OUT-RECORD. READ IN-FILE AT END MOVE 'YES' TO EOF-SWITCH. PERFORM PRINT-RECORD UNTIL EOF-SWITCH = 'YES' CLOSE IN-FILE OUT-FILE. STOP RUN. PRINT-RECORD. MOVE IN-STORE-NUMBER TO OUT-STORE-NUMBER. MOVE IN-DEPT-NUMBER TO OUT-DEPT-NUMBER. MOVE IN-SALESPERSON-NUMBER TO OUT-SALESPERSON-NUMBER. MOVE IN-SALESPERSON-NAME TO OUT-SALESPERSON-NAME. MOVE IN-SALES-AMOUNT TO OUT-SALES-AMOUNT. WRITE OUT-BUFFER FROM OUT-RECORD AFTER ADVANCING 2 LINES. READ IN-FILE AT END MOVE 'YES' TO EOF-SWITCH. * OUTFILE: TWO.DAT 072786100101ALBERT, PETER A. CRT WORKSTATION 101202100308901 072786100103ALLENSON, SHEILA M. CONTEMPORARY DESK 202386800873403 072786100105ANDERSON, ARLENE T. EXECUTIVE DESK CHAIR301259301005005 072786100107BILLINGS, BARBARA ARMLESS SWIVEL CHAIR401378301105606 072786100109CANNON, CAROLE C. PLASTICMAID FLOORMAT200673900300004 072786100310CHAPMAN, RONA L. HAT & COAT RACK 301569400356702 072786100312CLAFFLIN, WALTER E. 5 DRAWER CABINET 401250100367803 072786100313COMPANA, ESTER CRT STAND & PAD 101890100789576 072786100315COOPER, BART B. CORRUGATED ORGANIZER100456700200034 072786100316CRAIGS, ELAINE 5" MESSAGE PADS 100127300506785 072786100318DOGGING, CARL LABEL & BADGE MAKER 301345700240582 072886100529DOWNING, EARLE S. SELF-ADHISIVE LABELS304873101258991 072886100530DRIFT, CHRISTOPHER #14 RUBBER BANDS 200053700348446 072886100531ERIKSON, BRIT E. TRANSPARENT TAPE 402345601103406 072886100532FREEMAN, ROBERT F. PHONE/ADDRESS BOOK 200579300608034 072886100535FRONT, CHARLES L. ELMO'S SUPER GLUE 401457300293483 072886100537GARCIA, JOSE FLOWCHART TEMPLATE 201456301013442 072886100738HATFIELD, FRED R. EXPAND-O FILE FOLDER403568500806795 072886100739HELLER, KAREN S. DESK TOP CARD FILE 300456700304591 072886100740HENDRIX, SHIRLEY D. GENERAL LEDGER CARDS300348200169523 072886100742ISLANDER, JENNE WOOD ATTACHE CASE 203547801209865 072886100743LADA, LAWRENCE S. STANDARD STAPLES 104500802475332 072886100745LADD, DAVID L. MULTIPLE HOLE PUNCH 400346800204082 072886100947LAMB, EDWARD R. PRESENTATION EASELS 203984402879906 072886100948LEELAND, WESLEY R. MAGNIFYING GLASS 300738300607023 072986100949LOFTIS, DOUGLAS L. DESK PAD & CALENDAR 100783700500092 072986100950MILLER, SUSAN S. DESK TOP ORGANIZER 203759802184392 072986200151MUDGLEY, BRENDA 3' DESK LAMP 203568401568224 072986200152NICKELS, KATHY WALL CLOCK & CORD 210308804108071 072986200154NOWAKOWSKI, ALLEN T.WASTE RECEPTICLES 403459300809545 072986200355PATERSON, PATTI SMOKING STANDS 108906701293424 072986200356PETERSON, JACK E. CORRESPONDONCE FORM 403450900809693 072986200357PETERSON, TONY L. WORK ORDER FORM PADS212009900459875 072986200358PLANTARA, CARLA P. PRESSBOARD COVERS 406550900879336 073086200359RASKIN, RUTH E. METAL HINGE BINDERS 309833104658262 073086200560SANDERSON, PAULETTE STENOGRAPHER'S PAD 412569300308551 073086200562SAUNDERS, GEORGE P. BINDER INDEXES 204050603459843 073086200564SINGER, ALEXIS E. EXPENSE BOOKLET 300348500203484 073086200565SUMMERS, APRIL L. COLUMNAR BOOKS 407890104593056 073086200567SWEET, SUSAN R. CALCULATOR ROLLS 109345405056091 073086200769TANDY, TRICIA S. HAND HELD CALCULATOR208394505010003 073086200770TERRY, RON CATCH-A-CALL PHONE 308309204832296 073186200773TONEY, IRA L. PENCIL SHARPENER 408398904007082 073186200775UPLAND, JILL I. PEN & PENCIL SET 208987803567754 073186200779VANBUREN, ERIN F. MECHANICAL PENCIL 304354403234735 073186200980WALLACE, STEVEN COLORED PENCIL SET 208979903478541 073186200985WALTON, WOODROW R. DUPLICATING FLUID 400783900638363 073186200987YULANE, ARTHUR M. FILING ENVELOPES 301234500900045 073186200990ZIPPO, WANDA EXECUTIVE PAD HOLDER400847500739156 073186200995ZOONEY, MARVIN 5" DISKETTE HOLDER 109385505033253 * OUTFILE: PROG3.OUT * 01 ALBERT, PETER A. 10 01 012021 03 ALLENSON, SHEILA M. 10 01 023868 05 ANDERSON, ARLENE T. 10 01 012593 07 BILLINGS, BARBARA 10 01 013783 09 CANNON, CAROLE C. 10 01 006739 10 CHAPMAN, RONA L. 10 03 015694 12 CLAFFLIN, WALTER E. 10 03 012501 13 COMPANA, ESTER 10 03 018901 15 COOPER, BART B. 10 03 004567 16 CRAIGS, ELAINE 10 03 001273 18 DOGGING, CARL 10 03 013457 29 DOWNING, EARLE S. 10 05 048731 30 DRIFT, CHRISTOPHER 10 05 000537 31 ERIKSON, BRIT E. 10 05 023456 32 FREEMAN, ROBERT F. 10 05 005793 35 FRONT, CHARLES L. 10 05 014573 37 GARCIA, JOSE 10 05 014563 38 HATFIELD, FRED R. 10 07 035685 39 HELLER, KAREN S. 10 07 004567 40 HENDRIX, SHIRLEY D. 10 07 003482 42 ISLANDER, JENNE 10 07 035478 43 LADA, LAWRENCE S. 10 07 045008 45 LADD, DAVID L. 10 07 003468 47 LAMB, EDWARD R. 10 09 039844 48 LEELAND, WESLEY R. 10 09 007383 49 LOFTIS, DOUGLAS L. 10 09 007837 50 MILLER, SUSAN S. 10 09 037598 51 MLTGLEY, BRENDA 20 01 035684 52 X=TLS, KATHY 20 01 103088 54 NOWAKOWSKI, ALLEN T. 20 01 034593 55 PATERSON, PATTI 20 03 089067 56 PETERSON, JACK E. 20 03 034509 57 PETERSON, TONY L. 20 03 120099 58 PLANTARA, CARLA P. 20 03 065509 59 RASKIN, RUTH E. 20 03 098331 60 SANDERSON, PAULETTE 20 05 125693 62 SAUNDERS, GEORGE P. 20 05 040506 64 SINGER, ALEXIS E. 20 05 003485 65 SUMMERS, APRIL L. 20 05 078901 67 SWEET, SUSAN R. 20 05 093454 69 TANDY, TRICIA S. 20 07 083945 70 TERRY, RON 20 07 083092 73 TONEY, IRA L. 20 07 083989 75 UPLAND, JILL I. 20 07 089878 79 VANBUREN, ERIN F. 20 07 043544 80 WALLACE, STEVEN 20 09 089799 85 WALTON, WOODROW R. 20 09 007839 87 YULANE, ARTHUR M. 20 09 012345 90 ZIPPO, WANDA 20 09 008475 95 ZOONEY, MARVIN 20 09 093855
BACK TO CIS165 PAGE.