LRECL parameter in Dynamic Allocation routine.

ArunAnbu · New User Joined: 15 Jun 2009 Posts: 17 Location: India

Hello All -

Can someone help me out by saying how to give the LRECL parameter in the Dynamic allocation routine.

I am passing the below parameter in my dynamic allocation routine, but it allocating the files with default LRECL of 80 whereas I need to allocate the files only with LRECL of 50. I tried by giving the LRECL value as,
10 PIC X(12) VALUE ' LRECL(50) ' , but I was getting error saying the invalid parameter. So, I just wanted to know the correct format for it.

Your response is greatly appreciated.

01 WS-DYNAMIC-ALLOC-STORAGE.
05 ENV-VAR-PARM-PASSED.
10 DDNAME PIC X(08) VALUE SPACES.
10 PIC X(05) VALUE '=DSN('.
10 DSNAME PIC X(50) VALUE SPACE.
10 PIC X(14) VALUE ' NEW CATALOG '.
10 PIC X(23) VALUE ' SPACE(10,5) TRACKS '.
10 PIC X(17) VALUE ' UNIT(SYSDA) '.
10 PIC X(01) VALUE X'00'.
05 PUTVAR-PARM-PTR POINTER.
05 RC PIC S9(9) BINARY VALUE +0.

Regards!
Arun

superk

Are you using the BPXWDYN routine or a standard TSO ALLOCATE command?

ArunAnbu · New User Joined: 15 Jun 2009 Posts: 17 Location: India

Hi -
I am using 'PUTENV' to pass the ENV-VAR-PARM-PASSED. I didnt try by using BPXWDYN.

Your response in any form in terms of giving the LRECL in the passed parameter would be appreciated. Thanks!

dick scherrer · Posted: Thu Jun 25, 2009 7:28 am Post subject:

Hello,

Once you have called PUTENV to identify the DD, you then issue an OPEN for the file (FD)?

If so, the lrecl would be taken from the FD. . .?

ArunAnbu · New User Joined: 15 Jun 2009 Posts: 17 Location: India

Hi Dick!

Even I presumed that way i.e. the LRECL would be taken from FD but, when I tried by giving the LRECL as 50 in my FD, my job was getting failed with error code of 39 [discrepany in the LRECL] and the error says that there is discrepany between the LRECL in the program( it is 50) and in the dynamic allocation(defaults allocation with LRECL 80).

Thatz where I got stuck and not able to proceed further. I tried couple of different methods of giving the LRECL in the Dynamic allocation routine, but everytime I was getting "Invalid keyword".

Would be great if someone could share their experience if you have already faced such a situation. Thanks a lot!

Douglas Wilder · Posted: Sat Jun 27, 2009 2:39 am Post subject:

I had only tried dynamic allocation for my input files. I am getting the same result you have for a dynamically allocated output file. Have you tried using IKJTSOEV and IKJEFTSR? They should work (but I have not tried it yet).

ArunAnbu · New User Joined: 15 Jun 2009 Posts: 17 Location: India

Hi Doug! No I didn't try using IKJTSOEV and IKJEFTSR as I have no clue how to go about that...

Any other response from other folks would be greatly appreciated. I gave a good search in this forum and happen to find out one of the user ('adiovanni ') had given some solution to similar request. I tried that by changing the RECORDIND MODE, BLOCK CONTAINS.......but nothing paid me. :-( :(

Hi adiovanni - Would be great if you could throw some light on my request. All I want is to pass the LRECL of 50 from Dynamic routine because in my pgm i have my FD with 50. Its taking the system default LRELC of 80 which is causing my pgm to get abend with status code 39.

I am totally stuck on this. Any response in any form is greatly appreciated.

Thanks a lot!

dbzTHEdinosauer · Posted: Thu Jul 02, 2009 5:19 pm Post subject:

80 char is a minimum for a lot of things. Maybe, here also.

ArunAnbu · New User Joined: 15 Jun 2009 Posts: 17 Location: India

Yep thatz true!....but in my case I wanted the LRECL to be 50.... I am not able to override the system provided LRECL with my value....so, trying out the different possibilities.....any other suggestions from other folks?......Thanks!

Robert Sample · Posted: Thu Jul 02, 2009 6:03 pm Post subject:

From what I can tell, the PUTENV method does not support LRECL -- so if you're defining a new file, PUTENV probably is not the way to go. Using BPXWDYN allows you to specify the LRECL as part of the allocation.

ArunAnbu · New User Joined: 15 Jun 2009 Posts: 17 Location: India

Thanks for your comments Robert! Yes I am going to give a try by using BPXWDYN routine.

In the meanwhile, if any of the other forum folks have the sample of BPXWDYN routine, could you please pass it across???

Your response is greatly appreciated. Thanks a ton!

Robert Sample · Posted: Thu Jul 02, 2009 8:43 pm Post subject:

ArunAnbu · New User Joined: 15 Jun 2009 Posts: 17 Location: India

Thanks for your post Robert! Yes I am trying out the dynamic allocation using BPXWDYN routine. Would keep you posted. Thanks again!

ArunAnbu · New User Joined: 15 Jun 2009 Posts: 17 Location: India

Hi Robert!

Yeah i tried your code by hard coding the output dataset, its working fine and allocating the DS with LRECL 50.

But for my requirement I need to read the data from another input file and pass the DSN and also write into the dynamically allocated file. When I tried so, i was getting different RC from the BPXWDYN call.

I tried different methods, but nothing paid me. So, I just wanted to know whether BPXWDYN will work when the DSN comes from a different means?.....if so, the could you please tell me how to handle it in the pgm?...

Below is the error msg from the spool.
BPXWDYN RC = 176082124Q
OPEN FILE STATUS = 96
CEE3204S The system detected a protection exception (System Completion Code=0C4
From compile unit DYNALLTS at entry point DYNALLTS at statement 123 at
entry offset +000007C0 at address 16101718.

Below is my two select [input and output file]:
SELECT IN-FILE ASSIGN TO INFILE
FILE STATUS IS IN-FILE-FS.

SELECT OUT-FILE ASSIGN TO OUTFILE
FILE STATUS IS OUT-FILE-FS.

Thanks for your response!

Robert Sample · Posted: Sat Jul 04, 2009 2:58 am Post subject:

You are probably not allowing for the different lengths of the data set name in the correct way. I have tested this code and it works: