************************************************
* I-F01 copy book
************************************************
03 I-F01.
05 IDD PIC X(6) VALUE SPACES.
05 FUNC PIC X(4) VALUE SPACES.
05 INATTR PIC X(25) VALUE SPACES.
05 OUTATTR PIC X(25) VALUE SPACES.
In this example,
INATTR and OUTATTR are not actual data supplied to the service; they are the
bidirectional attributes of receive and reply messages. You can add this data
to an existing request or create a new request that includes the attributes.
Other valid names can be used in placed of INATTR and OUTATTR. You can both,
either, or none of the attributes.Specifies bidirectional attributes for the receive message.
Specifies bidirectional attributes for the reply message.
The initial values of INATTR and OUTATTR are based on the values that are specified in the Bidirectional Settings page of the Preferences window, You can use the flow message editor to change these values.
The INATTR and OUTATTR values are over-written dynamically, according to values supplied by the service requester in the INATTR and OUTATTR fields of the receive message.
************************************************************ * BIDIMSG copy book ************************************************************ 03 BIDIMSG. 05 INATTR PIC X(25) VALUE 'VisualLTR'. 05 OUTATTR PIC X(25) VALUE 'VisualLTR'.
MACGEN IF INATTR OF I-F01 NOT EQUAL SPACES AND LOW-VALUES THEN
MACGEN MOVE INATTR OF I-F01 TO INATTR OF BIDIMSG
MACGEN END-IF .
CALL WS-BIDITRN-CALL USING BY REFERENCE IDD OF V-F01
BY VALUE LENGTH OF IDD OF V-F01
MACGEN BY CONTENT INATTR OF BIDIMSG BY VALUE LENGTH OF INATTR OF BIDIMSG
MACGEN BY CONTENT 'VISUALLTR' BY VALUE 9
MACGEN BY CONTENT '424' BY VALUE 3
BY REFERENCE BIDI-RESPONSE-CODE , BY REFERENCE BIDI-REASON-CODE