View previous topic :: View next topic
|
Author |
Message |
lind sh
New User
Joined: 04 Feb 2015 Posts: 32 Location: Tajikestan
|
|
|
|
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 |
|
|
charanmsrit
New User
Joined: 25 Oct 2007 Posts: 81 Location: Australia
|
|
Back to top |
|
|
|