John F Dutcher
New User
Joined: 02 Apr 2008
Posts: 11
Location: Harrisburg, PA
|
|
|
|
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
.
|
|
|
