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

Info iconThis 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
Background image of page 1

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

View Full DocumentRight Arrow Icon
TUTORPGM.CBL FLOWCHART Page 2of 16 ENTRY OPEN INPUT VENDOR-FILE OUTPUT VENDOR-REPORT 250-READ- RECORD 500-HEADER EXIT 200-OPEN
Background 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
Background image of page 3

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

View Full DocumentRight Arrow Icon
TUTORPGM.CBL FLOWCHART Page 4of 16 ENTRY 350-MOVE- AND-WRITE 250-READ- RECORD EXIT 300-PROCESS
Background 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
Background image of page 5

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

View Full DocumentRight 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
Background image of page 6
TUTORPGM.CBL FLOWCHART Page 7of 16 ENTRY EXIT CLOSE VENDOR-FILE VENDOR-REPORT 900-CLOSE
Background image of page 7

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

View Full DocumentRight 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).
Background image of page 8
Image of page 9
This is the end of the preview. Sign up to access the rest of the document.

Page1 / 16

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

This preview shows document pages 1 - 9. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online