Record format delivery



Support for OS/VS COBOL, VS COBOL II, COBOL for OS/390 & VM and Enterprise COBOL for z/OS

Record format delivery

Postby Mehdi shri » Wed Dec 28, 2011 11:01 pm

Dear friends.
I have a cobol source tha a part of it defines a record format like this:

    03 INPUT-TR01.
    05 TR-ID-NUMBER PIC X(12).
    05 TR-BIRTH-DAT-CMPLT.
    07 TR-BIRTH-DAT-CC PIC 9(2).
    07 TR-BIRTH-DAT PIC 9(6).
    05 TR-HOME-PHON PIC 9(12).
    05 TR-VALUE-ISSU-CAPTAL PIC S9(15)
    SIGN TRAILING SEPARATE.
    05 TR-RESID-STAT PIC X.
    05 TR-STAT-MAIL-CODE PIC X(2).
    05 TR-ISSUED-DATE-CMPLT.
    07 TR-ISSUED-DATE-CC PIC X(02).
    07 TR-ISSUED-DATE PIC X(06).
    05 TR-PARTNER-INF
    OCCURS 10 TIMES INDEXED BY INDX.
    10 TR-PARTNER-NO PIC 9(10).
    10 TR-PART-PERCENT PIC 9(2)V9(2).
    05 FILLER PIC X(234).

IS ther any utility or software to extract it from top down defenitin and provide a horizontal view for better understanding. (like SQL record fomat)
Mehdi shri
 
Posts: 138
Joined: Sun Jan 16, 2011 6:30 pm
Has thanked: 57 times
Been thanked: 0 time

Re: Record format delivery

 

Re: Record format delivery

Postby Robert Sample » Wed Dec 28, 2011 11:06 pm

Does your site have FIle Aid (a Compuware product) installed? If so, you can browse the file with File Aid and tell it to use a copybook to interpret the layout. There are other products that can do this as well.
Robert Sample
Global moderator
 
Posts: 3367
Joined: Sat Dec 19, 2009 8:32 pm
Location: East Dubuque, Illinois
Has thanked: 1 time
Been thanked: 222 times

Re: Record format delivery

Postby NicC » Wed Dec 28, 2011 11:08 pm

Wow - I would think the format you show is better as it shows (or would show if you had used code tags) the levels of data by the indentation. SQL rows do not have these different levels ie columns do not have sub-columns.
The problem I have is that people can explain things quickly but I can only comprehend slowly.
Regards
Nic
NicC
Global moderator
 
Posts: 2690
Joined: Sun Jul 04, 2010 12:13 am
Location: Pushing up the daisys (almost)
Has thanked: 4 times
Been thanked: 105 times

Re: Record format delivery

Postby Mehdi shri » Wed Dec 28, 2011 11:21 pm

Thanks a lot
Mehdi shri
 
Posts: 138
Joined: Sun Jan 16, 2011 6:30 pm
Has thanked: 57 times
Been thanked: 0 time

Re: Record format delivery

Postby BillyBoyo » Wed Dec 28, 2011 11:23 pm

I have no idea of what you mean. Can you give an example? Or try again to explain it in words? Or both would be best.
BillyBoyo
Global moderator
 
Posts: 3804
Joined: Tue Jan 25, 2011 12:02 am
Has thanked: 22 times
Been thanked: 264 times


Return to IBM Cobol

 


  • Related topics
    Replies
    Views
    Last post