CB545 V2 LVL78 01MAY72 IBM OS AMERICAN NATIONAL STANDARD COBOL DATE MAR 30,1980
1
00001 000100 IDENTIFICATION DIVISION.
00002 000200 PROGRAM-ID. RWEX01.
00003 000300 AUTHOR. JAY MOSELEY.
00004 000400 DATE-WRITTEN. MARCH, 2008.
00005 000500 DATE-COMPILED. MAR 30,1980
00007 000700* ************************************************************* *
00008 000800* REPORT WRITER EXAMPLE #1. *
00009 000900* ************************************************************* *
00011 001100 ENVIRONMENT DIVISION.
00012 001200 CONFIGURATION SECTION.
00013 001300 SOURCE-COMPUTER. IBM-370.
00014 001400 OBJECT-COMPUTER. IBM-370.
00015 001500
00016 001600 INPUT-OUTPUT SECTION.
00017 001700 FILE-CONTROL.
00018 001800
00019 001900 SELECT TRANSACTION-DATA
00020 002000 ASSIGN TO UT-S-DATAIN.
00021 002100
00022 002200 SELECT REPORT-FILE
00023 002300 ASSIGN TO UR-S-SYSPRINT.
00024 002400
00025 002500 DATA DIVISION.
00026 002600 FILE SECTION.
00027 002700
00028 002800 FD TRANSACTION-DATA
00029 002900 LABEL RECORDS ARE OMITTED
00030 003000 BLOCK CONTAINS 0 RECORDS
00031 003100 RECORD CONTAINS 80 CHARACTERS
00032 003200 DATA RECORD IS TRANSACTION-RECORD.
00033 003300
00034 003400 01 TRANSACTION-RECORD.
00035 003500 03 TR-CUSTOMER-NUMBER PIC 9(04).
00036 003600 03 FILLER PIC X(01).
00037 003700 03 TR-CUSTOMER-NAME PIC X(16).
00038 003800 03 FILLER PIC X(01).
00039 003900 03 TR-ITEM-NUMBER PIC 9(05).
00040 004000 03 FILLER REDEFINES TR-ITEM-NUMBER.
00041 004100 05 TR-ITEM-DEPARTMENT PIC 9(01).
00042 004200 05 FILLER PIC 9(04).
00043 004300 03 FILLER PIC X(01).
00044 004400 03 TR-ITEM-COST PIC 9(03)V99.
00045 004500 03 FILLER PIC X(47).
00046 004600
00047 004700 FD REPORT-FILE
00048 004800 LABEL RECORDS ARE OMITTED
00049 004900 REPORT IS CUSTOMER-REPORT.
00050 005000
00051 005100 WORKING-STORAGE SECTION.
00052 005200 77 END-OF-FILE-SWITCH PIC X(1) VALUE 'N'.
00053 005300 88 END-OF-FILE VALUE 'Y'.
00054 005400
00055 005500 REPORT SECTION.
00056 005600 RD CUSTOMER-REPORT
========================================================================================================================
2
00057 005700 PAGE LIMIT IS 66 LINES
00058 005800 HEADING 1
00059 005900 FIRST DETAIL 5
00060 006000 LAST DETAIL 58.
00061 006100
00062 006200 01 PAGE-HEAD-GROUP TYPE PAGE HEADING.
00063 006300 02 LINE 1.
00064 006400 03 COLUMN 27 PIC X(28) VALUE
00065 006500 'C U S T O M E R R E P O R T'.
00066 006600 02 LINE PLUS 2.
00067 006700 03 COLUMN 01 PIC X(09) VALUE 'CUST. NO.'.
00068 006800 03 COLUMN 15 PIC X(10) VALUE 'CUST. NAME'.
00069 006900 03 COLUMN 30 PIC X(05) VALUE 'DEPT.'.
00070 007000 03 COLUMN 39 PIC X(08) VALUE 'ITEM NO.'.
00071 007100 03 COLUMN 51 PIC X(09) VALUE 'ITEM COST'.
00072 007200
00073 007300 01 CHARGE-DETAIL TYPE DETAIL.
00074 007400 02 LINE PLUS 1.
00075 007500 03 COLUMN 03 PIC Z(04) SOURCE TR-CUSTOMER-NUMBER.
00076 007600 03 COLUMN 10 PIC X(16) SOURCE TR-CUSTOMER-NAME.
00077 007700 03 COLUMN 32 PIC 9(01) SOURCE TR-ITEM-DEPARTMENT.
00078 007800 03 COLUMN 40 PIC 9(05) SOURCE TR-ITEM-NUMBER.
00079 007900 03 COLUMN 51 PIC $$$$.99 SOURCE TR-ITEM-COST.
00080 008000
00081 008100 PROCEDURE DIVISION.
00082 008200
00083 008300 000-INITIATE.
00084 008400
00085 008500 OPEN INPUT TRANSACTION-DATA,
00086 008600 OUTPUT REPORT-FILE.
00087 008700
00088 008800 INITIATE CUSTOMER-REPORT.
00089 008900
00090 009000 READ TRANSACTION-DATA
00091 009100 AT END
00092 009200 MOVE 'Y' TO END-OF-FILE-SWITCH.
00093 009300* END-READ.
00094 009400
00095 009500 PERFORM 100-PROCESS-TRANSACTION-DATA THRU 199-EXIT
00096 009600 UNTIL END-OF-FILE.
00097 009700
00098 009800 000-TERMINATE.
00099 009900 TERMINATE CUSTOMER-REPORT.
00100 010000
00101 010100 CLOSE TRANSACTION-DATA,
00102 010200 REPORT-FILE.
00103 010300
00104 010400 STOP RUN.
00105 010500
00106 010600 100-PROCESS-TRANSACTION-DATA.
00107 010700 GENERATE CHARGE-DETAIL.
00108 010800 READ TRANSACTION-DATA
00109 010900 AT END
00110 011000 MOVE 'Y' TO END-OF-FILE-SWITCH.
00111 011100* END-READ.
00112 011200
00113 011300 199-EXIT.
========================================================================================================================
3
00114 011400 EXIT.
00115 011500
00116 011600
========================================================================================================================
4
INTRNL NAME LVL SOURCE NAME BASE DISPL INTRNL NAME DEFINITION USAGE R O Q M
DNM=1-121 FD TRANSACTION-DATA DCB=01 DNM=1-121 QSAM F
DNM=1-150 01 TRANSACTION-RECORD BL=1 000 DNM=1-150 DS 0CL80 GROUP
DNM=1-181 02 TR-CUSTOMER-NUMBER BL=1 000 DNM=1-181 DS 4C DISP-NM
DNM=1-209 02 FILLER BL=1 004 DNM=1-209 DS 1C DISP
DNM=1-225 02 TR-CUSTOMER-NAME BL=1 005 DNM=1-225 DS 16C DISP
DNM=1-251 02 FILLER BL=1 015 DNM=1-251 DS 1C DISP
DNM=1-270 02 TR-ITEM-NUMBER BL=1 016 DNM=1-270 DS 5C DISP-NM
DNM=1-294 02 FILLER BL=1 016 DNM=1-294 DS 0CL5 GROUP R
DNM=1-316 03 TR-ITEM-DEPARTMENT BL=1 016 DNM=1-316 DS 1C DISP-NM
DNM=1-344 03 FILLER BL=1 017 DNM=1-344 DS 4C DISP-NM
DNM=1-363 02 FILLER BL=1 01B DNM=1-363 DS 1C DISP
DNM=1-382 02 TR-ITEM-COST BL=1 01C DNM=1-382 DS 5C DISP-NM
DNM=1-404 02 FILLER BL=1 021 DNM=1-404 DS 47C DISP
DNM=1-423 FD REPORT-FILE DCB=02 DNM=1-423 QSAM F
DNM=1-447 01 -0001 BL=2 000 DNM=1-447 DS 133C DISP
DNM=1-462 77 END-OF-FILE-SWITCH BL=3 000 DNM=1-462 DS 1C DISP
DNM=2-000 88 END-OF-FILE DNM=2-000
DNM=2-022 01 PRINT-SWITCH BL=3 008 DNM=2-022 DS 1C DISP-NM
DNM=2-044 RD CUSTOMER-REPORT DNM=2-044
DNM=2-071 01 CTL.LVL BL=3 010 DNM=2-071 DS 2P COMP-3
DNM=2-088 01 TER.COD BL=3 018 DNM=2-088 DS 1C DISP
DNM=2-105 01 FRS.GEN BL=3 020 DNM=2-105 DS 1C DISP
DNM=2-122 01 LIN.SAV BL=3 028 DNM=2-122 DS 2C COMP
DNM=2-139 01 FRS.GRP BL=3 030 DNM=2-139 DS 1C DISP
DNM=2-156 01 ABS.LIN BL=3 038 DNM=2-156 DS 2C COMP
DNM=2-173 01 LIN.NUM BL=3 040 DNM=2-173 DS 2P COMP-3
DNM=2-190 01 LINE-COUNTER BL=3 048 DNM=2-190 DS 3P COMP-3
DNM=2-212 01 PAGE-COUNTER BL=3 050 DNM=2-212 DS 3P COMP-3
DNM=2-234 01 RPT.RCD BL=3 058 DNM=2-234 DS 0CL133 GROUP
DNM=2-254 02 CTL.CHR BL=3 058 DNM=2-254 DS 1C DISP
DNM=2-271 02 RPT.LIN BL=3 059 DNM=2-271 DS 132C DISP
DNM=2-288 02 E.0001 BL=3 073 DNM=2-288 DS 28C DISP R
DNM=2-304 02 E.0002 BL=3 059 DNM=2-304 DS 9C DISP R
DNM=2-320 02 E.0003 BL=3 067 DNM=2-320 DS 10C DISP R
DNM=2-336 02 E.0004 BL=3 076 DNM=2-336 DS 5C DISP R
DNM=2-352 02 E.0005 BL=3 07F DNM=2-352 DS 8C DISP R
DNM=2-368 02 E.0006 BL=3 08B DNM=2-368 DS 9C DISP R
DNM=2-384 02 E.0007 BL=3 05B DNM=2-384 DS 4C NM-EDIT R
DNM=2-405 02 E.0008 BL=3 062 DNM=2-405 DS 16C DISP R
DNM=2-421 02 E.0009 BL=3 078 DNM=2-421 DS 1C DISP-NM R
DNM=2-437 02 E.0010 BL=3 080 DNM=2-437 DS 5C DISP-NM R
DNM=2-453 02 E.0011 BL=3 08B DNM=2-453 DS 7C NM-EDIT R
DNM=2-478 01 N.0001 BL=3 0E0 DNM=2-478 DS 2C COMP
DNM=3-000 01 GRP.IND BL=3 0E8 DNM=3-000 DS 0CL1 GROUP
DNM=3-020 02 GP.0000 BL=3 0E8 DNM=3-020 DS 1C DISP
========================================================================================================================
5
CONDENSED LISTING
85 OPEN 000BA6 88 INITIATE 000C16 90 READ 000C1C
92 MOVE 000C3C 95 PERFORM 000C42 99 TERMINATE 000C6C
101 CLOSE 000C72 104 STOP 000CEE 107 GENERATE 000CF4
108 READ 000CFA 110 MOVE 000D1A 114 EXIT 000D20
*STATISTICS* SOURCE RECORDS = 116 DATA DIVISION STATEMENTS = 19 PROCEDURE DIVISION STATEMENTS = 12
*OPTIONS IN EFFECT* SIZE = 3145728 BUF = 1048576 LINECNT = 57 SPACE1, FLAGW, SEQ, SOURCE
*OPTIONS IN EFFECT* DMAP, NOPMAP, CLIST, SUPMAP, NOXREF, LOAD, NODECK, APOST, NOTRUNC, NOLIB, VERB
*OPTIONS IN EFFECT* ZWB
========================================================================================================================
C U S T O M E R R E P O R T
CUST. NO. CUST. NAME DEPT. ITEM NO. ITEM COST
152 J. LANGDON 8 87653 $24.75
152 J. LANGDON 6 64025 $9.45
152 J. LANGDON 4 41915 $13.70
152 J. LANGDON 1 17410 $2.51
2468 L. MORRISEY 1 18520 $3.75
2468 L. MORRISEY 2 20012 $4.20
2468 L. MORRISEY 3 31572 $10.15
2468 L. MORRISEY 4 48792 $37.50
2468 L. MORRISEY 5 50407 $15.15
2468 L. MORRISEY 6 61575 $20.10
2468 L. MORRISEY 7 79204 $51.70
2468 L. MORRISEY 8 85075 $37.84
2468 L. MORRISEY 9 98476 $87.94
3451 M. JACKSON 3 37847 $27.90
3451 M. JACKSON 5 58492 $68.50
3451 M. JACKSON 6 60010 $20.40
3451 M. JACKSON 8 85260 $78.52
3451 M. JACKSON 9 90520 $27.52
4512 S. LEVITT 2 24680 $30.50
4512 S. LEVITT 5 56784 $52.53
4512 S. LEVITT 6 60410 $12.15
4512 S. LEVITT 7 78952 $89.25
4512 S. LEVITT 8 85278 $49.75
4512 S. LEVITT 8 87492 $64.25
4512 S. LEVITT 9 97204 $84.75
5417 K. CONKLIN 1 13579 $35.72
5417 K. CONKLIN 2 24615 $18.75
5417 K. CONKLIN 3 34928 $37.45
5417 K. CONKLIN 4 48527 $87.50
5417 K. CONKLIN 5 50150 $18.95
5417 K. CONKLIN 5 54652 $38.92
5417 K. CONKLIN 5 59765 $98.95
5417 K. CONKLIN 7 71572 $18.95
5417 K. CONKLIN 8 85175 $80.10
5417 K. CONKLIN 9 90275 $4.60
5417 K. CONKLIN 9 91572 $18.57
5417 K. CONKLIN 9 97576 $84.95
6213 Z. HAMPTON 1 15792 $64.25
6213 Z. HAMPTON 1 19975 $98.75
6213 Z. HAMPTON 3 34576 $51.15
6213 Z. HAMPTON 4 49512 $85.20
7545 M. LARSON 1 14676 $38.45
7545 M. LARSON 1 18592 $82.51
7545 M. LARSON 1 19994 $98.98
7545 M. LARSON 2 21214 $15.15
7545 M. LARSON 3 37515 $82.12
7545 M. LARSON 3 38592 $96.15
7545 M. LARSON 4 48485 $87.14
7545 M. LARSON 5 52762 $37.92
7545 M. LARSON 5 57684 $80.15
7545 M. LARSON 7 79015 $96.25
7545 M. LARSON 8 80123 $5.60
7545 M. LARSON 8 82462 $20.15
7545 M. LARSON 9 91520 $18.15
========================================================================================================================
C U S T O M E R R E P O R T
CUST. NO. CUST. NAME DEPT. ITEM NO. ITEM COST
7545 M. LARSON 9 93715 $40.15
========================================================================================================================