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

Call a transaction simulator froma stub program


IBM Mainframe Forums -> IMS DB/DC
Post new topic   Reply to topic
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
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:
//STEP01 EXEC PGM=DFSRRC00,REGION=0K,
// 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 ?
STUB:
Code:

 WORKING-STORAGE SECTION.                                         
******************************************************************
 01  PROGRAM-OMSPSUBX    PIC X(13) VALUE '$PGM=OMSPSUBX'.         
                                                                 
******************************************************************
 PROCEDURE DIVISION.                                             
******************************************************************
                                                                 
     ENTRY  'DLITCBL'                                             
                                                                 
     CALL  PROGRAM-OMSPSUBX(6:8)                                 
     END-CALL                                                     
                                                                 
     GOBACK                                                       
     .                                                           
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 -> IMS DB/DC

 


Similar Topics
Topic Forum Replies
This topic is locked: you cannot edit posts or make replies. Passing a field name to COBOL program COBOL Programming 10
This topic is locked: you cannot edit posts or make replies. Sample CICS Webservices Program CICS 1
No new posts Calling Rexx program from Cobol CLIST & REXX 12
No new posts How to define transaction that trigge... CICS 2
No new posts Call Natural program with rexx CLIST & REXX 2
Search our Forums:

Back to Top