Re: Layout Hell.

From: Carol (kgdg_at_helkusa.com)
Date: 07/16/04


Date: Thu, 15 Jul 2004 23:11:33 -0600

I guess the progblem is that it does not work.
I have 20 tapes and 20 file layoiuts. Maybe this file layout does not go
with this tape?

"JerryMouse" <nospam@bisusa.com> wrote in message
news:FfWdnajyuePaoGrdRVn-hw@giganews.com...
> 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.
    ... k> All I have are 20 tapes and 20 file layouts and no experience. ... what in the record layout. ... representation -- and which n of those COMP-n does mean byte, ... corsaire, corsaire et demi." ...
    (comp.lang.cobol)
  • Re: Layout Hell.: leave it
    ... k> The 20 tapes are not just one big table. ... It is more intended to those old COBOL hacks lurking here. ... files record layout; everything else in that program would not need to ... "Das Volk, das ein anderes Volk unterjocht, schmiedet seine eigenen ...
    (comp.lang.cobol)