How to define Undefined records in Assembelr

sakrish · New User Joined: 05 Nov 2008 Posts: 21 Location: chennai

Hi guys

I want read af file whose RECFM=U.

Can some one tell how can we define it in assembler
what are its DCB parameters.

its a huge file with Blksize=32004

please do help .

Thanks in advance
-sai

Robert Sample · Posted: Thu Nov 06, 2008 8:17 pm

Bill Dennis · Posted: Thu Nov 06, 2008 8:34 pm

As you have stated, the DCB parms are RECFM=U,BLKSIZE=32004.

When you read a record, there will be a value in the DCB area for the actual length read on this record. Your pgm must be smart enough to know how to distinguish record types and what to do with them.

I would recommend checking the GET macro in the DFSMS manual "Macro Instructions for Datasets" for tips on how to do this.

sakrish · New User Joined: 05 Nov 2008 Posts: 21 Location: chennai

Thanks guys,

My doubt is when defining a record for that file

TESTRECD DS 0CL32004 will work or not.

Can Assembler handle this much length of records ?

-Sai

dick scherrer · Posted: Fri Nov 07, 2008 7:55 am

Hello,

From a fairly recent Assembler reference manual:

sakrish · New User Joined: 05 Nov 2008 Posts: 21 Location: chennai

Thanks again, my code is active now

But in my JCL, i am getting SOC 04 error

MY program has input file name as INFILE and output file name as OUTFILE

and JCL DD names are INFILE1 and OUTFILE1

dick scherrer · Posted: Fri Nov 07, 2008 11:56 am

Hello,

sakrish · New User Joined: 05 Nov 2008 Posts: 21 Location: chennai

Hi,

Out of list of 4 causes,

1. I checked DD statements..everything looks good

2. I have fixed this in program setting abend codes..

3. I am following standards of code..as my code comes in sequence

4. Only the thing , i guess

I am only copying my input file to output file. her is the code

dick scherrer · Posted: Sat Nov 08, 2008 8:17 am

Hello,

How is pullrec defined? How is outrec defined?

You've used mvc which will not move 32k bytes - it will move 256 max. . . Look at the mvcl (move long) instruction.

It is almost certain that you've "walked on storage".

As i asked before, how much assembler experience do you have? This may not be the time to begin learning assembler just because of this file - it sounds like you want/need to move forward more quickly.

Robert Sample · Posted: Sat Nov 08, 2008 8:23 am

Robert Sample · Posted: Sat Nov 08, 2008 8:30 am

enrico-sorichetti · Posted: Sat Nov 08, 2008 1:02 pm

I want to is not enough to make code work...
how the code works depends on how You have worked

looking at the code snippets You posted .......
You did not care to read the manual about undefined record processing
publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DGT2D540/2.2.28?SHELF=DGT2BK71&DT=20070427024428
and
publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DGT2D540/2.2.43?SHELF=DGT2BK71&DT=20070427024428

undefined record..... aaarghhhhh!?!?!?
once in a while I will not make any recommendations on proper application design
if Your organization wants to shoot itself in the foot, I will be glad to hand You a loaded gun

Pedro · Posted: Sat Nov 08, 2008 9:44 pm

enrico-sorichetti · Posted: Sat Nov 08, 2008 11:47 pm

the TS did not post anything useful for a good problem determination...

he started by defining the buffer with .... DS 0CL....
continuing with an mvc,
keeping on without retrieving the block lenght from the input DCB,
and again without storing it in the output DCB...
and... confusing/misquoting the ddnames...

I wonder how he can affirm that his code is active

I might be picky, but that' s too much

....why a 32004 blksize,
whenever there is the need to treat Undefined records the best blksize to use is 32760,
or better use the DEVTYPE macro to get the largest blksize supported by the device

Robert Sample · Posted: Sun Nov 09, 2008 12:01 am

I suspect the S0C4 is due to the DS 0CL32004 definition -- who knows what storage is getting wiped out in the read? But that's probably irrelevant since it's not at all clear if we're talking about one program, two programs, or even code that makes sense!

dick scherrer · Posted: Sun Nov 09, 2008 12:46 am

Hello,

This code is the result of frustration with "the file". After other approaches did not work, assembler is being attempted (while it is being learned).

I suspect we can be more productive if we learn where the file came from and what it contains. Once we know what we're dealing with (rather than the assembler code to read the file) we may be better able to offer suggestions. Once the file is read in assembler, the content may not be usable. . .

Several times i've seen something like this, a file was ftp'ed to the mainframe and it was in some priprietary format (spreadsheet, word, etc) and simply recreating the file to upload solved all of the problems.

sakrish · New User Joined: 05 Nov 2008 Posts: 21 Location: chennai

Thanks guys..

My inputfile is created by a assembler program

But I couldnt understand what that program is ? its very complicated and huge program.. I had written only few simple assembler codes still now.

We get the file from upstream application.

the ifle will have 01 record and 99 record commom to all records

Between i have 10 th record to 90th record..we call whole thing as bundle.

We may have 1 or more bundles in a file.

What my requirement is we need to extract each bundle..for which 01 and 99 are common

I have written a report in easytrieve which will show each bundle starts at what line and ends at what line.

can we use DFSORT to extract those records..?
I know we couldnt use DFSORT for RECFM=U files.

Can we convert undefined to FB records and process the records..

My mistake..is My names what i mentioned were wrong..ie just for ur understanding..i typed INFILE and OUTFILE..actually i am using PULLFILE and OUTFILE..thats not a problem

A very speacial thanks to all..
I am sorry if I wasted any ones time by my post.

-Sai

dick scherrer · Posted: Tue Nov 11, 2008 1:17 pm

Hello,

sakrish · New User Joined: 05 Nov 2008 Posts: 21 Location: chennai

I just kept a count of records in the file ..If I encounter 10 th record..i will display count number..and 90th record will display end of bundle count..
so I can know where my bundle starts and where it ends..

sakrish · New User Joined: 05 Nov 2008 Posts: 21 Location: chennai

Hi guys,

I did it with Easytrieve of extracting the records from Undefined file

but my input file has

dick scherrer · Posted: Wed Nov 19, 2008 9:16 pm

Hello Sai,

X'40' is a blank.

Your extracted file appears to be fixed length and when you wrote the records, they were filled with spaces. How is your output file defined to Easytrieve?

sakrish · New User Joined: 05 Nov 2008 Posts: 21 Location: chennai

Hi,

I have defined my output file as my block size is 32004

dick scherrer · Posted: Thu Nov 20, 2008 10:17 am

Hello,

How did you set up the move/write to the output file?

sakrish · New User Joined: 05 Nov 2008 Posts: 21 Location: chennai

hi

my input file

dick scherrer · Posted: Thu Nov 20, 2008 9:52 pm

Hello,