Example: WorkOrder.Read.Request and what is afgwored.ccp doing? A kludgy method of Animating afgwored.ccp.
afgwordr.ccp calls afgwored.ccp. It would be very useful to intercept the IFBO communications between the webserver and the Asset Suite application server. Haven't been able to figure out a clean way to do this.
A kludgy method is to bastardize a panel program to call afgwored. Following are code changes made to tiga010.ccp so that it calls afgwored. Animating tiga010 allows you to set up the linkage and step into afgwored. It's not pretty, but it might be use useful for problem resolution.
WORKING-STORAGE SECTION.
*Custom begin
01 LNGS-SUBSCRIPTS-ADDRS.
05 RESP-DISP PIC 9(09) VALUE ZERO.
05 CICS-RESP PIC S9(09) COMP VALUE ZERO.
*Custom end
*Custom begin
******************************************************************
* BUSINESS OBJECT SERVICES COMMUNICATION AREA. *
******************************************************************
01 APIBS-COMMAREA.
COPY TIRAPIBS.
******************************************************************
* ERROR COMMUNICATION ERROR AREA. *
******************************************************************
01 API-ERROR-COMMAREA.
COPY TIRAPIER.
******************************************************************
* MESSAGE SERVICES COMMUNICATION AREA. *
******************************************************************
COPY TICAPICV.
******************************************************************
* SEGMENT COPYBOOKS *
******************************************************************
*01 AFCWORDR-SEGMENT.
* COPY AFCWORDR.
*Custom end
******************************************************************
* LINKAGE SECTION *
* *
******************************************************************
LINKAGE SECTION.
01 DFHCOMMAREA PIC X(01).
COPY TICOMMON.
COPY TICPROJ.
COPY TICALTSA.
*Custom begin
* COMM AREA FOR BUSINESS OBJECT PROGRAM
02 TIGBOP-COMMAREA.
COPY TIRAPICA.
*Custom end
3000-KEY-EDITS.
*Custom Begin
IF AR-NUMBER-FLD = '11'
MOVE 'PASSPORT' TO USER-ID-APICA
MOVE 'WorkOrder ' To BUSINESS-OBJECT-APICA
MOVE 'Read ' To BUS-OBJECT-METHOD-APICA
MOVE 'V060000 ' to BUS-OBJECT-VERSION-APICA
MOVE spaces to EXT-SYSTEM-ID-APICA
Move '0000' to RETURN-CODE-APICA
MOVE 'AF' TO PGM-PREFIX
MOVE 'G' TO PGM-TYPE-ID
MOVE 'WORED' TO PGM-SUFFIX
ADD +1 TO LINK-TOP-COM
MOVE PGM-NAME TO LINK-PGM-NAME-COM (LINK-TOP-COM)
EXEC CICS LINK
PROGRAM (PGM-NAME)
COMMAREA(TIGBOP-COMMAREA)
LENGTH (LENGTH OF TIGBOP-COMMAREA)
RESP (CICS-RESP)
END-EXEC
* RESTORE THE LINK STACK AFTER THE BOP MODULE CALL
MOVE LOW-VALUES TO LINK-PGM-NAME-COM (LINK-TOP-COM)
SUBTRACT +1 FROM LINK-TOP-COM
IF CICS-RESP NOT = DFHRESP(NORMAL)
MOVE UNEXPECTED-ERROR-APICV TO ERROR-TYPE-APIER
MOVE '3000-' TO COBOL-PARAGRAPH-NBR-APIER
MOVE 'ERROR EXECUTING CICS COMMAND: LINK'
TO ERROR-TEXT-1-APIER
STRING 'FOR BUSINESS OBJECT PROGRAM : '
PGM-NAME
DELIMITED BY SIZE
INTO ERROR-TEXT-2-APIER
MOVE CICS-RESP TO RESP-DISP
STRING 'COMMAND RETURNED CICS-RESP CODE: ' RESP-DISP
DELIMITED BY SIZE
INTO ERROR-TEXT-3-APIER
* PERFORM 9999-ABEND THRU 9999-EXIT
ELSE
CONTINUE
END-IF
END-IF
*Custom end