IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

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: 45
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: 3048
Location: NYC,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: 45
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> IDMS/ADSO

 


Similar Topics
Topic Forum Replies
No new posts SDSF like solution in EJES (store com... All Other Mainframe Topics 4
No new posts Invoke stored procedure via batch JCL. DB2 2
No new posts interactive cics program using CICS s... CICS 5
No new posts Calling COBOL DB2 program from a COBO... COBOL Programming 2
No new posts VSAM ESDS File to store large data 4GB JCL & VSAM 5
Search our Forums:

Back to Top