Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 31
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: 82
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 Storage usage in a web service provider. John Poulakos CICS 0 Tue Jun 04, 2019 8:12 pm
No new posts System Determined Blocksize SandeepChourasia1985 COBOL Programming 2 Thu Mar 14, 2019 9:37 am
No new posts Connnect Direct Sending Zip file from... netcrawler All Other Mainframe Topics 3 Tue Feb 12, 2019 3:25 pm
No new posts Need Help on sending email by includi... wik123 JCL & VSAM 9 Mon Jul 30, 2018 2:59 pm
No new posts JAVA equivalent for IMS DL/I calls srinianusuya IMS DB/DC 2 Wed Jul 25, 2018 12:04 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us