Class05.2_NX_SQL_COBOL_DESIGN_BONUS4

Class05.2_NX_SQL_COBOL_DESIGN_BONUS4 - CLASS 5 THE ELEGANCE...

Info iconThis preview shows pages 1–7. Sign up to view the full content.

View Full Document Right Arrow Icon
CLASS 5 THE ELEGANCE OF STRUCTURED PROGRAMMING [SQLCOBOL04.CBL] BCIS 4620 DR. BECKER
Background image of page 1

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

View Full DocumentRight Arrow Icon
000-MAIN-CONTROL ERROR Detect REPORT HEADINGS STOP RUN 100-OPEN-FILE 360-FETCH-LIST-VEMP DECLARE VCUR … VEMP OPEN VCUR; FETCH FIRST CLOSE VCUR 400-PROGRAM-END ROLLBACK WORK CLOSE FILES 900-DBERROR PERFORM 400-END STOP RUN COMMENTS: BEFORE CONTROL BREAKS 365-PRINT-AND-GET1 PRINT RECORD FETCH NEXT RECORD 367-PRINT-A-LINE SQLCOBOL4.CBL BEFORE RED denotes Embedded SQL
Background image of page 2
STRUCTURE PROGRAMMING MAIN MODULE PERFORM BEGINNING PERFORM MIDDLE … UNTIL BREAKS PERFORM END STOP RUN BEGINNING INITIAL ACTIONS SETTINGS FIRST TIME EVENTS HEADINGS MIDDLE REPEATING ACTIONS, EVENTS & SUBTOTALS REPORT BODY END FINAL ACTIONS FOOTERS CLOSE
Background image of page 3

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

View Full DocumentRight Arrow Icon
BEGINNING: 100-OPEN-FILE(S) 100-OPEN-FILE OPEN FILE [INPUT] REPOUT [READ RECORD] SET REPORT CONTROLS PAGE=1 TOTALS=0 REPORT HEADING RETURN
Background image of page 4
ANATOMY OF CONTROL BREAKS COUNTERS SUBTOTALS REPORT-BREAK: SQLCODE=+100 TOTAL-DOLLARS TOTAL-COUNTS TOTAL-LINES PAGE-BREAK: WDEPT SUBTOT-DOLLARS SUBTOT-COUNTS SUBTOTAL-LINES GROUP-BREAK: WGROUP GTOT-DOLLARS GTOT-COUNTS GTOT-LINES
Background image of page 5

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

View Full DocumentRight Arrow Icon
END: 400-PROGRAM-END 400-PROGRAM-END PREPARE REPOUT MOVE FINAL REPORT FOOTER ROLLBACK WORK CLOSE FILE REPOUT
Background image of page 6
Image of page 7
This is the end of the preview. Sign up to access the rest of the document.

Page1 / 15

Class05.2_NX_SQL_COBOL_DESIGN_BONUS4 - CLASS 5 THE ELEGANCE...

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

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