MVSFORUMS.com

Anand_R · Intermediate Joined: 24 Dec 2002 Posts: 189 Topics: 60

Hi,

I have a very file with logical record lenght of 15000, I have a record layout also for this file. I wanted to view one of the field and I don't the position of this field in the layout. I could not either xref this dataset with the layout as this has bulk LRECL or print the layout of this dataset through fileaid to see the postion of that field. Could some one help me how I can overcome this problem. either by sort or any other utility.

Thanks
Anand

kolusu · Posted: Tue Nov 28, 2006 6:11 am Post subject:

Anand_R,

Just pull few records from the file and scan for the desired character and determine the position of the character.

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

Anand_R · Intermediate Joined: 24 Dec 2002 Posts: 189 Topics: 60

Kolusu,

We don't know the desired character, and even we know it could be at the multiple postions for different fields.

Thanks
Anand

Anand_R · Intermediate Joined: 24 Dec 2002 Posts: 189 Topics: 60

Kolusu,

Ca I can get the Logical record lenght of any copybook, assuming I do not hava file to map to that copybook and that copy book is huge. I cannot use FILEAID online as it is getting struck if i try to view that map record layout with option number 8 on main menu. Is there any utility that calculates the lenght of copy book??. Please advise

Thanks
Anand

Grant · Posted: Wed Nov 29, 2006 5:31 pm Post subject:

Why not just compile the program (using compile option MAP) and look at the length of the variable in the compile listing:

ID DIVISION.
PROGRAM-ID. NOTHING.

DATA DIVISION.
WORKING-STORAGE SECTION.

COPY COPYBOOK.

PROCEDURE DIVISION.

GOBACK.

dbzTHEdinosauer · Posted: Wed Nov 29, 2006 5:40 pm Post subject:

I always have a small Utility COBOL Program which I use to compile COPYBOOKS looking for both blatent and subtle errors/problems. Since it is a compile, I use compile parms to generate a MAP (displays hex and decimal - lengths/rel locations), and I put the copybook in linkage under 01 COPYBOOK-TO-MAP. (when the copybook does not start with a 01 level, which none, IMUO, should.) The procedure division consists of a PROCEDURE DIVISION USING COPYBOOK-TO-MAP and 1 paragraph consisting of a GOBACK. I redirect the compiler spool output to a QSAM file which I then massage with a REXX which formats everything and CREATEs/REPLACEs membername-copybook name in a special PDS which I use for other analysis activities - datawharehouse/bibliotech.
_________________
Dick Brenholtz
American living in Varel, Germany

kolusu · Posted: Wed Nov 29, 2006 5:51 pm Post subject:

Anand_R · Intermediate Joined: 24 Dec 2002 Posts: 189 Topics: 60

Kolsu,

I have already tried that option, only clinch is it is taking a lot of time and finally job is abending with S322 and as per my installation set up I am not supposed to use more than 10 SECONDS cpu for a test job. This job is taking more than that.

Dick,

I will try your way and see if I need any information from you.

Thanks for all your inputs
Anand

Anand_R · Intermediate Joined: 24 Dec 2002 Posts: 189 Topics: 60

I tried with the option that Grant has suggested and I am able to see th lenght of the copybook in the output listing.

Thanks Grant