Re: Question on Cobol (Unix) file layouts...

[Chuck Lewis <CLEWIS@xxxxxxxxxx>]

Thanks Dan !

Nice to know that someone ELSE has been down this road ! :-)

We you on the NCR staff before the switch ? Everyone happy with the AS/400 now  
?

Chuck

Dan Thomas wrote:

> In (any) Cobol PIC 9(5)V99 is a seven byte field.  I believe you handled
> this correctly.  And yes, these file layouts are "internal" compared to
> AS/400 DB2 files.  We converted from a NCR Unix RM/Cobol to AS/400 RPG
> (JBA).  We created ASCII flat files and copied them from Unix to our PC and
> then from PC to AS/400 using Client Access.  We probably could have FTP'd
> from Unix to AS/400 but this approach did work well for us.  Feel free to
> e-mail me if you need further assistance.
>
> > -----Original Message-----
> > From: Chuck Lewis [SMTP:CLEWIS@IQUEST.NET]
> > Sent: Thursday, February 18, 1999 8:07 AM
> > To:   MIDRANGE-L@midrange.com
> > Subject:      Question on Cobol (Unix) file layouts...
> > Importance:   High
> >
> > Hi Folks !
> >
> > You might not be able to help with this but if ANYONE that has worked
> > with ALL kinds of different systems and languages can suffer through
> > this, I'd appreciate it !
> >
> > I have yet another project to get data from our old (and now retired)
> > NCR Unix box over to our AS/400 (it is Sales History information). My
> > cohort who is the person responsible for the NCR/Unix box and it's
> > homegrown apps, had given me what I GUESS you would call file layouts. I
> > TRIED to explain to him what I needed ("look at a PF on the AS/400 as a
> > reference and then give me the NCR 'file layout' in a similar layout so
> > I don't have to do it").
> >
> > What I got was, again, the NCR "file layout" with a bunch of explanatory
> > post-it notes.
> >
> > As an example:
> > FD
> > CNVHDR
> > Post-it Note translation
> >         LABEL RECORDS ARE STANDARD.
> > 01    CNVH-REC.
> >         03    CNVH-KEY.
> >                 05    CNVH-ORDERNUM                      PIC    9 (6)
> > .                   6 numeric
> >                 05    CNVH-SEQUENCE                        PIC    9
> > .                        1 numeric
> >                 05    CNVH-ORDERLINENUM              PIC    999
> > .                    3 numeric
> >         03    CNVH-DATA
> >                 05    CNVH-SYSDATE                            PIC    9
> > (6) .                  6 numeric
> >                 05    CNVH-BATCH-WSE                      PIC    XX
> > .                    2 alpha
> >                 05    CNVH-BATCH-BCHSEQ               PIC    9
> > .                       1 numeric
> >                 05    CNVH-SHIPPEDDATE                   PIC    9 (6)
> > .                  6 numeric
> >                 05    CNVH-INVOICEDATE                   PIC    9 (6)
> > .                  6 numeric
> >                 05    CNVH-EXTDSALESTAX                PIC    9 (5) V99
> > .          5 numeric with 2 deciimals
> >                 05    CNVH-EXTFTOTALORDER           PIC    9 (5) V99
> > .          5 numeric with 2 decimals
> >
> > I am converting this ASCII file through Excel into a CSV file and then
> > uploading it.
> >
> > So I define:
> >                     ORDERNUM as numeric 6,0
> >                     SQEUENCE as numeric 1,0
> >                     ORDERLINENUM as numeric 3,0
> >                     SYSDAT as numeric 6,0
> >                     BATCH-WSE as 2A
> >                     BATCH-BCHSEQ as numeric 1,0
> >                     SHIPPEDDATE as numeric 6,0
> >                     INVOICEDATE as numeric 6,0
> >                     EXTDSALESTAX as numeric 7,2
> >                     EXTFTOTALORDER as numeric 7,2
> >
> > Note the only differences are the last 2. I TRIED making them 5 with 2
> > but when I bring it up in Excel to do the "mask" they are CLEARY 7 in
> > length and if I do the transfer to the AS/400 it works.
> >
> > My question is, how do YOU interpret the last 2 fields from Unix/Cobol
> > (?) to the AS/400 PF field designation ?
> >
> > Sorry to bug the list with this if you don't know. My thought was this
> > MAY be an internal Cobol file layout that someone would be familiar with
> > (I am SURE not and my cohort is not real helpful...)
> >
> > Thanks !
> >
> > Chuck
> >
> >
> >
> > +---
> > | This is the Midrange System Mailing List!
> > | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> > | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> > | To unsubscribe from this list send email to
> > MIDRANGE-L-UNSUB@midrange.com.
> > | Questions should be directed to the list owner/operator:
> > david@midrange.com
> > +---
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---