Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
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:
//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    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 Dynamic cursor name in Cobol program Jlevine COBOL Programming 1 Fri Feb 14, 2020 2:55 am
No new posts Invoking a CICS transaction from a no... danik56 CICS 7 Thu Dec 19, 2019 7:15 pm
This topic is locked: you cannot edit posts or make replies. how to show the class of an ims trans... Renato Zangerolami CLIST & REXX 11 Fri Dec 06, 2019 6:50 pm
No new posts IMS DB / DB2 simulator for ETL testin... dejames IMS DB/DC 1 Thu Nov 21, 2019 12:37 pm
No new posts Is multiple program names allowed in ... Sakthidevi PL/I & Assembler 1 Tue Nov 19, 2019 11:12 pm

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