CBTRN03C

Source: cbl/CBTRN03C.cbl

Type: Batch program

LLM overview unavailable: [WinError 10054] An existing connection was forcibly closed by the remote host

Files

Logical file	DD name
TRANSACT-FILE	TRANFILE
XREF-FILE	CARDXREF
TRANTYPE-FILE	TRANTYPE
TRANCATG-FILE	TRANCATG
REPORT-FILE	TRANREPT
DATE-PARMS-FILE	DATEPARM

Copybooks

CVACT03Y, CVTRA03Y, CVTRA04Y, CVTRA05Y, CVTRA07Y

Calls

CEE3ABD

Executed by

TRANREPT.STEP10R, REPROC.STEP10R

Paragraph flow

flowchart TD
    0550_DATEPARM_READ["0550-DATEPARM-READ"]
    1000_TRANFILE_GET_NEXT["1000-TRANFILE-GET-NEXT"]
    1100_WRITE_TRANSACTION_REPORT["1100-WRITE-TRANSACTION-REPORT"]
    1110_WRITE_PAGE_TOTALS["1110-WRITE-PAGE-TOTALS"]
    1120_WRITE_ACCOUNT_TOTALS["1120-WRITE-ACCOUNT-TOTALS"]
    1110_WRITE_GRAND_TOTALS["1110-WRITE-GRAND-TOTALS"]
    1120_WRITE_HEADERS["1120-WRITE-HEADERS"]
    1111_WRITE_REPORT_REC["1111-WRITE-REPORT-REC"]
    1120_WRITE_DETAIL["1120-WRITE-DETAIL"]
    0000_TRANFILE_OPEN["0000-TRANFILE-OPEN"]
    0100_REPTFILE_OPEN["0100-REPTFILE-OPEN"]
    0200_CARDXREF_OPEN["0200-CARDXREF-OPEN"]
    0300_TRANTYPE_OPEN["0300-TRANTYPE-OPEN"]
    0400_TRANCATG_OPEN["0400-TRANCATG-OPEN"]
    0500_DATEPARM_OPEN["0500-DATEPARM-OPEN"]
    1500_A_LOOKUP_XREF["1500-A-LOOKUP-XREF"]
    1500_B_LOOKUP_TRANTYPE["1500-B-LOOKUP-TRANTYPE"]
    1500_C_LOOKUP_TRANCATG["1500-C-LOOKUP-TRANCATG"]
    9000_TRANFILE_CLOSE["9000-TRANFILE-CLOSE"]
    9100_REPTFILE_CLOSE["9100-REPTFILE-CLOSE"]
    9200_CARDXREF_CLOSE["9200-CARDXREF-CLOSE"]
    9300_TRANTYPE_CLOSE["9300-TRANTYPE-CLOSE"]
    9400_TRANCATG_CLOSE["9400-TRANCATG-CLOSE"]
    9500_DATEPARM_CLOSE["9500-DATEPARM-CLOSE"]
    9999_ABEND_PROGRAM["9999-ABEND-PROGRAM"]
    9910_DISPLAY_IO_STATUS["9910-DISPLAY-IO-STATUS"]
    0000_TRANFILE_OPEN --> 9910_DISPLAY_IO_STATUS
    0000_TRANFILE_OPEN --> 9999_ABEND_PROGRAM
    0100_REPTFILE_OPEN --> 9910_DISPLAY_IO_STATUS
    0100_REPTFILE_OPEN --> 9999_ABEND_PROGRAM
    0200_CARDXREF_OPEN --> 9910_DISPLAY_IO_STATUS
    0200_CARDXREF_OPEN --> 9999_ABEND_PROGRAM
    0300_TRANTYPE_OPEN --> 9910_DISPLAY_IO_STATUS
    0300_TRANTYPE_OPEN --> 9999_ABEND_PROGRAM
    0400_TRANCATG_OPEN --> 9910_DISPLAY_IO_STATUS
    0400_TRANCATG_OPEN --> 9999_ABEND_PROGRAM
    0500_DATEPARM_OPEN --> 9910_DISPLAY_IO_STATUS
    0500_DATEPARM_OPEN --> 9999_ABEND_PROGRAM
    0550_DATEPARM_READ --> 9910_DISPLAY_IO_STATUS
    0550_DATEPARM_READ --> 9999_ABEND_PROGRAM
    1000_TRANFILE_GET_NEXT --> 9910_DISPLAY_IO_STATUS
    1000_TRANFILE_GET_NEXT --> 9999_ABEND_PROGRAM
    1100_WRITE_TRANSACTION_REPORT --> 1110_WRITE_PAGE_TOTALS
    1100_WRITE_TRANSACTION_REPORT --> 1120_WRITE_DETAIL
    1100_WRITE_TRANSACTION_REPORT --> 1120_WRITE_HEADERS
    1110_WRITE_GRAND_TOTALS --> 1111_WRITE_REPORT_REC
    1110_WRITE_PAGE_TOTALS --> 1111_WRITE_REPORT_REC
    1111_WRITE_REPORT_REC --> 9910_DISPLAY_IO_STATUS
    1111_WRITE_REPORT_REC --> 9999_ABEND_PROGRAM
    1120_WRITE_ACCOUNT_TOTALS --> 1111_WRITE_REPORT_REC
    1120_WRITE_DETAIL --> 1111_WRITE_REPORT_REC
    1120_WRITE_HEADERS --> 1111_WRITE_REPORT_REC
    1500_A_LOOKUP_XREF --> 9910_DISPLAY_IO_STATUS
    1500_A_LOOKUP_XREF --> 9999_ABEND_PROGRAM
    1500_B_LOOKUP_TRANTYPE --> 9910_DISPLAY_IO_STATUS
    1500_B_LOOKUP_TRANTYPE --> 9999_ABEND_PROGRAM
    1500_C_LOOKUP_TRANCATG --> 9910_DISPLAY_IO_STATUS
    1500_C_LOOKUP_TRANCATG --> 9999_ABEND_PROGRAM
    9000_TRANFILE_CLOSE --> 9910_DISPLAY_IO_STATUS
    9000_TRANFILE_CLOSE --> 9999_ABEND_PROGRAM
    9100_REPTFILE_CLOSE --> 9910_DISPLAY_IO_STATUS
    9100_REPTFILE_CLOSE --> 9999_ABEND_PROGRAM
    9200_CARDXREF_CLOSE --> 9910_DISPLAY_IO_STATUS
    9200_CARDXREF_CLOSE --> 9999_ABEND_PROGRAM
    9300_TRANTYPE_CLOSE --> 9910_DISPLAY_IO_STATUS
    9300_TRANTYPE_CLOSE --> 9999_ABEND_PROGRAM
    9400_TRANCATG_CLOSE --> 9910_DISPLAY_IO_STATUS
    9400_TRANCATG_CLOSE --> 9999_ABEND_PROGRAM
    9500_DATEPARM_CLOSE --> 9910_DISPLAY_IO_STATUS
    9500_DATEPARM_CLOSE --> 9999_ABEND_PROGRAM

Paragraphs

Paragraph	Line	Performs
0550-DATEPARM-READ	220	9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
1000-TRANFILE-GET-NEXT	248	9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
1100-WRITE-TRANSACTION-REPORT	274	1120-WRITE-HEADERS, 1110-WRITE-PAGE-TOTALS, 1120-WRITE-HEADERS, 1120-WRITE-DETAIL
1110-WRITE-PAGE-TOTALS	293	1111-WRITE-REPORT-REC, 1111-WRITE-REPORT-REC
1120-WRITE-ACCOUNT-TOTALS	306	1111-WRITE-REPORT-REC, 1111-WRITE-REPORT-REC
1110-WRITE-GRAND-TOTALS	318	1111-WRITE-REPORT-REC
1120-WRITE-HEADERS	324	1111-WRITE-REPORT-REC, 1111-WRITE-REPORT-REC, 1111-WRITE-REPORT-REC, 1111-WRITE-REPORT-REC
1111-WRITE-REPORT-REC	343	9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
1120-WRITE-DETAIL	361	1111-WRITE-REPORT-REC
0000-TRANFILE-OPEN	376	9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
0100-REPTFILE-OPEN	394	9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
0200-CARDXREF-OPEN	412	9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
0300-TRANTYPE-OPEN	430	9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
0400-TRANCATG-OPEN	448	9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
0500-DATEPARM-OPEN	466	9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
1500-A-LOOKUP-XREF	484	9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
1500-B-LOOKUP-TRANTYPE	494	9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
1500-C-LOOKUP-TRANCATG	504	9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
9000-TRANFILE-CLOSE	514	9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
9100-REPTFILE-CLOSE	532	9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
9200-CARDXREF-CLOSE	551	9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
9300-TRANTYPE-CLOSE	569	9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
9400-TRANCATG-CLOSE	587	9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
9500-DATEPARM-CLOSE	605	9910-DISPLAY-IO-STATUS, 9999-ABEND-PROGRAM
9999-ABEND-PROGRAM	626
9910-DISPLAY-IO-STATUS	633