Documentation of file REPORT2.CBL

Generated on 3/23/2005 4:41:40 PM

Generated by CORECT 5.5.33


Working Storage Section
section declares
Slot / Record Program Contains redefines Is processed
AGENT_ID

REPORT2.CBL

Yes

ANS

REPORT2.CBL

Yes

CUSIP_DATA

REPORT2.CBL

Yes

D_CUSIP_DATA

REPORT2.CBL

Yes

PURCHASE_PRICE

REPORT2.CBL

Yes

QTY

REPORT2.CBL

Yes

SALES_PRICE

REPORT2.CBL

Yes

TR_DATE

REPORT2.CBL

Yes

WEEKLY_REPORT

REPORT2.CBL

Yes

WS_AGENT_COUNTER

REPORT2.CBL

Yes

WS_CUSIP_COUNTER

REPORT2.CBL

Yes

WS_LIABILITY

REPORT2.CBL

Yes

WS_TIME

REPORT2.CBL

Yes


Detail information of AGENT_ID
Field Format Data Type Length Redefines
    AGENT_ID

X(6)

Character

6


Detail information of ANS
Field Format Data Type Length Redefines
    ANS

X

Character

1


Detail information of CUSIP_DATA
Field Format Data Type Length Redefines
    CUSIP_DATA

Group

       CUSIP_NUMBER

X(10)

Character

10

       PROD_NAME

X(18)

Character

18

      PRICE

999V99

5


Detail information of D_CUSIP_DATA
Field Format Data Type Length Redefines
    D_CUSIP_DATA

X(33)

Character

33


Detail information of PURCHASE_PRICE
Field Format Data Type Length Redefines
   PURCHASE_PRICE

9(7)V99

9


Detail information of QTY
Field Format Data Type Length Redefines
    QTY

9(6)

Integer

6


Detail information of SALES_PRICE
Field Format Data Type Length Redefines
   SALES_PRICE

9(7)V99

9


Detail information of TR_DATE
Field Format Data Type Length Redefines
    TR_DATE

Group

      TR_YEAR

9(2)

2

      TR_MONTH

9(2)

2

      TR_DAY

9(2)

2


Detail information of WEEKLY_REPORT
Field Format Data Type Length Redefines
    WEEKLY_REPORT

Group

      

Group

          FILLER_1

Group

             FILLER_2

X(50)

Character

50

             FILLER_3

X(4)

Character

4

          FILLER_4

Group

             FILLER_5

X(50)

Character

50

          FILLER_6

Group

             FILLER_7

X(6)

Character

6

             FILLER_8

X(6)

Character

6

             FILLER_9

X(10)

Character

10

             FILLER_10

X(18)

Character

18

             FILLER_11

X(6)

Character

6

             FILLER_12

X(5)

Character

5

             FILLER_13

X(10)

Character

10

             FILLER_14

X(10)

Character

10

          FILLER_15

Group

             FILLER_16

X(6)

Character

6

             FILLER_17

X(6)

Character

6

             FILLER_18

X(10)

Character

10

             FILLER_19

X(18)

Character

18

             FILLER_20

X(6)

Character

6

             FILLER_21

X(5)

Character

5

             FILLER_22

X(10)

Character

10

             FILLER_23

X(10)

Character

10

       REPORT_LINE

Group

          FILLER_24

X(6)

Character

6

          FILLER_25

X(6)

Character

6

          FILLER_26

X(10)

Character

10

          FILLER_27

X(18)

Character

18

          FILLER_28

Z(5)9

Integer

6

         FILLER_29

Z(2)9.99

6

         FILLER_30

Z(5)9.99

9

         FILLER_31

Z(4)9.99

8

      

Group

          FILLER_33

X(10)

Character

10

          FILLER_34

X(6)

Character

6

          FILLER_35

X(6)

Character

6

         CTL_AGENT_TOTAL

ZZZ,ZZZ,ZZZ,ZZ9.99

18

      

Group

          FILLER_37

X(11)

Character

11

         FILLER_38

ZZZ,ZZZ,ZZZ,ZZ9.99

18


Detail information of WS_AGENT_COUNTER
Field Format Data Type Length Redefines
    WS_AGENT_COUNTER

999

Integer

3


Detail information of WS_CUSIP_COUNTER
Field Format Data Type Length Redefines
    WS_CUSIP_COUNTER

99

Integer

2


Detail information of WS_LIABILITY
Field Format Data Type Length Redefines
   WS_LIABILITY

S9(10)V99

12


Detail information of WS_TIME
Field Format Data Type Length Redefines
    WS_TIME

Group

      WS_HR

99

2

      WS_MIN

99

2

      WS_SEC

99

2

      WS_FRAC

99

2