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
 

 

Sending system service calls by AIBTDLI.

 
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: 18
Location: Tajikestan

PostPosted: Wed Mar 16, 2016 6:51 pm    Post subject: Sending system service calls by AIBTDLI.
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: 80
Location: Australia

PostPosted: Thu Mar 17, 2016 7:00 pm    Post subject: Reply to: Sending system service calls by AIBTDLI.
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

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

http://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

http://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    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