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
View previous topic :: View next topic  
Author Message
lind sh

New User


Joined: 04 Feb 2015
Posts: 31
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 Looking for mainframe system programmers Mainframe Jobs 0
No new posts File transfer to remote system using ... TSO/ISPF 2
No new posts Insert System Runtime in HEADER In SY... SYNCSORT 9
No new posts A job with SYSSTC service class is ge... All Other Mainframe Topics 4
No new posts doubt when executing a file when logg... TSO/ISPF 2
Search our Forums:

Back to Top