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

[Dan Thomas <DThomas@xxxxxxxxxxx>]

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
+---