MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

PL1 2.3 / 3.5, writing (large) AREAs to file, IEC141I 013-5C

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming
View previous topic :: View next topic  
Author Message
bauer
Intermediate


Joined: 10 Oct 2003
Posts: 315
Topics: 49
Location: Germany
PostPosted: Wed Oct 25, 2006 5:46 am    Post subject: PL1 2.3 / 3.5, writing (large) AREAs to file, IEC141I 013-5C Reply with quote
Hi all,

i have the follwoning PL1 code:


Code:


DCL 1 W_CHKD ALIGNED EXT CTL,
       2 CHKP_DATA AREA(700000);


/* Several references to AREA like this sample */

DCL 1 W_A011 ALIGNED  EXT   ,
      2 P_W_ANST PTR;
       DCL 1 W_ANST ALIGNED BASED(P_W_ANST),
               2 FIELD1 ....
              ,2 FIELD2 ....
              ,2 ...
              ;

ALLOCATE W_CHKD;

ALLOCATE W_ANST IN(CHKP_DATA) SET (P_W_ANST);

DCL IOCHKP FILE SEQUENTIAL RECORD ENV(
                   VS
                   RECSIZE(700016)
                   BLKSIZE(32760)
                          );

OPEN FILE(IOCHKP) OUTPUT RECORD;
WRITE FILE(IOCHKP) FROM(CHKP_DATA);
CLOSE FILE(IOCHKP);





The file IOCHKP in the run JCL for the PL1 program is declared as follows:

Code:

IOCHKP   DD DSN=<filename>,DISP=(SHR,KEEP,KEEP)



The allocation attributes are

Code:

ALLOCATED TRACKS    ===>,    51,    ,DSORG      ===>,    , PS,
USED TRACKS         ===>,    21,    ,RECFM      ===>,  ,   VS,
ALLOCATED EXTENTS   ===>,  ,  2,    ,LRECL      ===>,  ,32768,
USED EXTENTS        ===>,  ,  2,    ,BLKSIZE    ===>,  ,32760,
ALLOCATED DIR BLKS  ===>,           ,KEYLEN     ===>,    ,  0,
USED DIR BLKS       ===>,           ,KEYOFF     ===>,
NUMBER OF MEMBERS   ===>,           ,SECURITY   ===>,RACF



Using the PL1 optimizing compiler 2.3. where are no compilererrors, warnings and the program works.

Now we migrated to pl1 3.5 enterprise compiler, no compiler errors, no warnings. At runtime the program abends.

The message is IEC141I 013-5C,IGG0191I,<jobname, stepname .......>.

What's wrong?

Why does the program work using PL1 2.3 and doesn't work using PL1 3.5.

Any comments?

regards,
bauer
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose
PostPosted: Wed Oct 25, 2006 7:12 am    Post subject: Reply with quote
bauer,

You are allocating a variable SPANNED record and the max LRECL is only 32756. Here is the explanation of the error. I guess you also need to provide the GET locate mode

Code:

5C        One of the following events occurred:                           
                                                                         
          o   An OPEN macro instruction was issued for a sequential data 
              set using queued access. The data set contained spanned     
              variable-length records larger than 32 756, but GET locate 
              mode was not specified, or the logical record interface     
              (LRI) and LRECL=x were both specified.                     
                                                                         
          o   An OPEN macro instruction was issued for a sequential data 
              set with the DCB specifying BFTEK=A logical record interface
              and MACRF=GM or MACRF=PM.                                   


Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
bauer
Intermediate


Joined: 10 Oct 2003
Posts: 315
Topics: 49
Location: Germany
PostPosted: Wed Oct 25, 2006 8:11 am    Post subject: Reply with quote
Well, the explanation i read in the ibm manual.

What does "GET locate mode" meen ?

How to code ?
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group