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

Sending system service calls by AIBTDLI.
IBM Mainframe Forums -> IMS DB/DC
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
lind sh

New User


Joined: 04 Feb 2015
Posts: 32
Location: Tajikestan
PostPosted: Wed Mar 16, 2016 6:51 pm
 Reply with quote
Dear friend
How I can send a system service command by AIBTDLI. for example how I can send a STAT or ICMD?!!!
This is my suppused code:
Code:
             
     WORKING-STORAGE SECTION.
        01 ICMD-FUNC    PIC X(4) VALUE "ICMD".     
        01 IO-AREA      PIC X(80) VALUE "/DISPLAY PROG ALL".         
*******------------------------------------------                   
       01 AIB-FIELDS.                                               
          05 WS-AIB-EYECATCHER      PIC X(08) VALUE 'DFSAIB  '.     
          05 WS-AIB-ALLOC-LENGTH    PIC 9(09) COMP VALUE 0.         
          05 WS-AIB-SUB-FUNC-CDE    PIC X(08) VALUE SPACE.         
          05 WS-AIB-RESOURCE-NAME   PIC X(08) VALUE 'IOPCB   '.     
          05 FILLER                 PIC X(16).
          05 WS-AIB-MAX-OUTPUT-LEN  PIC 9(09) COMP VALUE 0.         
          05 WS-AIB-OUTPUT-LEN-USED PIC 9(09) COMP VALUE 0.         
          05 FILLER                 PIC X(12).
          05 WS-AIB-RETURN-CODE.                                   
              10 WS-AIB-RETURN-CODE-NBR PIC 9(7) COMP VALUE 0.     
          05 WS-AIB-REASON-CODE.                                   
              10 WS-AIB-REASON-CODE-NBR PIC 9(7) COMP VALUE 0.     
          05 WS-AIBERRXT            PIC 9(04).                       
          05 WS-AIBRSA1             PIC 9(04) VALUE 0.               
          05 FILLER                 PIC X(48).
*******------------------------------------------
       LINKAGE SECTION.                                                         
       PROCEDURE DIVISION.                                   
           CALL 'AIBTDLI' USING ICMD-FUNC,AIB-FIELDS,IO-AREA.
           EXEC CICS RETURN END-EXEC.   
           GOBACK.                 

Is it ture? Or what's the correct syntax of AIBTDLI?
Thanks a lot and best regards
Back to top
View user's profile Send private message
charanmsrit

New User


Joined: 25 Oct 2007
Posts: 81
Location: Australia
PostPosted: Thu Mar 17, 2016 7:00 pm
 Reply with quote
wrt issuing ICMD via AIBTDLI, you are close but not there yet. take a look at the links below that will help you fix your code. i notice you have EXEC CICS in your program, from the IBM MANUALS, it does not appear like you can issue these system service calls from CICS

www.ibm.com/support/knowledgecenter/#!/SSEPH2_13.1.0/com.ibm.ims13.doc.apg/ims_imstmspecifyingaibmask.htm

www.ibm.com/support/knowledgecenter/#!/SSEPH2_14.1.0/com.ibm.ims14.doc.apr/ims_icmdcalltm.htm

note that the command you are issuing will result in multiple segments output. the ICMD will only retrieve the first segment (line) of the response and you then need to use RCMD to retrieve the subsequent segments of the output

www.ibm.com/support/knowledgecenter/#!/SSEPH2_14.1.0/com.ibm.ims14.doc.apr/ims_rcmdcalltm.htm
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
No new posts Sysplex System won't IPL at DR site I... All Other Mainframe Topics 2
No new posts COBOL ZOS Web Enablement Toolkit HTTP... COBOL Programming 0
No new posts How to delete a user's alias from the... JCL & VSAM 11
No new posts How to avoid duplicating a CICS Web S... CICS 0
No new posts Insert system time/date (timestamp) u... DFSORT/ICETOOL 5
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us