Copyright © TIBCO Software Inc. All Rights Reserved
Copyright © TIBCO Software Inc. All Rights Reserved


Chapter 3 Tools : $PUTCONTAINER

$PUTCONTAINER
Places data in a container associated with the specified channel. (C)
Invocation
CALL $PUTCONTAINER(channel, container, area, length, fromccsid, datatype)
A fullword binary number that represents the Coded Character Set Identifier (CCSID). The character data to be put into the container will be converted into this format. For an explanation of CCSIDs, see the section “Data Conversion With Channels” in the CICS Application Programming Guide.
The type of data to put into the container. This option applies only to new containers. The data type of an existing container was established at creation and cannot be changed. For more information on data conversion with channels, see the CICS Application Programming Guide.
Example
Following is a sample rule:

 
    RULE EDITOR ===> SCROLL: P
C_$PUTCONTAINER(CHANNEL, CONTAINER, TNAME);
_ LOCAL AREA, LENGTH, FROMCCSID, DATATYPE;
_ ------------------------------------------------------------------------
_ -------------------------------------------------------------------+----
_ @MAP.ADDRESS = 0; ¦ 1
_ @MAP.SIZE = 80; ¦ 2
_ INSERT @MAP('ENVIRONMENT'); ¦ 3
_ AREA = @MAP.ADDRESS; ¦ 4
_ LENGTH = @MAP.SIZE; ¦ 5
_ GET MAP_CONTAINER(AREA); ¦ 6
_ MAP_CONTAINER.F10 = TNAME; ¦ 7
_ REPLACE MAP_CONTAINER(AREA); ¦ 8
_ CCSID = ''; ¦ 9
_ DATATYPE = ''; ¦ A
_ CALL MSGLOG( ¦ B
_ '$PUTCONTAINER(CHANNEL, CONTAINER, AREA, LENGTH, FROMCCSID, '|| ¦
_ 'DATATYPE)'); ¦
_ CALL MSGLOG('Channel name is: ===> ' || CHANNEL); ¦ C
_ CALL MSGLOG('Container name is: ===> ' || CONTAINER); ¦ D
_ CALL MSGLOG('Container content: '); ¦ E
_ CALL MSGLOG(MAP_CONTAINER.F10); ¦ F
_ CALL $PUTCONTAINER(CHANNEL, CONTAINER, AREA, LENGTH, FROMCCSID, ¦ G
_ DATATYPE); ¦
_ ------------------------------------------------------------------------

 
Following is the MAP table MAP_CONTAINER:

 
COMMAND==> TABLE DEFINITION
 
Table: MAP_CONTAINER Type: MAP Unit: HZS80 IDgen: Y
 
Parameter Name Typ Syn Len Dc Cls Reference ' Event Rule Typ Acc
---------------- - -- --- -- - ---------------- ' ---------------- - -
_ ADDRESS B 4 0 A ' _
_ LOCATION I C 16 0 L ' _
_ ' _
------ EXTERNAL ------|---------- Metadata Definition ------
Field Name Xsyn Xlen Xdec Offset Key Typ Syn Len Dec Rqd Default
---------------- ---- ----- -- ------ - - -- ----- -- - -------------
_ KEY B 4 0 0 P I B 4 0
_ F10 C 80 0 0 C 80 0
_

 

Copyright © TIBCO Software Inc. All Rights Reserved
Copyright © TIBCO Software Inc. All Rights Reserved