Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

How to sending system service request to IMS (DBCTL)?

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

New User


Joined: 04 Feb 2015
Posts: 19
Location: Tajikestan

PostPosted: Sun Apr 10, 2016 12:02 am    Post subject: How to sending system service request to IMS (DBCTL)?
Reply with quote

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
View user's profile Send private message

Rohit Umarjikar

Senior Member


Joined: 21 Sep 2010
Posts: 1609
Location: NY,USA

PostPosted: Sun Apr 10, 2016 12:19 am    Post subject:
Reply with quote

please make sure you are compliant with the call.
Also did you follow this?
Back to top
View user's profile Send private message
lind sh

New User


Joined: 04 Feb 2015
Posts: 19
Location: Tajikestan

PostPosted: Sun Apr 10, 2016 9:46 am    Post subject:
Reply with quote

Dear Rohit.
Yes but all of those can't help me to solve the problem.
Back to top
View user's profile Send private message
lind sh

New User


Joined: 04 Feb 2015
Posts: 19
Location: Tajikestan

PostPosted: Sun Apr 10, 2016 9:48 am    Post subject:
Reply with quote

Also I can't give any response of this command when I send it by DFSDDLT0.
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2422
Location: Netherlands, Amstelveen

PostPosted: Sun Apr 10, 2016 10:46 am    Post subject:
Reply with quote

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
View user's profile Send private message
lind sh

New User


Joined: 04 Feb 2015
Posts: 19
Location: Tajikestan

PostPosted: Sun Apr 10, 2016 1:37 pm    Post subject:
Reply with quote

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
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 IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts Check System time(Minute) Using TIME1... balaji81_k DFSORT/ICETOOL 5 Fri Nov 11, 2016 10:53 am
No new posts Can sending 5 MB data between cobol p... Kevin Vaz CICS 12 Tue Oct 18, 2016 4:50 pm
No new posts Get system time in micro second or cl... lind sh CICS 11 Mon Sep 05, 2016 11:14 pm
No new posts Add system date inside of a PS file a... pramitdas DFSORT/ICETOOL 5 Sun Aug 28, 2016 12:06 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us