|
View previous topic :: View next topic
|
| Author |
Message |
lind sh
New User
Joined: 04 Feb 2015
Posts: 32
Location: Tajikestan
|
|
|
|
Dear friends.
I trying to send a system service request to IMS by the following code:
| Code: |
CBL CICS('COBOL3 CICS')
IDENTIFICATION DIVISION.
PROGRAM-ID. MCMD0001.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
*------------------------------------------
01 FUNC-ICMD PIC X(4) VALUE 'ICMD'.
*------------------------------------------
01 IO-AREA.
05 IO-AREA-S PIC X(17) VALUE '/DISPLAY PROG ALL'.
05 IO-AREA-R PIC X(208) VALUE SPACE.
*------------------------------------------
01 AIB.
8 05 WS-AIBAID PIC X(8) VALUE 'DFSAIB '.
12 05 WS-AIBLEN PIC 9(4) COMP VALUE 128.
20 05 WS-AIBSFUNC PIC X(8).
28 05 WS-AIBRSNM1 PIC X(8) VALUE 'IOPCB '.
44 05 FILLER PIC X(16).
48 05 WS-AIBOALEN PIC 9(4) COMP VALUE 1000.
52 05 WS-AIBOAUSE PIC 9(4) COMP VALUE ZEROES.
64 05 FILLER PIC X(12).
68 05 WS-AIBRETRN PIC 9(4).
72 05 WS-AIBREASN PIC 9(4).
76 05 WS-AIBERRXT PIC 9(4).
80 05 WS-AIBRSA1 POINTER.
128 05 FILLER PIC X(48).
*------------------------------------------
LINKAGE SECTION.
*******************************************
*********** PROCEDURE DIVISION ***********
*******************************************
PROCEDURE DIVISION.
*#---------------------------------
CALL 'AIBTDLI' USING FUNC-ICMD
AIB
IO-AREA.
*#---------------------------------
EXEC CICS WRITEQ TS
QUEUE ('MYTSQ')
FROM (AIB)
LENGTH (128)
END-EXEC.
EXEC CICS WRITEQ TS
QUEUE ('MYTSQ')
FROM (IO-AREA)
LENGTH (225)
END-EXEC.
EXEC CICS RETURN END-EXEC.
GOBACK. |
But there is no a response back from IMS and WS-AIBRETRN and WS-AIBREASN and IO-AREA not changed.
There is no any sample for ICMD call on the internet and IBM manuals.
Can any body help me about this?
Thanks |
|
| Back to top |
|
 |
Rohit Umarjikar
Global Moderator
Joined: 21 Sep 2010
Posts: 3051
Location: NYC,USA
|
|
|
|
please make sure you are compliant with the call.
Also did you follow this? |
|
| Back to top |
|
|
lind sh
New User
Joined: 04 Feb 2015
Posts: 32
Location: Tajikestan
|
|
|
|
Dear Rohit.
Yes but all of those can't help me to solve the problem. |
|
| Back to top |
|
|
lind sh
New User
Joined: 04 Feb 2015
Posts: 32
Location: Tajikestan
|
|
|
|
| Also I can't give any response of this command when I send it by DFSDDLT0. |
|
| Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen
|
|
|
|
| Since /DIS is an IMS console operator command and not a DL/1 command this will not work. In my System Automation days we executed the command in Rexx and trapped the output for further processing. |
|
| Back to top |
|
|
lind sh
New User
Joined: 04 Feb 2015
Posts: 32
Location: Tajikestan
|
|
|
|
| As descripted in IBM manual, We can send System Service call (IMS command and NOT DLI call) from application program. ICMD , RCMD and GMSG those are AIB mode command such as 'PCB ' call that schedule a PSB. |
|
| Back to top |
|
|
|
|
