Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

PL/1 DEC FIXED

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
View previous topic :: :: View next topic  
Author Message
venuhunev

New User


Joined: 26 May 2007
Posts: 70
Location: chennai

PostPosted: Tue May 10, 2011 6:52 pm    Post subject: PL/1 DEC FIXED
Reply with quote

Hi,

In a PL/I program, I am trying to read a file of 5000 records and load all the contents to an array. My declarations are as below.

Code:
DCL INFIL2  RECORD FILE INPUT;

DCL 1 INEXEM,                                 
      2 SERIAL          CHAR(06) INIT(''),     
      2 FILLER          CHAR(74) INIT('');     
                                               
DCL 1 EXEMPT(50),                             
      2 SERIAL          CHAR(06) INIT(''),     
      2 FILLER          CHAR(74) INIT('');     

ON ENDFILE (INFIL2)   
   EOF_EXEM = '1'B;                                                   

DCL EOF_EXEM       BIT(1)               INIT('0'B);
DCL K        DEC   FIXED(8,0)           INIT(0);
DCL L        DEC   FIXED(8,0)           INIT(0);



OPEN FILE (INFIL2) INPUT;
K = 0;                                                           
DO WHILE (┬ČEOF_EXEM)                                             
   READ FILE(INFIL2) INTO (INEXEM);                             
   K = K + 1;                                                   
   EXEMPT(K) = '';                                               
   EXEMPT.SERIAL(K) = INEXEM.SERIAL;                             
   PUT SKIP LIST('READ-'||K||'-'||INEXEM.SERIAL||'-'||EOF_EXEM);
END;                                                             



For the Put skip statement, this is hte last message I get before the abend.
Code:
READ-         66-012915-0



ABENDS
Code:
READY                                                           
DSN SYSTEM(DBN1)                                                 
DSN                                                             
   RUN PROGRAM(xx) PLAN(xx) LIB('xxx') 
DSN      ENDED DUE TO ERROR+                                     
USER ABEND CODE 4088  REASON CODE 00000063     


Code:
A user abend 4088 reason code X'63' occurred in module CEEBINIT at offset
X'1A12'.                                                                 
                                                                         
The abend was caused by machine instruction 0A0D (ABEND).     



Job runs fine if the record count is less than 65 only. Please help.
Back to top
View user's profile Send private message

Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7931
Location: Bellevue, IA

PostPosted: Tue May 10, 2011 6:58 pm    Post subject:
Reply with quote

Quote:
I am trying to read a file of 5000 records and load all the contents to an array.
does not compute with
Quote:
DCL 1 EXEMPT(50),
Back to top
View user's profile Send private message
venuhunev

New User


Joined: 26 May 2007
Posts: 70
Location: chennai

PostPosted: Tue May 10, 2011 7:10 pm    Post subject:
Reply with quote

My mistake was very silly. Thnx Robert
Back to top
View user's profile Send private message
PeD

Active User


Joined: 26 Nov 2005
Posts: 456
Location: Belgium

PostPosted: Tue May 10, 2011 7:11 pm    Post subject:
Reply with quote

And for my curiosity, why repeat FILLER in the ARRAY !!!!!

Code:
DCL 1 EXEMPT(50),                             
      2 SERIAL          CHAR(06) INIT(''),     
      2 FILLER          CHAR(74) INIT('');    <<<<<<<<<<<<<<<<<   

Back to top
View user's profile Send private message
venuhunev

New User


Joined: 26 May 2007
Posts: 70
Location: chennai

PostPosted: Tue May 10, 2011 7:13 pm    Post subject:
Reply with quote

Thnx PeD. Filler is not needed. I ll remove it.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to copy data with delimters to fi... Venkata Ramayya DFSORT/ICETOOL 2 Wed Feb 24, 2016 10:03 pm
No new posts FIXED BIN (31) and FIXED BIN (63) - H... sundarkudos PL/I & Assembler 4 Thu Nov 05, 2015 1:11 pm
No new posts Add delimiters in a fixed length record Venkata Ramayya DFSORT/ICETOOL 4 Fri Mar 27, 2015 3:49 am
No new posts how to convert fixed-point data forma... Roland Brosio DFSORT/ICETOOL 4 Mon Mar 16, 2015 6:16 pm
No new posts Convert a record which is fixed lengt... nimesh.chakravarty DFSORT/ICETOOL 5 Mon Jan 12, 2015 11:06 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us