Change the following:
copy afcwordr
10 OVERRIDECRITERIA-LITERAL PIC X(020)
VALUE 'OverrideCriteria'.
*Custom Begin
10 WOHEADATTRIBUTES-LITERAL PIC X(020)
VALUE 'WoHeadAttributes'.
*Custom end
*Custom Begin
*Create WOHEADATTRIBUTES-SEG from WOATTRIBUTES-SEG. ******************************************************************
* COBOL WORKING-STORAGE FOR SEGMENT WoHeadAttributes
* MEMBER: AFCWOATR
* COMMENT: Work Order header Attributes
******************************************************************
05 WOHEADATTRIBUTES-SEG.
******************************************************************
* SEGMENT DEFINITION FOLLOWS *
******************************************************************
10 FUNCTION-ATT PIC X(0001). TIG16931
10 FUNCTION-ERR PIC X(0001). TIG16931
etc
*Custom end
afgwored.ccp
*Custom Begin
05 WO-HEADER-ATTRIB-SW PIC X(01) VALUE 'N'.
88 WO-HEADER-ATTRIB-OFF VALUE 'N'.
88 WO-HEADER-ATTRIB-ON VALUE 'Y'.
*Custom end
Paragraph A160-OPEN-ATTRB
*Custom Begin
* MOVE WORK-ORDER-TASK-WOTSK(WOTSK-COUNT)
* TO REFERENCE-SUB-NBR-WS.
IF WO-HEADER-ATTRIB-OFF
MOVE WORK-ORDER-TASK-WOTSK(WOTSK-COUNT) TO
REFERENCE-SUB-NBR-WS
MOVE 'WO' TO REFERENCE-TYPE-WS
STRING
REFERENCE-TYPE-WS,
REFERENCE-NBR-WS,
REFERENCE-SUB-NBR-WS
WORK-MGT-5-LITRL
WOATTR-6-LITRL
FACILITY-WOTSK(WOTSK-COUNT)
CODE-SUBCATEGORY-WS
DELIMITED BY SIZE
INTO CURSOR-ARG-CM
ELSE
MOVE SPACES TO REFERENCE-SUB-NBR-WS
MOVE 'WP' TO REFERENCE-TYPE-WS
STRING
REFERENCE-TYPE-WS,
REFERENCE-NBR-WS,
REFERENCE-SUB-NBR-WS
WORK-MGT-5-LITRL
WOATTR-6-LITRL
FACILITY-WOWRK
CODE-SUBCATEGORY-WS
DELIMITED BY SIZE
INTO CURSOR-ARG-CM
END-IF
* STRING WO-1-LITRL
* REFERENCE-NBR-WS,
* REFERENCE-SUB-NBR-WS
* WORK-MGT-5-LITRL
* WOATTR-6-LITRL
* FACILITY-WOTSK(WOTSK-COUNT)
* CODE-SUBCATEGORY-WS
* DELIMITED BY SIZE
* INTO CURSOR-ARG-CM.
*Custom end
Bottom of paragraph E010-EXIT
*Custom Begin
PERFORM E06H-BUILD-READ-REPLY-ATTRB THRU E06H-EXIT.
*Custom end
Top of paragraph E060-BUILD-READ-REPLY-ATTRB.
*Custom Begin
SET WO-HEADER-ATTRIB-OFF TO TRUE
*Custom end
New paragraph E06H-BUILD-READ-REPLY-ATTRB
*Custom Begin
******************************************************************
* E06H-BUILD-READ-REPLY-ATTRB *
* *
******************************************************************
E06H-BUILD-READ-REPLY-ATTRB.
SET WO-HEADER-ATTRIB-ON TO TRUE
PERFORM A160-OPEN-ATTRB THRU A160-EXIT.
IF REFERENCE-TYPE-ATTRB (1) > SPACES
IF WOATTRIBUTES-UNSET-AUTH
INITIALIZE SECURITY-COMMAREA
MOVE WOATTRIBUTES-SEC-EVENT TO SECURITY-EVENT-AUTH
PERFORM I000-CHECK-USER-SECURITY THRU I000-EXIT
MOVE SECURITY-RETURN-CODE-AUTH
TO WOATTRIBUTES-AUTH-SW
END-IF
INITIALIZE WOHEADATTRIBUTES-SEG
MOVE 1 TO
APPLIKATION-ATT OF WOHEADATTRIBUTES-SEG
CODE-CATEGORY-ATT OF WOHEADATTRIBUTES-SEG
FACILITY-ATT OF WOHEADATTRIBUTES-SEG
CODE-SUBCATEGORY-ATT OF WOHEADATTRIBUTES-SEG
ATTRIBUTE-NAME-ATT OF WOHEADATTRIBUTES-SEG
COMPLEX-CODE-VALUE-ATT OF WOHEADATTRIBUTES-SEG
UNIT-OF-MEASURE-ATT OF WOHEADATTRIBUTES-SEG
LAST-UPDATED-DATE-ATT OF WOHEADATTRIBUTES-SEG
LAST-UPDATED-BY-ATT OF WOHEADATTRIBUTES-SEG
VALUE-REQD-IND-ATT OF WOHEADATTRIBUTES-SEG
OLE-ID-NOTES-ATT OF WOHEADATTRIBUTES-SEG
COMPLEX-CODE-TYPE-ATT OF WOHEADATTRIBUTES-SEG
OLE-OBJECT-ID-ATT OF WOHEADATTRIBUTES-SEG
TIME-STAMP-ATT OF WOHEADATTRIBUTES-SEG
** SET THE SECURITY BASED ON WHAT WAS RETURNED
MOVE WOATTRIBUTES-AUTH-SW TO
APPLIKATION-PRM OF WOHEADATTRIBUTES-SEG
CODE-CATEGORY-PRM OF WOHEADATTRIBUTES-SEG
FACILITY-PRM OF WOHEADATTRIBUTES-SEG
CODE-SUBCATEGORY-PRM OF WOHEADATTRIBUTES-SEG
ATTRIBUTE-NAME-PRM OF WOHEADATTRIBUTES-SEG
COMPLEX-CODE-VALUE-PRM OF WOHEADATTRIBUTES-SEG
UNIT-OF-MEASURE-PRM OF WOHEADATTRIBUTES-SEG
LAST-UPDATED-DATE-PRM OF WOHEADATTRIBUTES-SEG
LAST-UPDATED-BY-PRM OF WOHEADATTRIBUTES-SEG
VALUE-REQD-IND-PRM OF WOHEADATTRIBUTES-SEG
OLE-ID-NOTES-PRM OF WOHEADATTRIBUTES-SEG
COMPLEX-CODE-TYPE-PRM OF WOHEADATTRIBUTES-SEG
OLE-OBJECT-ID-PRM OF WOHEADATTRIBUTES-SEG
TIME-STAMP-PRM OF WOHEADATTRIBUTES-SEG
IF WOATTRIBUTES-UPDATE-AUTH
PERFORM E061-COND-PROTECT-ATTRB
THRU E061-EXIT
END-IF
MOVE SPACES TO NO-MORE-ROWS-SW
MOVE +1 TO ATTRB-COUNT
PERFORM WITH TEST BEFORE
UNTIL (NO-MORE-ROWS)
IF WOATTRIBUTES-NO-AUTH
CONTINUE
ELSE
** THE -PRM HAS BEEN SET USING THE VALUE FROM TIGAUTH
** IF 'NO ACCESS' WAS RETURNED NOTHING ELSE WAS NEEDED
IF NOT WOATTRIBUTES-READ-AUTH
** SOME FIELDS ARE SET TO READ WHEN UPDATE WAS RETURNED
** A STRING 'R' SHOULD BE OK IT'S HARD CODED IN TICAUTH
MOVE 'R' TO
ATTRIBUTE-NAME-PRM OF
WOHEADATTRIBUTES-SEG
END-IF
MOVE APPLIKATION-ATTRB(ATTRB-COUNT) TO
APPLIKATION-FLD OF
WOHEADATTRIBUTES-SEG
MOVE CODE-CATEGORY-ATTRB(ATTRB-COUNT) TO
CODE-CATEGORY-FLD OF
WOHEADATTRIBUTES-SEG
MOVE FACILITY-ATTRB(ATTRB-COUNT) TO
FACILITY-FLD OF
WOHEADATTRIBUTES-SEG
MOVE CODE-SUBCATEGORY-ATTRB(ATTRB-COUNT) TO
CODE-SUBCATEGORY-FLD OF
WOHEADATTRIBUTES-SEG
MOVE ATTRIBUTE-NAME-ATTRB(ATTRB-COUNT) TO
ATTRIBUTE-NAME-FLD OF
WOHEADATTRIBUTES-SEG
MOVE COMPLEX-CODE-VALUE-ATTRB(ATTRB-COUNT) TO
COMPLEX-CODE-VALUE-FLD OF
WOHEADATTRIBUTES-SEG
MOVE UNIT-OF-MEASURE-ATTRB(ATTRB-COUNT) TO
UNIT-OF-MEASURE-FLD OF
WOHEADATTRIBUTES-SEG
MOVE LAST-UPDATED-DATE-ATTRB(ATTRB-COUNT) TO
LAST-UPDATED-DATE-FLD OF
WOHEADATTRIBUTES-SEG
MOVE LAST-UPDATED-BY-ATTRB(ATTRB-COUNT) TO
LAST-UPDATED-BY-FLD OF
WOHEADATTRIBUTES-SEG
MOVE VALUE-REQD-IND-ATTRB(ATTRB-COUNT) TO
VALUE-REQD-IND-FLD OF
WOHEADATTRIBUTES-SEG
MOVE OLE-ID-NOTES-ATTRB(ATTRB-COUNT) TO
OLE-ID-NOTES-FLD OF
WOHEADATTRIBUTES-SEG
MOVE COMPLEX-CODE-TYPE-ATTRB(ATTRB-COUNT) TO
COMPLEX-CODE-TYPE-FLD OF
WOHEADATTRIBUTES-SEG
MOVE OLE-OBJECT-ID-ATTRB(ATTRB-COUNT) TO
OLE-OBJECT-ID-FLD OF
WOHEADATTRIBUTES-SEG
MOVE TIME-STAMP-ATTRB(ATTRB-COUNT) TO
TIME-STAMP-FLD OF
WOHEADATTRIBUTES-SEG
END-IF
MOVE WOHEADATTRIBUTES-SEG TO SEGMENT-DATA-APIBS
MOVE WOHEADATTRIBUTES-LITERAL TO SEGMENT-NAME-APIBS
PERFORM M200-SEND-REPLY THRU M200-EXIT
IF ATTRB-COUNT = LINE-MAX-ATTRB
MOVE +1 TO ATTRB-COUNT
PERFORM A165-NEXT-PAGE-ATTRB THRU A165-EXIT
ELSE
ADD +1 TO ATTRB-COUNT
END-IF
IF REFERENCE-TYPE-ATTRB(ATTRB-COUNT) = LOW-VALUES
SET NO-MORE-ROWS TO TRUE
END-IF
END-PERFORM
END-IF.
PERFORM G080-CLOSE-ATTRB THRU G080-EXIT.
E06H-EXIT. EXIT.
*Custom end
WorkOrder.Read.Reply.V060000.dtd
Added WoHeadAttributes to WoHeader
WorkOrderTask?, TimeStamp?, WoHeadAttributes*, WoTaskHeader*, AllowedActions?)>
and duplicated <!ELEMENT WoHeadAttributes and <!ATTLIST WoHeadAttributes from WoAttributes.
Update MWorkOrderReadReply.java/class and SWoHeadAttributes.java/class and rebuild ICBO-WorkOrder.jar.
MWorkOrderReadReply.java
String longSegNames[] = {
/*000*/ "WoHeader",
//Custom Begin
/*000a*/ "WoHeadAttributes",
//Custom end
/*001*/ "WoTaskHeader",
String shortSegNames[] = {
/*000*/ "WOHDR",
//Custom Begin
/*000a*/ "WOHAT",
//Custom end
/*001*/ "WOTSK",
int nestingLevel[] = {
/*000*/ 1,
//Custom Begin
/*000a*/ 2,
//Custom end
/*001*/ 2,
//Custom Begin
// _segmentCount = 16;
_segmentCount = 17;
//Custom end
SWoHeadAttributes.java is cloned from SWoAttributes with minor edits.