{[ promptMessage ]}

Bookmark it

{[ promptMessage ]}

TUTORPGM - TUTORPGM.CBL FLOWCHART 100-MAINLINE START...

Info icon This preview shows pages 1–9. Sign up to view the full content.

View Full Document Right Arrow Icon
TUTORPGM.CBL FLOWCHART Page 1of 16 START 200-OPEN END-OF-DATA- WS = ? 300-PROCESS 900-CLOSE STOP RUN 'YES' 'NO' 100-MAINLINE
Image of page 1

Info icon This preview has intentionally blurred sections. Sign up to view the full version.

View Full Document Right Arrow Icon
TUTORPGM.CBL FLOWCHART Page 2of 16 ENTRY OPEN INPUT VENDOR-FILE OUTPUT VENDOR-REPORT 250-READ- RECORD 500-HEADER EXIT 200-OPEN
Image of page 2
TUTORPGM.CBL FLOWCHART Page 3of 16 ENTRY READ VENDOR-FILE INTO REAL-INPUT-REC AT END ? MOVE 'YES' TO END-OF-DATA-WS EXIT YES NO 250-READ-RECORD
Image of page 3

Info icon This preview has intentionally blurred sections. Sign up to view the full version.

View Full Document Right Arrow Icon
TUTORPGM.CBL FLOWCHART Page 4of 16 ENTRY 350-MOVE- AND-WRITE 250-READ- RECORD EXIT 300-PROCESS
Image of page 4
TUTORPGM.CBL FLOWCHART Page 5of 16 ENTRY MOVE INPUT FIELDS TO OUTPUT FIELDS IN THE DETAIL-LINE MOVE THE DETAIL-LINE TO THE PRINT-LINE WRITE PRINT-LINE AFTER 1 EXIT 350-MOVE-WRITE
Image of page 5

Info icon This preview has intentionally blurred sections. Sign up to view the full version.

View Full Document Right Arrow Icon
TUTORPGM.CBL FLOWCHART Page 6of 16 START WRITE PRINT-LINE FROM REPORT-HEADER AFTER 1 WRITE PRINT-LINE FROM COLUMN-HEADER1 AFTER 3 MOVE SPACES TO PRINT-LINE (PRINT BLANK LINE AFTER HEADERS) WRITE PRINT-LINE FROM SPACES AFTER 2 WRITE PRINT-LINE FROM COLUMN-HEADER2 AFTER 1 EXIT 500-HEADER
Image of page 6
TUTORPGM.CBL FLOWCHART Page 7of 16 ENTRY EXIT CLOSE VENDOR-FILE VENDOR-REPORT 900-CLOSE
Image of page 7

Info icon This preview has intentionally blurred sections. Sign up to view the full version.

View Full Document Right Arrow Icon
TUTORPGM.CBL  IDENTIFICATION DIVISION.        PROGRAM-ID. TUTORPGM.        AUTHOR. GUYNES/VANECEK.       *  HOW TO CODE A SIMPLE READ AND WRITE PROGRAM.        ENVIRONMENT DIVISION.        INPUT-OUTPUT SECTION.        FILE-CONTROL.            SELECT VENDOR-FILE ASSIGN TO 'A:TUTORPGM.DAT'                   ORGANIZATION IS LINE SEQUENTIAL.            SELECT VENDOR-REPORT ASSIGN TO 'A:TUTORPGM.OUT'                   ORGANIZATION IS LINE SEQUENTIAL.        DATA DIVISION.        FILE SECTION.        FD  VENDOR-FILE.        01  DUMMY-INPUT-REC             PIC X(80).        FD  VENDOR-REPORT.        01  PRINT-LINE                  PIC X(133).        WORKING-STORAGE SECTION.        01  WORKING-VARIABLES.            05  END-OF-DATA-WS          PIC X(3)    VALUE 'NO'.       *************************************************************** *       *THE INPUT FIELDS ARE SPECIFIED BELOW       *NOTE THAT THE DOL-AMT-IN FIELD IS NOT EDITED       *************************************************************** *        01  REAL-INPUT-REC.            05  FILLER                  PIC X(3).            05  VENDOR-NO-IN            PIC 9(5).            05  FILLER                  PIC X(14).            05  ACCT-NO-IN              PIC X(4).            05  FILLER                  PIC X(3).
Image of page 8
Image of page 9
This is the end of the preview. Sign up to access the rest of the document.

{[ snackBarMessage ]}

What students are saying

  • Left Quote Icon

    As a current student on this bumpy collegiate pathway, I stumbled upon Course Hero, where I can find study resources for nearly all my courses, get online help from tutors 24/7, and even share my old projects, papers, and lecture notes with other students.

    Student Picture

    Kiran Temple University Fox School of Business ‘17, Course Hero Intern

  • Left Quote Icon

    I cannot even describe how much Course Hero helped me this summer. It’s truly become something I can always rely on and help me. In the end, I was not only able to survive summer classes, but I was able to thrive thanks to Course Hero.

    Student Picture

    Dana University of Pennsylvania ‘17, Course Hero Intern

  • Left Quote Icon

    The ability to access any university’s resources through Course Hero proved invaluable in my case. I was behind on Tulane coursework and actually used UCLA’s materials to help me move forward and get everything together on time.

    Student Picture

    Jill Tulane University ‘16, Course Hero Intern