Portal | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
Call a transaction simulator froma stub program

Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
View previous topic :: :: View next topic  
Author Message
John F Dutcher

New User

Joined: 02 Apr 2008
Posts: 11
Location: Harrisburg, PA

PostPosted: Wed Jan 22, 2020 10:54 pm    Post subject: Call a transaction simulator froma stub program
Reply with quote

I have a program that allows simulation of external IMS transaction calls via a queue message. The program OMSPSUBX and transaction are noted
in the EXEC here:
// PARM=(BMP,OMSPSUBX,YDEMCXXX,,,C01000,,,,,,30,45,1TST,TNQ1)

Because there are Fastpath DBs involved the batch run always ends with U1008 and demands a 'SYNC' call in the app program. It is suggested that instead I call a STUB pgm which then 'calls' the simulator and does itself include a 'SYNC' to solve this. The STUB is below....but I don't know how to set up a satisfactory call to the OMSPSUBX simulator using it. Does anyone see how ?

 WORKING-STORAGE SECTION.                                         
 PROCEDURE DIVISION.                                             
     ENTRY  'DLITCBL'                                             
     CALL  PROGRAM-OMSPSUBX(6:8)                                 
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 -> IMS DB/DC 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 define transaction that trigge... cnop042 CICS 2 Thu Oct 22, 2020 7:12 am
No new posts Call Natural program with rexx shahaf CLIST & REXX 2 Tue Sep 08, 2020 11:22 am
No new posts CALL statement in COBOL for VSE Kirthishine COBOL Programming 3 Fri Jun 26, 2020 12:12 pm
No new posts Started transaction enters "firs... Marso CICS 3 Sun May 31, 2020 2:14 pm
No new posts In JCL Procedure how we can execute R... Dhananjayulu Neeli CLIST & REXX 7 Sat May 16, 2020 12:01 am

Back to Top
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us