Re: Layout Hell.

From: JerryMouse (nospam_at_bisusa.com)
Date: 07/16/04 

Date: Thu, 15 Jul 2004 21:28:22 -0500

Carol wrote:
> Hi,
> Could I have some help with this layout?
> I am new to the layout scene, but if I could see some real examples,
> I might get it. Then again, I might club myself with a shovel.
> Thank you.
> I just need to convert this file to Access or something normal.

No you don't. It's already more normal than anything to which you could
convert it.

> Do you have any thoughts?

I have placed the number of bytes each field uses (usually, beware of
compiler dependencies) in square brackets. If that's insufficient, come back
with more specific questions.

(P.S., "77" levels are not involved in the record. They may be ignored for
this purpose.)

> Thanks you.
>
> 01 WWICTLG.
> 10 CTLGOP-CO-NO PIC X(3). [3]
> 10 CTLGCONTROL-SET-SEQ-NO PIC S9(9) USAGE COMP. [4]*
> 10 CTLGINVOICE-SEQ-NO PIC S9(4) USAGE COMP. [4]*
> 10 CTLGAP-CNTRL-ENTITY-CD PIC X(4). [4]
> 10 CTLGINVOICE-TYPE-CD PIC X(2). [2]
> 10 CTLGLEGACY-VENDOR-NO PIC X(10). [10]
> 10 CTLGAP-VENDOR-NO PIC X(30). [30]
> 10 CTLGAP-PO-NO PIC X(30). [30]
> 10 CTLGAP-INVOICE-NO PIC X(30). [30]
> 10 CTLGINVOICE-DT PIC X(10). [10]
> 10 CTLGTOTAL-INVOICE-AM PIC S9(11)V9(2) USAGE COMP-3.
[7]**
> 10 CTLGTOTAL-MERCH-AM PIC S9(11)V9(2) USAGE COMP-3. [7]
> 10 CTLGTERMS-CD PIC X(2). [2]
> 10 CTLGCARRIER-CD PIC X(10). [10]
> 10 CTLGCARRIER-PRO-NO PIC X(10). [10]
> 10 CTLGSHIP-DT PIC X(10). [10]
> 10 CTLGSHIP-VIA-CD PIC X(3). [3]
> 10 CTLGSHIP-LOC-NO PIC X(3). [3]
> 10 CTLGSHIP-WT PIC X(10). [10]
> 10 CTLGSHIP-UNITS-DC PIC X(10). [10]
> 10 CTLGSHIP-TY PIC X(2). [2]

* = Binary Fullword, 4 bytes because of its size (>4 digits)
** = Packed Decimal (number-of-digits + 1) / 2. No other database system
uses Packed Decimal. You have your work cut out to convert to a "normal"
number.

Relevant Pages

  • Re: Layout Hell.
    ... > Carol wrote: ... >> I am new to the layout scene, but if I could see some real examples, ... > compiler dependencies) in square brackets. ... If that's insufficient, come ...
    (comp.lang.cobol)
  • Re: Layout Hell.
    ... Carol wrote: ... > I am new to the layout scene, but if I could see some real examples, I might ... As I suggested to someone else - get a Cobol programmer to write a Q & D ... program to blat out the data in comma-seperated field format (which ...
    (comp.lang.cobol)
  • Re: Layout Hell.
    ... > Carol wrote: ... >> I am new to the layout scene, but if I could see some real examples, I ... > program to blat out the data in comma-seperated field format (which ... > Piece of cake. ...
    (comp.lang.cobol)
  • Re: Layout Hell.
    ... that divides by 200 * 163 ... >> I am new to the layout scene, but if I could see some real examples, ... > compiler dependencies) in square brackets. ...
    (comp.lang.cobol)