Sample COBOL Input and DDDL Output › Sample COBOL Input and DDDL Output
Sample COBOL Input and DDDL Output
ADD FILE CUSTOMER-FILE VERSION NEXT HIGHEST
LABELS ARE OMITTED
RECORD SIZE IS 104
RECORDING MODE IS F
FILE NAME SYNONYM IS CUSTFILE VERSION NEXT HIGHEST.
ADD RECORD CUSTOMER VERSION NEXT HIGHEST
LANGUAGE IS COBOL
WITHIN FILE CUSTOMER-FILE VERSION HIGHEST
RECORD NAME SYNONYM IS CUST VERSION NEXT HIGHEST.
03 CUST-NUMBER PIC X(10).
03 CUST-NAME PIC X(20).
03 CUST-ADDRESS.
05 CUST-ADDR1 PIC X(20).
05 CUST-ADDR2.
06 CUST-CITY
PIC X(15).
06 CUST-ZIP-CODE
PIC X(5).
06 CUST-ZIPCODE
REDEFINES CUST-ZIP-CODE
PIC 9(5).
03 CUST-CREDIT PIC XXX.
88 CUST-CREDIT-EXEC
VALUE 'AAA'.
88 CUST-CREDIT-GOOD
VALUE ' '.
88 CUST-CREDIT-POOR
VALUE 'XXX'.
03 CUST-SALES-INFO.
05 CUST-SALES-QTR
OCCURS 4.
06 CUST-NUM-SALES
PIC 9(5) COMP-3.
06 CUST-AMT-SALES
PIC S9(7) COMP-3.
03 FILLER PIC XXX.
ADD FILE ORDER-FILE VERSION NEXT HIGHEST
LABELS ARE OMITTED
RECORD SIZE IS 50
RECORDING MODE IS F
BLOCK SIZE IS 5000.
ADD RECORD ORDOR VERSION NEXT HIGHEST
LANGUAGE IS COBOL
WITHIN FILE ORDER-FILE VERSION HIGHEST.
03 ORD-CUST-NUMBER
PIC X(10).
03 ORD-NUMBER PIC X(7).
03 ORD-CUST-PO-NUMB
PIC X(10).
03 ORD-DATES.
05 ORD-REQ-DATE
PIC X(6).
05 ORD-DATE-REQ
REDEFINES ORD-REQ-DATE
PIC 9(6).
05 ORD-PROM-DATE
PIC X(6).
05 ORD-DATE-PROM
REDEFINES ORD-PROM-DATE
PIC 9(6).
05 ORD-SHIPPED-DATE
PIC X(6).
05 ORD-DATE-SHIPPED
REDEFINES ORD-SHIPPED-DATE
PIC 9(6).
03 ORD-SHIP-CODE PIC XX.
88 ORD-SHIP-ALL
VALUE 'AS'.
88 ORD-SHIP-PART
VALUE 'PS'.
03 FILLER PIC XXX.
ADD FILE RPTFILE VERSION NEXT HIGHEST
LABELS ARE OMITTED
RECORD SIZE IS 133
RECORDING MODE IS F.
ADD RECORD TITLE-REC VERSION NEXT HIGHEST
LANGUAGE IS COBOL
WITHIN FILE RPTFILE VERSION HIGHEST.
02 TITLE-REC PIC X(133).
ADD RECORD DETAIL-REC VERSION NEXT HIGHEST
LANGUAGE IS COBOL
WITHIN FILE RPTFILE VERSION HIGHEST.
05 FILLER PIC X.
05 RPT-CUST-NO PIC X(10).
05 FILLER PIC XXX.
05 RPT-NAME PIC X(20).
05 FILLER PIC X(5).
05 RPT-ORD-IDENT.
10 RPT-ORD PIC X(7).
10 FILLER PIC XXX.
05 RPT-DATE-REQ PIC X(8).
05 FILLER PIC X(76).
ADD RECORD PAGE-COUNT-WS VERSION NEXT HIGHEST
LANGUAGE IS COBOL.
02 PAGE-COUNT-WS PIC S99
VALUE +0.
ADD RECORD POSITION-IND-WS VERSION NEXT HIGHEST
LANGUAGE IS COBOL.
02 POSITION-IND-WS
PIC X.
ADD RECORD PAGE-INCREMENT-WS VERSION NEXT HIGHEST
LANGUAGE IS COBOL.
02 PAGE-INCREMENT-WS
PIC 9.
ADD RECORD DATE-AS-INPUT-WS VERSION NEXT HIGHEST
LANGUAGE IS COBOL.
05 INPUT-YY-WS PIC 99.
05 INPUT-MM-WS PIC 99.
05 INPUT-DD-WS PIC 99.
ADD RECORD DATE-FORMATTED-WS VERSION NEXT HIGHEST
LANGUAGE IS COBOL.
05 FORMATTED-MM-WS
PIC 99.
05 FILLER PIC X
VALUE '/'.
05 FORMATTED-DD-WS
PIC 99.
05 FILLER PIC X
VALUE '/'.
05 FORMATTED-YY-WS
PIC 99.
ADD RECORD TITLE-1-WS VERSION NEXT HIGHEST
LANGUAGE IS COBOL.
05 FILLER PIC X(52)
VALUE SPACES.
05 FILLER PIC X(29)
VALUE
'ORDER INFORMATION BY CUSTOMER'.
05 FILLER PIC X(52)
VALUE SPACES.
ADD RECORD TITLE-2-WS VERSION NEXT HIGHEST
LANGUAGE IS COBOL.
05 FILLER PIC X(18)
VALUE ' CUSTOMER NO '.
05 FILLER PIC X(22)
VALUE 'CUSTOMER NAME '.
05 FILLER PIC X(9)
VALUE 'ORDER '.
05 FILLER PIC X(12)
VALUE 'DATE REQ '.
05 FILLER PIC X(72)
VALUE SPACES.
ADD PROGRAM PRANDEM1 VERSION NEXT HIGHEST
LANGUAGE IS COBOL
ESTIMATED LINES ARE 195
INPUT FILE IS CUSTOMER-FILE VERSION HIGHEST
INPUT FILE IS ORDER-FILE VERSION HIGHEST
OUTPUT FILE IS RPTFILE VERSION HIGHEST
RECORD USED IS CUSTOMER VERSION HIGHEST
ELEMENT IS CUST-NUMBER
REFERENCED 2 TIMES
MODIFIED 1 TIME
ELEMENT IS CUST-NAME
REFERENCED 1 TIME
ELEMENT IS CUST-ADDRESS
ELEMENT IS CUST-ADDR1
ELEMENT IS CUST-ADDR2
ELEMENT IS CUST-CITY
ELEMENT IS CUST-ZIP-CODE
ELEMENT IS CUST-ZIPCODE
ELEMENT IS CUST-CREDIT
ELEMENT IS CUST-SALES-INFO
ELEMENT IS CUST-SALES-QTR
ELEMENT IS CUST-NUM-SALES
ELEMENT IS CUST-AMT-SALES
RECORD USED IS ORDOR VERSION HIGHEST
ELEMENT IS ORD-CUST-NUMBER
REFERENCED 1 TIME
ELEMENT IS ORD-NUMBER
REFERENCED 1 TIME
ELEMENT IS ORD-CUST-PO-NUMB
ELEMENT IS ORD-DATES
ELEMENT IS ORD-REQ-DATE
ELEMENT IS ORD-DATE-REQ
REFERENCED 1 TIME
ELEMENT IS ORD-PROM-DATE
ELEMENT IS ORD-DATE-PROM
ELEMENT IS ORD-SHIPPED-DATE
ELEMENT IS ORD-DATE-SHIPPED
ELEMENT IS ORD-SHIP-CODE
RECORD USED IS TITLE-REC VERSION HIGHEST
MODIFIED 4 TIMES
RECORD USED IS DETAIL-REC VERSION HIGHEST
MODIFIED 3 TIMES
ELEMENT IS RPT-CUST-NO
REFERENCED 1 TIME
MODIFIED 1 TIME
ELEMENT IS RPT-NAME
MODIFIED 1 TIME
ELEMENT IS RPT-ORD-IDENT
ELEMENT IS RPT-ORD
REFERENCED 1 TIME
MODIFIED 1 TIME
ELEMENT IS RPT-DATE-REQ
MODIFIED 1 TIME
RECORD USED IS PAGE-COUNT-WS VERSION HIGHEST
REFERENCED 1 TIME
MODIFIED 2 TIMES
RECORD USED IS POSITION-IND-WS VERSION HIGHEST
REFERENCED 1 TIME
MODIFIED 3 TIMES
RECORD USED IS PAGE-INCREMENT-WS VERSION HIGHEST
REFERENCED 1 TIME
MODIFIED 3 TIMES
RECORD USED IS DATE-AS-INPUT-WS VERSION HIGHEST
MODIFIED 1 TIME
ELEMENT IS INPUT-YY-WS
REFERENCED 1 TIME
ELEMENT IS INPUT-MM-WS
REFERENCED 1 TIME
ELEMENT IS INPUT-DD-WS
REFERENCED 1 TIME
RECORD USED IS DATE-FORMATTED-WS VERSION HIGHEST
REFERENCED 1 TIME
ELEMENT IS FORMATTED-MM-WS
MODIFIED 1 TIME
ELEMENT IS FORMATTED-DD-WS
MODIFIED 1 TIME
ELEMENT IS FORMATTED-YY-WS
MODIFIED 1 TIME
RECORD USED IS TITLE-1-WS VERSION HIGHEST
REFERENCED 1 TIME
RECORD USED IS TITLE-2-WS VERSION HIGHEST
REFERENCED 1 TIME.
ADD PROGRAM PRANDEM2 VERSION NEXT HIGHEST
LANGUAGE IS COBOL
ESTIMATED LINES ARE 131
INPUT FILE IS CUSTOMER-FILE VERSION HIGHEST
OUTPUT FILE IS RPTFILE VERSION HIGHEST
RECORD USED IS CUSTOMER VERSION HIGHEST
ELEMENT IS CUST-NUM
REFERENCED 1 TIME
ELEMENT IS CUST-NAME
REFERENCED 1 TIME
ELEMENT IS CUST-ADDRESS
ELEMENT IS CUST-ADDR1
REFERENCED 1 TIME
ELEMENT IS CUST-ADDR2
REFERENCED 1 TIME
ELEMENT IS CUST-CITY
ELEMENT IS CUST-ZIP-CODE
REFERENCED 1 TIME
ELEMENT IS CUST-CREDIT
RECORD USED IS TITLE-REC VERSION HIGHEST
MODIFIED 4 TIMES
RECORD USED IS DETAIL-REC VERSION HIGHEST
MODIFIED 3 TIMES
ELEMENT IS RPT-CUST-NO
MODIFIED 1 TIME
ELEMENT IS RPT-CUST-NAME
MODIFIED 1 TIME
ELEMENT IS RPT-ADDR1
MODIFIED 1 TIME
ELEMENT IS RPT-ADDR2
MODIFIED 1 TIME
ELEMENT IS RPT-ZIP
MODIFIED 1 TIME
RECORD USED IS PAGE-COUNT-WS VERSION HIGHEST
REFERENCED 1 TIME
MODIFIED 2 TIMES
RECORD USED IS POSITION-IND-WS VERSION HIGHEST
REFERENCED 1 TIME
MODIFIED 1 TIME
RECORD USED IS PAGE-INCREMENT-WS VERSION HIGHEST
REFERENCED 1 TIME
MODIFIED 1 TIME
RECORD USED IS TITLE-1-WS VERSION HIGHEST
REFERENCED 1 TIME
RECORD USED IS TITLE-2-WS VERSION HIGHEST
REFERENCED 1 TIME.
ADD FILE CUSTFILE VERSION NEXT HIGHEST
LABELS ARE OMITTED
RECORD SIZE IS 104
RECORDING MODE IS F
FILE NAME SYNONYM IS CUSTOMER-FILE VERSION NEXT HIGHEST.
ADD RECORD CUST VERSION NEXT HIGHEST
LANGUAGE IS COBOL
WITHIN FILE CUSTFILE VERSION HIGHEST
RECORD NAME SYNONYM IS CUSTOMER VERSION NEXT HIGHEST.
03 FILLER PIC X(10).
03 CUST-NAME PIC X(20).
03 CUST-ADDRESS.
05 CUST-ADDR1 PIC X(20).
05 CUST-ADDR2 PIC X(20).
03 FILLER PIC X(34).
ADD FILE MAILFILE VERSION NEXT HIGHEST
LABELS ARE OMITTED
RECORD SIZE IS 21
RECORDING MODE IS F.
ADD RECORD MAIL-REC-1 VERSION NEXT HIGHEST
LANGUAGE IS COBOL
WITHIN FILE MAILFILE VERSION HIGHEST.
03 FILLER PIC X.
03 MAIL-LINE-1 PIC X(20).
ADD RECORD MAIL-REC-2 VERSION NEXT HIGHEST
LANGUAGE IS COBOL
WITHIN FILE MAILFILE VERSION HIGHEST.
03 FILLER PIC X.
03 MAIL-LINE-2 PIC X(20).
ADD RECORD MAIL-REC-3 VERSION NEXT HIGHEST
LANGUAGE IS COBOL
WITHIN FILE MAILFILE VERSION HIGHEST.
03 FILLER PIC X.
03 MAIL-LINE-3 PIC X(20).
ADD PROGRAM PRANDEM3 VERSION NEXT HIGHEST
LANGUAGE IS COBOL
ESTIMATED LINES ARE 81
INPUT FILE IS CUSTFILE VERSION HIGHEST
OUTPUT FILE IS MAILFILE VERSION HIGHEST
RECORD USED IS CUST VERSION HIGHEST
ELEMENT IS CUST-NAME
REFERENCED 1 TIME
ELEMENT IS CUST-ADDRESS
ELEMENT IS CUST-ADDR1
REFERENCED 1 TIME
ELEMENT IS CUST-ADDR2
REFERENCED 1 TIME
RECORD USED IS MAIL-REC-1 VERSION HIGHEST
MODIFIED 2 TIMES
ELEMENT IS MAIL-LINE-1
MODIFIED 1 TIME
RECORD USED IS MAIL-REC-2 VERSION HIGHEST
REFERENCED 1 TIME
MODIFIED 1 TIME
ELEMENT IS MAIL-LINE-2
MODIFIED 1 TIME
RECORD USED IS MAIL-REC-3 VERSION HIGHEST
REFERENCED 1 TIME
MODIFIED 1 TIME
ELEMENT IS MAIL-LINE-3
MODIFIED 1 TIME.
Copyright © 2013 CA.
All rights reserved.
|
|