IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search Log in to check your private messages Log in
 

ADSO Store Procedure to receive mutiple occurences


 
IBM Mainframe Forums -> IDMS/ADSO
Post new topic   Reply to topic
View previous topic :: :: View next topic  
Author Message
yogi.47eie

New User


Joined: 16 Aug 2006
Posts: 40
Location: india

PostPosted: Fri Aug 21, 2015 7:14 pm
Reply with quote

Hi Team,
we are developing a Stored procedure to receive set of fields from
external interface(outside of Mainframe).

Ex:

create procedure PP.ADDRESS
(
EMPID CHARACTER(10)
ADDRESSLINE1 CHARACTER(20)
ADDRESSLINE2 CHARACTER(20)
ADDRESSLINE3 CHARACTER(20)
)
external name ADDRESS
protocol ads;

The defined fields will be populated with empID and address lines and processed using ADSO dialogues.

Is that possible to introduce OCCURS clause in this definition ??
Scenario is ,this EMPID can have more than one address & i should be able to receive
more than one addresses at a time.

Note:I have tried to receive ADDRESSLINES as single string CHARACTER(600) and through the program,I am able to handle 10 set of addresses by reading first 60 characters as first occurence of address,next 60 characters as second occurence etc..
Ex:

create procedure PP.ADDRESS
(
EMPID CHARACTER(10)
ADDRESSLINES CHARACTER(600)
)
external name ADDRESS
protocol ads;

Any help from CA ADSO Stored procedure experts is much appreciated.
Back to top
View user's profile Send private message
Rohit Umarjikar

Global Moderator


Joined: 21 Sep 2010
Posts: 2502
Location: NY,USA

PostPosted: Fri Aug 21, 2015 8:49 pm
Reply with quote

Hello,

Quote:
Is that possible to introduce OCCURS clause in this definition ??


Who creates a Stored procedures at your place? by yourself ?then you could try and see otherwise ask the support team about this.Because this is more like a manual question.

Quote:

I have tried to receive ADDRESSLINES as single string CHARACTER(600) and through the program,I am able to handle 10 set of addresses by reading first 60 characters as first occurence of address,next 60 characters as second occurence etc..


Build a Cobol array and use a subscript. so i think this is the solution.
Back to top
View user's profile Send private message
yogi.47eie

New User


Joined: 16 Aug 2006
Posts: 40
Location: india

PostPosted: Fri Aug 28, 2015 12:10 pm
Reply with quote

Thanks for the suggestion Rohit, ... Yes we are the one defining the Procedure .We tried the possibilities and concluded that array concept is NOT possible within stored procedure.

Yes ,we tried developing the array concept in IDMS work records and its working fine which we tried initially.


Thanks
Yogi
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic All times are GMT + 6 Hours
Forum Index -> IDMS/ADSO
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Forum Replies
No new posts FSET not working on my receive CICS 3
No new posts In JCL Procedure how we can execute R... CLIST & REXX 7
No new posts Get next 5 numeric from a string of '... COBOL Programming 7
No new posts Need a Macro to compare datasets and ... All Other Mainframe Topics 2
No new posts Usage of pre-processor statement in p... PL/I & Assembler 1

Back to Top